||||리습으로는
(defun explode-all-groups(/ entry)
  (while (assoc 3(setq entry(dictsearch(namedobjdict)"ACAD_GROUP")))
    (entdel(dictremove(cdr(assoc -1 entry))(cdr(assoc 3 entry))))
  )
);;(explode-all-groups)

.^_^.



이렇게

VBA 로는

Public Sub explode_all_groups()
   Dim obj As AcadGroup
   For Each obj In ThisDrawing.Groups
       obj.Delete
   Next obj
End Sub

요렇게 합니다.

이 게시물을...