首页/文章/ 详情

迭代对齐拟合坐标系

山涧果子

1年前浏览174

迭代对齐”CAD找正法，为多曲面或纯曲面CAD图形找正提供更准确快捷的途径.

在工件上基准很少或者没有基准时，客户可以用“跌代对齐”操作，实现数模对齐。

尤其适用了多曲面或纯曲面类CAD图形的找正，例如叶片、叶轮、凸轮等工件。只需在CAD图形和工件对应位置附近取几个点元素，通过软件的自动迭代计算，快速准确地实现CAD图形找正。

对于初始坐标系的建立，下面是使用迭代对齐的一个步骤：

（1）导入一个IGES,STEP文件;

（2）选择点元素拾取在CAD上拾取一系列理论点（使用"CAD模型点定义工具”，在数模上拾取理论点。）

（3）如果有类似“参考园”等元素，可使用"CAD线性图形定义”在数模上拾取“圆1"和“圆2”。（使用"向量创建方法”测量"圆1"和“圆2"）。

注：如果选取的元素包含圆等可简化为点的元素时，最多不能超过两个。

（4）选择“点1-9"，"圆1"拖放到迭代对齐窗口。

（5）拖放"CAD模型”到迭代对齐的"CAD模型”窗口、设置最大迭代次数、设置精度然后选择"迭代”，迭代完成后选择“添加并激活坐标系”。

注意事项：

（1）手动测量这些理论点。注意：对于没有完成的坐标系，不正确的测头半径补偿将不参与跌代对齐的计算。

现在使用跌代对齐去建立一个工件坐标系。

（2）元素列表窗口接受点、圆、球、键槽和圆弧的拖放。对于圆，键槽需要使用“向量创建测量”

（3）对于点，拖放的元素没有数量的限制。但是对于其它元素，则需要小于等于两个（也可以没有）当列表中没有其它元素时，跌代对齐将在6个自由度上进行拟合。

（4）当列表中有一个非点的其它元素，迭代将围绕这个元素特征点旋转进行拟合。

（5）当列表中有两个其它元素，迭代将沿着这两个元素特征点的连线进行旋转拟合。

DMISMN/'Created by [深圳力合精密装备科技有限公司-090118] on 星期六, 七月 14, 2018', 4.0

UNITS/MM, ANGDEC, MMPS

WKPLAN/XYPLAN

PRCOMP/ON

TECOMP/ON

FLY/1.000000

MODE/PROG, MAN

SNSET/APPRCH, 2.000000

SNSET/RETRCT, 2.000000

SNSET/DEPTH, 0.000000

SNSET/SEARCH, 10.000000

SNSET/CLRSRF, 30.000000

RECALL/D(MCS)

SNSLCT/S(ROOTSN1)

GEOALG/BF, LSTSQR

GEOALG/ANGLB, DEFALT

GEOALG/CIRCLE, LSTSQR

GEOALG/ARC, LSTSQR

GEOALG/PLANE, LSTSQR

MODE/MAN

F(PT1)=FEAT/POINT,CART,119.716049,96.362647,31.227365,0.000000,0.699642,0.714494

$$ Empty Meas Block

MEAS/POINT, F(PT1), 1

ENDMES

F(PT2)=FEAT/POINT,CART,119.409660,109.992203,24.175771,0.000000,0.362237,0.932086

$$ Empty Meas Block

MEAS/POINT, F(PT2), 1

ENDMES

F(PT3)=FEAT/POINT,CART,118.335388,120.876709,18.974460,0.000000,0.533761,0.845635

$$ Empty Meas Block

MEAS/POINT, F(PT3), 1

ENDMES

F(PT4)=FEAT/POINT,CART,94.790001,120.795716,19.025442,0.000000,0.531665,0.846955

$$ Empty Meas Block

MEAS/POINT, F(PT4), 1

ENDMES

F(PT5)=FEAT/POINT,CART,95.645172,108.839148,24.619965,0.000000,0.357124,0.934057

$$ Empty Meas Block

MEAS/POINT, F(PT5), 1

ENDMES

F(PT6)=FEAT/POINT,CART,95.498169,95.742831,31.872111,0.000000,0.741907,0.670503

$$ Empty Meas Block

MEAS/POINT, F(PT6), 1

ENDMES

F(PT7)=FEAT/POINT,CART,72.857132,96.655751,30.947873,0.000000,0.680539,0.732712

$$ Empty Meas Block

MEAS/POINT, F(PT7), 1

ENDMES

F(PT8)=FEAT/POINT,CART,71.596550,107.997055,24.941089,0.000000,0.356011,0.934482

