调用netdxf进行VB.net的生成dxf的开发

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        
        Dim doc As New netDxf.DxfDocument

        Dim dxf2 As New netDxf.DxfDocument
        Dim Lineweight As New netDxf.Lineweight '线粗细

        Dim file As String
        file = "sample.dxf"

        Dim p(1) As netDxf.Vector2
        Dim p1(1) As netDxf.Vector2
        p(1).X = 10
        p(1).Y = 10
        p1(1).X = 100
        p1(1).Y = 100
        
        Dim line1 As New netDxf.Entities.Line
        line1 = New netDxf.Entities.Line(p(1), p1(1))
        Dim layer As New netDxf.Tables.Layer("NN")
        layer.Color.Index = 1
        'layer.Linetype.Name = "CONTINUOUS"
        'doc.AddEntity(layer)
        Dim Color As New netDxf.AciColor
        line1.Layer = layer
        doc.AddEntity(line1)

        Dim cc As netDxf.Entities.Circle
        cc = New netDxf.Entities.Circle(p(1), 300)
        cc.Layer = layer
        cc.Color.Index = 2
        doc.AddEntity(cc)

        Dim text1 As netDxf.Entities.Text
        text1 = New netDxf.Entities.Text("aaa")
        text1.Layer = layer
        Dim dim1 As netDxf.Entities.AlignedDimension
        Dim dimStype As netDxf.Entities.DimensionType

        Dim p2(1) As netDxf.Vector2
        Dim p3(1) As netDxf.Vector2
        Dim offseta As Double

        p2(1).X = 10
        p2(1).Y = 10
        p3(1).X = 100
        p3(1).Y = 100
        offseta = 10

        dim1 = New netDxf.Entities.AlignedDimension(line1, offseta)
        doc.AddEntity(dim1)
       

        Dim f1 As New IO.FileStream("test2.dxf", System.IO.FileMode.Create)
        doc.Save(f1)
        f1.Close()

    End Sub