Lỗi command khi xuất file nwc bằng lệnh nwcout

[anhthoichoem 0]

Em có tham khảo trên mạng thì có đoạn lisp dùng để xuất file nwc format để mở bằng naviswork từ autocad 3d như sau ạ:

Script code : 

;Command
FILEDIA
0
;Command
(Command "nwcout" (strcat (getvar 'DwgPrefix) (vl-filename-base(getvar 'DwgName))))
;command
FILEDIA
1
;command
_QUIT
NO

 

Em đã chạy thử nhưng tới dòng: (Command "nwcout" (strcat (getvar 'DwgPrefix) (vl-filename-base(getvar 'DwgName)))) thì autocad không chạy nữa và em kiểm tra thì cũng chưa xuất được nwc file

Anh chị có thể cho em vài gợi ý để sửa được không ạ?