新建图形
书中找来的，自己用。(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)
actlayout (vla-get-ActiveLayout AcadDocument)
)
(setq Docsets(vla-get-Documents AcadObject))
(setq NewDrawing1 (vla-add Docsets "")) ;新增加一个图形
(setq lastinsex (- (vla-get-count Docsets) 1));新增加图形的索引号，即最后一个，第一个为0
(setq Obj (vla-item Docsets lastinsex));
(setq Name (vla-get-Name Obj));返回图形名字，如Drawing4.dwg
(vla-activate Obj);激活新增加的图形
页:
[1]