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

gogocat1233

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

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

entity/obj(1000)

string/st1(132)

# E) V7 I3 {$ }4 _" C( k

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:

% w" C4 d$ I% L  F& w% E

l50:

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

    jump/l10:,end:,,,resp

l501:

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

          '设定图层=',nm1,resp

    jump/l10:,end:,,,resp

l502:

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

     jump/l10:,end:,,,resp

: S7 s) f* z) |+ z4 ~7 C& |

l503:

    &layer(obj(n))=nm1

    cat/'st1',nm1

    n=n-1

    if/n==0,jump/l10:

    jump/l503:   

( m  u6 W& f6 @9 I9 C8 {

end:

halt

% l' t4 j0 O( _+ Q; t! }7 i