Detect Groups

[Anonymous]

How can I determine if there are any groups in the AutoCad Drawing?

To ungroup all (command "ungroup" "all" "Y").

If they don't exist, this crashes...

[rkmcswain]

This should work instead

(vl-cmdf "._ungroup" "_All")
(while (= 1 (logand (getvar "CMDACTIVE") 1))
  (command "_Y")
)

[Anonymous · Accepted solution]

I used....

(setq grps (dictsearch (namedobjdict) "ACAD_GROUP"))
(if (cdr (assoc 3 grps))(command "ungroup" "all" "y"))