RationalDMIS 2020快速输出极半径和极角

方法一：极坐标系下输出

DMESW/COMAND,'CrdType/Pol'
WKPLAN/XYPLAN$$ Set.OutputCtrl.Circle(XY)
OUTPUT/FA(J-1)
OUTPUT/FA(J-2)
OUTPUT/FA(J-3)
OUTPUT/FA(J-4)
OUTPUT/FA(J-5)
OUTPUT/FA(J-6)

方法二：坐标公差评价极半径和极角

T(TCOR1)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-1),TA(TCOR1)
T(TCOR2)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-1),TA(TCOR2)
T(TCOR3)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-2),TA(TCOR3)
T(TCOR4)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-2),TA(TCOR4)
T(TCOR5)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-3),TA(TCOR5)
T(TCOR6)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-3),TA(TCOR6)
T(TCOR7)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-4),TA(TCOR7)
T(TCOR8)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-4),TA(TCOR8)
T(TCOR9)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-5),TA(TCOR9)
T(TCOR10)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-5),TA(TCOR10)
T(TCOR11)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-6),TA(TCOR11)
T(TCOR12)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-6),TA(TCOR12)

$$/*  Header
DMISMN/'Created by [山涧果子] on 星期六, 九月 11, 2021', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
RECALL/D(MCS)
SNSLCT/S(L30D2)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
$$*/
MODE/MAN
F(PLN1)=FEAT/PLANE,CART,-3.6253,-2.8493,0.0000,0.0000,0.0000,1.0000
$$ Measurement points are created through nominal points
MEAS/PLANE, F(PLN1), 4PTMEAS/CART, -32.8054,  17.0397, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART, -20.2853, -28.5606, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART,  19.2492, -26.6776, 0.0000, 0.0000, 0.0000, 1.0000PTMEAS/CART,  19.3405,  26.8013, 0.0000, 0.0000, 0.0000, 1.0000
ENDMES
D(CRD1) = DATSET/FA(PLN1), ZDIR, ZORIG
D(CRD1) = TRANS/ZORIG, -0
F(CIR1)=FEAT/CIRCLE,INNER,CART,0.0000,25.0000,-1.4630,0.0000,0.0000,1.0000, 10.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR1), 4PTMEAS/CART, -4.6338, 23.1218, -1.0538,  0.9268,  0.3756,  0.0000PTMEAS/CART, -1.1223, 29.8724, -1.7428,  0.2245, -0.9745,  0.0000PTMEAS/CART,  4.5245, 27.1282, -2.0158, -0.9049, -0.4256, -0.0000PTMEAS/CART, -0.1244, 20.0015, -1.0397,  0.0249,  0.9997,  0.0000
ENDMES
F(CIR2)=FEAT/CIRCLE,INNER,CART,0.0000,-25.0000,-1.7980,0.0000,0.0000,1.0000, 10.0000
$$ Measurement points are created through nominal points
MEAS/CIRCLE, F(CIR2), 4PTMEAS/CART, -0.6144, -20.0379, -2.2565,  0.1229, -0.9924, 0.0000PTMEAS/CART,  4.9054, -24.0320, -1.7616, -0.9811, -0.1936, 0.0000PTMEAS/CART,  0.6315, -29.9600, -1.7983, -0.1263,  0.9920, 0.0000PTMEAS/CART, -4.4732, -27.2339, -1.3757,  0.8946,  0.4468, 0.0000
ENDMES
DMESW/COMAND,'CrdType/Pol'
WKPLAN/XYPLAN
F(CIR1)=FEAT/CIRCLE,INNER,POL,25.0000,90.0000,-1.4630,0.0000,0.0000,1.0000, 10.0000
F(CIR2)=FEAT/CIRCLE,INNER,POL,25.0000,270.0000,-1.7980,0.0000,0.0000,1.0000, 10.0000
DMESW/COMAND,'D(CRD2) = LOCATE/XYDIR, ZAXIS, $FA(CIR1), XYZAXI, $FA(CIR2), XYZAXI'
$$ Set.CAD2PCS.CADM_1
MODE/PROG,MAN
$$ MACRO: EASI_CLEARPLN_GOTO
$$ FUNCTION: CLEARANCE SURFACE IMPLEMENTATION
$$      Move machine CLEAR SURFACE DIST above the current clear surface
$$      plane and then move machine parallel to the clear surface plane
$$      ALL Macro parameters are in PCS and Current UNITS
$$      Last update: 3-1-04 Add mode checking. only works in PROG MODE
$$      Last update: 8-24-04 Clear position is based on the surface of
$$
$$ This sample DMIS Macro is provided by External-Array Software, Inc.
$$ It should be modified for your own use. There is no guarantee for
$$ the quality of this Macro. November, 2003M(EASI_CLEARPLN_GOTO) = MACRO/ISNOM, TARX, TARY, TARZDECL/LOCAL, REAL, CCX, CCY, CCZ, CCI, CCJ, CCKDECL/LOCAL, REAL, CURX, CURY, CURZ, TD, CLRDIST, SDIAMDECL/LOCAL, CHAR, 255, CLRLABEL, FLABEL, MMODE, SNAMEMMODE = VALUE/MODECLRLABEL = VALUE/SNSET, CLRSRFIF/ ( (LEN(CLRLABEL) .GT. 0) .AND. (MMODE .EQ. 'PROG,MAN') )CLRDIST = VALUE/SNSET, CLRSRF, DISTFLABEL = ASSIGN/'FA'IF/ ISNOM .EQ. 0FLABEL = ASSIGN/'F'ENDIFCCX = OBTAIN/FLABEL(@CLRLABEL), 3CCY = OBTAIN/FLABEL(@CLRLABEL), 4CCZ = OBTAIN/FLABEL(@CLRLABEL), 5CCI = OBTAIN/FLABEL(@CLRLABEL), 6CCJ = OBTAIN/FLABEL(@CLRLABEL), 7CCK = OBTAIN/FLABEL(@CLRLABEL), 8SNAME = VALUE/SNSLCTSDIAM = OBTAIN/SS(SNAME), 8CCX = ASSIGN/CCX + CCI * SDIAM/2CCY = ASSIGN/CCY + CCJ * SDIAM/2CCZ = ASSIGN/CCZ + CCK * SDIAM/2CURX = VALUE/GOTOM, XAXISCURY = VALUE/GOTOM, YAXISCURZ = VALUE/GOTOM, ZAXISTD = ASSIGN/(CURX - CCX) * CCI + (CURY - CCY) * CCJ + (CURZ - CCZ) * CCKIF/ TD .LT. CLRDISTTD = ASSIGN/(CLRDIST - TD)GOTO/CURX+CCI*TD, CURY+CCJ*TD, CURZ+CCK*TDENDIFTD = ASSIGN/(TARX - CCX) * CCI + (TARY - CCY) * CCJ + (TARZ - CCZ) * CCKIF/ TD .LT. CLRDISTTD = ASSIGN/(CLRDIST - TD)GOTO/TARX+CCI*TD, TARY+CCJ*TD, TARZ+CCK*TDENDIFENDIFENDMAC
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, FA(PLN1), 20.0000
F(J-1)=FEAT/CIRCLE,INNER,CART,21.6506,12.5000,-3.0000,0.0000,0.0000,1.0000, 10.0000
F(J-2)=FEAT/CIRCLE,INNER,CART,-0.0000,25.0000,-3.0000,0.0000,0.0000,1.0000, 10.0000
F(J-3)=FEAT/CIRCLE,INNER,CART,-21.6506,12.5000,-3.0000,0.0000,0.0000,1.0000, 10.0000
F(J-4)=FEAT/CIRCLE,INNER,CART,-21.6506,-12.5000,-3.0000,0.0000,0.0000,1.0000, 10.0000
F(J-5)=FEAT/CIRCLE,INNER,CART,-0.0000,-25.0000,-3.0000,0.0000,0.0000,1.0000, 10.0000
F(J-6)=FEAT/CIRCLE,INNER,CART,21.6506,-12.5000,-3.0000,0.0000,0.0000,1.0000, 10.0000
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 21.6514, 10.5000, 21.0000
MEAS/CIRCLE, F(J-1), 4GOTO/CART,   21.6514, 10.5000, 21.0000PTMEAS/CART, 21.6526,  7.5000, -3.0000, -0.0004,  1.0000, 0.0000GOTO/CART,   22.4167, 10.6525, -3.0000GOTO/CART,   23.0654, 11.0863, -3.0000GOTO/CART,   23.4987, 11.7354, -3.0000PTMEAS/CART, 26.6506, 12.5019, -3.0000, -1.0000, -0.0004, 0.0000GOTO/CART,   23.4981, 13.2661, -3.0000GOTO/CART,   23.0643, 13.9148, -3.0000GOTO/CART,   22.4153, 14.3481, -3.0000PTMEAS/CART, 21.6487, 17.5000, -3.0000,  0.0004, -1.0000, 0.0000GOTO/CART,   20.8845, 14.3475, -3.0000GOTO/CART,   20.2359, 13.9137, -3.0000GOTO/CART,   19.8026, 13.2646, -3.0000PTMEAS/CART, 16.6506, 12.4981, -3.0000,  1.0000,  0.0004, 0.0000GOTO/CART,   19.6506, 12.4992, 21.0000
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 1.0417, 23.2927, 21.0000
MEAS/CIRCLE, F(J-2), 4GOTO/CART,    1.0417, 23.2927, 21.0000PTMEAS/CART,  2.6042, 20.7317, -3.0000, -0.5208,  0.8537, 0.0000GOTO/CART,    1.6157, 23.8213, -3.0000GOTO/CART,    1.9438, 24.5293, -3.0000GOTO/CART,    1.9760, 25.3090, -3.0000PTMEAS/CART,  4.2683, 27.6042, -3.0000, -0.8537, -0.5208, 0.0000GOTO/CART,    1.1787, 26.6157, -3.0000GOTO/CART,    0.4707, 26.9438, -3.0000GOTO/CART,   -0.3090, 26.9760, -3.0000PTMEAS/CART, -2.6042, 29.2683, -3.0000,  0.5208, -0.8537, 0.0000GOTO/CART,   -1.6157, 26.1787, -3.0000GOTO/CART,   -1.9438, 25.4707, -3.0000GOTO/CART,   -1.9760, 24.6910, -3.0000PTMEAS/CART, -4.2683, 22.3958, -3.0000,  0.8537,  0.5208, 0.0000GOTO/CART,   -1.7073, 23.9583, 21.0000
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, -19.8843, 11.5620, 21.0000
MEAS/CIRCLE, F(J-3), 4GOTO/CART,   -19.8843, 11.5620, 21.0000PTMEAS/CART, -17.2347, 10.1549, -3.0000, -0.8832,  0.4690, 0.0000GOTO/CART,   -19.6597, 12.3093, -3.0000GOTO/CART,   -19.7383, 13.0857, -3.0000GOTO/CART,   -20.1080, 13.7729, -3.0000PTMEAS/CART, -19.3055, 16.9159, -3.0000, -0.4690, -0.8832, 0.0000GOTO/CART,   -21.4600, 14.4909, -3.0000GOTO/CART,   -22.2364, 14.4123, -3.0000GOTO/CART,   -22.9236, 14.0426, -3.0000PTMEAS/CART, -26.0666, 14.8451, -3.0000,  0.8832, -0.4690, 0.0000GOTO/CART,   -23.6415, 12.6907, -3.0000GOTO/CART,   -23.5629, 11.9143, -3.0000GOTO/CART,   -23.1932, 11.2271, -3.0000PTMEAS/CART, -23.9957,  8.0841, -3.0000,  0.4690,  0.8832, 0.0000GOTO/CART,   -22.5887, 10.7336, 21.0000
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, -19.6528, -12.4077, 21.0000
MEAS/CIRCLE, F(J-4), 4GOTO/CART,   -19.6528, -12.4077, 21.0000PTMEAS/CART, -16.6560, -12.2694, -3.0000, -0.9989, -0.0461, 0.0000PTMEAS/CART, -21.8813,  -7.5053, -3.0000,  0.0461, -0.9989, 0.0000PTMEAS/CART, -26.6453, -12.7306, -3.0000,  0.9989,  0.0461, 0.0000PTMEAS/CART, -21.4200, -17.4947, -3.0000, -0.0461,  0.9989, 0.0000GOTO/CART,   -21.5584, -14.4979, 21.0000
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 1.6620, -23.8874, 21.0000
MEAS/CIRCLE, F(J-5), 4GOTO/CART,    1.6620, -23.8874, 21.0000PTMEAS/CART,  4.1549, -22.2185, -3.0000, -0.8310, -0.5563, 0.0000GOTO/CART,    1.1097, -23.3361, -3.0000GOTO/CART,    0.3885, -23.0381, -3.0000GOTO/CART,   -0.3919, -23.0388, -3.0000PTMEAS/CART, -2.7815, -20.8451, -3.0000,  0.5563, -0.8310, 0.0000GOTO/CART,   -1.6639, -23.8903, -3.0000GOTO/CART,   -1.9619, -24.6115, -3.0000GOTO/CART,   -1.9612, -25.3919, -3.0000PTMEAS/CART, -4.1549, -27.7815, -3.0000,  0.8310,  0.5563, 0.0000GOTO/CART,   -1.1097, -26.6639, -3.0000GOTO/CART,   -0.3885, -26.9619, -3.0000GOTO/CART,    0.3919, -26.9612, -3.0000PTMEAS/CART,  2.7815, -29.1549, -3.0000, -0.5563,  0.8310, 0.0000GOTO/CART,    1.1126, -26.6620, 21.0000
ENDMES
$$ Measurement points are created through nominal points
$$ CALL/M(EASI_CLEARPLN_GOTO), 1, 21.6596, -10.5000, 21.0000
MEAS/CIRCLE, F(J-6), 4GOTO/CART,   21.6596, -10.5000, 21.0000PTMEAS/CART, 21.6730,  -7.5001, -3.0000, -0.0045, -1.0000, 0.0000PTMEAS/CART, 16.6507, -12.4776, -3.0000,  1.0000, -0.0045, 0.0000PTMEAS/CART, 21.6282, -17.4999, -3.0000,  0.0045,  1.0000, 0.0000PTMEAS/CART, 26.6506, -12.5224, -3.0000, -1.0000,  0.0045, 0.0000GOTO/CART,   23.6506, -12.5090, 21.0000
ENDMES
DMESW/COMAND,'CrdType/Pol'
WKPLAN/XYPLAN$$ Set.OutputCtrl.Circle(XY)
OUTPUT/FA(J-1)
OUTPUT/FA(J-2)
OUTPUT/FA(J-3)
OUTPUT/FA(J-4)
OUTPUT/FA(J-5)
OUTPUT/FA(J-6)
T(TCOR1)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-1),TA(TCOR1)
T(TCOR2)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-1),TA(TCOR2)
T(TCOR3)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-2),TA(TCOR3)
T(TCOR4)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-2),TA(TCOR4)
T(TCOR5)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-3),TA(TCOR5)
T(TCOR6)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-3),TA(TCOR6)
T(TCOR7)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-4),TA(TCOR7)
T(TCOR8)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-4),TA(TCOR8)
T(TCOR9)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-5),TA(TCOR9)
T(TCOR10)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-5),TA(TCOR10)
T(TCOR11)=TOL/CORTOL,RADIAL,-0.0300,0.0300
OUTPUT/FA(J-6),TA(TCOR11)
T(TCOR12)=TOL/CORTOL,ANGLE,-0.0300,0.0300
OUTPUT/FA(J-6),TA(TCOR12)

