购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

主程序
ENTITY/DWZ(9000),DWZK(9000),ST,PLA(6),CSYS1,CSYS2,DMK,OBJ(9000),$
P(10)
number/MAT(12),pt(6),di(7),PO(6),NUM
STRING/FL(132),YL(8,132),FS(132),FU(4,132)

CSYS1=&WCS
&WCS=&ABS
ST=&ENAME(1,'Top-Clamp-Plate',IFERR,TR1:)
pO=solbox/ST
PT(1)=minf(pO(1),pO(4))
PT(4)=maxf(pO(1),pO(4))
PT(2)=minf(pO(2),pO(5))
PT(5)=maxf(pO(2),pO(5))
PT(3)=minf(pO(3),pO(6))
PT(6)=maxf(pO(3),pO(6))
pla(1)=PLANE/YZPLAN,(PT(1)-10)
pla(4)=PLANE/YZPLAN,(PT(4)+10)
pla(2)=PLANE/XZPLAN,(PT(2)-10)
pla(5)=PLANE/XZPLAN,(PT(5)+10)
pla(3)=PLANE/XYPLAN,(PT(3)-10)
pla(6)=PLANE/XYPLAN,(PT(6)+10)

di=reldst/pla(1),ST
PT(1)=PT(1)-10+DI(7)
di=reldst/pla(2),ST
PT(2)=PT(2)-10+DI(7)
di=reldst/pla(3),ST
PT(3)=PT(3)-10+DI(7)
di=reldst/pla(4),ST
PT(4)=PT(4)+10-DI(7)
di=reldst/pla(5),ST
PT(5)=PT(5)+10-DI(7)
di=reldst/pla(6),ST
PT(6)=PT(6)+10-DI(7)
DELETE/PLA(1..6)
ATx=pt(4)-pt(1)
ATy=pt(5)-pt(2)
ATz=pt(6)-pt(3)
AT1=PT(6)
AT2=PT(3)

ST=&ENAME(1,'Spacer-Plate-1',IFERR,TR1:)
pO=solbox/ST
PT(1)=minf(pO(1),pO(4))
PT(4)=maxf(pO(1),pO(4))
PT(2)=minf(pO(2),pO(5))
PT(5)=maxf(pO(2),pO(5))
PT(3)=minf(pO(3),pO(6))
PT(6)=maxf(pO(3),pO(6))
pla(1)=PLANE/YZPLAN,(PT(1)-10)
pla(4)=PLANE/YZPLAN,(PT(4)+10)
pla(2)=PLANE/XZPLAN,(PT(2)-10)
pla(5)=PLANE/XZPLAN,(PT(5)+10)
pla(3)=PLANE/XYPLAN,(PT(3)-10)
pla(6)=PLANE/XYPLAN,(PT(6)+10)

di=reldst/pla(1),ST
PT(1)=PT(1)-10+DI(7)
di=reldst/pla(2),ST
PT(2)=PT(2)-10+DI(7)
di=reldst/pla(3),ST
PT(3)=PT(3)-10+DI(7)
di=reldst/pla(4),ST
PT(4)=PT(4)+10-DI(7)
di=reldst/pla(5),ST
PT(5)=PT(5)+10-DI(7)
di=reldst/pla(6),ST
PT(6)=PT(6)+10-DI(7)
DELETE/PLA(1..6)
BTx=pt(4)-pt(1)
BTy=pt(5)-pt(2)
BTz=pt(6)-pt(3)
BT1=PT(6)
BT2=PT(3)

ST=&ENAME(1,'Spacer-Plate-2',IFERR,TR1:)
pO=solbox/ST
PT(1)=minf(pO(1),pO(4))
PT(4)=maxf(pO(1),pO(4))
PT(2)=minf(pO(2),pO(5))
PT(5)=maxf(pO(2),pO(5))
PT(3)=minf(pO(3),pO(6))
PT(6)=maxf(pO(3),pO(6))
pla(1)=PLANE/YZPLAN,(PT(1)-10)
pla(4)=PLANE/YZPLAN,(PT(4)+10)
pla(2)=PLANE/XZPLAN,(PT(2)-10)
pla(5)=PLANE/XZPLAN,(PT(5)+10)
pla(3)=PLANE/XYPLAN,(PT(3)-10)
pla(6)=PLANE/XYPLAN,(PT(6)+10)

