二次开发-更改颜色

ming347732211

$$ 更改颜色

& R. M: ~# }8 Q3 c& p- t$ vENTITY/obj(1000)
6 A+ \- q8 C. l8 S6 pNUMBER/col(17)
0 J, N) _9 E; I# g6 nDATA/col,1,124,106,87,211,103,181,108,6,$
+ \2 r2 m* c. a186,60,29,60,77,125,199,125
' q: b; m! o! r2 o
; {6 [" p' l" q8 gstart:
0 ]% ~) g) M0 J% ^" t7 I% c
! s  p; D9 V( ^) }& iL01:
          choose/'选择类型',$
             '改线色','改面色',$
              '改体色 材质颜色',resp
: `) P8 n6 z- I8 H) O         jump/l01:,hal:,,,l10:,l20:,l30:,resp
         
+ m. m$ L8 m' ?$ Zl10:  
            choose/'选择线型的颜色' ,$
                 '改为   1色 ',$
7 l8 g- O- \' ?  K7 S                 '改为 124色 ',$
                 '改为 106色 ',$
. G& D! j# g  D: L' h                 '改为  87色 ',$
7 b6 D. S6 F( c3 }' K0 M# u                 '软料刀口 211色 ',$
) I9 d% b7 W& M9 A$ k( ~& [4 s5 `: }                 '硬料刀口 103色 ',$
                 '初始线 误检 181色 ',$
( r- A$ m# \" _0 @: B" C1 r                 '尺寸线 108色 ',$
$ P$ M. e; I4 F# _" S7 s                 '冲床台面   6色 ',$
$ `6 @1 f; I) G, {: q3 I, A( P! I* I                 '折弯线 186色 ',$
                           DEFLT,1,rsp1
            jump/l01:,hal:,,,l101:,l101:,l101:,rsp1
% J! j& I- G6 E           
l101:  
           k=col(rsp1-4)

& k: w6 U( a! E, [9 `3 U6 t; M, z           mask/3
6 c9 C* v  i7 }
    ident/'选择要改色的线型',obj,cnt,nm,rsp2
    jump/start:,hal:,,,rsp2
6 `& o5 Z& N: U, b
; [; a$ b  C1 C/ J! y) ?! b           do/l102:,i,1,nm  
           &color(obj(i))=k

k=col(rsp1-4) 是不是指定DATA/COL 处的颜色，如何指定到另外一排的颜色呢
4 s- `# {! L% K; F- }8 U) T0 D

ming347732211

没人解决吗
' s* {7 o& [! x2 W' w0 b8 ?! i' E