Topic: [XDrX-PlugIn(106)] Batch modify the background color of Dimension object text

[xdcad]

Code: [Select]

(defun c:xdtb_dimsetfillclr (/ clr ss)
  (if (and (setq clr (xdrx_color_select))
   (setq ss (xdrx-ssget (xdrx-string-multilanguage "\n选择标注对象<退出>:"
   "\nSelect Dimension object<Exit>:"
)
'((0 . "dim*"))
    )
   )
      )
    (progn (xdrx-begin)
   (if (= (type clr) 'list)
     (setq clr (xdrx_color_rgb2aci clr))
   )
   (xdrx-setpropertyvalue ss "dimtfillclr" clr "dimtfill" 2)
   (xdrx-prompt
     (xdrx-string-formatex (xdrx-string-multilanguage "\n共修改了 %d 个标注对象."
      "\nA total of %d Dimension objects have been modified."
   )
   (sslength ss)
     )
   )
   (xdrx-end)
    )
  )
  (princ)
)