Polar Basics:Code:
DMESW/COMAND,'CrdType/Pol'
WKPLAN/XYPLAN
$$ Set.OutputCtrl.Circle(XY)
OUTPUT/FA(CIR1)
Radial and Angular dimensioning:Code:
$$ Radial Angle
T(TOLA1)=TOL/CORTOL,ANGLE,-0.5000,0.5000
OUTPUT/FA(CIR2),TA(TOLA1)$$ Radial Distance
T(TOLR1)=TOL/CORTOL,RADIAL,-0.0050,0.0050
OUTPUT/FA(CIR2),TA(TOLR1)

RationalDMIS 2020快速输出极半径和极角相关推荐

RationalDMIS 2020 快速学习DMIS程序制作
RationalDMIS本身使用DMIS5.0作为内部测量编程语言,在RationalDMIS中创建的DMIS语言在运行时不需要进行转换. 在本节我们只介绍如何创建一段简单的DMIS程序,对于详细的D ...
ae导出gif插件_AE脚本-一键快速输出GIF动图格式插件脚本 GifGun 1.7.15 Win/Mac 支持AE 2020...
[脚本简介] 还记得以前AE能直接输出GIF动画格式,但软件更新到 AE CS5 后就取消了直接输出GIF的功能,其实很多时候还是会用到输出GIF格式的这个格式.GifGun 脚本可以一键输出G ...
得到app文稿导出_得到app学习笔记作为知识付费者，如何把所学内容快速输出？...
原标题:得到app学习笔记作为知识付费者,如何把所学内容快速输出? 零.引子昨天看到老公票圈更新了一条段子: 我就是那个伪勤奋者,在知识焦虑的胁迫下,这些年买了不知多少视频.微课.教程还有得到专栏. ...
计算机数据表格展示,利用工具，一分钟完成数据可视化，快速输出美观的数据图表...
天天跟表格打交道的办公室的表哥表妹,为了能让老板看的更一目了然,可以说是费时费力. 今天小姐姐给大家分享一下如何利用工具,一分钟完成数据可视化,快速输出美观的数据图表. [新手们必须收藏转发呀] 为什 ...
算法笔记（3）—— 快速 I/O 算法：快速输入算法、快速输出算法
I/O(英语:Input/Output),即输入/输出,通常指数据在内部存储器和外部存储器或其他周边设备之间的输入和输出,在算法竞赛里面一般指的就是控制台(那个黑窗口)里面的输入与输出,平时我们或许并 ...
ae导出gif插件_AE脚本：快速输出GIF动图格式插件脚本 Aescaripts GifGun 1.7 Win/Mac
[脚本简介] 还记得以前AE能直接输出GIF动画格式,但软件更新到 AE CS5 后就取消了直接输出GIF的功能, 其实很多时候还是会用到输出GIF格式的这个格式, GifGun 脚本可以一键输出GI ...
GifGun for Mac(AE快速输出GIF动图格式插件)
GifGun for Mac是一款安装在After Effects中使用的AE快速输出GIF动图格式插件,你可以使用gifgun插件直接输出GIF动画格式,支持自定义GIF文件的大小.帧数率等各种属性 ...
ae导出gif插件_GifGun(AE快速输出GIF动图格式插件)V1.7.8 免费版
GifGun(AE快速输出GIF动图格式插件)是一款很优秀好用的After Effects插件.这款GifGun插件功能强大全面,简单易用,使用后可以帮助用户更轻松便捷的快速输出GIF动图格式.使用G ...
得到app文稿导出_得到app：作为知识付费者，如何把所学内容快速输出？
零.引子昨天看到老公票圈更新了一条段子: 我就是那个伪勤奋者,在知识焦虑的胁迫下,这些年买了不知多少视频.微课.教程还有得到专栏. 这一年来我订阅的得到专栏不知不觉我订阅了17个得到专栏,每天听本 ...

RationalDMIS 2020快速输出极半径和极角

方法一：极坐标系下输出

方法二：坐标公差评价极半径和极角

RationalDMIS 2020快速输出极半径和极角相关推荐

最新文章

热门文章