RationalDMIS 7.0量块程序（力合）

DMISMN/'Created by [深圳力合精密装备科技有限公司-030119] on 星期六, 九月 15, 2018', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.000000
MODE/PROG, MAN
SNSET/APPRCH, 3.000000
SNSET/RETRCT, 3.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 10.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, COMPLM
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$DECL/COMMON, CHAR, 256, KNPTC1KNPTC1 = PROMPT/'请输入测量轴向！！'TEXT/OUTFIL, KNPTC1 MODE/MAN
$$ Following block is generated by Quick 321 alignment
DECL/COMMON, DOUBLE, DPROBEX, DPROBEY, DPROBEZ
PRCOMP/OFF
F(PT1)=FEAT/POINT,CART,-396.864,32.175,428.648,-0.000,-1.000,-0.000
F(PT2)=FEAT/POINT,CART,-393.431,32.175,420.868,-0.000,-1.000,-0.000
F(PT3)=FEAT/POINT,CART,-368.566,32.175,427.241,-0.000,-1.000,-0.000
F(PT4)=FEAT/POINT,CART,-397.036,37.688,432.024,-0.020,0.000,1.000
F(PT5)=FEAT/POINT,CART,-373.089,37.085,432.496,-0.020,0.000,1.000
F(PT6)=FEAT/POINT,CART,-402.094,38.316,426.513,-1.000,-0.000,-0.020
MEAS/POINT, F(PT1), 1PTMEAS/CART, -396.864,32.175,428.648,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
MEAS/POINT, F(PT2), 1PTMEAS/CART, -393.431,32.175,420.868,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
MEAS/POINT, F(PT3), 1PTMEAS/CART, -368.566,32.175,427.241,-0.000,-1.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
MEAS/POINT, F(PT4), 1PTMEAS/CART, -397.036,37.688,432.024,-0.020,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
MEAS/POINT, F(PT5), 1PTMEAS/CART, -373.089,37.085,432.496,-0.020,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
MEAS/POINT, F(PT6), 1PTMEAS/CART, -402.094,38.316,426.513,-1.000,-0.000,-0.020, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
KNPTR1 = OBTAIN/FA(PT1)[1], 5
KNPTR2 = OBTAIN/FA(PT1)[1], 6
KNPTR3 = OBTAIN/FA(PT1)[1], 7
F(PLN1) = FEAT/PLANE, CART, 0,0,0, KNPTR1,KNPTR2,KNPTR3
CONST/PLANE, F(PLN1), BF, FA(PT1), FA(PT2), FA(PT3)
KNPTR1 = OBTAIN/FA(PT4), 3
KNPTR2 = OBTAIN/FA(PT4), 4
KNPTR3 = OBTAIN/FA(PT4), 5
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTR1 = OBTAIN/FA(PT5), 3
KNPTR2 = OBTAIN/FA(PT5), 4
KNPTR3 = OBTAIN/FA(PT5), 5
KNPTV2 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV3 = ASSIGN/KNPTV2 - KNPTV1
KNPTV1 = ASSIGN/VUNIT(KNPTV3)
KNPTR1 = OBTAIN/FA(PT4)[1], 5
KNPTR2 = OBTAIN/FA(PT4)[1], 6
KNPTR3 = OBTAIN/FA(PT4)[1], 7
F(LN1) = FEAT/LINE, UNBND, CART, 0.000, 0.000, 0.000, VECX(KNPTV1), VECY(KNPTV1), VECZ(KNPTV1), KNPTR1, KNPTR2, KNPTR3
CONST/LINE, F(LN1), BF, FA(PT4), FA(PT5)
D(CRD1) =DATSET/FA(PLN1), ZDIR, ZORIG
D(CRD1) =ROTATE/ZAXIS, FA(LN1), XDIR
D(CRD1) =TRANS/YORIG, FA(LN1)
D(CRD1) =TRANS/XORIG, FA(PT6)
KNPTC1 =VALUE/SNSLCT
KNPTR1 =OBTAIN/SS(KNPTC1), 8
DPROBEZ =ASSIGN/(KNPTR1/2)
KNPTR1 = OBTAIN/FA(PT4)[1], 5
KNPTR2 = OBTAIN/FA(PT4)[1], 6
KNPTR3 = OBTAIN/FA(PT4)[1], 7
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV2 = ASSIGN/VCART(0,1,0)
IF/(VDOT(KNPTV1,KNPTV2) .GT. 0)DPROBEY = ASSIGN/(-DPROBEZ)
ELSEDPROBEY = ASSIGN/DPROBEZ
ENDIF
KNPTR1 = OBTAIN/FA(PT6)[1], 5
KNPTR2 = OBTAIN/FA(PT6)[1], 6
KNPTR3 = OBTAIN/FA(PT6)[1], 7
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV2 = ASSIGN/VCART(1,0,0)
IF/(VDOT(KNPTV1,KNPTV2) .GT. 0)DPROBEX = ASSIGN/(-DPROBEZ)
ELSEDPROBEX = ASSIGN/DPROBEZ
ENDIF
D(CRD1) =TRANS/XORIG, DPROBEX, YORIG, DPROBEY, ZORIG, -DPROBEZ
PRCOMP/ON
$$
RECALL/D(CRD1)
$$
TEXT/OPER, '请将测头移动到安全位置！'
$$
$$
$$$$
$$MODE/PROG,MANGOTO/-5, 35.000, -4.5DECL/COMMON,INTGR,IDECL/COMMON,INTGR,JDECL/COMMON,CHAR,255,C1$$  量块长度！！DECL/COMMON,DOUBLE,LK[6]$$   LK[1] = PROMPT/'请输入量块1长度！', 800, 50
$$   LK[2] = PROMPT/'请输入量块2长度！', 800, 50
$$   LK[3] = PROMPT/'请输入量块3长度！', 800, 50
$$   LK[4] = PROMPT/'请输入量块4长度！', 800, 50
$$   LK[5] = PROMPT/'请输入量块5长度！', 800, 50
$$   LK[6] = PROMPT/'请输入量块5长度！', 800, 50LK[1] = ASSIGN/500LK[2] = ASSIGN/400LK[3] = ASSIGN/300LK[4] = ASSIGN/200 LK[5] = ASSIGN/100LK[6] = ASSIGN/50$$  测量安全高度！！DECL/COMMON,DOUBLE,ZT$$ ZT = PROMPT/'请输入测量安全高度！', 100.000000, 10.000000ZT = ASSIGN/30$$  移动到安全位置！！GOTO/-5.000, ZT, -4.500F(DCC-1)=FEAT/POINT,CART,0.000,-5.000,-4.500,-1.000,0.000,-0.000
MEAS/POINT, F(DCC-1), 1PTMEAS/CART, 0.000,-5.000,-4.500,-1.000,0.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/-5.000, ZT, -4.500
GOTO/5.000, ZT, -4.500
F(DCC-2)=FEAT/POINT,CART,5.000,0.000,-4.500,0.000,1.000,0.000
MEAS/POINT, F(DCC-2), 1PTMEAS/CART, 5.000,0.000,-4.500,0.000,1.000,0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/5.000, ZT, -4.500
GOTO/5.000, ZT, 5.000
F(DCC-3)=FEAT/POINT,CART,5.000,-4.000,0.000,0.000,0.000,1.000
MEAS/POINT, F(DCC-3), 1PTMEAS/CART, 5.000,-4.000,0.000,0.000,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
F(DCC-4)=FEAT/POINT,CART,5.000,-10.000,0.000,0.000,0.000,1.000
MEAS/POINT, F(DCC-4), 1PTMEAS/CART, 5.000,-10.000,0.000,0.000,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/5.000, ZT, 5.000
GOTO/LK[1]-5, ZT, 5.000
F(DCC-5)=FEAT/POINT,CART,LK[1]-5,-10.000,0.000,0.000,0.000,1.000
MEAS/POINT, F(DCC-5), 1PTMEAS/CART, LK[1]-5,-10.000,0.000,0.000,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
F(DCC-6)=FEAT/POINT,CART,LK[1]-5,-4.000,0.000,0.000,0.000,1.000
MEAS/POINT, F(DCC-6), 1PTMEAS/CART, LK[1]-5,-4.000,0.000,0.000,0.000,1.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/LK[1]-5, ZT, 5.000
GOTO/LK[1]-5, ZT, -4.5F(DCC-7)=FEAT/POINT,CART,LK[1]-5,0.000,-4.500,0.000,1.000,0.000
MEAS/POINT, F(DCC-7), 1PTMEAS/CART, LK[1]-5,0.000,-4.500,0.000,1.000,0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/LK[1]-5, ZT, -4.500
GOTO/LK[1]+5, ZT, -4.500
F(PLN_BF1)=FEAT/PLANE,CART,LK[1]/2,-7.000,0.000,0.000,0.000,1.000
CONST/PLANE,F(PLN_BF1),BF,FA(DCC-3),FA(DCC-4),FA(DCC-5),FA(DCC-6)CALL/M(EASI_2PT_TO_LINE),(DCC-2),(DCC-7),(LN_BF1), 0.000, 1.000, 0.000
CONST/LINE,F(LN_BF1),BF,FA(DCC-2),FA(DCC-7)
D(CRD2) = DATSET/FA(PLN_BF1), ZDIR, ZORIG, FA(LN_BF1), XDIR, YORIG, FA(DCC-1), XORIG
D(CRD2) = TRANS/ZORIG, -0, YORIG, -0, XORIG, -0
RECALL/D(CRD2)
$$
$$
$$ Set.OutputCtrl.USERDF.Decpl.Nom(5)
$$ Set.OutputCtrl.USERDF.Decpl.Act(5)
$$ Set.OutputCtrl.USERDF.Decpl.Dev(5)
$$ Set.OutputCtrl.USERDF.Decpl.Tol(5)$$  请输入量块数量！DECL/COMMON,DOUBLE,KNKN = PROMPT/'请输入量块数量！', 10.000000, 1.000000DO/I,1,KN,1C1 = ASSIGN/CONCAT('量块长度为',STR(LK[I]))TEXT/OUTFIL, C1$$  评价距离公差，循环次数！！DECL/COMMON,INTGR,NUMNUM = PROMPT/'请输入循环次数！', 100, 3DECL/COMMON,REAL,T1[NUM]DECL/COMMON, DOUBLE, KNPTR1DECL/COMMON, DOUBLE, KNPTR2DECL/COMMON, DOUBLE, KNPTR3DECL/COMMON,DOUBLE,Z_MAX,Z_MINDECL/COMMON, DOUBLE,AVERAGDECL/COMMON,DOUBLE,V1DECL/COMMON,CHAR,255,C2DECL/COMMON,CHAR,255,C3DECL/COMMON,CHAR,255,C4DO/J,1,NUM,1C4 = ASSIGN/CONCAT('TDST1','-',STR(J))GOTO/LK[I]+10, ZT, -4.500F(TEST-1)=FEAT/POINT,CART,LK[I],-5.000,-4.500,1.000,0.000,0.000
MEAS/POINT, F(TEST-1), 1PTMEAS/CART, LK[I],-5.000,-4.500,1.000,0.000,0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/LK[I]+5, ZT, -4.500
GOTO/-5.000,ZT, -4.500
F(TEST-2)=FEAT/POINT,CART,0.000,-5.000,-4.500,-1.000,0.000,-0.000
MEAS/POINT, F(TEST-2), 1PTMEAS/CART, 0.000,-5.000,-4.500,-1.000,0.000,-0.000, APPRCH, 3.000000, RETRCT, 3.000000
ENDMES
GOTO/-5.000, ZT, -4.500$$  KNPTR1 = PROMPT/'请输入探测误差！', 5.000000, 0.300000KNPTR1 = ASSIGN/2KNPTR2 = ASSIGN/(2+LK[I]/300)/1000$$  300需要更改为需要的数值！T(@C4)=TOL/DISTB,NOMINL,LK[I],-KNPTR2,KNPTR2,XAXIS,AVGOUTPUT/FA(TEST-1),FA(TEST-2),TA(@C4)T1[J]= VALUE/TA(@C4),ACTENDDOZ_MAX= ASSIGN/T1[1]Z_MIN= ASSIGN/T1[1]AVERAG= ASSIGN/T1[1]DO/J,1,NUM,1IF/(T1[J].GT.Z_MAX)Z_MAX = ASSIGN/T1[J]ENDIFIF/(T1[J].LT.Z_MIN)Z_MIN= ASSIGN/T1[J]ENDIFENDDODO/J,2,NUM,1AVERAG= ASSIGN/(AVERAG+T1[J])ENDDOKNPTR3 = ASSIGN/Z_MAX-Z_MINC2= ASSIGN/CONCAT('重复性误差为;',STR(KNPTR3))TEXT/OUTFIL,C2V1 = ASSIGN/AVERAG/NUMC3 = ASSIGN/CONCAT('实测平均值：',STR(V1))TEXT/OUTFIL, C3D(CRD3) = TRANS/XORIG, 0, YORIG, 0, ZORIG, -19RECALL/D(CRD3)ENDDO

