vb.net 保存成dxf文件

2025-04-08 15:05:05

1、创建窗体添加按钮

2、为按钮添加代码Private Sub Button1_Click(ByVal sender As S烤恤鹇灭ystem.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim doc As New DXFLibrary.Document() Dim tables As New DXFLibrary.Tables() doc.SetTables(tables) Dim layers As New DXFLibrary.Table("LAYER") tables.addTable(layers) Dim layerDoors As DXFLibrary.Layer layerDoors = New DXFLibrary.Layer("Doors", 30, "CONTINUOUS") layers.AddTableEntry(layerDoors) Dim cc As New DXFLibrary.Circle(5, 5, 0.1, "PartialHeightDoors") doc.add(cc) Dim line1 As New DXFLibrary.Line("Doors", 0, 0, 0, 10) doc.add(line1) Dim line2 As New DXFLibrary.Line("Doors", 0, 0, 10, 0) doc.add(line2) Dim line3 As New DXFLibrary.Line("Doors", 10, 10, 0, 10) doc.add(line3) Dim line4 As New DXFLibrary.Line("Doors", 10, 10, 10, 0) doc.add(line4) 'Dim line5 As New DXFLibrary.Line3D("Doors", 2, 2, 0, 5, 5, 10) 'doc.add(line5) Dim f1 As New IO.FileStream("test2.dxf", System.IO.FileMode.Create) DXFLibrary.Writer.Write(doc, f1) f1.Close() End Sub

3、运行并点击按钮测试

4、到程序目录找到test2.dxf,运行

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。