利用开源ANYCAD，通过抽取TRIBON数据，生成型材小票3D作业指导书

笑遥佛

1. mRenderView.ClearAll()   '清楚屏幕
   
2.         'HP320*12的型材外轮廓
   
3.         Dim HPShapes As New TopoShapeList From {
   
4.             SketchBuilder.MakeLine(New GPnt(0, 0, 0), New GPnt(0, 0, 320)),
   
5.             SketchBuilder.MakeLine(New GPnt(0, 0, 320), New GPnt(0, 44, 320)),
   
6.             SketchBuilder.MakeArcOfCircle(New GPnt(0, 44.0, 320), New GPnt(0, 51.0, 293.9), New GPnt(0, 57.5, 309.6)),
   
7.             SketchBuilder.MakeLine(New GPnt(0, 51.0, 293.9), New GPnt(0, 19, 275.4)),
   
8.             SketchBuilder.MakeArcOfCircle(New GPnt(0, 19, 275.4), New GPnt(0, 12, 263.3), New GPnt(0, 13.9, 270.3)),
   
9.             SketchBuilder.MakeLine(New GPnt(0, 12, 263.3), New GPnt(0, 12, 0)),
   
10.             SketchBuilder.MakeLine(New GPnt(0, 12, 0), New GPnt(0, 0, 0))
    
11.         }
    
12.         '腹板端切CUT轮廓
    
13.         Dim WEBShapes As New TopoShapeList From {
    
14.             SketchBuilder.MakeArcOfCircle(New GPnt(50, 0, 0), New GPnt(0, 0, 50), New GPnt(35.4, 0, 35.4)),
    
15.             SketchBuilder.MakeLine(New GPnt(0, 0, 50), New GPnt(0, 0, 150)),
    
16.             SketchBuilder.MakeLine(New GPnt(0, 0, 150), New GPnt(294.4, 0, 320)),
    
17.             SketchBuilder.MakeLine(New GPnt(294.4, 0, 320), New GPnt(-100, 0, 320)),
    
18.             SketchBuilder.MakeLine(New GPnt(-100, 0, 320), New GPnt(-100, 0, 0)),
    
19.             SketchBuilder.MakeLine(New GPnt(-100, 0, 0), New GPnt(50, 0, 0))
    
20.         }
    
21.         '面板端切CUT轮廓
    
22.         Dim FLAShapes As New TopoShapeList From {
    
23.             SketchBuilder.MakeLine(New GPnt(-100, 12, 0), New GPnt(294.4, 12, 0)),
    
24.             SketchBuilder.MakeLine(New GPnt(294.4, 12, 0), New GPnt(294.4, 27, 0)),
    
25.             SketchBuilder.MakeLine(New GPnt(294.4, 27, 0), New GPnt(348.1, 58, 0)),
    
26.             SketchBuilder.MakeLine(New GPnt(348.1, 58, 0), New GPnt(-100, 58, 0)),
    
27.             SketchBuilder.MakeLine(New GPnt(-100, 58, 0), New GPnt(-100, 12, 0))
    
28.         }
    
29. 
    
30.         Dim HBface = SketchBuilder.MakePlanarFace(SketchBuilder.MakeWire(HPShapes)) 'HP320*12的型材外轮廓组合成面
    
31.         Dim HBpart = FeatureTool.Extrude(HBface, 2000, New GDir(1, 0, 0)) '拉伸腹板端切CUT轮廓
    
32. 
    
33.         Dim WEBface = SketchBuilder.MakePlanarFace(SketchBuilder.MakeWire(WEBShapes)) '轮廓组合成面
    
34.         Dim WEBpart = FeatureTool.Extrude(WEBface, 300, New GDir(0, 1, 0)) '拉伸腹板端切CUT轮廓
    
35. 
    
36.         Dim FLAface = SketchBuilder.MakePlanarFace(SketchBuilder.MakeWire(FLAShapes)) '轮廓组合成面
    
37.         Dim FLApart = FeatureTool.Extrude(FLAface, 350, New GDir(0, 0, 1)) '面板端切CUT轮廓
    
38. 
    
39.         Dim part As TopoShape = BooleanTool.Cut(HBpart, WEBpart) '布尔运算-，切出腹板形状
    
40.         part = BooleanTool.Cut(part, FLApart) '布尔运算-，切出页板形状
    
41. 
    
42.         mRenderView.ShowShape(part, ColorTable.Beige) '显示模型
    
43. 
    
44.         '标注腹板留根尺寸
    
45.         Dim dim1 = New LinearDimensionNode(New Vector3(0, 0, 0), New Vector3(0, 0, 150), New Vector3(-20, 0, 75), 90, "150")
    
46.         dim1.SetFontHeight(30)
    
47.         dim1.SetArrowLength(30)
    
48.         dim1.Update()
    
49.         mRenderView.ShowSceneNode(dim1)
    
50. 
    
51.         '标注腹板削斜角度
    
52.         Dim angle = New AngularDimensionNode(New Vector3(0, 0, 150), New Vector3(200, 0, 150), New Vector3(147.2, 0, 235), "30")
    
53.         angle.SetFontHeight(30)
    
54.         angle.SetArrowLength(30)
    
55.         angle.Update()
    
56.         mRenderView.ShowSceneNode(angle)
    
57.         Dim line_SB = SketchBuilder.MakeLine(New GPnt(0, 0, 150), New GPnt(220, 0, 150))
    
58.         mRenderView.ShowShape(line_SB, ColorTable.Cyan)
    
59. 
    
60.         '标注面板留根尺寸
    
61.         Dim dim2 = New LinearDimensionNode(New Vector3(294.4, 0, 320), New Vector3(294.4, 25, 320), New Vector3(274.4, 90, 320), 90, "25")
    
62.         dim2.SetFontHeight(30)
    
63.         dim2.SetArrowLength(10)
    
64.         dim2.SetArrowStyle(EnumDimensionArrowStyle.ARCHTICK)
    
65.         dim2.Update()
    
66.         mRenderView.ShowSceneNode(dim2)
    
67. 
    
68.         '标注面板削斜角度
    
69.         Dim angle1 = New AngularDimensionNode(New Vector3(294.4, 25, 320), New Vector3(494.4, 25, 320), New Vector3(484.93, 135, 320), "30")
    
70.         angle1.SetFontHeight(30)
    
71.         angle1.SetArrowLength(30)
    
72.         angle1.Update()
    
73.         mRenderView.ShowSceneNode(angle1)
    
74.         Dim line_SB1 = SketchBuilder.MakeLine(New GPnt(294.4, 25, 320), New GPnt(524.4, 25, 320))
    
75.         mRenderView.ShowShape(line_SB1, ColorTable.Cyan)
    
76.         Dim line_SB2 = SketchBuilder.MakeLine(New GPnt(294.4, 25, 320), New GPnt(484.93, 135, 320))
    
77.         mRenderView.ShowShape(line_SB2, ColorTable.Cyan)
    
78. 
    
79.         '标注端切R
    
80.         Dim radiusDim = New RadiusDimensionNode(New Vector3(0, 0, 0), New Vector3(35.36, 0, 35.36), New Vector3(70.71, 0, 70.71), "R50")
    
81.         radiusDim.SetFontHeight(30)
    
82.         radiusDim.SetArrowLength(30)
    
83.         radiusDim.Update()
    
84.         mRenderView.ShowSceneNode(radiusDim)
    
85. 
    
86.         mRenderView.ZoomAll()

复制代码

效果图如下： -->

-->


-->


-->

-->

tanxindong

牛人，太厉害了

雪龙号

大佬厉害了

manhgsh

太强悍了，学习