di=reldst/pla(1),ST
PT(1)=PT(1)-10+DI(7)
di=reldst/pla(2),ST
PT(2)=PT(2)-10+DI(7)
di=reldst/pla(3),ST
PT(3)=PT(3)-10+DI(7)
di=reldst/pla(4),ST
PT(4)=PT(4)+10-DI(7)
di=reldst/pla(5),ST
PT(5)=PT(5)+10-DI(7)
di=reldst/pla(6),ST
PT(6)=PT(6)+10-DI(7)
DELETE/PLA(1..6)
CTx=pt(4)-pt(1)
CTy=pt(5)-pt(2)
CTz=pt(6)-pt(3)
CT1=PT(6)
CT2=PT(3)

ST=&ENAME(1,'A-Plate',IFERR,TR1:)
pO=solbox/ST
PT(1)=minf(pO(1),pO(4))
PT(4)=maxf(pO(1),pO(4))
PT(2)=minf(pO(2),pO(5))
PT(5)=maxf(pO(2),pO(5))
PT(3)=minf(pO(3),pO(6))
PT(6)=maxf(pO(3),pO(6))
pla(1)=PLANE/YZPLAN,(PT(1)-10)
pla(4)=PLANE/YZPLAN,(PT(4)+10)
pla(2)=PLANE/XZPLAN,(PT(2)-10)
pla(5)=PLANE/XZPLAN,(PT(5)+10)
pla(3)=PLANE/XYPLAN,(PT(3)-10)
pla(6)=PLANE/XYPLAN,(PT(6)+10)

di=reldst/pla(1),ST
PT(1)=PT(1)-10+DI(7)
di=reldst/pla(2),ST
PT(2)=PT(2)-10+DI(7)
di=reldst/pla(3),ST
PT(3)=PT(3)-10+DI(7)
di=reldst/pla(4),ST
PT(4)=PT(4)+10-DI(7)
di=reldst/pla(5),ST
PT(5)=PT(5)+10-DI(7)
di=reldst/pla(6),ST
PT(6)=PT(6)+10-DI(7)
DELETE/PLA(1..6)
DTx=pt(4)-pt(1)
DTy=pt(5)-pt(2)
DTz=pt(6)-pt(3)
DT1=PT(6)
DT2=PT(3)

ST=&ENAME(1,'B-Plate',IFERR,TR1:)
JUMP/WJ1:

TR1:
MESSG/'請初始化面板,熱流道支撐板,熱嘴固定板及A/B板再試'
JUMP/trm:

WJ1:
FETCH/TXT,1,'D:\ET2008\Temp\DMDX.dat',iferr,WJ2:
reset/1
read/1,A
read/1,B
read/1,C
read/1,D
read/1,E
fterm/txt,1
JUMP/L1:

WJ2:
messg/'D:\ET2008\Temp\DMDX.dat文件丟失,請重新安裝本軟件'
jump/trm:

L1:
K=1
EM=0
&DECPL=1
PARAM/'輸入前模熱流道定位柱參數',$
'定位柱直徑',A,'定位柱高出A板距離',B,$
'創建方式:批量0,單一1',C,'平齊方法:任意0,X1,Y2',D,'加螺牙0,不加螺牙1',E,rsp
JUMP/L1:,trm:,,,RSP

IFTHEN/DTX<=200 AND A<12
messg/'20系列以下模胚定位柱直徑最小==>12'
jump/L1:
ELSEIF/DTX>200 AND DTX<=300 AND A<16
messg/'20-30系列模胚定位柱直徑最小==>16'
jump/L1:
ELSEIF/DTX>300 AND DTX<=400 AND A<20
messg/'30-40系列模胚定位柱直徑最小==>20'
jump/L1:
ELSEIF/DTX>400 AND DTX<=500 AND A<25
messg/'40-50系列模胚定位柱直徑最小==>25'
jump/L1:
ELSEIF/DTX>500 AND DTX<=600 AND A<30
messg/'50-60系列模胚定位柱直徑最小==>30'
jump/L1:
ELSEIF/DTX>600 AND DTX<=700 AND A<35
messg/'60-70系列模胚定位柱直徑最小==>35'
jump/L1:
ELSEIF/DTX>700 AND DTX<=800 AND A<40
messg/'70-80系列模胚定位柱直徑最小==>40'
jump/L1:
ELSEIF/DTX>800 AND A<50
messg/'80系列以上模胚定位柱直徑最小==>50'
jump/L1:
ENDIF

