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

0 Members and 1 Guest are viewing this topic.

xdcad

  • Swamp Rat
  • Posts: 527
[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.
===================================
https://github.com/xdcad
https://sourceforge.net/projects/xdrx-api-zip/
http://bbs.xdcad.net