分解空组

wjm3

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

meflying

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)
)

wjm3

谢谢！我试试。

aaddff

飞哥，高！

wjm3

meflying,您好！


您提供的程序会分解所有的组，我的需求是只分解空组。


不过，还是非常感谢。我已知道该怎么编了。