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