[编程交流] 更改实体和块t

(defun C:chCL(/ whc sset ent sellist color layer)
 (defun FiltLayer(sset pst)
   (setq whc 0 newSet(ssadd))
   (while(< whc (sslength sset))
     (setq ent(ssname sset whc))
     (setq sellist(entget ent))
     (if(= pst (cdr(assoc 8 sellist)))
       (ssadd ent newSet)
     )
     (setq whc(+ whc 1))
   )
   newSet
 )
 (setvar "cmdecho" 0)
 (setq color(acad_colordlg 1 nil))
 (setq layer(getstring "\n Layer: "))
 (setq sset
   (ssget[color=purple] [color=black]"X"[/color] [/color]
     (list
       (cons -4 "<OR")
         (cons 0 "ARC")
         (cons 0 "CIRCLE")
         (cons 0 "ELLIPSE")
         (cons 0 "LINE")
         (cons 0 "LWPOLYLINE")
         (cons 0 "POLYLINE")
         (cons 0 "INSERT")
       (cons -4 "OR>")
     )
   )
 ) 
 (if(and sset(> (sslength sset) 0))(setq sset(FiltLayer sset "[color=purple]LAYER NAME OF xploded BLOCKs[/color]")))
 (if (and sset (> (sslength sset) 0))
   (progn
     (command "change" sset "" "Properties" "Color" color "")
     (command "change" sset "" "Properties" "LAyer" layer "")
     (command "setbylayer" "P" "")
   )
 )
 (setvar "cmdecho" 1)
 (princ)
)