$$ Empty Meas Block

MEAS/POINT, F(PT8), 1

ENDMES

F(PT9)=FEAT/POINT,CART,70.002357,120.222300,19.378571,0.000000,0.517138,0.855902

$$ Empty Meas Block

MEAS/POINT, F(PT9), 1

ENDMES

F(CIR1)=FEAT/CIRCLE,INNER,CART,40.000000,55.000000,35.000000,0.000000,0.000000,1.000000, 45.000000

$$ Empty VECBLD Block

RMEAS/CIRCLE, F(CIR1), 4, VECBLD, 3.000000, 3

ENDMES

MA(MATDEF1) = MATDEF/F(CADM_1),FA(PT1),FA(PT2),FA(PT3),FA(PT4),FA(PT5),FA(PT6),FA(PT7),FA(PT8),FA(PT9),FA(CIR1)

DMESW/COMAND, 'ITERATION/100'

D(CRD1)=LOCATE/MA(MATDEF1)

$$ Set.CAD2PCS.CADM_1

$$ Set.CADViewCenter.CADM_1

MODE/PROG,MAN

F(PLN1)=FEAT/PLANE,CART,31.250000,46.787796,35.000000,0.000000,0.000000,1.000000

$$ MACRO: EASI_CLEARPLN_GOTO

$$ FUNCTION: CLEARANCE SURFACE IMPLEMENTATION

$$ Move machine CLEAR SURFACE DIST above the current clear surface

$$ plane and then move machine parallel to the clear surface plane

$$ ALL Macro parameters are in PCS and Current UNITS

$$ Last update: 3-1-04 Add mode checking. only works in PROG MODE

$$ Last update: 8-24-04 Clear position is based on the surface of

$$ This sample DMIS Macro is provided by External-Array Software, Inc.

$$ It should be modified for your own use. There is no guarantee for

$$ the quality of this Macro. November, 2003

M(EASI_CLEARPLN_GOTO) = MACRO/ISNOM, TARX, TARY, TARZ

DECL/LOCAL, REAL, CCX, CCY, CCZ, CCI, CCJ, CCK

DECL/LOCAL, REAL, CURX, CURY, CURZ, TD, CLRDIST, SDIAM

DECL/LOCAL, CHAR, 255, CLRLABEL, FLABEL, MMODE, SNAME

MMODE = VALUE/MODE

CLRLABEL = VALUE/SNSET, CLRSRF

IF/ ( (LEN(CLRLABEL) .GT. 0) .AND. (MMODE .EQ. 'PROG,MAN') )

CLRDIST = VALUE/SNSET, CLRSRF, DIST

FLABEL = ASSIGN/'FA'

IF/ ISNOM .EQ. 0

FLABEL = ASSIGN/'F'

ENDIF

CCX = OBTAIN/FLABEL(@CLRLABEL), 3

CCY = OBTAIN/FLABEL(@CLRLABEL), 4

CCZ = OBTAIN/FLABEL(@CLRLABEL), 5

CCI = OBTAIN/FLABEL(@CLRLABEL), 6

CCJ = OBTAIN/FLABEL(@CLRLABEL), 7

CCK = OBTAIN/FLABEL(@CLRLABEL), 8

SNAME = VALUE/SNSLCT

SDIAM = OBTAIN/SS(SNAME), 8

CCX = ASSIGN/CCX + CCI * SDIAM/2

CCY = ASSIGN/CCY + CCJ * SDIAM/2

CCZ = ASSIGN/CCZ + CCK * SDIAM/2

CURX = VALUE/GOTOM, XAXIS

CURY = VALUE/GOTOM, YAXIS

CURZ = VALUE/GOTOM, ZAXIS

TD = ASSIGN/(CURX - CCX) * CCI + (CURY - CCY) * CCJ + (CURZ - CCZ) * CCK

IF/ TD .LT. CLRDIST

TD = ASSIGN/(CLRDIST - TD)

GOTO/CURX+CCI*TD, CURY+CCJ*TD, CURZ+CCK*TD

ENDIF

TD = ASSIGN/(TARX - CCX) * CCI + (TARY - CCY) * CCJ + (TARZ - CCZ) * CCK

IF/ TD .LT. CLRDIST

TD = ASSIGN/(CLRDIST - TD)

GOTO/TARX+CCI*TD, TARY+CCJ*TD, TARZ+CCK*TD

ENDIF

ENDMAC

SNSET/APPRCH, 2.0000

SNSET/RETRCT, 2.0000

SNSET/DEPTH, 0.0000

SNSET/SEARCH, 10.0000

SNSET/CLRSRF, F(PLN1), 30.0000