[求助]：如何改变颜色

qsb506

我用框选后进行长度计算（论坛上已有），想问下如何能做到选中后用黑色显示，计算后再恢复原来的颜色。

(defun C:cd (/ CURVE TLEN SS N SUMLEN pt text)
(vl-load-com)
(setq SUMLEN 0)
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
(setq N 0)
(repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
)
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
)
(setq text (strcat "总长度: " (rtos SUMLEN 2 5 ) "mm"))
(print text)
(setq text (strcat "总长度: " (rtos SUMLEN 2 0 ) "mm"))
(setq pt (getpoint "\n指定位置:"))
(SETVAR "TEXTSTYLE" "Standard")
(command "layer" "s" 1 "" )
(IF (= (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 0.0)
    (command "text"  pt 8 0  text)
    (COMMAND "TEXT"  PT 0 text)
   )
(princ)
)

黄河之水

给一个另一种方法：
先选中线条，就会加亮，后输入命令就行了