RationalDMIS 托盘测量

要求:批量测量托盘上的同类型工件12个
 

工件特点 :工件XY方向等距，X方向间距：10， Y方向间距：20

DMISMN/'Created by [爱科腾瑞(CNC).12.9] on 星期四, 九月 15, 2016', 4.0

UNITS/MM, ANGDEC

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.0

MODE/PROG, MAN

SNSET/APPRCH, 3.000000

SNSET/RETRCT, 3.000000

SNSET/DEPTH, 0.000000

SNSET/SEARCH, 10.000000

SNSET/CLRSRF, 20.000000

RECALL/D(MCS)

SNSLCT/S(PH10T)

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

$$

$$

(L1)

MODE/MAN

F(PLN1) = FEAT/PLANE,CART, -80.000000, -127.500161, 0.000000, -0.000000,$

-0.000000, -1.000000

$$ Empty Meas Block

MEAS/PLANE, F(PLN1), 4

ENDMES

F(LN1) = FEAT/LINE,BND,CART, 0.000000, -0.000000, 0.000000, -0.000000,$

-30.000000, 0.000000, 1.000000, 0.000000, 0.000000

$$ Empty Meas Block

MEAS/LINE, F(LN1), 2

ENDMES

F(LN2) = FEAT/LINE,BND,CART, 0.000000, -0.000000, 0.000000, -35.000000,$

0.000000, 0.000000, 0.000000, 1.000000, -0.000000

$$ Empty Meas Block

MEAS/LINE, F(LN2), 2

ENDMES

F(PT_INTER1) = FEAT/POINT,CART, 0.000000, -0.000000, 0.000000, 0.000000,$

0.000000, -1.000000

CONST/POINT, F(PT_INTER1), INTOF, FA(LN1), FA(LN2)

OUTPUT/FA(PT_INTER1), TA(XCTL), TA(YCTL), TA(ZCTL)

D(CRD1) = DATSET/FA(PLN1), -ZDIR, FA(LN1), -YDIR, FA(PT_INTER1), YORIG

D(CRD1) = TRANS/ZORIG, FA(PLN1), XORIG, FA(PT_INTER1), YORIG, -0

$$ Set.CAD2PCS.CADM_1

$$ Set.CADViewCenter.CADM_1

DECL/COMMON,CHAR,255,C1

C1 = PROMPT/'请输入字符！！'

IF/(C1.EQ.'Y')

JUMPTO/(L1)

ENDIF

TEXT/OPER, 'DCC测量开始！！！'

MODE/PROG,MAN

SNSET/APPRCH, 3.0000

SNSET/RETRCT, 3.0000

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, 20.0000

DECL/COMMON,INTGR,I,J

DECL/COMMON,INTGR,V1,V2,V3,V4

$$ V1 = PROMPT/TEXT, '工件测量行数！！'

V1 = ASSIGN/3

$$ V2 = PROMPT/TEXT, '工件测量列数！！'

V2 = ASSIGN/4

$$ V3 = PROMPT/TEXT, '工件X轴向间距！！！'

V3 = ASSIGN/10

$$ V4 = PROMPT/TEXT, '工件Y轴向间距！！！'

V4 = ASSIGN/20

DO/I,1,3,1

 DO/J,1,4,1

RECALL/D(CRD1)

D(CRD2) = TRANS/XORIG, 10*(J-1), YORIG, 20*(I-1)

F(PLN2) = FEAT/PLANE,CART, -60.000000, -127.500161, 0.000000, -0.000000,$

-0.000000, -1.000000

$$ Measurement points are created through nominal points

MEAS/PLANE, F(PLN2), 4

  GOTO/CART,  -120.000000, 0.000000, -21.000000

  PTMEAS/CART,  -120.000000, 0.000000, 0.000000, 0.000000, 0.000000, -1.000000

  PTMEAS/CART,  -120.000000, -170.000214, 0.000000, 0.000000, 0.000000,$

-1.000000

  PTMEAS/CART,  0.000000, -170.000214, 0.000000, 0.000000, 0.000000, -1.000000

  PTMEAS/CART,  0.000000, 0.000000, 0.000000, 0.000000, 0.000000, -1.000000

  GOTO/CART,  0.000000, 0.000000, -21.000000