RationalDMIS 7.0量块程序（力合）相关推荐

RationalDMIS 7.1 量块程序 2020
DMISMN/'Created by [山涧果子] on 星期六, 九月 15, 2018', 4.0 UNITS/MM, ANGDEC, MMPS WKPLAN/XYPLAN PRCOMP/ON T ...
RationalDMIS 2020 高级编程之量块程序示例2021（山涧果子）
#山涧果子# DECL/LOCAL, REAL, LPNUM,HEIGHT, TOLERROR DECL/LOCAL, CHAR, 20, BARAXIS,PROB,ANS DECL/COMMON,D ...
AC-DMIS 5.6量块程序 2020
INITSAVE-COORSYS("INIT")!V40 绕行路径:左1右2上3!V41 前端避让距离>=1MM!V42 侧面避让距离>=20MM!V43 后端避让距离 ...
次坐标从0开始_三坐标测量机安全使用+量块校准操作规程
知识点: CMM校准依据: <JJF1064-2010坐标测量机校准规范>(基本等同于ISO10360)标准器:尺寸实物标准器.检测球.二维靶标. 校准项目: (1)尺寸测量误差校准对 ...
修正牛顿法编程python_GitHub - Maples7/newtonMethod: 牛顿法求解复数域上x^4-1=0收敛域的程序 using Python...
newtonMethod 牛顿法求解复数域上x^4-1=0收敛域的程序 using Python [总体分析] 1.牛顿法本质上是关于迭代求解非线性方程解的方法,而迭代是为了不断逼近精确解.牛顿法迭代 ...
HDFS全量块汇报(FBR)的限流机制
文章目录前言 HDFS全量块汇报(FBR)的性能问题 NameNode的FBR限流机制 BR Lease的管理控制基于BR Lease的FBR限流逻辑引用前言众所周知在HDFS中,DataN ...
Java黑皮书课后题第3章：*3.1（代数：解一元二次方程）可以使用下面的公式求一元二次方程ax2+bx+c=0，编写程序提示用户输入a b c的值，并显示基于判断式的结果
*3.1(代数:解一元二次方程)可以使用下面的公式求一元二次方程ax2+bx+c=0,编写程序提示用户输入a b c的值,并显示基于判断式的结果题目题目描述运行示例破题代码题目题目描述 ...
51单片机外部中断实验设置中断优先级寄存器，当有外部中断0请求中断时，中断程序执行发光二极管程序，在此过程中，外部中断1也有中断请求，外部中断0的中断程序将被中断去执行外部中断1的中断程序（数码管
设置中断优先级寄存器,当有外部中断0请求中断时,中断程序执行发光二极管程序,在此过程中,外部中断1也有中断请求,外部中断0的中断程序将被中断去执行外部中断1的中断程序(数码管加1显示程序). #inc ...
VC6.0建立控制台程序实现PDA应用
作者:iamlaosong 由于须要,又写起了文本界面的程序,以便PDA通过telnet连上运行. 假设是Linuxserver的话.这是非常easy的事,但是用户server是windows ser ...

RationalDMIS 7.0量块程序（力合）

RationalDMIS 7.0量块程序（力合）相关推荐

最新文章

热门文章