新增图形文件

olenewman · 发表于 2021-6-16 17:25:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

  书中找来的，自己用。比较笨，找来半天功夫。
(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 lastin** (- (vla-get-count Docsets) 1));新增加图形的索引号，即最后一个，第一个为0
(setq Obj (vla-item Docsets lastin**));
(setq Name (vla-get-Name Obj));返回图形名字，如Drawing4.dwg
(vla-activate Obj);激活新增加的图形

账号		自动登录	找回密码
密码			立即注册

[源码] 新增图形文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。