ENDMES

F(LN3) = FEAT/LINE,BND,CART, -0.000000, -50.000000, 0.000000, -0.000000,$

-170.000214, 0.000000, 1.000000, 0.000000, 0.000000

$$ Measurement points are created through nominal points

MEAS/LINE, F(LN3), 2

  GOTO/CART,  21.000000, -51.500000, 0.000000

  PTMEAS/CART,  -0.000000, -51.500000, 0.000000, 1.000000, 0.000000, 0.000000

  PTMEAS/CART,  -0.000000, -168.500214, 0.000000, 1.000000, 0.000000, 0.000000

  GOTO/CART,  21.000000, -168.500214, 0.000000

ENDMES

F(LN4) = FEAT/LINE,BND,CART, -85.000000, 0.000000, 0.000000, -120.000000,$

0.000000, 0.000000, 0.000000, 1.000000, -0.000000

$$ Measurement points are created through nominal points

MEAS/LINE, F(LN4), 2

  GOTO/CART,  -86.500000, 21.000000, -0.000003

  PTMEAS/CART,  -86.500000, 0.000000, 0.000000, 0.000000, 1.000000, -0.000000

  PTMEAS/CART,  -118.500000, 0.000000, 0.000000, 0.000000, 1.000000, -0.000000

  GOTO/CART,  -118.500000, 21.000000, -0.000003

ENDMES

F(PT_INTER2) = FEAT/POINT,CART, 0.000000, 0.000000, 0.000000, -0.000000,$

-0.000000, -1.000000

CONST/POINT, F(PT_INTER2), INTOF, FA(LN3), FA(LN4)

OUTPUT/FA(PT_INTER2), TA(XCTL), TA(YCTL), TA(ZCTL)

D(CRD2) = DATSET/FA(PLN2), -ZDIR, FA(LN3), -YDIR, FA(PT_INTER2), YORIG

D(CRD2) = TRANS/ZORIG, FA(PLN2), XORIG, FA(PT_INTER2), YORIG, -0

$$ Set.CAD2PCS.CADM_1

$$ Set.CADViewCenter.CADM_1

TEXT/OPER, '测量特征元素开始！！！！'

F(CIR1) = FEAT/CIRCLE,INNER,CART, -60.000000, -39.000000, 0.000000,$

-0.000000, 0.000000, -1.000000, 16.400000

$$ Measurement points are created through nominal points

MEAS/CIRCLE, F(CIR1), 4

  GOTO/CART,  -56.224719, -37.159551, -21.000000

  PTMEAS/CART,  -52.629213, -35.406742, 0.000000, -0.898876, -0.438202,$

-0.000000

  GOTO/CART,  -55.807786, -38.744384, 0.000000

  GOTO/CART,  -56.029079, -40.368132, 0.000000

  GOTO/CART,  -56.854909, -41.783595, 0.000000

  PTMEAS/CART,  -56.406742, -46.370787, 0.000000, -0.438202, 0.898876, 0.000000

  GOTO/CART,  -59.744384, -43.192214, 0.000000

  GOTO/CART,  -61.368132, -42.970921, 0.000000

  GOTO/CART,  -62.783595, -42.145091, 0.000000

  PTMEAS/CART,  -67.370787, -42.593258, 0.000000, 0.898876, 0.438202, 0.000000

  GOTO/CART,  -64.192214, -39.255616, 0.000000

  GOTO/CART,  -63.970921, -37.631868, 0.000000

  GOTO/CART,  -63.145091, -36.216405, 0.000000

  PTMEAS/CART,  -63.593258, -31.629213, 0.000000, 0.438202, -0.898876, -0.000000

  GOTO/CART,  -61.840449, -35.224719, -21.000000

ENDMES

F(PT1) = FEAT/POINT,CART, -88.122421, -25.786127, 0.000000, 0.000000,$

0.000000, -1.000000

MEAS/POINT, F(PT1), 1

  GOTO/CART,  -88.122421, -25.786127, -21.000000

  PTMEAS/CART,  -88.122421, -25.786127, 0.000000, 0.000000, 0.000000, -1.000000

ENDMES

 ENDDO

ENDDO

方法二：