无goin访问对象

Ahankhah · 发表于 2022-7-6 08:53:14

嗨，朋友们，
如何在不将每个选项卡设置为当前的情况下分解所有空间（布局）中的所有块（我的意思是发出（setvar'Ctab…）

提前感谢

Tharwat · 发表于 2022-7-6 09:21:00

我的方法也是。。。。它工作得很好。。
使用ssget“_x”，您可以选择模型和所有布局中的所有对象。。。。。


(defun c:TesT (/ ss i) (vl-load-com)
;;;=== Tharwat 24. Sep. 2011 ===;;;
 (if (setq ss (ssget "_x" '((0 . "INSERT"))))
   (repeat
     (setq i (sslength ss))
      (vla-explode  (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   )
   (princ)
 )
 (princ)
)