Author Topic: [XDrX-PlugIn(30)] Modify MLeaer text Color  (Read 771 times)

0 Members and 1 Guest are viewing this topic.

xdcad

  • Bull Frog
  • Posts: 479
[XDrX-PlugIn(30)] Modify MLeaer text Color
« on: December 03, 2023, 08:31:53 AM »
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. )
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