GEN指令转换，零件导CAD

笑遥佛

最近发现和个开源的ANYCAD工具，超级好用，可以用他来用他来显示GEN
1.利用NUGET，下载ANYCAD到到工程，会自动引用
-->
2.在窗体上放置一个SplitContainer控件
-->
3.把SplitContainer1.Panel当成挂上ANYCAD显示控件，代码如下
-->
4.写选择左边的LIST时的事件

1.     Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
   
2.         GroupBox2.Text = "GEN文件列表" + ListBox1.SelectedItems.Count.ToString + "/" + ListBox1.Items.Count.ToString
   
3.         If Me.ListBox1.SelectedItems.Count > 0 Then
   
4.             mRenderView.ClearAll()
   
5.             Dim material_mark As BasicMaterial
   
6.             material_mark = BasicMaterial.Create("gold")
   
7.             material_mark.SetColor(New AnyCAD.Foundation.Vector3(0, 1, 0))
   
8.             Dim material_burn As BasicMaterial
   
9.             material_burn = BasicMaterial.Create("ruby")
   
10.             material_burn.SetColor(New AnyCAD.Foundation.Vector3(1, 0, 0))
    
11.             Dim material_plate As BasicMaterial
    
12.             material_plate = BasicMaterial.Create("ruby")
    
13.             material_plate.SetColor(New AnyCAD.Foundation.Vector3(1, 1, 1))
    
14.             Dim str As String = Me.ListBox1.SelectedItems(0)
    
15.             Dim genFileName As String = (Me.ToolStripStatusLabel4.Text & str)
    
16.             Dim pocessor As New ToppingPocessor
    
17.             pocessor.GetSegList(genFileName)
    
18.             For i = 0 To pocessor.segList.Count - 1
    
19.                 Dim segment As SegmentCls = pocessor.segList(i)
    
20.                 If segment.radius = 0 Then
    
21.                     Dim line_SB = SketchBuilder.MakeLine(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0))
    
22.                     If segment.action = "Mark" Then
    
23.                         mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB, material_mark, material_mark))
    
24.                     Else
    
25.                         mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB, material_burn, material_burn))
    
26.                     End If
    
27.                 Else
    
28.                     Dim arc_SB = SketchBuilder.MakeArcOfCircle(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0), New GPnt(segment.amp_u, segment.amp_v, 0))
    
29.                     If segment.action = "Mark" Then
    
30.                         mRenderView.ShowSceneNode(BrepSceneNode.Create(arc_SB, material_mark, material_mark))
    
31.                     Else
    
32.                         mRenderView.ShowSceneNode(BrepSceneNode.Create(arc_SB, material_burn, material_burn))
    
33.                     End If
    
34.                 End If
    
35.             Next
    
36.             Dim line_SB1 = SketchBuilder.MakeLine(New GPnt(0, 0, 0), New GPnt(pocessor.plate_Length * 0.1, 0, 0))
    
37.             mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB1, material_plate, material_plate))
    
38.             Dim line_SB2 = SketchBuilder.MakeLine(New GPnt(pocessor.plate_Length * 0.1, 0, 0), New GPnt(pocessor.plate_Length * 0.1, pocessor.plate_Width * 0.1, 0))
    
39.             mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB2, material_plate, material_plate))
    
40.             Dim line_SB3 = SketchBuilder.MakeLine(New GPnt(pocessor.plate_Length * 0.1, pocessor.plate_Width * 0.1, 0), New GPnt(0, pocessor.plate_Width * 0.1, 0))
    
41.             mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB3, material_plate, material_plate))
    
42.             Dim line_SB4 = SketchBuilder.MakeLine(New GPnt(0, pocessor.plate_Width * 0.1, 0), New GPnt(0, 0, 0))
    
43.             mRenderView.ShowSceneNode(BrepSceneNode.Create(line_SB4, material_plate, material_plate))
    
44.             mRenderView.ZoomAll()
    
45.         End If
    
46.     End Sub

复制代码

-->
5.显示效果如下
-->
-->

-->
6.花两个小时搞定，ANYCAD功能引大，多花点时间，其实可以可以把做成3D的，并可以把每个边的坡口都可以做进去，进行显示。如果有客户有需求的可以搞搞。
-->

今天晚上没事做，研究了一下，做成立体的零件
-->

在立体面上，增加划线功能。并把切割引点加上。
ANYCAD,还有模拟仿真，应该可以做出销切割机的仿真切割。
-->

