RationalDMIS5.2版本以下圆形（环形）平面自动测量

山涧果子

16小时前浏览1

提示：
主要是解决RationalDMIS5.2版本以下圆形（环形）平面自动测量，或平面使用圆形触测。

DMISMN/'Created by [山涧果子] on 星期日, 十月 22, 2017', 4.0

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.000

MODE/PROG, MAN

SNSET/APPRCH, 3.000

SNSET/RETRCT, 3.000

SNSET/DEPTH, 0.000

SNSET/SEARCH, 10.000

SNSET/CLRSRF, 30.000

RECALL/D(MCS)

SNSLCT/S(LENOVO)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

MODE/PROG,MAN

F(PLN1) = FEAT/PLANE,CART, 31.250, 46.788, 35.000, 0.000, 0.000, 1.000

F(CIR1) = FEAT/CIRCLE,INNER,CART, 40.000, 55.000, 35.000, 0.000, 0.000,$

1.000, 45.000

F(PT1) = FEAT/POINT,CART, 62.500, 55.000, 35.000, -1.000, 0.000, 0.000

F(PT1) = FEAT/POINT,CART, 62.500, 55.000, 35.000, 0.000, 0.000, 1.000

F(PT_MOVE1) = FEAT/POINT,CART, 65.500, 55.000, 35.000, 0.000, 0.000, 1.000

F(PT_COPY1) = FEAT/POINT,CART, 52.750, 77.084, 35.000, 0.000, 0.000, 1.000

F(PT_COPY2) = FEAT/POINT,CART, 27.250, 77.084, 35.000, 0.000, 0.000, 1.000

F(PT_COPY3) = FEAT/POINT,CART, 14.500, 55.000, 35.000, 0.000, 0.000, 1.000

F(PT_COPY4) = FEAT/POINT,CART, 27.250, 32.916, 35.000, -0.000, 0.000, 1.000

F(PT_COPY5) = FEAT/POINT,CART, 52.750, 32.916, 35.000, -0.000, 0.000, 1.000

F(PT_COPY6) = FEAT/POINT,CART, 65.500, 55.000, 35.000, -0.000, 0.000, 1.000

$$ Empty Meas Block

MEAS/PLANE, F(PLN1), 6

PTMEAS/CART, 52.750, 77.084, 35.000, 0.000, 0.000, 1.000

PTMEAS/CART, 27.250, 77.084, 35.000, 0.000, 0.000, 1.000

PTMEAS/CART, 14.500, 55.000, 35.000, 0.000, 0.000, 1.000

PTMEAS/CART, 27.250, 32.916, 35.000, -0.000, 0.000, 1.000

PTMEAS/CART, 52.750, 32.916, 35.000, -0.000, 0.000, 1.000

PTMEAS/CART, 65.500, 55.000, 35.000, -0.000, 0.000, 1.000

ENDMES

来源：山涧果子

RationalDMIS循环测量案例

$ $声明中使用跳转语句“JUMPTO”。$ $_____________________________________________$ $$ $这些代码可以联机和离线运行。DMISMN/'Created by [山涧果子] on 星期日, 十一月 05, 2017', 4.0UNITS/MM, ANGDECWKPLAN/XYPLANPRCOMP/ONTECOMP/ONFLY/1.000MODE/MANSNSET/APPRCH, 3.000SNSET/RETRCT, 3.000SNSET/DEPTH, 0.000SNSET/SEARCH, 10.000SNSET/CLRSRF, 30.000RECALL/D(MCS)SNSLCT/S(LENOVO)GEOALG/CIRCLE, LSTSQRGEOALG/ARC, LSTSQRGEOALG/PLANE, LSTSQR$$$$MODE/PROG,MAN$$ LoopDECL/COMMON,INTGR,IDECL/COMMON,CHAR,255,C1I=ASSIGN/0(LOOP)I=ASSIGN/I+1IF/(I.GT.10) TEXT/OPER,'测量圆结束,退出测量！' JUMPTO/(END_LOOP) ENDIFC1 = ASSIGN/CONCAT('J','-',STR(I))F(@C1) = FEAT/CIRCLE,INNER,CART, 40.000, 55.000, 33.000, 0.000, 0.000,$ 1.000, 45.000$$ Measurement points are created through nominal pointsMEAS/CIRCLE, F(@C1), 4 PTMEAS/CART, 26.766, 36.803, 33.000, 0.588, 0.809, -0.000 GOTO/CART, 35.673, 37.013, 35.000 GOTO/CART, 42.885, 36.726, 35.000 GOTO/CART, 49.659, 39.222, 35.000 PTMEAS/CART, 58.197, 41.766, 33.000, -0.809, 0.588, -0.000 GOTO/CART, 57.987, 50.673, 35.000 GOTO/CART, 58.274, 57.885, 35.000 GOTO/CART, 55.778, 64.659, 35.000 PTMEAS/CART, 53.234, 73.197, 33.000, -0.588, -0.809, 0.000 GOTO/CART, 44.327, 72.987, 33.000 GOTO/CART, 37.115, 73.274, 33.000 GOTO/CART, 30.341, 70.778, 33.000 PTMEAS/CART, 21.803, 68.234, 33.000, 0.809, -0.588, 0.000ENDMES TEXT/OPER,CONCAT('已测量',STR(I),'次!')JUMPTO/(LOOP)(END_LOOP)ENDFIL来源：山涧果子