Topic: [XDrX-PlugIn(30)] Modify MLeaer text Color

[xdcad]

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ()
2.   (if (and
3.         (or (setq clr (getint "\nsEnter Color Index <select color>:"))
4.             (setq clr (xdrx-ui-getcolor "Select Color" 1))
5.         )
6.         (setq ss (xdrx-ssget
7.                    "\nSelect The MLeader <Exit>:"
8.                    '((0 . "m*leader"))
9.                  )
10.         )
11.       )
12.     (progn
13.       (xdrx-begin)
14.       (setq nums (sslength ss))
15.       (xdrx-setpropertyvalue ss "textcolor" clr)
16.       (xdrx-prompt
17.         "\nSuccessfully Processing "
18.         nums
19.         "Mleader Leaderline."
20.       )
21.       (xdrx-end)
22.     )
23.   )
24.   (princ)
25. )