请问高手用LISP如何打开已经画好的DWG文件 啊

894560869

请问高手用LISP如何打开已经画好的DWG文件啊

英雄无敌

为什么要用LISP打开呢？

(command"open")应该可以的吧

894560869

我也想过，但是这样就不如直接点击啦

samshs

2. (defun C:SETS()
3.   (setq pt (getpoint "\n指定插入基点："))
4.   (command "-INSERT" "文件名" Pt "" "" "")
5.   )

(defun C:SETS()   (setq pt (getpoint "\n指定插入基点："))   (command "-INSERT" "文件名" Pt "" "" "")   )

894560869

谢谢！能不能帮我改下这个程序的错误？ 感激涕零！

;;;打开一个dwg文件
(DEFUN C:FW ()
(SETVAR "CMDECHO" 0)
(SETQ VVV (GETFILED "选择文件打开" "*" "dwg" 8))
;;(IF (=(STRLEN VVV) 0)(PROGN
(vla-activate
(vla-open
(vla-get-documents
(vlax-get-acad-object))VVV))
(SETVAR "CMDECHO" 1)
(PRINC))

运行后出现这样的来：

菜单实用程序已加载。; 错误: 语法错误

关闭软件时异常中断！

yitian519

可以打开文件啊。

如果打开后怎么才能对其进行编辑？