[原创]：修改块（嵌套块）中实体颜色的源程序

nuance

不能修改属性部分，
只做了一部分，可以深入，如修改层．
(defun c:chbp(/ ss color i elist dxfdata2 n ssn dxfdata blockname
              name m eelist)
   (setq ss (ssget '((0 . "INSERT"))))
   (setq color (acad_colordlg 7))
   (setq i 0)
   (repeat (sslength ss)
      (setq elist '())
      (setq dxfdata2 t)
      (setq n 0)
      (setq ssn (ssname ss i))
      (setq dxfdata (entget ssn))
      (while dxfdata2 ;0
         (if (/= n 0)(setq dxfdata dxfdata2))
         (setq blockname (cdr (assoc 2 dxfdata)))
         (setq name (cdr (assoc -2 (tblsearch "BLOCK" blockname))))
         (setq dxfdata2 nil)
      
         (if (= "INSERT" (cdr (assoc 0 (entget name))))
                  (setq dxfdata2 (entget name))
            (setq elist (cons (entget name) elist))
         );if
         (while (setq name (entnext name)) ;1
            (if (= "INSERT" (cdr (assoc 0 (entget name))))
               (setq dxfdata2 (entget name))
               (setq elist (cons (entget name) elist))
            )
         );while1
         (setq n (+ n 1))
      );while0
   
      (setq m 0)
      (repeat (length elist)
         (setq eelist (nth m elist))
         (setq eelist (append eelist (list (cons 62 color))))
         (entmod eelist)
         (setq m (+ m 1))
     );repeat

      (entupd ssn)
      (setq i (+ i 1))
   )
   (princ)
)

lshpool

怎么不能修改块中块，即（嵌套块）

yxljx

能修改块中的颜色，但好像不能修改块中块的颜色

zb_lou

下下来学习学习

gcb998

而且对文字的颜色不能修改,如有可选择的某个实体就更好了!