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

0 Members and 1 Guest are viewing this topic.

xdcad

  • Bull Frog
  • Posts: 479
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)
)
The code I wrote uses XDRX-API,which can be downloaded from github.com and is updated at any time.
===================================
[XDrx-Sub Forum]
https://www.theswamp.org/index.php?board=78.0
https://github.com/xdcad/XDrx-API
http://bbs.xdcad.net