通信人家园

标题: CAD二次开发学习授人以鱼不如授人以渔：activex函数学习第一天vla-Activate [查看完整版帖子] [打印本页]

时间: 2017-8-7 11:59

作者: 水吉空 标题: CAD二次开发学习授人以鱼不如授人以渔：activex函数学习第一天vla-Activate

;创建两个新的图形接着轮流激活每一个图形。;新建一个图形，获得当前图形的名字
(defun c:tt ()
(vl-load-com)
(Setq mspace (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ModelSpace))
(Setq docsets (Vlax-Get (Vlax-Get-Acad-Object) 'Documents))
(setq new1 (vla-add docsets ""));新建一个图形
(setq new2 (vla-add docsets ""))
(setq index 0)
(repeat (Vlax-Get docsets 'Count )
(setq obj (vla-item docsets index))
(vla-Activate obj);激活指定图形
(setq name (vla-get-Name obj));获得当前图形的名字
(princ "图形")
(princ name)
(princ "为当前激活")
(princ "\n")
(setq index (+ index 1))
))

欢迎加入通信管线设计技术交流群655280537获取，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！

附件: 2.jpg (2017-8-7 11:59, 3.39 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI4NTAwfGRhYzcwMTZhfDE3NTQxMjIxOTJ8MHww

附件: 1.jpg (2017-8-7 11:59, 4.48 KB) / 下载次数 0
https://www.txrjy.com/forum.php?mod=attachment&aid=MzI4NTAxfDY0OGY3ZjM2fDE3NTQxMjIxOTJ8MHww

通信人家园 (https://www.txrjy.com/)