如何创建ActiveDocument添加集合，保存，退出
本帖最后由 newbuser 于 2013-8-24 17:50 编辑求高手赐教，头都快大了。如何创建新的ActiveDocument，将一幅图里的ActiveSectionSet（集合）添加过来，或者复制过来。(defun c:test ( / myacad mydoc ss ssvla)
(vl-load-com)
(setq ss (ssget "c" (getpoint) (getpoint)))
(setq myacad (vlax-get-acad-object))
(setq mydoc (vla-get-ActiveDocument myacad))
(setq ssvla (vla-get-ActiveSelectionSet mydoc)) ; 获取集合对象
(vla-open ???) ; 新建或打开已建好dwg文件
(???) ; vla-put-?或者add将已获取集合对象ssvla加入到新建的dwg文件中
(vla-save) ; 保存
(vla-close) ; 退出(只退出新建dwg文件)
(vlax-release-object myacad)
(vlax-release-object mydoc)
(vlax-release-object ssvla)
(princ)
)
页:
[1]