[pauly]

I am having trouble importing DXF files. I've tried using different versions of DXF i.e R12-14 etc. and still nothing. When I try this, the Cavax.Add_DXF() call returns false and after that the control seems disabled then I can't even draw. To troubleshoot further I tried to use the AvaxCAD sample code to see if I was at fault (a common occurence) and had the same results. I then decided to try a DWG file and get the same problem. What could cause this?

My code:

Private Sub LoadFile(ByVal Path As String)
      
        Dim sDxfFile As String
        Dim sDxfLayers As String
        Dim x As Single = 0
        Dim y As Single = 0
        Dim z As Single = 0
        Dim vItemProperties As Object
        Dim fNoText As Boolean = False
        Dim fNoBlock As Boolean = False
        Dim fNoDimension As Boolean = False
        Dim vRetHandles As Object
        'Definition of the DXF File Name
        sDxfFile = Path
        ' Import all the Layers
        sDxfLayers = ""
        If CAvax1.Add_DXF(sDxfFile, sDxfLayers, x, y, z, vItemProperties, fNoText, fNoBlock, fNoDimension, vRetHandles) = True Then
            Me.Text = strAppName & " - " & Path
        Else
            MsgBox("Error Opening File")
        End If
End Sub

This post has been edited by Gemalde: 20 September 2009 - 09:12 PM
Reason for edit: Added code tags

[Athanasios Gardos]

Use the following code.
If it is still not working then please send us the DXF file.

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

                               cAvax1.StartAvax()

End Sub

               

Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

                               cAvax1.EndAvax()

End Sub

               

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

                               Dim sDxfFile As String

                               Dim sDxfLayers As String

                               Dim x As Single

                               Dim y As Single

                               Dim z As Single

                               Dim vItemProperties As Object

                               Dim fNoText As Boolean

                               Dim fNoBlock As Boolean

                               Dim fNoDimension As Boolean

                               Dim vRetHandles As Object

                               Dim AvaxHandle As Boolean
                           

                               sDxfFile = "C:\Sample.DXF"  
 

                               sDxfLayers = ""

                               

                               AvaxHandle = cAvax1.Add_DXF(sDxfFile, sDxfLayers, x, y, z, vItemProperties, fNoText, fNoBlock, fNoDimension, vRetHandles)

End Sub

[pauly]

Still the same outcome. I will send a file to you.

This post has been edited by pauly: 22 September 2009 - 02:34 AM

[Athanasios Gardos]

It was a bug at our DXF import code that we have corrected.
You can download the latest AVAX version to see the correction.