$$AA1,AA2,AA3,AA4,AA5,AA6,AA7,AA8,AA9,AA10,AA11
ENTITY/AA1,AA2,AA3,AA4,AA5,AA6,AA7,AA8,AA9,AA10,AA11,AA12
ENTITY/AA13,AA14,AA15,AA16,AA17,AA18,AA19,AA20,AA21,AA22
ENTITY/AA23,AA24,AA25,AA26,AA27,AA28,AA29,AA30,AA31,AA32
ENTITY/AA33,AA34,AA35,AA36,AA37,AA38,AA39,AA40,AA41,AA42
ENTITY/AA43,AA44,AA45,AA46,AA47,AA48,AA49,AA50,AA51,AA52
$$ENTITY/AA(40)
ENTITY/PT1,PT2,PT3,PT4,PT5,Ax1
ENTITY/LN1,LN2,LN3,LN4
ENTITY/CSYS1,CSYS2,CSYS3,CSYS4,CSYS5,CSYS6
number/MAT(20,12)
number/DS,FAA,ZAB
STRING/ST(14,132),AST(13,132),CT(4,132)
STRING/ELLX(5,132)
STRING/FXDZ(13,132)
STRING/GXWLD(7,132)
STRING/HZCZA(13,132)
STRING/IZCZA(12,132)
STRING/JZCZA(8,132)
STRING/KLJD(4,132)
STRING/KLJDA(2,132)
STRING/LLS(10,132)
STRING/MQTDS(8,132)
STRING/NLDLG(5,132)
STRING/DWDZ(5,132)
STRING/RLJLS(2,132)
STRING/ASTx(13,132)
STRING/DWX(2,132),DW1X(12,132),DW2X(8,132)
DATA/dia1,4.0,Cdia1,4,Cdia3,2,JH,30
DATA/ddia1,4.0,ddia3,2.0
DATA/FANGLE,20,FAAA,100,ESKH,5,ESH,50,ESKD1,4,ESKD2,1
DATA/NCD,101,SKH,50,SKD1,1.5,SKD2,3

STRING/Z89G2(132),Z89G3(132),Z89G4(132)

NUMBER/Z7P1(3),Z73P
STRING/Z77G2(132)
NUMBER/WWDK(9)
STRING/kkv(132),kkw(132),kky(132),kkx(132),kkz(132)

STRING/yur1(132),yur2(132),yur3(132),yur4(132),yur5(132)
STRING/Ayi(1000,132)

JUMP/ABC1:

FETCH/TXT,1,'C:\SPKJ\startup\UGMOULD.men',IFERR,TERM:
READ/1,LINNO,110,Z89G2
IF/Z89G2<>'MENU 3D-MOLD',JUMP/TERM:

FDEL/'C:\UGMOULD\CSV\MOULD.DAT',IFERR,TERM7:
TERM7:

TERM9:

ABC1:

XSPAWN/'C:\SPKJ\application\内六角螺丝.exe',IFERR,TERM:

FETCH/TXT,1,'C:\kkk.dat',IFERR,TERM:
RESET/1
READ/1,kkx
$$ READ/1,kky

$$ if/kkx=='',kkx='ddd'

FDEL/'C:\kkk.dat',IFERR,TERM:
$$ print/kkx,kky

IF/WWDK(7)==100,kkx='1'
IF/WWDK(7)==100,kky='2'
IF/WWDK(7)==100,kkz='3'
IF/WWDK(7)==100,kkv='4'
IF/WWDK(7)==100,kkw='5'

if/kkx=='螺丝 M3',JUMP/AAA1:
if/kkx=='螺丝 M4',JUMP/AAA2:
if/kkx=='螺丝 M5',JUMP/AAA3:
if/kkx=='螺丝 M6',JUMP/AAA4:
if/kkx=='螺丝 M8',JUMP/AAA5:
if/kkx=='螺丝 M10',JUMP/AAA6:
if/kkx=='螺丝 M12',JUMP/AAA7:
if/kkx=='螺丝 M14',JUMP/AAA8:
if/kkx=='螺丝 M16',JUMP/AAA9:
if/kkx=='螺丝 M20',JUMP/AAA10:
if/kkx=='螺丝 M24',JUMP/AAA11:
if/kkx=='螺丝 M30',JUMP/AAA12:
if/kkx=='螺丝 M36',JUMP/AAA13:

