你好
我想知道他们是否有改变当前颜色的简单方法。
从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
这只是一个开始，我还没有开始找出它可能会犯的错误。
当做
直率的 | 
置顶卡
