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

gogocat1233

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

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

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

4 L5 F( k/ Z( K1 x4 {- o

l501:

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

          '设定图层=',nm1,resp

    jump/l10:,end:,,,resp

l502:

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

     jump/l10:,end:,,,resp

l503:

    &layer(obj(n))=nm1

    cat/'st1',nm1

    n=n-1

    if/n==0,jump/l10:

    jump/l503:   

; ?0 w% ?. f* f' y$ {! m$ [

end:

halt