Lisp or codes to explode group of entities (gathered by GROUP command)

[pBe]

Did you try it? see how it shows the entities within a group name?

only thing is it wont show you groups outside of model space...

 

anyway. back to the drawing board...

[Sweety]

I think it may explode groups , but in order of the selection set and without being known which one of group would be exploded

and which one I would like to keep .

 

Am I right ?

[pBe]

well.. the code suppose to show you the group name and hihglighted in screen

 

 

 
Command: test
Command:
Group name *A1
Specify action [eXplode/Continue]: X
Group name DDD[color=blue]<----- this is the group name[/color]
Specify action [eXplode/Continue]: C [color=#0000ff]<----- this is the continue option[/color]

Group Name DDD not exploded[color=blue]<------message group DDD not exploded[/color]
Group name GROUP7X
Specify action [eXplode/Continue]: c
Group Name GROUP7X not exploded
Group name THIS_GROUP1
Specify action [eXplode/Continue]: x [color=#0000ff]<----- this is the explode option : Group1 is exploded[/color]
Group name THISGROUP2
Specify action [eXplode/Continue]: c
Group Name THISGROUP2 not exploded

 

its fun writing this one... crude... but fun

[David Bethel]

I have no idea as to who was the author of this tidbit:

(defun c:KillGroups ( / count gent gdict)
 (setq count 0
       gent(cdadr(member'(3 . "ACAD_GROUP") (entget(namedobjdict))))
       gdict (entget gent)
 )
 (foreach i gdict
   (if (= (car i) 3)
   ;;entdel is not required in R14, & should be removed
   (progn (entdel(dictremove gent (cdr i))) (setq count (1+ count)))
   )
 )
 (princ (strcat "\nPurged " (itoa count) " groups."))
 (princ)
);c:killgroups

 

-David