RationalDMIS自动计算均分孔坐标方法
DMISMN/'Created by [爱科腾瑞(CNC).12.9] on 星期五, 九月 30, 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, 10.000000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/MAN
F(PLN1) = FEAT/PLANE,CART, 0.579788, -0.935346, 0.000000, 0.000000,$
0.000000, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
PTMEAS/CART, -33.911736, 15.604842, -0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, -30.155870, -18.780556, -0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 34.108486, -22.976078, -0.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 32.278271, 22.410408, -0.000000, 0.000000, 0.000000, 1.000000
ENDMES
OUTPUT/FA(PLN1), TA(XCTL), TA(YCTL), TA(ZCTL)
D(CRD1) = DATSET/FA(PLN1), ZDIR, ZORIG
D(CRD1) = TRANS/ZORIG, -0
F(CIR1) = FEAT/CIRCLE,INNER,CART, 0.000000, 0.000000, -4.142924, 0.000000,$
0.000000, 1.000000, 25.000000
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR1), 4
PTMEAS/CART, -12.491920, -0.449373, -4.142924, 0.999354, 0.035950, -0.000000
PTMEAS/CART, -6.610739, 10.608870, -4.142924, 0.528859, -0.848710, -0.000000
PTMEAS/CART, 0.841876, 12.471618, -4.142924, -0.067350, -0.997729, -0.000000
PTMEAS/CART, 5.426257, 11.260805, -4.142924, -0.434101, -0.900864, -0.000000
ENDMES
OUTPUT/FA(CIR1), TA(XCTL), TA(YCTL), TA(ZCTL), TA(TDIAM5), TA(TPOS2D4)
D(CRD2) = TRANS/XORIG, FA(CIR1), YORIG, FA(CIR1), ZORIG, FA(PLN1)
MODE/PROG,MAN
DECL/COMMON,INTGR,I
DECL/COMMON,DOUBLE,L1
DECL/COMMON,DOUBLE,L2
DECL/COMMON,DOUBLE,L3
DECL/COMMON,DOUBLE,L4
DECL/COMMON,DOUBLE,AA
DECL/COMMON,DOUBLE,BB
DECL/COMMON,CHAR,255,C1
KNPTN1 = PROMPT/TITLE,'山涧果子',TEXT,'请输入均分孔数目',EDIT,L1,TEXT,'请输入分度圆直径',EDIT,L2,$
TEXT,'请输入起始角度',EDIT,L3,TEXT,'请输入均分孔直径',EDIT,L4
DO/I,1,6,1
AA = ASSIGN/L2/2*COS(DTOR(360/L1*(I-1)+L3))
BB = ASSIGN/L2/2*SIN(DTOR(360/L1*(I-1)+L3))
C1 = ASSIGN/CONCAT('J-',STR(I))
F(@C1) = FEAT/CIRCLE,INNER,CART, AA, BB, 0.000000, 0.000000,$
0.000000, 1.000000, L4
ENDDO