IFTHEN/B<0
messg/'定位柱高出A板距離不能是負數'
jump/L1:
ELSEIF/C<>0 AND C<>1
messg/'創建方式:批量輸入0,單一輸入1'
jump/L1:
ELSEIF/D<>0 AND D<>1 AND D<>2
messg/'平齊方法:任意點輸入0,平行X輸入1,平行Y輸入2'
jump/L1:
ELSEIF/E<>0 AND E<>1
messg/'定位柱杯頭加螺絲孔輸入0,不打螺絲輸入1'
jump/L1:
ENDIF

fdel/'D:\ET2008\Temp\DMDX.dat',IFERR,WJ2:
CREATE/TXT,1,'D:\ET2008\Temp\DMDX.dat',IFERR,WJ2:
reset/1
write/1,A
write/1,B
write/1,C
write/1,D
write/1,E
FILE/TXT,1,'D:\ET2008\Temp\DMDX.dat'
fterm/txt,1

B1=ATZ+BTZ+CTZ+DTZ+B
WJ3:
CREATE/TXT,1,'D:\ET2008\Temp\DWZ-SUB.dat',IFERR,WJ4:
reset/1
write/1,A
write/1,B1
write/1,B
FILE/TXT,1,'D:\ET2008\Temp\DWZ-SUB.dat'
fterm/txt,1
JUMP/L2:

WJ4:
fdel/'D:\ET2008\Temp\DWZ-SUB.dat',iferr,TRM:
jump/WJ3:

L2:
GPOS/'選擇定位柱插入點,自動取整',$
x,y,z,rsp
JUMP/L1:,TRM:,,,,rsp
X=X-MODF(X,1)
Y=Y-MODF(Y,1)
Z=Z-MODF(Z,1)
WJ5:
CREATE/TXT,1,'D:\ET2008\Temp\TR-PROC1.dat',IFERR,WJ6:
reset/1
write/1,X
write/1,Y
write/1,AT1
FILE/TXT,1,'D:\ET2008\Temp\TR-PROC1.dat'
fterm/txt,1
JUMP/L21:

WJ6:
fdel/'D:\ET2008\Temp\TR-PROC1.dat',iferr,TRM:
jump/WJ5:

L21:
P(1)=POINT/X,Y,AT1
P(2)=POINT/X+1,Y,AT1
P(3)=POINT/X,Y+1,AT1
csys2=csys/P(1..3),origin,P(1)
&WCS=CSYS2
DELETE/P

CALL/'DWZ-PROC',DWZ(1),DWZK(1)

IFTHEN/E==0
IFTHEN/A<=12
AAA=4
JUMP/FDSE:
ELSEIF/A<=20
AAA=8
JUMP/FDSE:
ELSEIF/A<=36
AAA=12
JUMP/FDSE:
ELSEIF/A>36
AAA=16
JUMP/FDSE:
ENDIF

FDSE:
EM=0
CALL/'DMK-PROC',DMK,AAA,EM
subtra/DWZK(1),with,DMK,iferr,trm:
mat=MATRIX/TRANSL,0,0,0
OBJ(1)=transf/mat,DWZK(1)
DELETE/DWZK(1)
DWZK(1)=transf/mat,OBJ(1)
DELETE/OBJ(1)

FETCH/TXT,1,'D:\ET2008\Temp\DWZ-SUB.dat'
reset/1
read/1,FS
fterm/txt,1
FU(1)=&ATTVL(DWZK(1),'工件名稱')
FU(2)=&ATTVL(DWZK(1),'材質')
FU(3)=&ATTVL(DWZK(1),'硬度')
FU(4)=&ATTVL(DWZK(1),'規格')
FL=FU(4)+'-杯頭'+FS
DLATT/DWZK(1),'規格'
ASATT/DWZK(1),'規格',FL
ENDIF
&WCS=&ABS
RPAINT
CRTWRT/'SYCS:X'+FSTRL(X)+' Y'+FSTRL(Y),x,y,AT1

