0
点赞
收藏
分享

微信扫一扫

RationalDMIS 坐标系之生成坐标

提示:
使用3-2-1法建立坐标使用的基准元素在新坐标系下有指定的距离, 可以在元素后面的编辑框中输入这个参考在新坐标系下的坐标数据。也可以从数据区中拖放元素来指定这个基准在新坐标系下的距离。

适用于数模原点不在数模上。

RationalDMIS 坐标系之生成坐标_数据区

DMIS代码如下:

DMISMN/'Created by [爱科腾瑞(CNC).12.9] on 星期一, 六月 08, 2015', 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, 2.000000
SNSET/SEARCH, 10.000000
SNSET/CLRSRF, 20.000000
RECALL/D(MCS)
SNSLCT/S(100-20X2)
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/MAN
F(PLN1) = FEAT/PLANE,CART, 50.252027, 54.196397, 35.000000, 0.000000,$
0.000000, 1.000000
$$ Measurement points are created through actual points
MEAS/PLANE, F(PLN1), 4
PTMEAS/CART, 5.260496, 82.472336, 35.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 7.190391, 26.248154, 35.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 92.349220, 22.880247, 35.000000, 0.000000, 0.000000, 1.000000
PTMEAS/CART, 96.208000, 85.184853, 35.000000, 0.000000, 0.000000, 1.000000
ENDMES
OUTPUT/FA(PLN1), TA(XCTL), TA(YCTL), TA(ZCTL)
F(CIR2) = FEAT/CIRCLE,INNER,CART, 24.000000, 27.287187, 30.606578, 0.000000,$
0.000000, 1.000000, 10.000000
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR2), 4
PTMEAS/CART, 20.828456, 31.152586, 30.606578, 0.634309, -0.773080, -0.000000
PTMEAS/CART, 28.997927, 27.143207, 30.606578, -0.999585, 0.028796, -0.000000
PTMEAS/CART, 26.261192, 22.827701, 30.606578, -0.452238, 0.891897, -0.000000
PTMEAS/CART, 19.241547, 25.751895, 30.606578, 0.951691, 0.307058, -0.000000
ENDMES
OUTPUT/FA(CIR2), TA(XCTL), TA(YCTL), TA(ZCTL)
F(CIR_PROJ1) = FEAT/CIRCLE,INNER,CART, 24.000000, 27.287187, 35.000000,$
0.000000, 0.000000, 1.000000, 10.000000
CONST/CIRCLE,F(CIR_PROJ1),PROJCT,FA(CIR2),FA(PLN1)
OUTPUT/FA(CIR_PROJ1), TA(XCTL), TA(YCTL), TA(ZCTL)
F(CIR3) = FEAT/CIRCLE,INNER,CART, 56.000000, 27.287187, 32.506323, 0.000000,$
0.000000, 1.000000, 10.000000
$$ Measurement points are created through actual points
MEAS/CIRCLE, F(CIR3), 4
PTMEAS/CART, 51.021537, 27.750766, 32.506323, 0.995693, -0.092716, -0.000000
PTMEAS/CART, 54.257303, 31.973658, 32.506323, 0.348539, -0.937294, -0.000000
PTMEAS/CART, 60.992238, 27.565691, 32.506323, -0.998448, -0.055701, -0.000000
PTMEAS/CART, 56.443871, 22.306928, 32.506323, -0.088774, 0.996052, -0.000000
ENDMES
OUTPUT/FA(CIR3), TA(XCTL), TA(YCTL), TA(ZCTL)
F(CIR_PROJ2) = FEAT/CIRCLE,INNER,CART, 56.000000, 27.287187, 35.000000,$
0.000000, 0.000000, 1.000000, 10.000000
CONST/CIRCLE,F(CIR_PROJ2),PROJCT,FA(CIR3),FA(PLN1)
OUTPUT/FA(CIR_PROJ2), TA(XCTL), TA(YCTL), TA(ZCTL)

$$ CREATED BY : External-Array Software, Inc
$$ DATE : Jan 19, 2009
$$ DISLAIMER:
$$ This Macro has been tested internally but not been tested with
$$ other DMIS compatible software. This Macro is provided as sample
$$ and can be modifed for your own use. External-Array doesn't not
$$ guarantee the quality of this Macro.

$$ FUNCION: Create a nominal line using two actual features
$$ DI, DJ, DK are the normal vector of the plane that the line lies on

M(EASI_2PT_TO_LINE) = Macro/'FEAT1', 'FEAT2', 'FEATLINE', DI, DJ, DK
DECL/LOCAL,DOUBLE,DVALUE[6]
DECL/LOCAL,INTGR, INDEX1, INDEX2

CALL/M(EASI_GETX_INDEX), FEAT1, INDEX1
CALL/M(EASI_GETX_INDEX), FEAT2, INDEX2

DVALUE[1] = OBTAIN/FA(@FEAT1),INDEX1
DVALUE[2] = OBTAIN/FA(@FEAT1),INDEX1+1
DVALUE[3] = OBTAIN/FA(@FEAT1),INDEX1+2

DVALUE[4] = OBTAIN/FA(@FEAT2),INDEX2
DVALUE[5] = OBTAIN/FA(@FEAT2),INDEX2+1
DVALUE[6] = OBTAIN/FA(@FEAT2),INDEX2+2

F(@FEATLINE) = FEAT/LINE,BND,CART,DVALUE[1],DVALUE[2],DVALUE[3],$
DVALUE[4],DVALUE[5],DVALUE[6],$
DI, DJ, DK
ENDMAC

CALL/M(EASI_2PT_TO_LINE),(CIR_PROJ1),(CIR_PROJ2),(LN_BF1), 0.000000,$
0.000000, 1.000000
CONST/LINE,F(LN_BF1),BF,FA(CIR_PROJ1),FA(CIR_PROJ2)
OUTPUT/FA(LN_BF1), TA(XCTL), TA(YCTL), TA(ZCTL)
D(CRD1) = DATSET/FA(PLN1), ZDIR, ZORIG, FA(LN_BF1), XDIR, YORIG,$
FA(CIR_PROJ1), XORIG
D(CRD1) = TRANS/ZORIG, -35.000000, YORIG, -27.287187, XORIG, -24.000000
$$ Set.CAD2PCS.CADM_1
$$ Set.CADViewCenter.CADM_1
在元素后面的编辑输入框:可以使用三种不同的方式输入,如果第一个元素输入了一个确定的数据,表示这个元素在新坐标系下的Z值,第二个元素放进了一个元素标签名表示它在新坐标系下的Y坐标位置,第三个元素我们使用了一个数学表达书来表示它在新坐标系下的X值。

RationalDMIS 坐标系之生成坐标_数据_02


举报

相关推荐

0 条评论