有時(shí)候在CAD中遇到炸不開的組，需要分解，請(qǐng)輸入group命令，選擇組，點(diǎn)擊分解即可，但大量的組的話，需要編程解決。

代碼:
(defun Example_Groups()
;;; 這個(gè)范例找出當(dāng)前的Groups集合
;;; 接著將新的群組添加到該集合
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
        AcadDocument(vla-get-ActiveDocument Acadobject)
        mSpace(vla-get-ModelSpace AcadDocument)
  )
  (setq GroupColl(vla-get-Groups AcadDocument))
)
;;; 分解所有組，假如想單獨(dú)分解無(wú)名組，需另外判別f1是否以*開頭，然后依次增加i

(defun c:qqq ()
  (example_groups)
  (setq q1 (vla-get-count groupcoll))
  (setq i 0)
  (repeat q1
    (setq a1 (vla-item groupcoll i))
    (setq f1 (vla-get-name a1))
    (command "_.group" "e" f1)
  )
)

;;; 只是分解無(wú)名組
(defun c:qq ()
  (example_groups)
  (setq q1 (vla-get-count groupcoll))
  (setq i 0)
  (repeat q1
    (setq a1 (vla-item groupcoll i))
    (setq f1 (vla-get-name a1))
    (if (= (substr f1 1 1) "*")
      (command "_.group" "e" f1)
      (setq i (1  i))
    )
  )
)