Hier mal ein paar Auszüge aus meiner Lösung.
Basis ein ein MustInherit-Klasse mit Farb- und Layerzuordnung und einer "Basis"-Koordinate:
Imports System.Text
''' <summary>
''' Drawing element base class
''' </summary>
''' <remarks></remarks>
Public MustInherit Class DElement
Private _color As Integer = Integer.MinValue
''' <summary>
''' Color, group code 62
''' </summary>
''' <value>
''' ByLayer: Integer.MinValue, no output
''' ByBlock: 0
''' </value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Color() As String
Get
If Me._color < 0 Then
Return "ByLayer"
ElseIf Me._color = 0 Then
Return "ByBlock"
Else
Return Me._color.ToString
End If
End Get
Set(ByVal value As String)
Dim n As Integer = 0
If value = "ByLayer" Then
Me._color = Integer.MinValue
ElseIf value = "ByBlock" Then
Me._color = 0
ElseIf IsNumeric(value) _
AndAlso Integer.TryParse(value, n) _
AndAlso n > 0 AndAlso n < 256 Then
Me._color = n
Else
Throw New Exception("inavalid color")
End If
End Set
End Property
Private _layer As String = "0"
''' <summary>
''' Layer, group code 8
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Layer() As String
Get
Return _layer
End Get
Set(ByVal value As String)
_layer = value
End Set
End Property
Private _x As Double = 0
Public Property X() As Double
Get
Return _x
End Get
Set(ByVal value As Double)
_x = value
End Set
End Property
Private _y As Double = 0
Public Property Y() As Double
Get
Return _y
End Get
Set(ByVal value As Double)
_y = value
End Set
End Property
Private _z As Double = 0
Public Property Z() As Double
Get
Return _z
End Get
Set(ByVal value As Double)
_z = value
End Set
End Property
Public Overridable Function DXFOut() As String
Dim sb As New StringBuilder
' Layer
sb.Append(String.Format("8{0}{1}{0}", Environment.NewLine, Layer))
' Color
If Me._color >= 0 Then
sb.Append(String.Format("62{0}{1}{0}", Environment.NewLine, Me._color))
End If
Return sb.ToString
End Function
End Class
Danach kommt beispielsweise eine Linie:
Imports System.Text
Public Class DLine
Inherits DElement
Private _x2 As Double = 0
Public Property X2() As Double
Get
Return _x2
End Get
Set(ByVal value As Double)
_x2 = value
End Set
End Property
Private _y2 As Double = 0
Public Property Y2() As Double
Get
Return _y2
End Get
Set(ByVal value As Double)
_y2 = value
End Set
End Property
Private _z2 As Double = 0
Public Property Z2() As Double
Get
Return _z2
End Get
Set(ByVal value As Double)
_z2 = value
End Set
End Property
Public Overrides Function DXFOut() As String
Dim sb As New StringBuilder
' Layer
sb.Append(String.Format("0{0}LINE{0}", Environment.NewLine))
sb.Append(MyBase.DXFOut())
' startpoint
sb.Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, _
"10{0}{1}{0}20{0}{2}{0}30{0}{3}{0}", _
Environment.NewLine, _
Me.X, Me.Y, Me.Z))
' endpoint
sb.Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, _
"11{0}{1}{0}21{0}{2}{0}31{0}{3}{0}", _
Environment.NewLine, _
Me.X2, Me.Y2, Me.Z2))
Return sb.ToString
End Function
Public Overrides Function ToString() As String
Return "Line"
End Function
End Class
Und ein Text:
Imports System.Text
Public Class DText
Inherits DElement
Private _contents As String = ""
''' <summary>
''' text content group code 1
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Contents() As String
Get
Return _contents
End Get
Set(ByVal value As String)
_contents = value
End Set
End Property
Private _height As Double = 1
Public Property Height() As Double
Get
Return _height
End Get
Set(ByVal value As Double)
_height = value
End Set
End Property
Public Overrides Function DXFOut() As String
Dim sb As New StringBuilder
' Layer
sb.Append(String.Format("0{0}TEXT{0}", Environment.NewLine))
sb.Append(MyBase.DXFOut())
' startpoint
sb.Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, _
"10{0}{1}{0}20{0}{2}{0}30{0}{3}{0}40{0}{4}{0}", _
Environment.NewLine, _
Me.X, Me.Y, Me.Z, Me._height))
sb.Append(String.Format("1{0}{1}{0}", Environment.NewLine, Me._contents))
Return sb.ToString
End Function
Public Overrides Function ToString() As String
Return "Text"
End Function
End Class
Verwaltet werden die einzelnen Zeuíchnungsobjekte in einer DisplayList:
Imports System.Text
Public Class DisplayList
Inherits List(Of DElement)
Public Function DXFOut() As String
Dim sb As New StringBuilder
' Layer
sb.Append(String.Format("0{0}SECTION{0}", Environment.NewLine))
sb.Append(String.Format("2{0}ENTITIES{0}", Environment.NewLine))
For Each de In Me
sb.Append(de.DXFOut)
Next
sb.Append(String.Format("0{0}ENDSEC{0}", Environment.NewLine))
sb.Append(String.Format("0{0}EOF{0}", Environment.NewLine))
Return sb.ToString
End Function
End Class
Über die DXFOut-Methode wird das DXF als Zeichenkette erzeugt. Für große Dateien kann man auch mit einem IO.Stream arbeiten. Zur Verwaltung der DisplayList lann man eine ListBox und ein PropertyGrid nutzen.
--
Peter