-->

笑遥佛

把程序放到网盘了，要用的朋友可以去网盘下载

链接：https://pan.baidu.com/s/1nUSzaBGx4fEe58x39VNSrQ
提取码：lpl3

qianzuhui

能gen转成TXT吗

笑遥佛

qianzuhui 发表于 2023-2-27 08:20
能gen转成TXT吗

转TXT,MPG,都可以转，网盘里的只能浏览GEN

总裁之爹

qianzuhui 发表于 2023-2-27 08:20
能gen转成TXT吗

GEN转TXT早就有一个免费的小软件，很好用的

qianzuhui

收费的东西就不要拿出来晒了

笑遥佛

生主立体零件代码如下：

1.            Dim start_contour As Boolean = False
   
2.             Dim start_hole As Boolean = False
   
3.             Dim topoShapes As TopoShapeList = New TopoShapeList()
   
4.             Dim hole_list As New List(Of TopoShape)
   
5.             For i = 0 To pocessor.segList.Count - 1
   
6.                 Dim segment As SegmentCls = pocessor.segList(i)
   
7.                 Dim cls2 As SegmentCls = pocessor.segList(i)
   
8.                 If (i <> (pocessor.segList.Count - 1)) Then
   
9.                     cls2 = pocessor.segList((i + 1))
   
10.                 End If
    
11. 
    
12. 
    
13.                 If segment.shape = "HOLE" Then
    
14.                     If start_hole = False Then
    
15.                         topoShapes = New TopoShapeList()
    
16.                     End If
    
17.                     If segment.radius = 0 Then          '绘制直线
    
18.                         Dim line_SB = SketchBuilder.MakeLine(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0))
    
19.                         topoShapes.Add(line_SB)
    
20.                     Else                '绘制圆弧
    
21.                         Dim arc_SB = SketchBuilder.MakeArcOfCircle(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0), New GPnt(segment.amp_u, segment.amp_v, 0))
    
22.                         topoShapes.Add(arc_SB)
    
23.                     End If
    
24.                     start_hole = True
    
25.                     If cls2.shape <> "HOLE" Then
    
26.                         Dim Shape = ShapeBuilder.MakeCompound(topoShapes)
    
27.                         Shape = SketchBuilder.MakeWire(topoShapes)
    
28.                         Dim part_face = SketchBuilder.MakePlanarFace(Shape)
    
29.                         hole_list.Add(part_face)
    
30.                         start_hole = False
    
31.                     End If
    
32.                 End If
    
33. 
    
34.                 If segment.shape = "OUTER_CONTOUR" Then
    
35.                     If start_contour = False Then
    
36.                         topoShapes = New TopoShapeList()
    
37.                     End If
    
38.                     If segment.radius = 0 Then          '绘制直线
    
39.                         Dim line_SB = SketchBuilder.MakeLine(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0))
    
40.                         topoShapes.Add(line_SB)
    
41.                     Else                '绘制圆弧
    
42.                         Dim arc_SB = SketchBuilder.MakeArcOfCircle(New GPnt(segment.start_u, segment.start_v, 0), New GPnt(segment.end_u, segment.end_v, 0), New GPnt(segment.amp_u, segment.amp_v, 0))
    
43.                         topoShapes.Add(arc_SB)
    
44.                     End If
    
45.                     start_contour = True
    
46. 
    
47.                     If cls2.shape <> "OUTER_CONTOUR" Then
    
48.                         Dim Shape = ShapeBuilder.MakeCompound(topoShapes)
    
49.                         Shape = SketchBuilder.MakeWire(topoShapes)
    
50.                         Dim part_face = SketchBuilder.MakePlanarFace(Shape)
    
51.                         For Each hole_one In hole_list
    
52.                             part_face = BooleanTool.Cut(part_face, hole_one)
    
53.                         Next
    
54.                         Dim part = FeatureTool.Extrude(part_face, thickness, New GDir(0, 0, -1))
    
55.                         mRenderView.ShowShape(part, ColorTable.Beige)
    
56.                         start_contour = False
    
57.                         hole_list.Clear()
    
58.                     End If
    
59.                 End If
    
60.             Next

复制代码

龙的权人

一堆代码
看不懂

fzx118

谢谢分享，牛逼哄哄的

HasakG

不明觉厉，谢谢分享

ASTROBOY

不明觉厉，一堆代码，看不懂！

king20061335

能把这个类ToppingPocessor的源码发一下码？