使用lisp打开一个已有的dwg文件，并在里面绘制一条直线
提问：在初始打开cad后，加载lisp，实现如下功能：打开指定路径的文件， 如C:\Users\Administrator\Desktop\p1.dwg
并在p1.dwg 绘制一条直线。不知道这段代码如何写，谢谢各位前辈。
自己参考着写了一个新建文件并绘制直线的lsp：但问题是直线只在初始的Drawing1.dwg里绘制，无法在新建的Drawing2.dwg里绘制，不知道是什么原因。
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)
)
(setq Docsets (vla-get-Documents AcadObject))
(setq NewDrawing1 (vla-add Docsets "")
)
(setq index 0)
(repeat (vla-get-count Docsets)
(setq Obj (vla-item Docsets index))
(vla-activate Obj)
(setq Name (vla-get-name Obj))
(command "_line" '(0 0 0) '(1000 1000 0))
(setq index (+ index 1))
(princ )
)
你这个方法，肯定不行，command只能对当前文件有效，可考虑改为：vla-SendCommand 恩，好的，我试试 继续用vla啊！一个稳定对应一个command堆栈，所以command当然是不行了。
页:
[1]