RationalDMIS 2020高级编程：快速3-2-1构建坐标系

最新推荐文章于 2023-05-31 17:59:41 发布

山涧果子

最新推荐文章于 2023-05-31 17:59:41 发布

阅读量333

点赞数

分类专栏： RationalDMIS DMIS CMM 文章标签： ci

本文链接：https://blog.csdn.net/weixin_43911798/article/details/119948295

版权

DMIS 同时被 3 个专栏收录

1442 篇文章 66 订阅

订阅专栏

RationalDMIS

902 篇文章 77 订阅

订阅专栏

CMM

719 篇文章 27 订阅

订阅专栏

在这里插入图片描述

$$/*  Header
DMISMN/'Created by [山涧果子] on 星期五, 八月 27, 2021', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
RECALL/D(MCS)
SNSLCT/S(D2-L40)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
$$*/
MODE/MAN
$$ Following block is generated by Quick 321 alignment
DECL/COMMON, DOUBLE, DPROBEX, DPROBEY, DPROBEZ
PRCOMP/OFF
KNPTC1 = VALUE/MODE
MODE/MAN
F(PT1)=FEAT/POINT,CART,5.3914,53.3766,1.0000,0.0000,0.0000,1.0000
F(PT2)=FEAT/POINT,CART,5.4827,14.0946,1.0000,0.0000,0.0000,1.0000
F(PT3)=FEAT/POINT,CART,61.8341,8.5508,1.0000,0.0000,0.0000,1.0000
F(PT4)=FEAT/POINT,CART,4.6751,-1.0000,-3.4809,-0.0000,-1.0000,-0.0000
F(PT5)=FEAT/POINT,CART,58.7909,-1.0000,-3.2831,-0.0000,-1.0000,-0.0000
F(PT6)=FEAT/POINT,CART,-1.0000,5.7736,-3.6391,-1.0000,0.0000,0.0000
MEAS/POINT, F(PT1), 1
  PTMEAS/CART, 5.3914,53.3766,1.0000,0.0000,0.0000,1.0000
ENDMES
MEAS/POINT, F(PT2), 1
  PTMEAS/CART, 5.4827,14.0946,1.0000,0.0000,0.0000,1.0000
ENDMES
MEAS/POINT, F(PT3), 1
  PTMEAS/CART, 61.8341,8.5508,1.0000,0.0000,0.0000,1.0000
ENDMES
MEAS/POINT, F(PT4), 1
  PTMEAS/CART, 4.6751,-1.0000,-3.4809,-0.0000,-1.0000,-0.0000
ENDMES
MEAS/POINT, F(PT5), 1
  PTMEAS/CART, 58.7909,-1.0000,-3.2831,-0.0000,-1.0000,-0.0000
ENDMES
MEAS/POINT, F(PT6), 1
  PTMEAS/CART, -1.0000,5.7736,-3.6391,-1.0000,0.0000,0.0000
ENDMES
KNPTR1 = OBTAIN/FA(PT1)[1], 5
KNPTR2 = OBTAIN/FA(PT1)[1], 6
KNPTR3 = OBTAIN/FA(PT1)[1], 7
F(PLN1) = FEAT/PLANE, CART, 0,0,0, KNPTR1,KNPTR2,KNPTR3
CONST/PLANE, F(PLN1), BF, FA(PT1), FA(PT2), FA(PT3)
KNPTR1 = OBTAIN/FA(PT4), 3
KNPTR2 = OBTAIN/FA(PT4), 4
KNPTR3 = OBTAIN/FA(PT4), 5
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTR1 = OBTAIN/FA(PT5), 3
KNPTR2 = OBTAIN/FA(PT5), 4
KNPTR3 = OBTAIN/FA(PT5), 5
KNPTV2 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV3 = ASSIGN/KNPTV2 - KNPTV1
KNPTV1 = ASSIGN/VUNIT(KNPTV3)
KNPTR1 = OBTAIN/FA(PT4)[1], 5
KNPTR2 = OBTAIN/FA(PT4)[1], 6
KNPTR3 = OBTAIN/FA(PT4)[1], 7
F(LN1) = FEAT/LINE, UNBND, CART, 0.0000, 0.0000, 0.0000, VECX(KNPTV1), VECY(KNPTV1), VECZ(KNPTV1), KNPTR1, KNPTR2, KNPTR3
CONST/LINE, F(LN1), BF, FA(PT4), FA(PT5)
D(CRD1) =DATSET/FA(PLN1), ZDIR, ZORIG
D(CRD1) =ROTATE/ZAXIS, FA(LN1), XDIR
D(CRD1) =TRANS/YORIG, FA(LN1)
D(CRD1) =TRANS/XORIG, FA(PT6)
KNPTC1 =VALUE/SNSLCT
KNPTR1 =OBTAIN/SS(KNPTC1), 8
DPROBEZ =ASSIGN/(KNPTR1/2)
KNPTR1 = OBTAIN/FA(PT4)[1], 5
KNPTR2 = OBTAIN/FA(PT4)[1], 6
KNPTR3 = OBTAIN/FA(PT4)[1], 7
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV2 = ASSIGN/VCART(0,1,0)
IF/(VDOT(KNPTV1,KNPTV2) .GT. 0)
  DPROBEY = ASSIGN/(-DPROBEZ)
ELSE
  DPROBEY = ASSIGN/DPROBEZ
ENDIF
KNPTR1 = OBTAIN/FA(PT6)[1], 5
KNPTR2 = OBTAIN/FA(PT6)[1], 6
KNPTR3 = OBTAIN/FA(PT6)[1], 7
KNPTV1 = ASSIGN/VCART(KNPTR1,KNPTR2,KNPTR3)
KNPTV2 = ASSIGN/VCART(1,0,0)
IF/(VDOT(KNPTV1,KNPTV2) .GT. 0)
  DPROBEX = ASSIGN/(-DPROBEZ)
ELSE
  DPROBEX = ASSIGN/DPROBEZ
ENDIF
D(CRD1) =TRANS/XORIG, DPROBEX, YORIG, DPROBEY, ZORIG, -DPROBEZ
PRCOMP/ON
IF/KNPTC1.EQ.'AUTO,PROG,MAN'
    MODE/AUTO,PROG,MAN
ENDIF
IF/KNPTC1.EQ.'PROG,MAN'
    MODE/PROG,MAN
ENDIF
IF/KNPTC1.EQ.'MAN'
    MODE/MAN
ENDIF
$$ Set.CAD2PCS.CADM_1
F(PT7)=FEAT/POINT,CART,-14.4871,-28.8246,-1.0000,0.0000,0.0000,1.0000