DISPLY/TERM,V(TEXT)
DECL/INTGR,NUMBER,YANGQINGXIAN
TEXT/QUERY,(NUMBER),2,N,L,'输入当前零件第几个？'
TEXT/QUERY,(YANGQINGXIAN),2,N,L,'输入操作人:1,liming，2,liming'
DECL/CHAR,128,TIT1,TIT2,TIT3,PARTID1,TIT4
PARTID1=ASSIGN/'Z645821-T45'
TIT1=ASSIGN/'AXEL SFOT '
SELECT/YANGQINGXIAN
CASE/1
TIT2=ASSIGN/CONCAT('工件号： ',partid1,' 操作人: liming')
ENDCAS
CASE/2
TIT2=ASSIGN/CONCAT('工件号： ',partid1,' 操作人: liming')
ENDCAS
ENDSEL
TIT3=ASSIGN/CONCAT('日期： ',SDATE(),' 时间: ',STIME(),'')
TIT4=ASSIGN/CONCAT('当前抽样零件序号为： ',NUMBER,'#')
TEXT/OUTFIL,'================================================================='
TEXT/OUTFIL,TIT1
TEXT/OUTFIL,TIT2
TEXT/OUTFIL,TIT4
TEXT/OUTFIL,TIT3
TEXT/OUTFIL,'================================================================='
T(D22)=TOL/POS,2D,0.10,MMC,FA(CI01),FA(CI03),FA(PL01)
SNSET/APPRCH,1.5
SNSET/RETRCT,1.5
SNSET/SEARCH,3
SNSET/CLRSRF,40
DECL/INTGR,i
DECL/CHAR,20,Pointname
DO/i,1,30
Pointname=ASSIGN/CONCAT('C_',STR(i))
MODE/AUTO,PROG,MAN
F(@Pointname)=FEAT/CIRCLE,INNER,POL,187.5,i*12,2,-1,0,0,6.6
MEAS/CIRCLE,F(@Pointname),4
ENDMES
OUTPUT/FA(@Pointname),TA(D22)
ENDDO
$$
DISPLY/TERM,DMIS
DISPLY/OFF
输出曲线的点坐标
v(v1)=vform/plot
disply/stor,v(v1)
输出报告
DISPLY/TERM,V(TEXT)
DISPLY/OFF
均分孔测量
M(BHC)=MACRO/'CIRNA',ANG
F(@CIRNA) = FEAT/CIRCLE,INNER,POL, 187.5,ANG,-2,0,0,1,5
MEAS/CIRCLE,F(@CIRNA),3
ENDMES
OUTPUT/FA(@CIRNA),TA(D2)
ENDMAC
F(PO01)=FEAT/POINT,CART,0,0,0,0,0,1
T(DIAM)=TOL/DIAM,0,0.01
T(D2)=TOL/POS,2D,0.03,RFS,F(PO01)
$$DECL/CHAR,20,circ1,circ2,circ3,circ4,circ5,circ6,circ7,circ8,circ9
CALL/M(BHC),(CIRC1),0
CALL/M(BHC),(CIRC2),12
CALL/M(BHC),(CIRC3),24
CALL/M(BHC),(CIRC4),36
CALL/M(BHC),(CIRC5),48
CALL/M(BHC),(CIRC6),60
CALL/M(BHC),(CIRC7),72
CALL/M(BHC),(CIRC8),84
CALL/M(BHC),(CIRC9),96
CALL/M(BHC),(CIRC10),96
CALL/M(BHC),(CIRC11),96
DISPLY/COMM,DMIS
DECL/INTGR,i
DO/i,1,6
SNSLCT/SA(P1_0_0P0_0)
F(PL01)=FEAT/PLANE,CART,0,0,0,0,0,1
MEAS/PLANE,F(PL01),4
ENDMES
WKPLAN/XYPLAN
D(PC01) = ROTATE/XAXIS,FA(PL01),ZDIR
D(PC01) = ROTATE/YAXIS,FA(PL01),ZDIR
D(PC01) = TRANS/ZORIG,FA(PL01)
F(CI01)=FEAT/CIRCLE,OUTER,CART,0,0,0,0,0,1,107
MEAS/CIRCLE,F(CI01),4
ENDMES
OUTPUT/FA(ci01)
ENDDO
DECL/CHAR,20,List_var1
DECL/DOUBLE,edit_var1,edit_var2,edit_var3
DECL/INTGR,Check_var1,Check_var2,Check_var3
Tempchar = Prompt/Title,'孔测量程序',$
Text,'孔的数量',edit,edit_var1,$
Text,'孔的直径',edit,edit_var2,$
Text,'直径公差带',edit,edit_var3,$
List,List_var1,'直角坐标系','极坐标系',$
Check,'位置度',Check_var1,Check,'圆度',Check_var2,Check,'
直径公差',Check_var3
读取点坐标并写入新文件
DMISMN/'ARCO DMIS program by liming'
MODE/MAN
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECL/CHAR,64,FILENAME,PONAME,FILE1,FILE2,AA
DECL/INTGR,I
DECL/REAL,PX,PY,PZ,PI,PJ,PK
FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION(请输入一个数据文件名!)'
FILE1=ASSIGN/CONCAT('E:\',FILENAME,'.TXT')
DID(F1)=DEVICE/STOR,FILE1
OPEN/DID(F1),DIRECT,INPUT
FILE2=ASSIGN/CONCAT('E:\',FILENAME,'A.TXT')
DID(F2)=DEVICE/STOR,FILE2
OPEN/DID(F2),DIRECT,OUTPUT
FILE2=ASSIGN/CONCAT('E:\',FILENAME,'B.TXT')
DID(F3)=DEVICE/STOR,FILE2
OPEN/DID(F3),DIRECT,OUTPUT
DO/ I,1,45,1
READ/DID(F1),PX,PY,PZ,PI,PJ,PK
PONAME=ASSIGN/CONCAT('POI_',STR(I))
F(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,PI,PJ,PK
FA(@PONAME)=FEAT/POINT,CART,PX,PY,PZ,PI,PJ,PK
PX=OBTAIN/FA(@PONAME),3
PY=OBTAIN/FA(@PONAME),4
PZ=OBTAIN/FA(@PONAME),5
AA=ASSIGN/CONCAT(STR(PX),' ',STR(PY),' ',STR(PZ))
WRITE/DID(F2),AA
ENDDO
CLOSE/DID(F1)
CLOSE/DID(F2)
CLOSE/DID(F3)
ENDFIL
循环测量十个点
DECL/INTGR,kk,jj
jj=ASSIGN/10 注释: 点数
DECL/CHAR,20,Pointname
DO/kk,1,jj,1
Pointname=ASSIGN/CONCAT('poi_',STR(kk))
F(@Pointname)=FEAT/POINT,CART,-645.6321,-580.2783,-552.1458,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(@Pointname),1
PTMEAS/CART,-645.6321,-580.2783,-552.1458,0.00000000,0.00000000,1.00000000
ENDMES
OUTPUT/FA(@Pointname)
ENDDO
DISPLY/TERM,DMIS
DECL/INTGR,kk,jj
jj=ASSIGN/10
DECL/CHAR,20,SPH_1
DO/kk,1,jj,1
SPH_1=ASSIGN/CONCAT('SPH_',STR(kk))
MODE/AUTO,PROG,MAN
F(@SPH_1)=FEAT/SPHERE,OUTER,CART,0,0,0,25.4668,0.00000000,0.00000000,1.00000000
MEAS/SPHERE,F(@SPH_1),9
ENDMES
OUTPUT/FA(@sph_1)
ENDDO
DISPLY/OFF
(REPR)
TEXT/OPER,'在左侧齿顶圆附近的渐开线上测量一点(保持Z=0)'
TEXT/QUERY,(POK),1,N,L,'1--不必重测, 0--重测'
IF/ (POK .EQ. 0)
JUMPTO/ (REPR)
ENDIF
(AU)
DECL/REAL,LTH,RUBY,SPHDIA,Ans1,Ans2,Ans3
TEXT/QUERY,(POK),1,AN,L,$
'DOES THE COORDINATION SYSTEM NEED BUILTING? 1=yes'
IF/(POK .EQ. 1)
ELSE
JUMPTO / (AU)
ENDIF
EXTFIL/DMIS,'f:\work\wz6c\z6c13001\13001_cad_recall_1.dmi'
DID(DEFAULTFILE) = DEVICE/STOR,'Neptune.out'
OPEN/DID(DEFAULTFILE),FDATA,V(DEFAULTFORMAT),OUTPUT,APPEND
CLOSE/DID(DEFAULTDMIS)
DID(DEFAULTDMIS) = DEVICE/STOR,'Neptune.dmo'
OPEN/DID(DEFAULTDMIS),FDATA,DMIS,OUTPUT,APPEND
MODE/AUTO,PROG,MAN
RECALL/D(DAT_1)
SNSLCT/SA(P1_0_0P0_0)
SNSET/CLRSRF,30
F(POI_1)=FEAT/POINT,CART,0,0,0,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_1),1
ENDMES
F(POI_2)=FEAT/POINT,CART,95,0,0,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_2),1
ENDMES
F(POI_3)=FEAT/POINT,CART,95,-50,-20,0.00000000,0.00000000,1.00000000
MEAS/POINT,F(POI_3),1
ENDMES
D(DAT_1) = LOCATE/FA(POI_1),FA(POI_2),FA(POI_3)
SAVE/D(DAT_1)
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_A1)=MATDEF/G(ALL_THE_MODEL),FA(A1),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_A2)=MATDEF/G(ALL_THE_MODEL),FA(A2),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_A3)=MATDEF/G(ALL_THE_MODEL),FA(A3),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_B1)=MATDEF/G(ALL_THE_MODEL),FA(B1),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_B2)=MATDEF/G(ALL_THE_MODEL),FA(B2),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_C1)=MATDEF/G(ALL_THE_MODEL),FA(C1),100.0000
D(CRD2) = LOCATE/MA(MA_A1),MA(MA_A2),MA(MA_A3),MA(MA_B1),MA(MA_B2),MA(MA_C1)
EQUATE/D(MAC),DA(MAC)
EQUATE/D(CRD2),DA(CRD2)
SAVE/D(CRD2)
DID(IGESID) = DEVICE/STOR, 'd:\论文\cl1.iges.igs'
OPEN/DID(IGESID), IGES, OUTPUT, OVERWR
OUTPUT/F(GEAR1)
OUTPUT/FA(GEAR1)
CLOSE/DID(IGESID)
DECL/CHAR,20,SPH_1
DECL/INTGR,i
DECL/INTGR,kk,jj
DO/i,1,30
SPH_1=ASSIGN/CONCAT('cir_',STR(kk))
MODE/AUTO,PROG,MAN
F(@SPH_1)=FEAT/CIRCLE,INNER,POL,197.5,12*i,33,-1.00000000,0.00000000,0.00000000,5.9592
MEAS/CIRCLE,F(@SPH_1),4
ENDMES
OUTPUT/FA(@sph_1),TA(D2)
ENDDO
DECL/CHAR,120,FILENAME,PTNUM,STONAME,CURTOOL[200]
DECL/INTGR,ZN,PE,PG,BUF[4]
DECL/REAL,MODU,XXX,INCL,LZ,PANG,RP,PASS1,PASS2,PI,PRBR
DECL/INTGR,IAAA,IBBB,STONUM,POK,SPRB
DECL/REAL,X1,Y1,Z1,X2,Y2,Z2,VVX,VVY,VVZ,LZNC,X5,Y5,Z5,X6,Y6,Z6
DECL/REAL,STEPZN,ZNMIS,RANG,PP1,B1,B2,BANG,TANG,SANG,OFFZ,XO
FILENAME=PROMPT/'THE OUTPUT FILE NAME WITHOUT EXTENSION(输出文件名)'
FILENAME=ASSIGN/CONCAT('d:\DATA\',FILENAME,'.txt')
DID(F1)=DEVICE/STOR,FILENAME
OPEN/DID(F1),DIRECT,OUTPUT,OVERWR
F(POI_1)=FEAT/POINT,CART,10,10,20,0,0,1
XO=OBTAIN/F(POI_1),3
WRITE/DID(F1),XO
CLOSE/DID(F1)
V(TEXT)=VFORM/ALL
DID(F1)=DEVICE/STOR,'D:\DATA\YQX.txt'
OPEN/DID(F1),FDATA,V(TEXT),OUTPUT,OVERWR
F(POI_1)=FEAT/POINT,CART,-556.3899,-629.5943,-668.3212,0.00000000,0.00000000,1.00000000
OUTPUT/FA(POI_1)
F(POI_2)=FEAT/POINT,CART,-536.6928,-629.5283,-668.3209,0.00000000,0.00000000,1.00000000
OUTPUT/FA(POI_2)
CLOSE/DID(F1)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
DECL/REAL,Ans1
Ans1=PROMPT/'建坐标--1 自动测量--0 '
IF/ (Ans1 .EQ. 1)
ELSE
JUMPTO/(R_MOVE)
ENDIF
(R_MOVE)
DISPLY/TERM,V(TEXT)
DISPLY/STOR,V(XMLDF)
T(CRLTY_1)=TOL/CIRLTY,0.0100
OUTPUT/FA(CIR_1),TA(CRLTY_1)
F(CIR_1)=FEAT/CIRCLE,INNER,CART,-536.2645,-563.6444,-676.5602,0.00000152,-0.00002631,1.00000000,229.1349
OUTPUT/FA(CIR_1)
ENDFIL
DISPLY/STOR,DMIS
T(D2)=TOL/POS,2D,0.3,RFS,FA(CIR_1),FA(CIR_2),FA(PLA_1)
WKPLAN/XYPLAN
DECL/CHAR,64,FILENAME,PONAME,FILE1,
DECL/INTGR,I
DECL/REAL,PX,PY
FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION,T10(请输入一个数据文件名!)'
FILE1=ASSIGN/CONCAT('F:\WORK\WZ12\Z1297307-308\T10\',FILENAME,'.TXT')
DID(F1)=DEVICE/STOR,FILE1
OPEN/DID(F1),DIRECT,INPUT
DO/ I,1,46,1
READ/DID(F1),PX,PY
PONAME=ASSIGN/CONCAT('POI_',STR(I))
F(@PONAME)=FEAT/CIRCLE,INNER,CART,PX,PY,-2,0,0,1,5.4
MEAS/CIRCLE,F(@PONAME),4
ENDMES
OUTPUT/FA(@PONAME),TA(D2)
ENDDO
CLOSE/DID(F1)
DECL/CHAR,64,FILENAME,PONAME,FILE1
DECL/INTGR,I
DECL/REAL,PX,PY
$$FILENAME=PROMPT/'ENTER THE NAME OF THE DATA FILE WITHOUT EXTENSION,T10(请输入一个数据文件名!)'
$$
$$
$$
$$FILE1=ASSIGN/CONCAT('F:\WORK\WZ12\Z1297307-308\T10\',FILENAME,'.TXT')
$$
$$DID(F1)=DEVICE/STOR,FILE1
DID(F1)=DEVICE/STOR,'F:\WORK\WZ12\Z1297307-308\T10\T10.TXT'
OPEN/DID(F1),DIRECT,INPUT
DO/ I,1,46,1
READ/DID(F1),PX,PY
PONAME=ASSIGN/CONCAT('POI_',STR(I))
F(@PONAME)=FEAT/CIRCLE,INNER,CART,PX,PY,-2,0,0,1,5.4
MEAS/CIRCLE,F(@PONAME),4
ENDMES
OUTPUT/FA(@PONAME),TA(D2)
RECALL/D(CRD1)
ROTAB/RT(MASTERTABLE), ABSL, SHORT, ROTTOT, 0.000000
DECL/CHAR,20,SphName
DECL/INTGR,i
$$4这个数字代表了几个球，如果10个球就把4改为10，同时修改倒数第二行，360/10=36度
DO/i,1,4,1
SphName=ASSIGN/CONCAT('SPH_',STR(I))
MEAS/SPHERE, F(@SphName), 5
GOTO/POL, 77.054436, 356.515422, 73.542300
GOTO/POL, 78.997057, 359.999750, 73.542028
PTMEAS/POL, 78.997270, 0.000092, 61.548663, -0.000000, -0.000100, 1.000000
GOTO/POL, 68.798762, 0.590958, 73.501036
GOTO/POL, 60.160707, 1.249306, 67.707988
GOTO/POL, 54.394633, 1.805878, 59.038186
PTMEAS/POL, 66.297395, 0.764700, 48.811739, -0.997589, 0.069399, 0.000000
GOTO/POL, 54.324972, 351.011639, 48.811146
GOTO/POL, 61.393368, 343.401003, 48.810882
GOTO/POL, 71.218452, 340.375408, 48.810777
PTMEAS/POL, 79.139852, 350.761564, 48.811415, -0.069399, -0.997589, -0.000100
GOTO/POL, 91.081182, 343.847053, 48.811084
GOTO/POL, 98.619431, 348.203189, 48.811449
GOTO/POL, 103.604711, 353.395978, 48.811886
PTMEAS/POL, 91.707759, 359.447978, 48.812121, 0.997589, -0.069399, -0.000000
GOTO/POL, 104.681867, 4.651225, 48.812714
GOTO/POL, 100.699305, 10.030825, 48.812978
GOTO/POL, 94.007595, 14.741100, 48.813083
PTMEAS/POL, 80.885978, 9.038214, 48.812445, 0.069399, 0.997589, 0.000100
GOTO/POL, 84.385650, 16.970147, 59.039556
GOTO/POL, 82.491656, 13.209703, 67.709037
GOTO/POL, 80.357185, 7.293572, 73.501604
GOTO/POL, 78.997057, 359.999750, 73.542028
ENDMES
ROTAB/RT(MASTERTABLE), ABSL, SHORT, ROTTOT, 90.000000*i
ENDDO
SNSLCT/SA(P1_90_0P90_0)
F(POI_1)=FEAT/POINT,CART,2.1026,-6.8939,82.6887,-0.15166900,-0.98842604,-0.00323844
F(POI_2)=FEAT/POINT,CART,1.0499,-6.7920,74.5236,-0.32535063,-0.94521054,0.02690725
F(POI_3)=FEAT/POINT,CART,-3.1999,-3.7453,70.2335,-0.01899388,0.09635170,0.99516611
F(POI_4)=FEAT/POINT,CART,1.0955,-4.2459,72.7347,-0.95557694,0.27559412,0.10450168
F(POI_5)=FEAT/POINT,CART,-5.1666,7.5886,71.5897,-0.68938480,-0.72432618,0.01000889
F(POI_6)=FEAT/POINT,CART,-0.4991,2.7130,81.9416,-0.80175030,-0.59679489,0.03212968
MEAS/POINT,F(POI_1),1
PTMEAS/CART,2.1026,-6.8939,82.6887,-0.15166900,-0.98842604,-0.00323844
ENDMES
MEAS/POINT,F(POI_2),1
PTMEAS/CART,1.0499,-6.7920,74.5236,-0.32535063,-0.94521054,0.02690725
ENDMES
MEAS/POINT,F(POI_3),1
PTMEAS/CART,-3.1999,-3.7453,70.2335,-0.01899388,0.09635170,0.99516611
ENDMES
MEAS/POINT,F(POI_4),1
PTMEAS/CART,1.0955,-4.2459,72.7347,-0.95557694,0.27559412,0.10450168
ENDMES
MEAS/POINT,F(POI_5),1
PTMEAS/CART,-5.1666,7.5886,71.5897,-0.68938480,-0.72432618,0.01000889
ENDMES
MEAS/POINT,F(POI_6),1
PTMEAS/CART,-0.4991,2.7130,81.9416,-0.80175030,-0.59679489,0.03212968
ENDMES
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_1)=MATDEF/G(ALL_THE_MODEL),FA(POI_1),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_2)=MATDEF/G(ALL_THE_MODEL),FA(POI_2),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_3)=MATDEF/G(ALL_THE_MODEL),FA(POI_3),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_4)=MATDEF/G(ALL_THE_MODEL),FA(POI_4),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_5)=MATDEF/G(ALL_THE_MODEL),FA(POI_5),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_6)=MATDEF/G(ALL_THE_MODEL),FA(POI_6),100.0000
D(DAT_11) = LOCATE/MA(MA_POI_1),MA(MA_POI_2),MA(MA_POI_3),MA(MA_POI_4),MA(MA_POI_5),MA(MA_POI_6)
EQUATE/D(MAC),DA(MAC)
EQUATE/D(DAT_11),DA(DAT_11)
DECL/INTGR,i
DO/i,1,10
MODE/AUTO,PROG,MAN
RECALL/D(DAT_11)
SNSLCT/SA(P1_90_0P90_0)
SNSET/SEARCH,10.000
SNSET/APPRCH,4.0000
SNSET/RETRCT,2.0000
SNSET/DEPTH,0.0000
SNSET/CLRSRF,OFF
F(POI_1)=FEAT/POINT,CART,2.1026,-6.8939,82.6887,-0.15166900,-0.98842604,-0.00323844
F(POI_2)=FEAT/POINT,CART,1.0499,-6.7920,74.5236,-0.32535063,-0.94521054,0.02690725
F(POI_3)=FEAT/POINT,CART,-3.1999,-3.7453,70.2335,-0.01899388,0.09635170,0.99516611
F(POI_4)=FEAT/POINT,CART,1.0955,-4.2459,72.7347,-0.95557694,0.27559412,0.10450168
F(POI_5)=FEAT/POINT,CART,-5.1666,7.5886,71.5897,-0.68938480,-0.72432618,0.01000889
F(POI_6)=FEAT/POINT,CART,-0.4991,2.7130,81.9416,-0.80175030,-0.59679489,0.03212968
MEAS/POINT,F(POI_1),1
GOTO/-33.9981,-51.4839,109.4214
PTMEAS/CART,2.1026,-6.8939,82.6887,-0.15166900,-0.98842604,-0.00323844
ENDMES
MEAS/POINT,F(POI_2),1
PTMEAS/CART,1.0499,-6.7920,74.5236,-0.32535063,-0.94521054,0.02690725
ENDMES
MEAS/POINT,F(POI_3),1
GOTO/-7.9048,-7.4078,74.1407
PTMEAS/CART,-3.1999,-3.7453,70.2335,-0.01899388,0.09635170,0.99516611
ENDMES
MEAS/POINT,F(POI_4),1
PTMEAS/CART,1.0955,-4.2459,72.7347,-0.95557694,0.27559412,0.10450168
ENDMES
MEAS/POINT,F(POI_5),1
PTMEAS/CART,-5.1666,7.5886,71.5897,-0.68938480,-0.72432618,0.01000889
ENDMES
MEAS/POINT,F(POI_6),1
PTMEAS/CART,-0.4991,2.7130,81.9416,-0.80175030,-0.59679489,0.03212968
ENDMES
GOTO/-107.2960,-11.4667,107.9481
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_1)=MATDEF/G(ALL_THE_MODEL),FA(POI_1),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_2)=MATDEF/G(ALL_THE_MODEL),FA(POI_2),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_3)=MATDEF/G(ALL_THE_MODEL),FA(POI_3),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_4)=MATDEF/G(ALL_THE_MODEL),FA(POI_4),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_5)=MATDEF/G(ALL_THE_MODEL),FA(POI_5),100.0000
G(ALL_THE_MODEL)=GEOM/OFFSET,0.0000
MA(MA_POI_6)=MATDEF/G(ALL_THE_MODEL),FA(POI_6),100.0000
D(DAT_11) = LOCATE/MA(MA_POI_1),MA(MA_POI_2),MA(MA_POI_3),MA(MA_POI_4),MA(MA_POI_5),MA(MA_POI_6)
EQUATE/D(MAC),DA(MAC)
EQUATE/D(DAT_11),DA(DAT_11)
SAVE/D(DAT_11)
ENDDO
ENDDO
CLOSE/DID(F1)
DECL/REAL,B1,B2,B3
DECL/DOUBLE,X1,X2,X3
X1=OBTAIN/FA(cir_4),5
X2=OBTAIN/FA(cir_3),5
X3=OBTAIN/FA(cir_5),5
B1=ASSIGN/X1-180
B2=ASSIGN/X3-X1
B3=ASSIGN/X1-X2
F(C)=FEAT/CIRCLE,INNER,POL,b1,b2,b3,-1.00000000,0.00000000,0.00000000,4
OUTPUT/F(c)
GOTO/-87.9316,43.8288,257.2428
DISPLY/OFF
ENDFIL
DECL/REAL,XA[200],YA[200],ZA[200],IA[200],JA[200],KA[200]
DECL/CHAR,20,PONAME
DECL/INTGR,i
DO/i,1,14,1
PRCOMP/OFF
XA[i]=OBTAIN/F(GCU_72_B)[i],4
YA[i]=OBTAIN/F(GCU_72_B)[i],5
ZA[i]=OBTAIN/F(GCU_72_B)[i],6
IA[i]=OBTAIN/F(GCU_72_B)[i],8
JA[i]=OBTAIN/F(GCU_72_B)[i],9
KA[i]=OBTAIN/F(GCU_72_B)[i],10
PONAME=ASSIGN/CONCAT('P72B_',STR(i))
F(@PONAME)=FEAT/POINT,CART,XA[i],YA[i],ZA[i],IA[i],JA[i],KA[i]
PRCOMP/ON
XA[i]=OBTAIN/FA(GCU_72_B)[i],4
YA[i]=OBTAIN/FA(GCU_72_B)[i],5
ZA[i]=OBTAIN/FA(GCU_72_B)[i],6
IA[i]=OBTAIN/FA(GCU_72_B)[i],8
JA[i]=OBTAIN/FA(GCU_72_B)[i],9
KA[i]=OBTAIN/FA(GCU_72_B)[i],10
PONAME=ASSIGN/CONCAT('P72B_',STR(i))
FA(@PONAME)=FEAT/POINT,CART,XA[i],YA[i],ZA[i],IA[i],JA[i],KA[i]
ENDDO
DISPLY/COMM,V(TEXT)
DECL/CHAR,64,FILENAME,PONAME,FILE1
DECL/INTGR,I
DECL/REAL,PX,PY
DID(F1)=DEVICE/STOR,'F:\WORK\WZ12\Z1244002\44002YP_CHECK\TOL_72_B.TXT'
OPEN/DID(F1),DIRECT,INPUT
DO/I,1,14,1
READ/DID(F1),PX,PY
PONAME=ASSIGN/CONCAT('P72B_',STR(I))
T(TOL)=TOL/PROFP,PX,PY
OUTPUT/FA(@PONAME),TA(TOL)
ENDDO
CLOSE/DID(F1)
M(QQQ)=MACRO
$$DISPLY/STOR,V(TEXT)
DECL/REAL,XA[48],YA[48],ZA[48],xn[48],yn[48],zn[48],XX[48],YY[48],ZZ[48]
DECL/REAL,Tt[48]
DECL/CHAR,20,PONAME1,PONAME2,PONAME3
DECL/INTGR,i
PRCOMP/OFF
DO/i,1,48,1
PONAME1=ASSIGN/CONCAT('XX_',STR(i))
PONAME2=ASSIGN/CONCAT('XNX_',STR(i))
PONAME3=ASSIGN/CONCAT('DISTB_',STR(i))
XA[i]=OBTAIN/F(XX)[i],4
YA[i]=OBTAIN/F(XX)[i],5
ZA[i]=OBTAIN/F(XX)[i],6
Xn[i]=OBTAIN/F(XNX)[i],4
Yn[i]=OBTAIN/F(XNX)[i],5
Zn[i]=OBTAIN/F(XNX)[i],6
XX[i] = ASSIGN/XA[i]-XN[i]
YY[i] = ASSIGN/YA[i]-YN[i]
ZZ[i] = ASSIGN/ZA[i]-ZN[i]
Tt[i]=ASSIGN/SQRT(XX[i]*XX[i]+YY[i]*YY[i]+ZZ[i]*ZZ[i])
T(@PONAME3)=TOL/DISTB,NOMINL,Tt[i],0,0,PT2PT
OUTPUT/FA(@PONAME1),FA(@PONAME2),TA(@PONAME3)
ENDDO
ENDMAC
CALL/M(QQQ)
SNSLCT/SA(P1_0_0P0_0)
SNSET/SEARCH,10.000
SNSET/APPRCH,1.0000
SNSET/RETRCT,1.0000
F(PL01)=FEAT/PLANE,CART,0,0,0,0,0,1
MEAS/PLANE,F(PL01),4
ENDMES
WKPLAN/XYPLAN
D(PC01) = ROTATE/XAXIS,FA(PL01),ZDIR
D(PC01) = ROTATE/YAXIS,FA(PL01),ZDIR
D(PC01) = TRANS/ZORIG,FA(PL01)
F(CI01)=FEAT/CIRCLE,INNER,CART,0,0,-11,0,0,1,41
MEAS/CIRCLE,F(CI01),4
ENDMES
F(CI02)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1,41
CONST/CIRCLE,F(CI02),PROJCT,FA(CI01),FA(PL01)
D(PC01) = TRANS/XORIG,FA(CI02)
D(PC01) = TRANS/YORIG,FA(CI02)
D(PC01) = TRANS/ZORIG,FA(CI02)
F(CI03)=FEAT/CIRCLE,INNER,CART,1,0,-1,0,0,1,8
MEAS/CIRCLE,F(CI03),4
ENDMES
F(CI04)=FEAT/CIRCLE,INNER,CART,1,0,0,0,0,1,8
CONST/CIRCLE,F(CI04),PROJCT,FA(CI03),FA(PL01)
F(LINE)=FEAT/LINE,UNBND,CART,0,0,0,1,0,0,0,0,1
CONST/LINE,F(LINE),BF,FA(CI02),FA(CI04)
D(PC01) = ROTATE/ZAXIS,FA(LINE),XDIR
D(PC01) = ROTATE/ZAXIS,34.0858869941
SAVE/D(PC01)