JUMP/AAA5:

AAA1:
DS=3
D1=3.5
DK=5.5
K=3
H2=3.5
D2=2.6
JUMP/AAA20:
AAA2:
DS=4
D1=4.5
DK=8
K=4
H2=4.5
D2=3.4
JUMP/AAA20:
AAA3:
DS=5
D1=5.5
DK=9.5
K=5
H2=5.5
D2=4.3
JUMP/AAA20:
AAA4:
DS=6
D1=7
DK=11
K=6
H2=7
D2=5.1
JUMP/AAA20:
AAA5:
DS=8
D1=9
DK=14
K=8
H2=9
D2=6.9
JUMP/AAA20:
AAA6:
DS=10
D1=11
DK=17.5
K=10
H2=11
D2=8.6
JUMP/AAA20:
AAA7:
DS=12
D1=14
DK=20
K=12
H2=13
D2=10.4
JUMP/AAA20:
AAA8:
DS=14
D1=16
DK=23
K=14
H2=16
D2=12.2
JUMP/AAA20:
AAA9:
DS=16
D1=18
DK=26
K=16
H2=18
D2=14.2
JUMP/AAA20:
AAA10:
DS=20
D1=22
DK=32
K=20
H2=22
D2=17.7
JUMP/AAA20:
AAA11:
DS=24
D1=26
DK=39
K=24
H2=26
D2=21.2
JUMP/AAA20:
AAA12:
DS=30
D1=33
DK=48
K=30
H2=33
D2=26.7
JUMP/AAA20:
AAA13:
DS=30
D1=33
DK=48
K=30
H2=33
D2=26.7
JUMP/AAA20:

$$
AAA20:
GPOS/'选择第一定位点',$
x1,y1,z1,rsp
JUMP/ABC1:,TERM:,,,,rsp
AAA30:
GPOS/'选择第二定位点',$
x2,y2,z2,rsp
JUMP/ABC1:,TERM:,,,,rsp
IF/(z1-z2)<=DS+1,JUMP/err1:

$$
l=ABSF(z1-z2)
T=INTF(1.7*DS+0.5)
Y5=SINF(30)/COSF(30)
Z5=D2*Y5/2
AA1=solcyl/origin,x1,y1,z1,height,D1,diamtr,DK,axis,0,0,-1
AA2=solcyl/origin,x1,y1,z1,height,l,diamtr,D1,axis,0,0,-1
AA3=solcyl/origin,x1,y1,z2,height,T,diamtr,DS,axis,0,0,-1
AA4=solcyl/origin,x1,y1,z2,height,2*DS,diamtr,D2,axis,0,0,-1
AA5=SOLCON/ORIGIN,x1,y1,z2-2*DS,HEIGHT,Z5,DIAMTR,D2,0,axis,0,0,-1
AA6=UNITE/AA1,WITH,AA2
AA7=UNITE/AA6,WITH,AA3
AA8=UNITE/AA7,WITH,AA4
AA9=UNITE/AA8,WITH,AA5
$$
$$
MAT(1,1..12)=MATRIX/TRANSL,0,0,0
AA10=TRANSF/MAT(1,1..12),AA9

&DECPL=2
$$&NAME(AA10)='87CB'+'=M'+FSTRL(DS)+'X'+FSTRL(z1-z2)
&DECPL=9

DELETE/AA1,AA2,AA3,AA4,AA5,AA6,AA7,AA8,AA9
&color(AA10)=37

&NAME(AA10)='CUT=CUT'

LN1=LINE/0,0,0,1,0,0
LN2=LINE/0,0,0,0,1,0

LN3=LINE/x1,y1,z1,x1+1,y1,z1
LN4=LINE/x1,y1,z1,x1,y1+1,z1

CSYS1=CSYS/LN3,LN4
&WCS=CSYS1

WWU=DS
WWH=z1-z2
call/'SL-JQS',WWU,WWH

CSYS1=CSYS/LN1,LN2
&WCS=CSYS1

DELETE/LN1,LN2,LN3,LN4

JUMP/AAA20:

err1:
MESSG/'注意Z的方向,和中间的距离'
JUMP/AAA20:

TERM:

XYZ:
HALT