IFTHEN/C==0 AND D==0
L22:
GPOS/'選擇定位柱插入點,后退刪除,取消建腔',$
x1,y1,z1,rsp
JUMP/L4:,L3:,,,,rsp
X1=X1-MODF(X1,1)
Y1=Y1-MODF(Y1,1)
K=K+1
mat=MATRIX/TRANSL,X1-X,Y1-Y,0
DWZK(K)=transf/mat,DWZK(1)
DWZ(K)=transf/mat,DWZ(1)
RPAINT
CRTWRT/'SYCS:X'+FSTRL(X1)+' Y'+FSTRL(Y1),x1,y1,AT1
JUMP/L22:

ELSEIF/C==0 AND D==1
L23:
GPOS/'選擇定位柱插入點,后退刪除,取消建腔',$
x1,y1,z1,rsp
JUMP/L4:,L3:,,,,rsp
X1=X1-MODF(X1,1)
Y1=Y1-MODF(Y1,1)
K=K+1
mat=MATRIX/TRANSL,X1-X,0,0
DWZK(K)=transf/mat,DWZK(1)
DWZ(K)=transf/mat,DWZ(1)
RPAINT
CRTWRT/'SYCS:X'+FSTRL(X1)+' Y'+FSTRL(Y),x1,y,AT1
JUMP/L23:

ELSEIF/C==0 AND D==2
L24:
GPOS/'選擇定位柱插入點,后退刪除,取消建腔',$
x1,y1,z1,rsp
JUMP/L4:,L3:,,,,rsp
X1=X1-MODF(X1,1)
Y1=Y1-MODF(Y1,1)
K=K+1
mat=MATRIX/TRANSL,0,Y1-Y,0
DWZK(K)=transf/mat,DWZK(1)
DWZ(K)=transf/mat,DWZ(1)
RPAINT
CRTWRT/'SYCS:X'+FSTRL(X)+' Y'+FSTRL(Y1),X,y1,AT1
JUMP/L24:

ENDIF

CALL/'TR-PROC',DWZ,DWZK,num
IF/NUM==0,JUMP/L1:
L3:
choose/'是否建腔',$
'建腔','全部刪除',$
deflt,1,rsp
jump/L1:,trm:,,,$
L31:,L4:,rsp

L31:
IF/K>1,NUM=K
ST=&ENAME(1,'Top-Clamp-Plate',IFERR,TR1:)
mat=MATRIX/TRANSL,0,0,0
OBJ(1..NUM)=transf/mat,DWZ(1..NUM)
subtra/ST,with,OBJ(1..NUM),iferr,SUER:

ST=&ENAME(1,'Spacer-Plate-1',IFERR,TR1:)
mat=MATRIX/TRANSL,0,0,0
OBJ(1..NUM)=transf/mat,DWZ(1..NUM)
subtra/ST,with,OBJ(1..NUM),iferr,SUER:

ST=&ENAME(1,'Spacer-Plate-2',IFERR,TR1:)
mat=MATRIX/TRANSL,0,0,0
OBJ(1..NUM)=transf/mat,DWZ(1..NUM)
subtra/ST,with,OBJ(1..NUM),iferr,SUER:

ST=&ENAME(1,'A-Plate',IFERR,TR1:)
mat=MATRIX/TRANSL,0,0,0
OBJ(1..NUM)=transf/mat,DWZ(1..NUM)
subtra/ST,with,OBJ(1..NUM),iferr,SUER:

ST=&ENAME(1,'B-Plate',IFERR,TR1:)
subtra/ST,with,DWZ(1..NUM),iferr,SUER1:
JUMP/TRM:

L4:
DELETE/DWZ,DWZK
JUMP/L1:

TRM:
CSYS1=&WCS
HALT

SUER:
Messg/'建腔失敗,請檢查避空體位置模板是否已經建腔'
jump/TRM:

SUER1:
DELETE/DWZ(1..NUM)
jump/TRM:

子程序打包了 附件下载 附件下载