分解空组

wjm3 · 发表于 2004-5-19 19:51:00

您好，请问如何将附件中的空组一次分解？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-5-19 20:53:00

autolisp方式:
(defun c:test( / objdict grpdict item)
   (setq objdict (namedobjdict))
   (setq grpdict (dictsearch objdict "ACAD_GROUP"))
   (foreach item grpdict
   (if (= (car item) 350)
   (entdel (cdr item))
   )
   )
   (princ)
)
VLISP方式
(defun c:test2( / doc grps grp)
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq grps (vla-get-groups doc))
   (vlax-for grp grps
   (vla-delete grp)
   )
   (princ)
)