使用lisp打开一个已有的dwg文件，并在里面绘制一条直线

yyyyyyy234

提问：在初始打开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 )
)

819534890

你这个方法，肯定不行，command只能对当前文件有效，可考虑改为：vla-SendCommand

yyyyyyy234

恩，好的，我试试

cnks

继续用vla啊！一个稳定对应一个command堆栈，所以command当然是不行了。