grip赋值请教,斑竹请指教!

cam-yp

我是GRIP的初学者,这是我写的一个通过点构造器建立立方体,并倒角,我想给立方体加上属性,在执行:信息--对象  时,在信息窗口显示它的长宽高值,但我不知道怎么赋值,请斑竹指教!
ENTITY/BLK,pt1,pt2,pt3,pt4,blk1
NUMBER/mat(12)
STRING/ATT(6,132)
data/dx,50,dy,40,dz,20,c,5,r,3
$ENTCLR=&RED
L1:
     GPOS/'pls select the block zmax point',XC,YC,ZC,RESP
     JUMP/L1:,TRM:,,,,RESP
L2:
     PARAM/'ENTER BLOCK SIZE','DX=',DX,$
                              'DY=',DY,$
                              'DZ=',DZ,RESP
     JUMP/L2:,TRM:,,,RESP
IFTHEN/DX<=50 OR DY<=50  
              R=3.0
              C=5.0
       ELSEIF/50<DX AND DX<=100 OR 50<DY AND DY<=100  
              R=5.0
              C=8.0
       ELSEIF/DX>100 OR DY>100
              R=8.0
              C=12.0
       ELSE
              PRINT/'没有定义'
              JUMP/L2:
       ENDIF
L3:
     PARAM/'ENTER BLOCK C/R','C=',C,$
                             'R=',R,RESP
     JUMP/L3:,TRM:,,,RESP
     pt1=POINT/xc+dx/2,yc-dy/2,zc-dz/2
     pt2=POINT/xc+dx/2,yc+dy/2,zc-dz/2
     pt3=POINT/xc-dx/2,yc+dy/2,zc-dz/2
     pt4=POINT/xc-dx/2,yc-dy/2,zc-dz/2
     BLK=SOLBLK/origin,xc-dx/2,yc-dy/2,zc-dz,SIZE,DX,DY,DZ,IFERR,ERL:
     BLEND/blk,chamfr,C,pt1
     BLEND/blk,RADIUS,R,pt2,pt3,pt4
     DELETE/pt1,pt2,pt3,pt4
     &ATTDIS=1
     &NAME(blk)='electrode'
     ATT(1)='DX'
     ATT(2)='X'           $$我想把这个改成长方体的DX值
     ATT(3)='DY'
     ATT(4)='Y'           $$我想把这个改成长方体的DY值
     ATT(5)='DZ'
     ATT(6)='Z'           $$我想把这个改成长方体的DZ值
     ASATT/BLK,ATT
     JUMP/L1:     
TRM:
HALT
ERL:
     MESSG/'值必须大于0'
     JUMP/TRM:

cam-yp

cam-yp

cam-yp

LIUCHANGLIN

kcwai