求图层可以手动输入文本层命名，附上源码

gogocat1233

请大神们赐教，我一直找不出原因在那，试过vaf=valf(obj)

还有b3=valf(a3)都不行，谢谢

: q3 y: B7 O" a; K4 V  t6 d+ d/ V# `

entity/obj(1000)

string/st1(132)

l10:

    choose/'<<图层设定>>',$

           ' 中心线图层 ',$

           ' 母模仁图层 ',$

           ' 公模仁图层 ',$

           '手动设定图层',resp

    jump/l10:,end:,,,l20:,l30:,l40:,l50:,resp

l20:

    mask/3,5,6,9

    ident/'中心线图层',obj,cnt,n,resp

    jump/l10:,end:,,,resp

l201:

    &layer(obj(n))=50

    &color(obj(n))=186

    &font(obj(n))=4

    cat/'center',50

    n=n-1

    if/n==0,jump/l10:

    jump/l201:

l30:

    ident/'母模仁图层',obj,cnt,n,resp

    jump/l10:,end:,,,resp

l301:

    &layer(obj(n))=60

    &color(obj(n))=109

    cat/'cavity',60

    n=n-1

    if/n==0,jump/l10:

    jump/l301:

l40:

    ident/'公模仁图层',obj,cnt,n,resp

    jump/l10:,end:,,,resp

l401:

    &layer(obj(n))=70

    &color(obj(n))=36

    cat/'core',70

    n=n-1

    if/n==0,jump/l10:

    jump/l401:

l50:

    ident/'选择工件物',obj,cnt,n,resp

    jump/l10:,end:,,,resp

) m9 ~% m- f& d

l501:

    param/'设定图层的位置和名称',$

          '设定图层=',nm1,resp

    jump/l10:,end:,,,resp

l502:

     text/'输入图层名称',st1,resp

     jump/l10:,end:,,,resp

- c. m. z5 p6 D3 j' |

l503:

    &layer(obj(n))=nm1

    cat/'st1',nm1

    n=n-1

    if/n==0,jump/l10:

    jump/l503:   

8 Q$ a0 }. {# ]* g: x3 M  T

end:

halt

1 u3 ]/ g- s/ j8 u$ U, T% H
8 ]9 D  a- d8 C% @9 X% s