vba怎么在不改变图层颜色的情况下，改变颜色控制里的颜色？

yangsanmyth

vba怎么在不改变图层颜色的情况下，改变颜色控制里的颜色？请大虾赐教。

vlisp2012

我做了一个子程序：
(defun ys (co)
  (command "CECOLOR" co))

可以在程序中直接引用：
------
  (command (ys 1) "text" "j" "m" (wu pp1) (getvar "textsize") 0.0 (strcat  (rtos l1 2 1)))
  (command (ys 2) "text" "j" "m" (wu pp2) (getvar "textsize") 0.0 (strcat  (rtos l2 2 1)))
  (command (ys 3) "text" "j" "m" (wu pp3) (getvar "textsize") 0.0 (strcat  (rtos l3 2 1)))
  (command (ys 4) "text" "j" "m" (wu pp4) (getvar "textsize") 0.0 (strcat  (rtos l4 2 1)))
------
我是用不同颜色的文字表达多边形的顺序的。