Page 1 of 1
DXF w/ Layers (HELP) Importing a dxf with layers
#1
Posted 10 August 2008 - 05:09 PM
I am having an issue with importing a dxf file. The drawing is imported and displayed but the layers are not. I am using GetLayers to add the layer names to a combo box. This works on my development computer but does not on any other computer. GetLayers does return a value of 256 but the all the layer names = “”. What am I doing wrong? I have included all the file required stated in the readme.rtf
#4
Posted 11 August 2008 - 08:15 AM
Can you make a small test project with the following code:
I don't think that it is an installation problem or a problem of the dxf files.
Private Sub Form_Load()
Dim sLayers() As String, iLayStatus() As Integer
Dim lMax As Long, lCnt As Long
Call cAvax1.StartAvax
Call cAvax1.Add_DXF(App.Path & "\Cpart_1_LeftSide.dxf", "", 0, 0, 0)
lMax = cAvax1.GetLayers(sLayers(), iLayStatus())
Combo1.Clear
For lCnt = 1 To lMax
Combo1.AddItem Format$(lCnt - 1) & " : " & sLayers(lCnt - 1)
Next lCnt
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call cAvax1.EndAvax
End SubI don't think that it is an installation problem or a problem of the dxf files.
This post has been edited by Gemalde: 11 August 2008 - 11:31 AM
Athanasios Gardos
Avax-Software.com
Avax-Software.com
#5
Posted 11 August 2008 - 11:11 AM
The code above is how I am trying to add the layers but I have a check to make sure the layer is there as in below example. I will Try your code above and email you the code I am using
For lCnt = 1 To lMax
If sLayers(lCnt - 1) > "" Then
Combo1.AddItem Format$(lCnt - 1) & " : " & sLayers(lCnt - 1)
End If
Next lCnt
This post has been edited by Gemalde: 11 August 2008 - 11:31 AM
Page 1 of 1
Sign In
Register
Help
Add Reply

MultiQuote