NETDMIS 2023脱机编程2024
$$ NET_DMIS_20160720
$$ MADE IN DE 2024-5-24 8:13:20
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
FEDRAT/POSVEL,MMPS,50.0000
ACLRAT/POSACL,MMPSS,100.0000
FEDRAT/MESVEL,MMPS,20.0000
ACLRAT/MESACL,MMPSS,100.0000
SNSET/RETRCT,3.0000
SNSET/SEARCH,5.0000
SNSET/APPRCH,3.0000
DMESW/COMAND,'SNSET/MANRETRCT,3.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,208.0000,2.0000
SNSLCT/SA(A0B0)
FEDRAT/POSVEL,MMPS,150.0000
ACLRAT/POSACL,MMPSS,250.0000
SNSET/RETRCT,2.0000
SNSET/APPRCH,2.0000
DMESW/COMAND,'SNSET/MANRETRCT,2.0000'
GEOALG/PLANE,LSTSQR
F(平面1)=FEAT/PLANE,CART,0,0,0,0,0,1.00000000
MEAS/PLANE,F(平面1),3
PTMEAS/CART,81.413,95.967,0,0,0,1.00000000
PTMEAS/CART,80.432,13.486,0,0,0,1.00000000
PTMEAS/CART,166.566,5.582,0,0,0,1.00000000
ENDMES
SNSET/DEPTH,0
DMESW/COMAND,'CONST/SET_PROJ_VEC,FA(平面1),1'
F(直线1)=FEAT/LINE,UNBND,CART,42.952,0,-4.681,1.00000000,0,0,0,-1.00000000,0
MEAS/LINE,F(直线1),2
PTMEAS/CART,42.952,0,-4.681,0,-1.00000000,0
PTMEAS/CART,182.916,0,-4.681,0,-1.00000000,0
ENDMES
F(点1)=FEAT/POINT,CART,0,6.490,-24.524,-1.00000000,0,0
MEAS/POINT,COMP,DME,F(点1),1
PTMEAS/CART,0,6.490,-24.524,-1.00000000,0,0
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)
D(坐标系1_T)=TRANS/YORIG,FA(直线1)
D(坐标系1_T)=TRANS/ZORIG,FA(平面1)
DMESW/COMAND,'COORDSYS/CAD=PART'
SAVE/DA(坐标系1)
MODE/AUTO,PROG,MAN
DMESW/COMAND,'CLEARP/ZDIR,26.6090,ZDIR,26.6090,ON'
F(平面2)=FEAT/PLANE,CART,140.745,53.700,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1007),AUTOFIGURE,F(平面2),PLANE,CART,LSTSQR,140.745,53.700,$
0,0,0,1.00000000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,POINTS,'7,50.604,4.809,0,0,0,1.00000000,165.003,$
5.802,0,0,0,1.00000000,209.354,42.749,0,0,0,1.00000000,228.907,61.672,0,0,0,1.00000000,151.310,98.509,$
0,0,0,1.00000000,88.920,99.728,0,0,0,1.00000000,91.116,62.631,0,0,0,1.00000000',TOUCH,0.300,XYPLAN,"OPT",$
'5,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(直线2)=FEAT/LINE,BND,CART,35.000,0,-4.000,187.000,0,-4.000,0,-1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线2),LINE_BND,CART,35.000,0,-4.000,1.00000000,$
0,0,152.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,-1.00000000,0,4,0,0,0,TOUCH,0.300,XYPLAN,0,0,$
LINE,"","",'5,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(直线3)=FEAT/LINE,BND,CART,0,2.000,-25.000,0,30.000,-25.000,-1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_LINE_1007),AUTOFIGURE,F(直线3),LINE_BND,CART,0,2.000,-25.000,0,1.00000000,$
0,28.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-1.00000000,0,0,4,0,0,0,TOUCH,0.300,XYPLAN,0,0,LINE,$
"","",'5,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(点2)=FEAT/POINT,CART,0,0,-14.500,0,0,-1.00000000
CONST/POINT,F(点2),INTOF,FA(直线2),FA(直线3)
DATDEF/F(平面2),DAT(A_平面2)
D(坐标系2_S)=DATSET/DAT(A_平面2),ZDIR
D(坐标系2_R)=ROTATE/ZAXIS,FA(直线2),XDIR
D(坐标系2_T)=TRANS/XORIG,FA(点2),YORIG,FA(点2)
D(坐标系2_T)=TRANS/ZORIG,FA(平面2)
SAVE/DA(坐标系2)
F(点3)=FEAT/POINT,CART,52.660,3.217,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点3),POINT,CART,DME,52.660,3.217,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点4)=FEAT/POINT,CART,167.432,4.785,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点4),POINT,CART,DME,167.432,4.785,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点5)=FEAT/POINT,CART,227.486,57.571,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点5),POINT,CART,DME,227.486,57.571,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点6)=FEAT/POINT,CART,100.139,97.016,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点6),POINT,CART,DME,100.139,97.016,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点7)=FEAT/POINT,CART,90.298,50.262,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点7),POINT,CART,DME,90.298,50.262,0,0,0,1.00000000,$
0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(圆1)=FEAT/CIRCLE,INNER,CART,124.000,50.000,0,0,0,1.00000000,60.500
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆1),CIRCLE,INNER,CART,LSTSQR,124.0000,50.0000,$
0,0,0,1.00000000,60.500,1.00000000,0,0,4,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(圆2)=FEAT/CIRCLE,INNER,CART,93.500,19.500,0,0,0,1.00000000,15.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆2),CIRCLE,INNER,CART,LSTSQR,93.5000,19.5000,$
0,0,0,1.00000000,15.000,1.00000000,0,0,5,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,1,FA(VECBLD),3.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
F(圆3)=FEAT/CIRCLE,INNER,CART,154.500,19.500,0,0,0,1.00000000,15.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆3),CIRCLE,INNER,CART,LSTSQR,154.5000,19.5000,$
0,0,0,1.00000000,15.000,1.00000000,0,0,5,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,1,FA(VECBLD),3.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
F(圆4)=FEAT/CIRCLE,INNER,CART,154.500,80.500,0,0,0,1.00000000,15.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆4),CIRCLE,INNER,CART,LSTSQR,154.5000,80.5000,$
0,0,0,1.00000000,15.000,1.00000000,0,0,5,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,1,FA(VECBLD),3.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
F(圆5)=FEAT/CIRCLE,INNER,CART,93.500,80.500,0,0,0,1.00000000,15.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆5),CIRCLE,INNER,CART,LSTSQR,93.5000,80.5000,$
0,0,0,1.00000000,15.000,1.00000000,0,0,5,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,1,FA(VECBLD),3.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
F(圆6)=FEAT/CIRCLE,OUTER,CART,79.820,69.948,6.350,0,0,1.00000000,6.350
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆6),CIRCLE,OUTER,CART,LSTSQR,79.8200,69.9480,$
6.3500,0,0,1.00000000,6.350,1.00000000,0,0,5,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,TRUE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),3.000,2.500,3,XYPLAN,"",'7,0,1,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",$
ENDCAL
F(圆柱1)=FEAT/CYLNDR,OUTER,CART,79.820,69.948,1.500,0,0,1.00000000,6.350,6.350
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CYLINDER_1007),AUTOFIGURE,F(圆柱1),CYLNDR,CART,OUTER,LSTSQR,79.820,69.948,$
0,0,0,1.00000000,6.350,TRUE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0.81382604,0.58110858,0,-180.000,180.000,$
1.500,1.500,5,3,TOUCH,CIRCLE,0.300,XYPLAN,"",'9,6.35000000,0,1,0,0,3.0000,0,0,0.0000',"EXT2","EXT3",ENDCAL
F(圆柱2)=FEAT/CYLNDR,INNER,CART,124.000,50.000,-13.004,0,0,1.00000000,60.500,15.004
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CYLINDER_1007),AUTOFIGURE,F(圆柱2),CYLNDR,CART,INNER,LSTSQR,124.000,50.000,$
-15.004,0,0,1.00000000,60.500,TRUE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-0.81382604,0.58110858,0,-180.000,$
180.000,2.000,2.000,5,3,TOUCH,CIRCLE,0.300,XYPLAN,"",'9,15.00400000,0,1,0,0,3.0000,0,0,0.0000',"EXT2",$
"EXT3",ENDCAL
F(圆柱3)=FEAT/CYLNDR,INNER,CART,124.000,50.000,-33.000,0,0,1.00000000,44.000,20.004
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CYLINDER_1007),AUTOFIGURE,F(圆柱3),CYLNDR,CART,INNER,LSTSQR,124.000,50.000,$
-35.000,0,0,1.00000000,44.000,TRUE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0.58110858,0.81382604,0,-180.000,$
180.000,2.000,2.000,6,3,TOUCH,CIRCLE,0.300,XYPLAN,"",'9,20.00400000,0,1,0,0,3.0000,0,0,0.0000',"EXT2",$
"EXT3",ENDCAL
F(圆锥1)=FEAT/CONE,OUTER,CART,69.000,90.000,12.995,0,0,-1.00000000,30.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CONE_1007),AUTOFIGURE,F(圆锥1),CONE,CART,OUTER,LSTSQR,69.000,90.000,12.995,$
0,0,-1.00000000,30.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,1.00000000,0,0,0,360.000,8.536,2.000,$
2.000,4,3,TOUCH,0.300,XYPLAN,"",'1,10.99500000','5,0,0,3.0000,0,10',"EXT3",ENDCAL
F(椭圆1)=FEAT/ELLIPS,INNER,CART,137.266,93.000,0,110.734,93.000,0,MAJOR,0,0,1.00000000,30.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_ELLIPSE_1007),AUTOFIGURE,F(椭圆1),ELLIPS,CART,INNER,124.000,93.000,0,0,$
0,1.00000000,30.000,14.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-1.00000000,0,0,5,-2.000,180.000,$
540.000,0,0,0,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",'1,0','0,1,0,5.0000',"EXT3",ENDCAL
F(方槽1)=FEAT/CPARLN,INNER,FLAT,CART,176.456,87.325,0,0,0,1.00000000,-0.94832365,0.31730466,0,15.070,10.785
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_RECT_1009),AUTOFIGURE,F(方槽1),CPARLN,FLAT,CART,INNER,176.4560,87.3250,$
0,0,0,1.00000000,15.070,10.785,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-0.94832366,0.31730466,0,-2.000,$
5.000,0,0,0,5,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"","EXT1",'0,1,0,5.0000',"EXT3",ENDCAL
F(圆槽1)=FEAT/CPARLN,INNER,ROUND,CART,191.000,73.000,0,0,0,1.00000000,-1.00000000,0,0,40.000,7.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SLOT_1007),AUTOFIGURE,F(圆槽1),CPARLN,ROUND,CART,INNER,191.000,73.000,0,$
0,0,1.00000000,40.000,7.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-1.00000000,0,0,-2.000,5.000,0,$
0,0,6,0,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",'1,0','0,1,0,5.0000',"EXT3",ENDCAL
F(球1)=FEAT/SPHERE,OUTER,CART,168.500,45.660,0,12.700,0,0,1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SPHERE_1007),AUTOFIGURE,F(球1),SPHERE,CART,OUTER,LSTSQR,168.500,45.660,$
0,0,0,1.00000000,12.700,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,-1.00000000,0,0,360.000,0,80.000,$
12,3,TOUCH,0.300,XYPLAN,"",'6,0,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(球2)=FEAT/SPHERE,INNER,CART,188.500,45.660,0,12.700,0,0,1.00000000,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_SPHERE_1007),AUTOFIGURE,F(球2),SPHERE,CART,INNER,LSTSQR,188.500,45.660,$
0,0,0,1.00000000,12.700,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,-1.00000000,0,0,360.000,0,80.000,$
4,3,TOUCH,0.300,XYPLAN,"",'6,0,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(平面3)=FEAT/PLANE,CART,193.262,29.658,-3.419,0.25880975,0.00000987,0.96592832
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1007),AUTOFIGURE,F(平面3),PLANE,CART,LSTSQR,193.262,29.658,$
-3.419,0.25880975,0.00000987,0.96592832,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,POINTS,'5,182.329,31.996,$
-0.490,0.25881905,0,0.96592583,181.806,26.294,-0.350,0.25881905,0,0.96592583,192.483,30.331,-3.211,0.25881905,$
0,0.96592583,204.143,32.556,-6.335,0.25881905,0,0.96592583,205.547,27.114,-6.711,0.25881905,0,0.96592583',$
TOUCH,0.300,XYPLAN,"OPT",'5,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
F(方槽2)=FEAT/CPARLN,INNER,FLAT,CART,69.692,23.335,0,0,0,1.00000000,-0.70710678,-0.70710678,0,37.000,11.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_RECT_1009),AUTOFIGURE,F(方槽2),CPARLN,FLAT,CART,INNER,69.6920,23.3350,0,$
0,0,1.00000000,37.000,11.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-0.70710678,-0.70710678,0,-2.000,$
5.000,0,0,0,5,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"","EXT1",'0,1,0,5.0000',"EXT3",ENDCAL
GOTO/INCR,150.000000,0.000000,0.000000,1.000000
S(A90B180)=SNSDEF/PROBE,INDEX,POL,90.0,180.0,0.0000,0.0000,1.0000,208.0000,2.0000
SNSLCT/SA(A90B180)
DMESW/COMAND,'CLEARP/-YDIR,-10.0100,ZDIR,0.0000,ON'
F(圆7)=FEAT/CIRCLE,INNER,CART,124.000,0,-15.000,0,-1.00000000,0,12.700
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆7),CIRCLE,INNER,CART,LSTSQR,124.0000,0,-15.0000,$
0,-1.00000000,0,12.700,0,0,-1.00000000,4,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,FALSE,FALSE,FALSE,$
10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(点8)=FEAT/POINT,CART,70.522,2.000,-15.000,1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点8),POINT,CART,DME,70.522,2.000,-15.000,1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点9)=FEAT/POINT,CART,82.522,2.000,-15.000,-1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点9),POINT,CART,DME,82.522,2.000,-15.000,-1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点10)=FEAT/POINT,CART,11.000,5.000,-21.000,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点10),POINT,CART,DME,11.000,5.000,-21.000,0,0,$
1.00000000,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2",$
"EXT3",ENDCAL
F(点11)=FEAT/POINT,CART,211.000,4.000,-22.000,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点11),POINT,CART,DME,211.000,4.000,-22.000,0,$
0,1.00000000,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,$
"EXT2","EXT3",ENDCAL
GOTO/INCR,200.000000,0.000000,0.000000,1.000000
S(A90B0)=SNSDEF/PROBE,INDEX,POL,90.0,0.0,0.0000,0.0000,1.0000,208.0000,2.0000
SNSLCT/SA(A90B0)
DMESW/COMAND,'CLEARP/YDIR,117.6370,ZDIR,0.0000,ON'
F(圆8)=FEAT/CIRCLE,INNER,CART,124.000,106.320,-15.020,0.10063401,0.99489154,-0.00797614,8.041
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆8),CIRCLE,INNER,CART,LSTSQR,124.0000,106.3200,$
-15.0200,0.10063401,0.99489154,-0.00797614,8.041,0.99490641,-0.10067605,-0.00505617,4,-2.000,0,0,0,0,$
360.000,TOUCH,CIRCLE,0.300,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,$
"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",ENDCAL
F(圆9)=FEAT/CIRCLE,INNER,CART,178.838,94.445,-17.501,0.31727234,0.94821879,0.01481175,15.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆9),CIRCLE,INNER,CART,LSTSQR,178.8380,94.4450,$
-17.5010,0.31727234,0.94821879,0.01481175,15.000,-0.94832333,0.31730560,0.00010971,4,-2.000,0,0,0,0,360.000,$
TOUCH,CIRCLE,0.300,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",$
'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',"EXT3",ENDCAL
DMESW/COMAND,'MOVE/CLEARPLANE'
GOTO/INCR,150.000000,0.000000,0.000000,1.000000
S(A90B90)=SNSDEF/PROBE,INDEX,POL,90.0,90.0,0.0000,0.0000,1.0000,208.0000,2.0000
SNSLCT/SA(A90B90)
DMESW/COMAND,'CLEARP/-XDIR,-26.5850,ZDIR,0.0000,ON'
F(平面4)=FEAT/PLANE,CART,0,16.374,-28.271,-1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_PLANEPOINTS_1007),AUTOFIGURE,F(平面4),PLANE,CART,LSTSQR,0,16.374,-28.271,$
-1.00000000,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,POINTS,'4,0,27.379,-23.124,-1.00000000,0,0,$
0,29.754,-33.962,-1.00000000,0,0,0,6.503,-32.567,-1.00000000,0,0,0,1.860,-23.431,-1.00000000,0,0',TOUCH,$
0.300,XYPLAN,"OPT",'5,0,0,3.0000,0,10',"EXT2","EXT3",ENDCAL
GOTO/INCR,150.000000,0.000000,0.000000,1.000000
S(A90B-90)=SNSDEF/PROBE,INDEX,POL,90.0,-90.0,0.0000,0.0000,1.0000,208.0000,2.0000
SNSLCT/SA(A90B-90)
DMESW/COMAND,'CLEARP/XDIR,249.0000,ZDIR,0.0000,ON'
F(圆10)=FEAT/CIRCLE,INNER,CART,239.000,12.600,-28.500,1.00000000,0,0,8.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CIRCLE_1007),AUTOFIGURE,F(圆10),CIRCLE,INNER,CART,LSTSQR,239.0000,12.6000,$
-28.5000,1.00000000,0,0,8.000,0,0,1.00000000,4,-2.000,0,0,0,0,360.000,TOUCH,CIRCLE,0.300,0,FALSE,FALSE,$
FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",'7,0,0,0,0,3.0000,0,10','0,1,0,5.0000',$
"EXT3",ENDCAL
F(点12)=FEAT/POINT,CART,194.000,5.757,-2.898,1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点12),POINT,CART,DME,194.000,5.757,-2.898,1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点13)=FEAT/POINT,CART,209.000,22.170,-3.034,1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点13),POINT,CART,DME,209.000,22.170,-3.034,1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点14)=FEAT/POINT,CART,224.000,41.829,-3.541,1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点14),POINT,CART,DME,224.000,41.829,-3.541,1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
F(点15)=FEAT/POINT,CART,239.000,58.522,-3.659,1.00000000,0,0
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点15),POINT,CART,DME,239.000,58.522,-3.659,1.00000000,$
0,0,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,FA(VECBLD),10.000,2.500,3,XYPLAN,"",0,"EXT2","EXT3",$
ENDCAL
GOTO/INCR,150.000000,0.000000,0.000000,1.000000
S(A0B0)=SNSDEF/PROBE,INDEX,POL,0.0,0.0,0.0000,0.0000,1.0000,208.0000,2.0000
SNSLCT/SA(A0B0)
DMESW/COMAND,'CLEARP/ZDIR,35.0000,ZDIR,0.0000,ON'
GOTO/CART,124.000,50.000,100.000,SA(A0.0B0.0)
F(圆锥5)=FEAT/CONE,INNER,CART,226.400,12.500,-35.000,0,0,1.00000000,30.000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CONE_1007),AUTOFIGURE,F(圆锥5),CONE,CART,INNER,LSTSQR,226.400,12.500,-35.000,$
0,0,1.00000000,30.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,1.00000000,0,0,360.000,8.033,2.000,$
2.000,9,3,TOUCH,0.300,XYPLAN,"",'1,13.00000000','5,0,0,3.0000,0,10',"EXT3",ENDCAL
F(点16)=FEAT/POINT,CART,213.389,9.264,-22.000,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINT_1007),AUTOFIGURE,F(点16),POINT,CART,DME,213.389,9.264,-22.000,0,$
0,1.00000000,0,0,0,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,1,FA(VECBLD),2.000,2.500,3,XYPLAN,"",0,"EXT2",$
"EXT3",ENDCAL
F(边缘点1)=FEAT/EDGEPT,CART,88.349,0,0,0,-1.00000000,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTEDGE_1006),AUTOFIGURE,F(边缘点1),EDGEPT,CART,88.349,0,0,0,-1.00000000,$
0,0,0,0,0,1.00000000,2.000,2.000,5.000,5.000,1,1.000,XYPLAN
F(边缘点2)=FEAT/EDGEPT,CART,141.268,0,0,0,-1.00000000,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTEDGE_1006),AUTOFIGURE,F(边缘点2),EDGEPT,CART,141.268,0,0,0,-1.00000000,$
0,0,0,0,0,1.00000000,2.000,2.000,5.000,5.000,2,3.000,XYPLAN
F(边缘点3)=FEAT/EDGEPT,CART,194.000,11.464,0,1.00000000,0,0,0,0,1.00000000
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTEDGE_1006),AUTOFIGURE,F(边缘点3),EDGEPT,CART,194.000,11.464,0,1.00000000,$
0,0,0,0,0,0,1.00000000,2.000,2.000,5.000,5.000,3,3.000,XYPLAN
F(隅点1)=FEAT/POINT,CART,194.000,0,0,0.57735027,-0.57735027,0.57735027
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTCORNER_1006),AUTOFIGURE,F(隅点1),CORNERPNT,CART,194.000,0,0,0.57735027,$
-0.57735027,0.57735027,5.000,3.000,2.000,0,0,1.00000000,0,-1.00000000,0,1.00000000,0,0,XYPLAN
F(角点1)=FEAT/POINT,CART,180.500,28.972,0,0.13052619,0,0.99144486
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTANGLE_1006),AUTOFIGURE,F(角点1),ANGLEPNT,CART,180.500,28.972,0,0.13052619,$
0,0.99144486,5.000,2.000,0,0,1.00000000,0.25881905,0,0.96592583,0,1.00000000,0,1,1.000,XYPLAN
F(角点2)=FEAT/POINT,CART,180.500,31.803,0,0.13052619,0,0.99144486
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTANGLE_1006),AUTOFIGURE,F(角点2),ANGLEPNT,CART,180.500,31.803,0,0.13052619,$
0,0.99144486,5.000,2.000,0,0,1.00000000,0.25881905,0,0.96592583,0,1.00000000,0,2,1.000,XYPLAN
F(角点3)=FEAT/POINT,CART,180.500,28.361,0,0.13052142,0.00000498,0.99144549
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POINTANGLE_1006),AUTOFIGURE,F(角点3),ANGLEPNT,CART,180.500,28.361,0,0.13052142,$
0.00000498,0.99144549,5.000,2.000,0,0,1.00000000,0.25880975,0.00000987,0.96592832,-0.00003814,1.00000000,$
0,3,1.000,XYPLAN
DMESW/COMAND,'GEOEXT/F(凹口槽1)=FEAT/CONCAVE,INNER,CART,76.522,3.000,0,0,0,1.00000000,0,-1.00000000,0,12.000,$
6.000'
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CONCAVE_1006),AUTOFIGURE,F(凹口槽1),CONCAVE,CART,INNER,76.522,3.000,0,0,$
0,1.00000000,12.000,6.000,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,-1.00000000,0,-2.000,5.000,0,0,$
0,0,FA(VECBLD),10.000,2.500,3,XYPLAN
DMESW/COMAND,'GEOEXT/F(凹口槽2)=FEAT/CONCAVE,INNER,CART,124.000,12.840,0,0,0,1.00000000,0,-1.00000000,0,$
8.000,10.266'
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_CONCAVE_1006),AUTOFIGURE,F(凹口槽2),CONCAVE,CART,INNER,124.000,12.840,0,$
0,0,1.00000000,8.000,10.266,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,0,-1.00000000,0,-2.000,5.000,0,$
0,0,0,FA(VECBLD),10.000,2.500,3,XYPLAN
DMESW/COMAND,'GEOEXT/F(多边形1)=FEAT/POLYGON,INNER,CART,26.364,49.500,15.000,0,0,1.00000000,-1.00000000,$
0,0,15.012,0,6'
CALL/EXTERN,DMIS,M(NETDMIS_AUTO_POLYGON_1006),AUTOFIGURE,F(多边形1),POLYGON,CART,INNER,26.364,49.500,15.000,$
0,0,1.00000000,0,15.012,FALSE,FALSE,FALSE,10.000,"CUR",TRUE,FALSE,-1.00000000,0,0,-2.000,5.000,6,1,0,$
0,0,0,FA(VECBLD),10.000,2.500,3,XYPLAN
XTERN
EXTFIL/DMIS,'CURVESURFACE\\曲线1.DMI'
ENDXTN
CALL/EXTERN,DMIS,M(CURVE173199968)
XTERN
EXTFIL/DMIS,'CURVESURFACE\\曲线2.DMI'
ENDXTN
CALL/EXTERN,DMIS,M(CURVE173232593)
XTERN
EXTFIL/DMIS,'CURVESURFACE\\曲线3.DMI'
ENDXTN
CALL/EXTERN,DMIS,M(CURVE173344859)
XTERN
EXTFIL/DMIS,'CURVESURFACE\\曲面1.DMI'
ENDXTN
CALL/EXTERN,DMIS,M(SURFACE173394953)
DMESW/COMAND,'MOVE/CLEARPLANE'
GOTO/INCR,150.000000,0.000000,0.000000,1.000000
GOTO/CART,124.000,50.000,10.000,SA(A0.0B0.0)
