Topic: [XDrX-PlugIn(102)] Modify the color of block in batches

[xdcad]

Code: [Select]

(defun c:xdtb_blkchgclr (/ ss colinx blk)
  (if (and (setq ss (xdrx-ssget (xdrx-string-multilanguage "\n选择图块<退出>:"
   "\nSelect Insert<Exit>:"
)
'((0 . "insert"))
    )
   )
   (xdrx-initget "0 256")
   (or (setq colinx (getint
      (xdrx-string-multilanguage "\n输入颜色号[ByBlock(0)/ByLayer(256)]<选取>:"
"\nInput Color Index[ByBlock(0)/ByLayer(256)]<Select>:"
      )
    )
       )
       (setq colinx (xdrx_color_select))
   )
      )
    (progn (xd::begin)
      (setq blk (xdrx-getpropertyvalue ss "BlockTableRecord" t)
blk (xd::list:flat blk)
blk (xd::list:removedup blk)
   )
   (mapcar '(lambda (x) (xdrx-setpropertyvalue x "color" colinx))
   (xdrx-getpropertyvalue blk "allentities")
   )
      (xd::end)
    )
  )
  (princ)
)