Re: [libredwg] Sample VB code for generating XML output for testsuite.

[Felipe Sanches]

implementing it this way will be as hard as implementing libredwg itself. Doesnt VB allow for object reflection? What about autolisp?

By reflection I mean something similar to this _javascript_ feature:
for(var member in obj){ alert(member); };  //This will show you all of the object's members


Also, we want to dump the whole contents of a DWG file, not only the objects that are stored in the modelspace. We also want to dump the header variables and absolutly everything that is part of a DWG document.

Felipe Sanches

On Wed, May 12, 2010 at 3:04 PM, Guruprasad Rane <address@hidden> wrote:

Hi All

Here is a small piece of code in VB to generate an XML output from a drawing file in autocad. Presently it supports only Line, Ray, Construction Line & polyline.

The XML schema needs to be discussed and finalized. Someone with in depth knowledge of DWG file format need to help out.

Sub GenerateXML()

  Dim tempObj As AcadEntity

  Dim tempXML As String

  Set fs = CreateObject("Scripting.FileSystemObject")

  Set XMLFile = fs.CreateTextFile("c:\test.xml", True)

  XMLFile.WriteLine ("<?xml version='1.0' encoding='UTF-8' ?><dwgdata>")

  For Each tempObj In ThisDrawing.ModelSpace

      Select Case tempObj.ObjectName

          Case "AcDbLine"

              Dim StartPoint As Variant

              Dim EndPoint As Variant

              StartPoint = tempObj.StartPoint

              EndPoint = tempObj.EndPoint

              tempXML = "<" & tempObj.ObjectName & " id='" & tempObj.ObjectID & "' color='" & tempObj.color & "' layer='" & tempObj.Layer & "' linetype='" & tempObj.Linetype & "' linetypescale='" & tempObj.LinetypeScale & "' lineweight='" & tempObj.Lineweight & "' startX='" & StartPoint(0) & "' startY='" & StartPoint(1) & "' startZ='" & StartPoint(2) & "' endX='" & EndPoint(0) & "' endY='" & EndPoint(1) & "' endZ='" & EndPoint(2) & "' />"

              XMLFile.WriteLine (tempXML)

          Case "AcDbRay", "AcDbXline"

              Dim NewBasePoint As Variant

              Dim NewSecondPoint As Variant

              NewBasePoint = tempObj.BasePoint

              NewSecondPoint = tempObj.SecondPoint

              tempXML = "<" & tempObj.ObjectName & " id='" & tempObj.ObjectID & "' color='" & tempObj.color & "' layer='" & tempObj.Layer & "' linetype='" & tempObj.Linetype & "' linetypescale='" & tempObj.LinetypeScale & "' lineweight='" & tempObj.Lineweight & "' basepointX='" & NewBasePoint(0) & "' basepointY='" & NewBasePoint(1) & "' basepointZ='" & NewBasePoint(2) & "' secondpointX='" & NewSecondPoint(0) & "' secondpointY='" & NewSecondPoint(1) & "' secondpointZ='" & NewSecondPoint(2) & "' />"

              XMLFile.WriteLine (tempXML)

          Case "AcDbPolyline"

              Dim NewNormal As Variant

              Dim NewCoordinates As Variant

              Dim StartWidth As Double

              Dim EndWidth As Double

              Dim NoOfSegments As Integer

              NewCoordinates = tempObj.Coordinates

              NoOfSegments = ((UBound(NewCoordinates) - LBound(NewCoordinates) + 1) / 2) - 1

              NewNormal = tempObj.Normal

              tempXML = "<" & tempObj.ObjectName & " id='" & tempObj.ObjectID & "' color='" & tempObj.color & "' layer='" & tempObj.Layer & "' linetype='" & tempObj.Linetype & "' linetypescale='" & tempObj.LinetypeScale & "' lineweight='" & tempObj.Lineweight & "' closed='" & tempObj.Lineweight & "' elevation='" & tempObj.Elevation & "' normalX='" & NewNormal(0) & "' normalY='" & NewNormal(1) & "' normalZ='" & NewNormal(2) & "' segments='" & NoOfSegments & "'>"

              XMLFile.WriteLine (tempXML)

              For point = 0 To NoOfSegments Step 1

                  StartPoint = tempObj.Coordinate(point)

                  tempObj.GetWidth point, StartWidth, EndWidth

                  tempXML = "<PolyLinePoint id='" & point + 1 & "' x='" & StartPoint(0) & "' y='" & StartPoint(1) & "' StartWidth='" & StartWidth & "' EndWidth='" & EndWidth & "' />"

              XMLFile.WriteLine (tempXML)

              Next point

              XMLFile.WriteLine ("</" & tempObj.ObjectName & ">")

      End Select

  Next

  XMLFile.WriteLine ("</dwgdata>")

  XMLFile.Close

End Sub




Here is the XML output

<?xml version='1.0' encoding='UTF-8' ?>

<dwgdata>

       <AcDbLine id='2130326536' color='1' layer='test layer' linetype='ByLayer' linetypescale='1' lineweight='-1' startX='29' startY='36.5' startZ='0' endX='43' endY='46.5' endZ='0' />

       <AcDbPolyline id='2130326576' color='256' layer='0' linetype='ByLayer' linetypescale='1' lineweight='-1' closed='-1' elevation='10' normalX='0' normalY='0' normalZ='1' segments='7'>

               <PolyLinePoint id='1' x='29' y='13' StartWidth='1' EndWidth='6' />

               <PolyLinePoint id='2' x='49' y='24' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='3' x='58.5' y='14.5' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='4' x='68' y='21.5' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='5' x='80.5' y='17.5' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='6' x='78.1371552975327' y='10.1161103047896' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='7' x='60.5' y='1' StartWidth='0' EndWidth='0' />

               <PolyLinePoint id='8' x='49' y='9.5' StartWidth='0' EndWidth='0' />

       </AcDbPolyline>

       <AcDbRay id='2130326672' color='2' layer='0' linetype='ByLayer' linetypescale='1' lineweight='-1' basepointX='25' basepointY='46.5' basepointZ='0' secondpointX='24.5630960372631' secondpointY='45.600491841424' secondpointZ='0' />

       <AcDbLine id='2130326680' color='256' layer='0' linetype='ByLayer' linetypescale='1' lineweight='-1' startX='45.5' startY='36' startZ='0' endX='66' endY='42' endZ='0' />

       <AcDbXline id='2130326688' color='256' layer='test layer' linetype='ByLayer' linetypescale='1' lineweight='-1' basepointX='57.5' basepointY='50' basepointZ='0' secondpointX='58.3831157194574' secondpointY='49.5308447740383' secondpointZ='0' />

</dwgdata>


Please comment

Regards

Guruprasad