RationalDMIS 2020 圆测点计算

Posted 2022-06-07 山涧果子

DMISMN/Created by [爱科腾瑞(CNC).12.9] on 星期五, 十月 07, 2016, 4.0
UNITS/MM, ANGDEC
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0
MODE/PROG, MAN
SNSET/APPRCH, 2.000000
SNSET/RETRCT, 2.000000
SNSET/DEPTH, 0.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 20.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/MAN
F(PLN1) = FEAT/PLANE,CART, 37.378505, 27.817918, 0.000000, 0.000000,$
   0.000000, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
  PTMEAS/CART,  2.686131, 43.207077, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  3.535342, 10.664418, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  72.874290, 5.733304, -0.000000, 0.000000, 0.000000, 1.000000
  PTMEAS/CART,  70.418259, 51.666874, -0.000000, 0.000000, 0.000000, 1.000000
ENDMES
OUTPUT/FA(PLN1), TA(TCORTOL7)
F(LN1) = FEAT/LINE,BND,CART, 7.276434, 0.000000, -4.111955, 66.383705,$
   0.000000, -5.881465, 0.000000, -1.000000, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN1), 2
  PTMEAS/CART,  7.276434, 0.000000, -4.111955, 0.000000, -1.000000, 0.000000
  PTMEAS/CART,  66.383705, 0.000000, -5.881465, 0.000000, -1.000000, 0.000000
ENDMES
OUTPUT/FA(LN1), TA(TCORTOL7), TA(TCORTOL14), TA(TCORTOL15)
F(LN2) = FEAT/LINE,BND,CART, 0.000000, 5.861570, -4.037346, 0.000000,$
   68.240768, -4.924435, -1.000000, 0.000000, 0.000000
$$ Measurement points are created through actual points
MEAS/LINE, F(LN2), 2
  PTMEAS/CART,  0.000000, 5.861570, -4.037346, -1.000000, 0.000000, 0.000000
  PTMEAS/CART,  0.000000, 68.240768, -4.924435, -1.000000, 0.000000, 0.000000
ENDMES
OUTPUT/FA(LN2), TA(TCORTOL7), TA(TCORTOL14), TA(TCORTOL15)
F(PT_INTER1) = FEAT/POINT,CART, 0.000895, -0.000425, -3.924075, 0.029921,$
   0.014213, 0.999451
CONST/POINT, F(PT_INTER1), INTOF, FA(LN1), FA(LN2)
OUTPUT/FA(PT_INTER1), TA(TCORTOL7), TA(TCORTOL14)
D(CRD1) = DATSET/FA(PLN1), ZDIR, FA(LN1), XDIR, YORIG, FA(PT_INTER1), XORIG
D(CRD1) = TRANS/ZORIG, FA(PLN1), YORIG, -0, XORIG, -0
MODE/PROG,MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
DECL/COMMON,DOUBLE,XX
DECL/COMMON,DOUBLE,YY
DECL/COMMON,DOUBLE,RR
DECL/COMMON,INTGR,I
DECL/COMMON,CHAR,255,C1

KNPTN1 = PROMPT/TITLE,Jianhongwei810,TEXT,圆1 X坐标值,EDIT,XX,TEXT,圆1Y坐标值,$
  EDIT,YY,TEXT,圆1半径值,EDIT,RR

DO/I,1,4,1

C1 = ASSIGN/CONCAT(J-,STR(I))

F(@C1) = FEAT/CIRCLE,INNER,CART, XX,YY,0, 0,0,1, 2*RR

MEAS/CIRCLE,F(@C1),4

PTMEAS/CART,XX+RR,YY,0,-1,0,0

PTMEAS/CART,XX,YY+RR,0,0,-1,0

PTMEAS/CART,XX-RR,YY,0,1,0,0

PTMEAS/CART,XX,YY-RR,0,0,1,0

ENDMES
 
ENDDO