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