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底图交换、付费教程免费获取、交流经验、互相学习，共同进步！