请问高手用LISP如何打开已经画好的DWG文件 啊
请问高手用LISP如何打开已经画好的DWG文件啊 <p>为什么要用LISP打开呢?</p><p>(command"open")应该可以的吧</p> 我也想过,但是这样就不如直接点击啦 (defun C:SETS()(setq pt (getpoint "\n指定插入基点:"))
(command "-INSERT" "文件名" Pt "" "" "")
) <p>谢谢!能不能帮我改下这个程序的错误? 感激涕零!</p><p>;;;打开一个dwg文件<br/>(DEFUN C:FW ()<br/>(SETVAR "CMDECHO" 0)<br/>(SETQ VVV (GETFILED "选择文件打开" "*" "dwg" 8))<br/>;;(IF (=(STRLEN VVV) 0)(PROGN<br/>(vla-activate <br/>(vla-open <br/>(vla-get-documents <br/>(vlax-get-acad-object))VVV))<br/>(SETVAR "CMDECHO" 1)<br/>(PRINC))</p><p>运行后出现这样的来:</p><p>菜单实用程序已加载。; 错误: 语法错误</p><p>关闭软件时异常中断!</p><p></p> <p>可以打开文件啊。</p><p>如果打开后怎么才能对其进行编辑?</p>
页:
[1]