更改文本颜色

ScoRm · 发表于 2022-7-5 15:00:01

我有这个复制粘贴autolisp，我缝合了从不同的人（因为IDK如何编码）
但我被困住了。。我想做的是选择所有文本并全部更改
我的复制粘贴代码是针对单个文本。。。

(defun c:TcolAu (/ hcol clr pt1 ss)
(While T
(setq ss (ssget "_:S" '((0 . ",TEXT"))))
(setq hcol (atof(cdr (assoc 1 (entget (ssname ss 0))))))
(cond
 ((<= hcol 0.09)(setq clr 252))
 ((<= hcol 0.49)(setq clr 5))
 ((<= hcol 0.99)(setq clr 3))
 ((<= hcol 1.99)(setq clr 2))
 ((<= hcol 2.99)(setq clr 30))
 ((>= hcol 3)(setq clr 6))
)
(command "change" ss "" "_p" "Color" clr "")
(princ)))

rlx · 发表于 2022-7-5 15:25:12

ScoRm · 发表于 2022-7-5 15:38:23

no sir, i mean how can i change my code to select all text and change the color based on the value of the text...
the one you gave will actually make the process longer if i use "search"

rlx · 发表于 2022-7-5 15:45:21

haven't got a drawing to test it on so untested :

[code](defun c:foo (/ ss hcol clr e) (if (setq ss (ssget "_X" (list '(0 . "TEXT")))) (foreach e (mapcar 'cadr (ssnamex ss)) (setq hcol (atof (cdr (assoc 1 (entget e))))) (cond ((

Tharwat · 发表于 2022-7-5 16:12:02

Hi,
My attempt.

copy

(defun c:foo (/ str int sel ent get lst) (and   (setq str ""         lst '(("0.09" 252) ("0.49" 5) ("0.99" 3)) ;; add your more desired of strings with colours here         int -1         sel (ssget               "_X"               (list                 '(0 . "TEXT")                 (cons                   1                   (apply                     'strcat                     (mapcar '(lambda (u) (setq str (strcat (car u) ",")))                             lst                     )                   )                 )               )             )   )   (while (setq ent (ssname sel (setq int (1+ int))))     (entmod       (append (setq get (entget ent))               (list (cons 62 (cadr (assoc (cdr (assoc 1 get)) lst))))       )     )   ) ) (princ))

[编程交流] 更改文本颜色

发表回复

精选推荐