NETDMIS5.0批量检测零件的坐标系建立步骤2023

96 阅读 0 评论 64 点赞

我是靠谱客的博主超级外套，这篇文章主要介绍NETDMIS5.0批量检测零件的坐标系建立步骤2023，现在分享给大家，希望可以做个参考。

1、模式/手动下建立坐标系，该坐标系为粗定位功能，作用=工装

在这里插入图片描述

复制代码

MODE/MAN
DID(D2L40)=DEVICE/STOR,'D2L40'
OPEN/DID(D2L40),SNS
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,189.6500,2.0000
SNSLCT/SA(A0B0)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,-13.5427,-8.4428,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,-20.5691,37.6422,0,0,0,1.00000000
PTMEAS/CART,-38.3909,-21.1573,0,0,0,1.00000000
PTMEAS/CART,18.3319,-41.8134,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-46.3055,-45.0000,-3.2012,0.99979486,0,0.02025409,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-46.3055,-45.0000,-2.4272,0,-1.00000000,0
PTMEAS/CART,30.1128,-45.0000,-2.4272,0,-1.00000000,0
ENDMES
SNSET/DEPTH,0
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(圆1)=FEAT/CIRCLE,INNER,POL,0.0074,53.1046,-1.7547,0.01141669,0.06396274,0.99788698,30.0229
MEAS/CIRCLE,F(圆1),3
PTMEAS/POL,14.9990,127.5189,-2.4123,0.60881381,-0.79210270,0.04380698
PTMEAS/POL,14.9987,42.5134,-2.5305,-0.73619587,-0.67479275,0.05167570
PTMEAS/POL,14.9993,313.8426,-1.1798,-0.69182200,0.72105146,-0.03830304
ENDMES
DATDEF/F(平面1),DAT(A_平面1)
D(坐标系1_S)=DATSET/DAT(A_平面1),ZDIR
D(坐标系1_R)=ROTATE/ZAXIS,FA(直线1),XDIR
D(坐标系1_T)=TRANS/XORIG,FA(圆1),YORIG,FA(圆1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
MODE/MAN
DID(D2L40)=DEVICE/STOR,'D2L40'
OPEN/DID(D2L40),SNS
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,189.6500,2.0000
SNSLCT/SA(A0B0)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,-13.5427,-8.4428,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,-20.5691,37.6422,0,0,0,1.00000000
PTMEAS/CART,-38.3909,-21.1573,0,0,0,1.00000000
PTMEAS/CART,18.3319,-41.8134,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-46.3055,-45.0000,-3.2012,0.99979486,0,0.02025409,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-46.3055,-45.0000,-2.4272,0,-1.00000000,0
PTMEAS/CART,30.1128,-45.0000,-2.4272,0,-1.00000000,0
ENDMES
SNSET/DEPTH,0
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(圆1)=FEAT/CIRCLE,INNER,POL,0.0074,53.1046,-1.7547,0.01141669,0.06396274,0.99788698,30.0229
MEAS/CIRCLE,F(圆1),3
PTMEAS/POL,14.9990,127.5189,-2.4123,0.60881381,-0.79210270,0.04380698
PTMEAS/POL,14.9987,42.5134,-2.5305,-0.73619587,-0.67479275,0.05167570
PTMEAS/POL,14.9993,313.8426,-1.1798,-0.69182200,0.72105146,-0.03830304
ENDMES
DATDEF/F(平面1),DAT(A_平面1)
D(坐标系1_S)=DATSET/DAT(A_平面1),ZDIR
D(坐标系1_R)=ROTATE/ZAXIS,FA(直线1),XDIR
D(坐标系1_T)=TRANS/XORIG,FA(圆1),YORIG,FA(圆1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)

2、转到模式/自动下建立坐标系，此坐标系需按照图纸基准建立，为之后评价的基准。

在这里插入图片描述

复制代码

MODE/AUTO,PROG,MAN
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'CLEARP/ZDIR,25.0000,ZDIR,25.0000,ON'
F(平面2)=FEAT/PLANE,POL,5.1436,147.9626,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,POL,LSTSQR,5.1436,147.9626,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,-45.8281,-36.2932,0,0,0,1.00000000,$
-47.4179,16.5659,0,0,0,1.00000000,-23.5428,37.3449,0,0,0,1.00000000,31.4841,37.6170,0,0,0,1.00000000,$
38.8300,-1.8038,0,0,0,1.00000000,20.3133,-37.0596,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(直线2)=FEAT/LINE,BND,CART,-44.9760,-45.0000,-4.0000,29.4954,-45.0000,-4.0000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,-44.9760,-45.0000,-4.0000,$
1.00000000,0,0,74.4714,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,3,0,0,0,TOUCH,0.3000,$
XYPLAN,0,0,LINE,"","","EXT1","EXT2","EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,30.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
30.0000,-0.33333333,0.94280904,0,4,-4.0000,0,0,0,26.0000,292.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,$
10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(圆2),YORIG,FA(圆2)
SAVE/DA(坐标系2)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
MODE/AUTO,PROG,MAN
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'CLEARP/ZDIR,25.0000,ZDIR,25.0000,ON'
F(平面2)=FEAT/PLANE,POL,5.1436,147.9626,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,POL,LSTSQR,5.1436,147.9626,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,-45.8281,-36.2932,0,0,0,1.00000000,$
-47.4179,16.5659,0,0,0,1.00000000,-23.5428,37.3449,0,0,0,1.00000000,31.4841,37.6170,0,0,0,1.00000000,$
38.8300,-1.8038,0,0,0,1.00000000,20.3133,-37.0596,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(直线2)=FEAT/LINE,BND,CART,-44.9760,-45.0000,-4.0000,29.4954,-45.0000,-4.0000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,-44.9760,-45.0000,-4.0000,$
1.00000000,0,0,74.4714,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,3,0,0,0,TOUCH,0.3000,$
XYPLAN,0,0,LINE,"","","EXT1","EXT2","EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,30.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
30.0000,-0.33333333,0.94280904,0,4,-4.0000,0,0,0,26.0000,292.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,$
10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(圆2),YORIG,FA(圆2)
SAVE/DA(坐标系2)

复制代码

$$ NET_DMIS_20160720
$$ MADE IN DE 2023-2-23 9:25:24
INCLUD/DMIS,'NET_DMIS_DEFINES.DMI'
INCLUD/DMIS,'VARDEFINE'
DMESW/COMAND,'PROBE_VAL/INIT'
UNITS/MM,ANGDEC
D(MACHINE)=DATSET/MCS
DMESW/COMAND,'COORDSYS/ALIGN'
WKPLAN/XYPLAN
PRCOMP/ON
PRCOMP/ON
FEDRAT/POSVEL,MMPS,300.0000
ACLRAT/POSACL,MMPSS,100.0000
FEDRAT/MESVEL,MMPS,20.0000
ACLRAT/MESACL,MMPSS,100.0000
SNSET/RETRCT,1.0000
SNSET/SEARCH,5.0000
SNSET/APPRCH,1.0000
DMESW/COMAND,'SNSET/MANRETRCT,1.0000'
DMESW/COMAND,'REPORT/CLEAR'
MODE/MAN
DID(D2L40)=DEVICE/STOR,'D2L40'
OPEN/DID(D2L40),SNS
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,189.6500,2.0000
SNSLCT/SA(A0B0)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,-13.5427,-8.4428,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,-20.5691,37.6422,0,0,0,1.00000000
PTMEAS/CART,-38.3909,-21.1573,0,0,0,1.00000000
PTMEAS/CART,18.3319,-41.8134,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-46.3055,-45.0000,-3.2012,0.99979486,0,0.02025409,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-46.3055,-45.0000,-2.4272,0,-1.00000000,0
PTMEAS/CART,30.1128,-45.0000,-2.4272,0,-1.00000000,0
ENDMES
SNSET/DEPTH,0
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(圆1)=FEAT/CIRCLE,INNER,POL,0.0074,53.1046,-1.7547,0.01141669,0.06396274,0.99788698,30.0229
MEAS/CIRCLE,F(圆1),3
PTMEAS/POL,14.9990,127.5189,-2.4123,0.60881381,-0.79210270,0.04380698
PTMEAS/POL,14.9987,42.5134,-2.5305,-0.73619587,-0.67479275,0.05167570
PTMEAS/POL,14.9993,313.8426,-1.1798,-0.69182200,0.72105146,-0.03830304
ENDMES
DATDEF/F(平面1),DAT(A_平面1)
D(坐标系1_S)=DATSET/DAT(A_平面1),ZDIR
D(坐标系1_R)=ROTATE/ZAXIS,FA(直线1),XDIR
D(坐标系1_T)=TRANS/XORIG,FA(圆1),YORIG,FA(圆1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)
MODE/AUTO,PROG,MAN
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'CLEARP/ZDIR,25.0000,ZDIR,25.0000,ON'
F(平面2)=FEAT/PLANE,POL,5.1436,147.9626,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,POL,LSTSQR,5.1436,147.9626,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,-45.8281,-36.2932,0,0,0,1.00000000,$
-47.4179,16.5659,0,0,0,1.00000000,-23.5428,37.3449,0,0,0,1.00000000,31.4841,37.6170,0,0,0,1.00000000,$
38.8300,-1.8038,0,0,0,1.00000000,20.3133,-37.0596,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(直线2)=FEAT/LINE,BND,CART,-44.9760,-45.0000,-4.0000,29.4954,-45.0000,-4.0000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,-44.9760,-45.0000,-4.0000,$
1.00000000,0,0,74.4714,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,3,0,0,0,TOUCH,0.3000,$
XYPLAN,0,0,LINE,"","","EXT1","EXT2","EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,30.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
30.0000,-0.33333333,0.94280904,0,4,-4.0000,0,0,0,26.0000,292.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,$
10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(圆2),YORIG,FA(圆2)
SAVE/DA(坐标系2)
F(球1)=FEAT/SPHERE,INNER,CART,-38.0000,25.0000,5.0000,20.0000,0,0,1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SPHERE_1007),AUTOFIGURE,F(球1),SPHERE,CART,INNER,LSTSQR,-38.0000,25.0000,$
5.0000,0,0,1.00000000,20.0000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,0,360.0000,0,$
53.0000,4,3,TOUCH,0.3000,XYPLAN,"",'6,0,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(圆3)=FEAT/CIRCLE,INNER,CART,-33.0000,-38.0000,0,0,0,1.00000000,20.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆3),CIRCLE,INNER,CART,LSTSQR,-33.0000,-38.0000,$
0,0,0,1.00000000,20.0000,0.71414284,-0.70000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,$
0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DECL/INTGR,VA
VA=ASSIGN/0
$$
VA=PROMPT/TITLE,'是否测量圆4？',TEXT,'提示信息 ',BUTTON,'是',1,BUTTON,'否',2
IF/(VA.EQ.1)
JUMPTO/(LABEL_1)
ENDIF
F(圆5)=FEAT/CIRCLE,INNER,CART,90.0000,0,-35.0000,0,0,1.00000000,8.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆5),CIRCLE,INNER,CART,LSTSQR,90.0000,0,-35.0000,$
0,0,1.00000000,8.0000,0,1.00000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,$
5.0000',"EXT3",ENDCAL
(LABEL_1)
F(圆4)=FEAT/CIRCLE,INNER,CART,27.2511,9.9186,-10.0000,0,0,1.00000000,8.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆4),CIRCLE,INNER,CART,LSTSQR,27.2511,9.9186,$
-10.0000,0,0,1.00000000,8.0000,0,-1.00000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,0,$
FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DMESW/COMAND,'MOVE/CLEARPLANE'

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
$$ NET_DMIS_20160720
$$ MADE IN DE 2023-2-23 9:25:24
INCLUD/DMIS,'NET_DMIS_DEFINES.DMI'
INCLUD/DMIS,'VARDEFINE'
DMESW/COMAND,'PROBE_VAL/INIT'
UNITS/MM,ANGDEC
D(MACHINE)=DATSET/MCS
DMESW/COMAND,'COORDSYS/ALIGN'
WKPLAN/XYPLAN
PRCOMP/ON
PRCOMP/ON
FEDRAT/POSVEL,MMPS,300.0000
ACLRAT/POSACL,MMPSS,100.0000
FEDRAT/MESVEL,MMPS,20.0000
ACLRAT/MESACL,MMPSS,100.0000
SNSET/RETRCT,1.0000
SNSET/SEARCH,5.0000
SNSET/APPRCH,1.0000
DMESW/COMAND,'SNSET/MANRETRCT,1.0000'
DMESW/COMAND,'REPORT/CLEAR'
MODE/MAN
DID(D2L40)=DEVICE/STOR,'D2L40'
OPEN/DID(D2L40),SNS
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,189.6500,2.0000
SNSLCT/SA(A0B0)
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,-13.5427,-8.4428,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,-20.5691,37.6422,0,0,0,1.00000000
PTMEAS/CART,-38.3909,-21.1573,0,0,0,1.00000000
PTMEAS/CART,18.3319,-41.8134,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,-46.3055,-45.0000,-3.2012,0.99979486,0,0.02025409,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,-46.3055,-45.0000,-2.4272,0,-1.00000000,0
PTMEAS/CART,30.1128,-45.0000,-2.4272,0,-1.00000000,0
ENDMES
SNSET/DEPTH,0
GEOALG/CIRCLE,LSTSQR
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(圆1)=FEAT/CIRCLE,INNER,POL,0.0074,53.1046,-1.7547,0.01141669,0.06396274,0.99788698,30.0229
MEAS/CIRCLE,F(圆1),3
PTMEAS/POL,14.9990,127.5189,-2.4123,0.60881381,-0.79210270,0.04380698
PTMEAS/POL,14.9987,42.5134,-2.5305,-0.73619587,-0.67479275,0.05167570
PTMEAS/POL,14.9993,313.8426,-1.1798,-0.69182200,0.72105146,-0.03830304
ENDMES
DATDEF/F(平面1),DAT(A_平面1)
D(坐标系1_S)=DATSET/DAT(A_平面1),ZDIR
D(坐标系1_R)=ROTATE/ZAXIS,FA(直线1),XDIR
D(坐标系1_T)=TRANS/XORIG,FA(圆1),YORIG,FA(圆1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)
MODE/AUTO,PROG,MAN
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'CLEARP/ZDIR,25.0000,ZDIR,25.0000,ON'
F(平面2)=FEAT/PLANE,POL,5.1436,147.9626,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1006),AUTOFIGURE,F(平面2),PLANE,POL,LSTSQR,5.1436,147.9626,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,POINTS,'6,-45.8281,-36.2932,0,0,0,1.00000000,$
-47.4179,16.5659,0,0,0,1.00000000,-23.5428,37.3449,0,0,0,1.00000000,31.4841,37.6170,0,0,0,1.00000000,$
38.8300,-1.8038,0,0,0,1.00000000,20.3133,-37.0596,0,0,0,1.00000000',TOUCH,0.3000,XYPLAN
F(直线2)=FEAT/LINE,BND,CART,-44.9760,-45.0000,-4.0000,29.4954,-45.0000,-4.0000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,-44.9760,-45.0000,-4.0000,$
1.00000000,0,0,74.4714,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,3,0,0,0,TOUCH,0.3000,$
XYPLAN,0,0,LINE,"","","EXT1","EXT2","EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,0,0,0,0,0,1.00000000,30.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,0,0,0,0,0,1.00000000,$
30.0000,-0.33333333,0.94280904,0,4,-4.0000,0,0,0,26.0000,292.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,FALSE,$
10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(圆2),YORIG,FA(圆2)
SAVE/DA(坐标系2)
F(球1)=FEAT/SPHERE,INNER,CART,-38.0000,25.0000,5.0000,20.0000,0,0,1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SPHERE_1007),AUTOFIGURE,F(球1),SPHERE,CART,INNER,LSTSQR,-38.0000,25.0000,$
5.0000,0,0,1.00000000,20.0000,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,-1.00000000,0,0,360.0000,0,$
53.0000,4,3,TOUCH,0.3000,XYPLAN,"",'6,0,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(圆3)=FEAT/CIRCLE,INNER,CART,-33.0000,-38.0000,0,0,0,1.00000000,20.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆3),CIRCLE,INNER,CART,LSTSQR,-33.0000,-38.0000,$
0,0,0,1.00000000,20.0000,0.71414284,-0.70000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,$
0,FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DECL/INTGR,VA
VA=ASSIGN/0
$$
VA=PROMPT/TITLE,'是否测量圆4？',TEXT,'提示信息 ',BUTTON,'是',1,BUTTON,'否',2
IF/(VA.EQ.1)
JUMPTO/(LABEL_1)
ENDIF
F(圆5)=FEAT/CIRCLE,INNER,CART,90.0000,0,-35.0000,0,0,1.00000000,8.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆5),CIRCLE,INNER,CART,LSTSQR,90.0000,0,-35.0000,$
0,0,1.00000000,8.0000,0,1.00000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,0,FALSE,FALSE,$
FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,$
5.0000',"EXT3",ENDCAL
(LABEL_1)
F(圆4)=FEAT/CIRCLE,INNER,CART,27.2511,9.9186,-10.0000,0,0,1.00000000,8.0000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆4),CIRCLE,INNER,CART,LSTSQR,27.2511,9.9186,$
-10.0000,0,0,1.00000000,8.0000,0,-1.00000000,0,4,-2.0000,0,0,0,26.0000,265.0000,TOUCH,CIRCLE,0.3000,0,$
FALSE,FALSE,FALSE,10.0000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.0000,2.5000,3,XYPLAN,"",'7,0,0,0,0,3.0000,$
0,10','0,1,0,5.0000',"EXT3",ENDCAL
DMESW/COMAND,'MOVE/CLEARPLANE'