更改当前颜色的颜色
你好我想知道他们是否有改变当前颜色的简单方法。
从setvar或其他方式。
我已经启动了一个lisp例程来更改选定对象的层，并将其设置为当前层。
(defun c:CL (/ Selection Entite Calque Couleur)
(if (setq Selection (entsel))
(progn
(setq Entite (entget (car Selection)))
(setq Calque (assoc 8 Entite))
(setq Couleur (assoc 62 Entite))
(setq Calque (cdr Calque))
(setq Couleur (cdr Couleur))
(setvar "CLAYER" Calque)
(setvar "CECOLOR" Couleur)
;;(command "_CHANGE" "Model" "Properties" "Color" Couleur "")
) ;_ Fin de progn
) ;_ Fin de if
);_ fin de defun c
这只是一个开始，我还没有开始找出它可能会犯的错误。
当做
直率的 CECOLOR系统变量包含一个字符串值，因此在将值传递给setvar表达式之前，应将变量“Couleur”转换为字符串（使用itoa）。 谢谢李！！我怎么会错过那个lol！
干杯
页:
[1]