DMISMN/''
$$ *** 程序初始段 ***
MODE/MAN
RECALL/D(MAC)
WKPLAN/XYPLAN
UNITS/MM,ANGDEC,TEMPC
DECPL/DIST,4,VEC,8,ANGLE,4,TEMP,1
SCNMOD/OFF
TECOMP/ON
PRCOMP/ON
PTBUFF/ON
SNSET/SEARCH,10.000
SNSET/APPRCH,4.0000
SNSET/RETRCT,2.0000
SNSET/DEPTH,0.0000
SNSET/CLRSRF,OFF
FLY/5.0000
FEDRAT/MESVEL,MMPS,3.5
FEDRAT/POSVEL,PCENT,0.50
FEDRAT/ROTVEL,PCENT,0.75
FEDRAT/SCNVEL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
ACLRAT/POSACL,PCENT,0.75
GEOALG/CPARLN,ROUND
V(TEXT)=VFORM/ALL
V(HTML)=VFORM/DME,'HTM',ALL
V(CSV)=VFORM/DME,'CSV',ALL
V(SPCLIGHT)=VFORM/STAT,'SDD',ALL
V(GENSTAT)=VFORM/STAT,'SDD/L',ALL
V(ARCOSTAT)=VFORM/STAT,'SDD/C',ALL
V(QSSTATQ)=VFORM/STAT,'DFQ',ALL
V(QSSTATD)=VFORM/STAT,'DFD',ALL
V(GRAPHF)=VFORM/DME,'DMG',ALL
V(GRAPHV)=VFORM/DME,'DMG/V',ALL
V(GRAPHP)=VFORM/DME,'DMG/P',ALL
V(GRAPHO)=VFORM/DME,'DMG/O',ALL
V(GRAPHA)=VFORM/DME,'DMG/A',ALL
EQUATE/D(MAC),DA(MAC)
$$ *** 程序初始段结束 ***DECL/REAL,R1,A1,D1,Z1,R0
DECL/REAL,STEP1,DIR,R2
DECL/INTGR,KK
DECL/CHAR,20,ARNAME1,ARNAME2,PNAME1,PNAME2
DECL/REAL,ANG1
DECL/REAL,X1,Y1,Z1
DECL/CHAR,20,LNAMESNSLCT/SA(P1_90_0N180_0)
F(PLA_1)=FEAT/PLANE,CART,-541.3263,-1161.1459,-861.1956,-0.00035845,-0.03220783,-0.99948113
MEAS/PLANE,F(PLA_1),4PTMEAS/CART,-519.5299,-1154.5098,-861.4172,0.00000000,0.00200000,-0.99999800PTMEAS/CART,-535.5659,-1167.9340,-860.9835,0.02298142,0.03297334,-0.99919198PTMEAS/CART,-548.9326,-1167.7256,-860.9792,-0.00599989,0.00000000,-0.99998200PTMEAS/CART,-561.3390,-1154.5467,-861.4028,0.04398026,-0.03098609,-0.99855175
ENDMESSNSLCT/SA(P1_0_0P0_0)
DECL/DOUBLE,PLA_1_I,PLA_1_J,PLA_1_K
PLA_1_I=OBTAIN/FA(PLA_1),6
PLA_1_J=OBTAIN/FA(PLA_1),7
PLA_1_K=OBTAIN/FA(PLA_1),8
F(CIR_1)=FEAT/CIRCLE,INNER,CART,-541.3624,-1142.3119,-803.9070,PLA_1_I,PLA_1_J,PLA_1_K,93.4326
MEAS/CIRCLE,F(CIR_1),4PTMEAS/CART,-496.6719,-1143.2905,-804.5767,0.99998697,-0.00500494,0.00100099PTMEAS/CART,-542.6776,-1097.5875,-804.5642,0.05003734,0.99874534,-0.00200149PTMEAS/CART,-585.1746,-1133.4115,-804.5777,-0.99966167,0.02599120,0.00099966PTMEAS/CART,-552.9501,-1185.5267,-802.2166,0.01499795,-0.99986303,0.00699904
ENDMESSNSLCT/SA(P1_30_0P0_0)
F(CIR_2)=FEAT/CIRCLE,INNER,CART,-540.6176,-1171.6048,-803.9081,PLA_1_I,PLA_1_J,PLA_1_K,18.0494
MEAS/CIRCLE,F(CIR_2),4PTMEAS/CART,-539.6962,-1180.5689,-803.6906,0.01701452,0.99985324,-0.00200171PTMEAS/CART,-538.2418,-1180.2875,-803.6976,-0.05502672,0.99848488,0.00000000PTMEAS/CART,-535.6775,-1178.9050,-803.6955,0.02301688,0.99973307,-0.00200147PTMEAS/CART,-533.3044,-1176.6356,-803.7109,-0.43233974,0.90170857,0.00200157
ENDMESF(CIR_3)=FEAT/CIRCLE,INNER,CART,-540.3037,-1171.7062,-803.9006,PLA_1_I,PLA_1_J,PLA_1_K,17.7986
MEAS/CIRCLE,F(CIR_3),4PTMEAS/CART,-540.1108,-1180.5990,-803.6921,0.01401263,0.99990132,-0.00100090PTMEAS/CART,-543.6659,-1179.8681,-803.6982,0.01601393,0.99986977,0.00200174PTMEAS/CART,-544.9025,-1179.1988,-803.6712,0.13006466,0.99149289,-0.00500249PTMEAS/CART,-547.5381,-1176.7649,-803.6988,0.56618886,0.82427494,-0.00100033
ENDMESF(POI_1)=FEAT/POINT,CART,-540.4607,-1171.6555,-803.9044,PLA_1_I,PLA_1_J,PLA_1_K
CONST/POINT,F(POI_1),MIDPT,FA(CIR_3),FA(CIR_2)F(LIN_1)=FEAT/LINE,BND,CART,-541.3624,-1142.3119,-803.9070,-540.4607,-1171.6555,-803.9044,PLA_1_I,PLA_1_J,PLA_1_K
CONST/LINE,F(LIN_1),BF,FA(CIR_1),FA(POI_1)
D(DAT_1) = DATSET/FA(PLA_1),-ZDIR,ZORIG,FA(LIN_1),-YDIR,FA(CIR_1),XORIG,YORIGMODE/PROG,MANSNSET/CLRSRF,FA(PLA_1),100.0000D1=ASSIGN/67
R1=ASSIGN/D1/2
Z1=ASSIGN/100F(SPH_1)=FEAT/SPHERE,INNER,CART,0,0,-13.8533,D1,0.00000000,0.00000000,0.00000000
MEAS/SPHERE,F(SPH_1),4A1=ASSIGN/0SNSLCT/SA(P1_30_0P90_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1A1=ASSIGN/60SNSLCT/SA(P1_30_0P150_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1A1=ASSIGN/120SNSLCT/SA(P1_30_0N150_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1A1=ASSIGN/180SNSLCT/SA(P1_30_0N90_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1A1=ASSIGN/240SNSLCT/SA(P1_30_0N30_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1A1=ASSIGN/300SNSLCT/SA(P1_30_0P30_0)GOTO/POL,R1-10,A1,Z1PTMEAS/POL,R1,A1,35,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,41,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,47,-COS(DTOR(A1)),-SIN(DTOR(A1)),0PTMEAS/POL,R1,A1,53,-COS(DTOR(A1)),-SIN(DTOR(A1)),0GOTO/POL,R1-10,A1,Z1
ENDMESSNSLCT/SA(P1_30_0N180_0)
SNSET/CLRSRF,OFFR1=ASSIGN/33.5
Z1=ASSIGN/49
STEP1=ASSIGN/2
DIR=ASSIGN/-1$$-----------最大值搜索-------
F(POI_1)=FEAT/POINT,CART,0,R1,Z1,0.00000000,-1.00000000,0.00000000
MEAS/POINT,F(POI_1),1
ENDMESDO/KK,1,100,1
F(POI_2)=FEAT/POINT,CART,0,R1,Z1+STEP1*DIR,0.00000000,-1.00000000,0.00000000
MEAS/POINT,F(POI_2),1
ENDMES
R2=OBTAIN/FA(POI_2),4IF/(ABS(R2).LT.ABS(R1))
DIR=ASSIGN/-DIR
STEP1=ASSIGN/STEP1/2
ENDIFR1=ASSIGN/R2
Z1=OBTAIN/F(POI_2),5IF/(STEP1.LT.0.005)
KK=ASSIGN/101
ENDIFENDDORECALL/D(DAT_1)
D(DAT_2) = TRANS/XORIG,0.0000,YORIG,0.0000,ZORIG,49.2343R1=ASSIGN/18/2
F(ARC_1)=FEAT/ARC,INNER,CART,0.155,29.35,0,0.00000000,0.00000000,1.00000000,R1,100,50
MEAS/ARC,F(ARC_1),6
ENDMESF(ARC_2)=FEAT/ARC,INNER,CART,-0.155,29.35,0,0.00000000,0.00000000,1.00000000,R1,80,-50
MEAS/ARC,F(ARC_2),6
ENDMESF(POI_5)=FEAT/POINT,CART,0.0000,29.3500,0.0000,0.00000000,0.00000000,1.00000000
CONST/POINT,F(POI_5),MIDPT,FA(ARC_1),FA(ARC_2)F(LIN_3)=FEAT/LINE,BND,CART,0.0000,29.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(LIN_3),BF,FA(POI_5),FA(SPH_1)D(DAT_3) = DATSET/FA(PLA_1),-ZDIR,ZORIG,FA(LIN_3),-YDIR,FA(SPH_1),XORIG,YORIG
D(DAT_4) = TRANS/XORIG,0.0000,YORIG,0.0000,ZORIG,49.2343$$----------------------测量沟道圆弧 0---------------------F(PLA_YZ)=FEAT/PLANE,CART,0.0000,0.0000,0.0000,1.00000000,0.00000000,0.00000000
FA(PLA_YZ)=FEAT/PLANE,CART,0.0000,0.0000,0.0000,1.00000000,0.00000000,0.00000000DO/KK,1,5,1
RECALL/D(DAT_4)
ANG1=ASSIGN/-20+(KK-1)*8
D(DAT_5) = ROTATE/XAXIS,ANG1ARNAME1=ASSIGN/CONCAT('ARCL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.18,29.35,0,0.00000000,0.00000000,1.00000000,R1,95,50
MEAS/ARC,F(@ARNAME1),5
ENDMESARNAME2=ASSIGN/CONCAT('ARCR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.18,29.35,0,0.00000000,0.00000000,1.00000000,R1,85,-50
MEAS/ARC,F(@ARNAME2),5
ENDMESPNAME1=ASSIGN/CONCAT('POA_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,0.0000,39.2982,0.0000,0,1,0
CONST/POINT,F(@PNAME1),INTOF,FA(@ARNAME1),FA(@ARNAME2)PNAME2=ASSIGN/CONCAT('POB_',STR(KK))
F(@PNAME2)=FEAT/POINT,CART,0.0000,21.4018,0.0000,0,1,0
CONST/POINT,F(@PNAME2),INTOF,FA(@ARNAME1),FA(@ARNAME2)ENDDO$$----------------------测量沟道圆弧 180---------------------
RECALL/D(DAT_4)
D(DAT_6) = ROTATE/ZAXIS,180.0000
SNSLCT/SA(P1_30_0P0_0)DO/KK,6,10,1
RECALL/D(DAT_6)ANG1=ASSIGN/-20+(KK-6)*8
D(DAT_5) = ROTATE/XAXIS,ANG1ARNAME1=ASSIGN/CONCAT('ARCL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.18,29.35,0,0.00000000,0.00000000,1.00000000,R1,95,50
MEAS/ARC,F(@ARNAME1),5
ENDMESARNAME2=ASSIGN/CONCAT('ARCR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.18,29.35,0,0.00000000,0.00000000,1.00000000,R1,85,-50
MEAS/ARC,F(@ARNAME2),5
ENDMESPNAME1=ASSIGN/CONCAT('POA_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,0.0000,39.2982,0.0000,0,1,0
CONST/POINT,F(@PNAME1),INTOF,FA(@ARNAME1),FA(@ARNAME2)PNAME2=ASSIGN/CONCAT('POB_',STR(KK))
F(@PNAME2)=FEAT/POINT,CART,0.0000,21.4018,0.0000,0,1,0
CONST/POINT,F(@PNAME2),INTOF,FA(@ARNAME1),FA(@ARNAME2)
ENDDO$$-----------------计算沟道圆弧直径------------------------
RECALL/D(DAT_3)DO/KK,1,10,1
PNAME1=ASSIGN/CONCAT('POB_',STR(KK))
X1=ASSIGN/0
Y1=OBTAIN/FA(@PNAME1),4
Z1=OBTAIN/FA(@PNAME1),5
F(@PNAME1)=FEAT/POINT,CART,X1,Y1,Z1,1,0,0
FA(@PNAME1)=FEAT/POINT,CART,X1,Y1,Z1,1,0,0
ENDDOF(CIR_5)=FEAT/CIRCLE,INNER,CART,0,0,-9.4935,1,0,0,42.8029
CONST/CIRCLE,F(CIR_5),BF,FA(POB_1),FA(POB_2),FA(POB_3),FA(POB_4),FA(POB_5),FA(POB_6),FA(POB_7),FA(POB_8),FA(POB_9),FA(POB_10)$$-------------------测量分度-----------------------
SNSET/CLRSRF,OFFX1=ASSIGN/0
Y1=ASSIGN/-15
Z1=ASSIGN/50$$----------------kk=1----------------
kk=ASSIGN/1
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0P0_0)
GOTO/x1,y1,z1R1=ASSIGN/18/2
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-31.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$----------------kk=2----------------
kk=ASSIGN/2
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0P60_0)
RECALL/DATA,'C:\METROSTAFF\ARCOCAD INSPECTION\USER\123_6.ADB'
GOTO/x1,y1,z1R1=ASSIGN/18/2
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-30.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$----------------kk=3----------------
kk=ASSIGN/3
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0P120_0)
GOTO/x1,y1,z1R1=ASSIGN/18/2
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-30.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$----------------kk=4----------------
kk=ASSIGN/4
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0n180_0)
GOTO/x1,y1,z1R1=ASSIGN/18/2
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-30.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$----------------kk=5----------------
kk=ASSIGN/5
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0n120_0)
GOTO/x1,y1,z1R1=ASSIGN/18/2
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-30.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$----------------kk=6----------------
kk=ASSIGN/6
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)GOTO/x1,y1,z1
SNSLCT/SA(P1_30_0n60_0)
GOTO/x1,y1,z1ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
F(@ARNAME1)=FEAT/ARC,INNER,CART,0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-100,-50
MEAS/ARC,F(@ARNAME1),6
ENDMESARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
F(@ARNAME2)=FEAT/ARC,INNER,CART,-0.155,-29.35,0,0.00000000,0.00000000,1.00000000,R1,-80,50
MEAS/ARC,F(@ARNAME2),6
ENDMESGOTO/x1,y1,z1PNAME1=ASSIGN/CONCAT('PO_',STR(KK))
F(@PNAME1)=FEAT/POINT,CART,-0.0025,-30.2463,0.0006,-0.00000023,-0.00000022,1.00000000
CONST/POINT,F(@PNAME1),MIDPT,FA(@ARNAME1),FA(@ARNAME2)LNAME=ASSIGN/CONCAT('LN_',STR(KK))
F(@LNAME)=FEAT/LINE,BND,CART,0.0000,-30.3500,0.0000,-0.2166,-0.0869,-4.2443,0.00000000,0.00000000,-1.00000000
CONST/LINE,F(@LNAME),BF,FA(POI_5),FA(SPH_1)$$================================================
RECALL/DATA,'C:\METROSTAFF\ARCOCAD INSPECTION\USER\123_6.ADB'$$-------------------output------------------
RECALL/D(DAT_3)
V(V1)= VFORM/ACT
DISPLY/TERM,V(v1)
DISPLY/STOR,V(v1)
TEXT/OUTFIL,'内球面圆弧C到中心到基准面的距离A'
T(CORTOL_1)=TOL/CORTOL,ZAXIS,-0.1000,0.1000
OUTPUT/FA(SPH_1),TA(CORTOL_1)TEXT/OUTFIL,'沟道圆弧F到中心到基准面的距离B'
OUTPUT/FA(cir_5),TA(CORTOL_1)TEXT/OUTFIL,'E-E截面圆弧半径R1,R2'
T(RAD_1)=TOL/RAD,-0.1000,0.1000
OUTPUT/FA(ARC_1),TA(RAD_1)
OUTPUT/FA(ARC_2),TA(RAD_1)TEXT/OUTFIL,'六条沟道的等分度'
T(ANGLB_1)=TOL/ANGLB,60.0000,-1.0000,1.0000,XYPLAN
GEOALG/ANGLB,DEFALT
OUTPUT/FA(LN_1),FA(LN_2),TA(ANGLB_1)
OUTPUT/FA(LN_2),FA(LN_3),TA(ANGLB_1)
OUTPUT/FA(LN_3),FA(LN_4),TA(ANGLB_1)
OUTPUT/FA(LN_4),FA(LN_5),TA(ANGLB_1)
OUTPUT/FA(LN_5),FA(LN_6),TA(ANGLB_1)
OUTPUT/FA(LN_6),FA(LN_1),TA(ANGLB_1)TEXT/OUTFIL,'沟道直径尺寸'
R0=ASSIGN/17.4625
RECALL/D(DAT_4)DO/KK,1,3,1
RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK-1)
ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK))
X1=OBTAIN/FA(@ARNAME1),4
Y1=OBTAIN/FA(@ARNAME1),5
Z1=OBTAIN/FA(@ARNAME1),6
R1=OBTAIN/FA(@ARNAME1),10
F(@ARNAME1)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50
FA(@ARNAME1)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50ARNAME2=ASSIGN/CONCAT('ARR_',STR(KK))
X1=OBTAIN/FA(@ARNAME2),4
Y1=OBTAIN/FA(@ARNAME2),5
Z1=OBTAIN/FA(@ARNAME2),6
R1=OBTAIN/FA(@ARNAME2),10
F(@ARNAME2)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50
FA(@ARNAME2)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50F(POI_10)=FEAT/POINT,CART,-0.0024,-30.2463,0.0004,-0.00000005,-0.00000017,1.00000000
CONST/POINT,F(POI_10),INTOF,FA(@ARNAME1),FA(@ARNAME2)RECALL/D(DAT_4)
D(DAT_7) = ROTATE/ZAXIS,60*(KK+3-1)ARNAME1=ASSIGN/CONCAT('ARL_',STR(KK+3))
X1=OBTAIN/FA(@ARNAME1),4
Y1=OBTAIN/FA(@ARNAME1),5
Z1=OBTAIN/FA(@ARNAME1),6
R1=OBTAIN/FA(@ARNAME1),10
F(@ARNAME1)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50
FA(@ARNAME1)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50ARNAME2=ASSIGN/CONCAT('ARR_',STR(KK+3))
X1=OBTAIN/FA(@ARNAME2),4
Y1=OBTAIN/FA(@ARNAME2),5
Z1=OBTAIN/FA(@ARNAME2),6
R1=OBTAIN/FA(@ARNAME2),10
F(@ARNAME2)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50
FA(@ARNAME2)=FEAT/ARC,INNER,CART,X1,Y1,0,0.00000000,0.00000000,1.00000000,R1-R0/2,-80,50F(POI_11)=FEAT/POINT,CART,0.0033,-30.241,0.0004,-0.00000005,-0.00000017,1.00000000
CONST/POINT,F(POI_11),INTOF,FA(@ARNAME1),FA(@ARNAME2)T(DISTB_2)=TOL/DISTB,NOMINL,60.4584,-0.1000,0.1000,YAXIS
OUTPUT/FA(POI_10),FA(POI_11),TA(DISTB_2)ENDDODISPLY/OFFENDFIL
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！
