Remove Group LISP 1

[crystalrae]

Does anyone know of a LISP that will delete all groups from a drawing. I don't want to delete the enities of the group - but just want to get rid of the grouping without having to manually delete each grouped object (hope that makes sense)

Thanks!

 

[ad]

By groups do you mean blocks?

 

[crystalrae]

No - they aren't blocks exactly - they are a named selection set of objects - they act almost as blocks but they are able to be edited.

 

[tigrek]

;Disband - a command to disband all Groups in a Drawing
;without destroying their member elements
;Please post debugging results
;written by Dr. Tigrek
;

http://www.homescript.com

(defun Cisband()
(setq objdict (namedobjdict))
(setq grpdict (dictsearch objdict "ACAD_GROUP&quot)

(IF (setq SONNY (dxf 3 grpdict))
(princ "\nGroups and Bands Found in County - and disbanded:&quot
(princ "\nCounty clean of Groups and Bands&quot
)
(princ "\n&quot
(while (setq grpdict (member (assoc 3 grpdict) grpdict))
(princ "\n&quot
(princ (setq GroupName (cdr (car grpdict))))

(setq GroupEDNA (cdr (assoc 350 grpdict)))

(entdel GroupEDNA)
(setq grpdict (cdr grpdict))

)

(princ)
)

 

[crystalrae]

Thanks for the LISP. Can you tell me what this means?

Command:
Command: DISBAND
; error: no function definition: DXF

Command:

This was copied from the command line after I ran the program.

 

[tigrek]

Please add the following function definition to the lsp file after the end of the function disband.
Thanks for the debug feedback.

(defun dxf (n ed) (cdr (assoc n ed)))