|
(vl-load-com) (defun c:gt1(/ sstext text_sn cpl i) (setq sstext (ssget '((0 . "text")))) (if sstext (progn (setq i 0) (repeat (sslength sstext) (setq text_sn (ssname sstext i) plst (LM:GetTextBox text_sn 0) cpl (ssget "CP" plst '((0 . "text"))) ) (if (> (sslength cpl) 1) (vla-put-color (vlax-ename->vla-object text_sn) 3) ) (setq i (1+ i)) )))) |
|