新建图形

jinan1913

书中找来的，自己用。
  (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);激活新增加的图形

paulpipi