CADImporterDLL in VB6.0
Posted: 03 Dec 2006, 18:00
Enumerating via
hEntities=DXFGetSection(hDXF,CS_ENTITIES,dataEntity)
only returns minimal data when iterating with
DXFGetChild(hEntities, i , dataEntity)
(only Tag is returned)
even a subsequent call to DXFGetData does not fill out dataEntity
See code fragment below
Public Sub EnumEntities(hDXF As Long)
Dim hEntities As Long
Dim hEntity As Long
Dim lRet As Long
Dim sLayer As String
Dim lEntityCount As Long
Dim dataEntity As Data
If hDXF <> 0 Then
hEntities = DXFGetSection(hDXF, CS_ENTITIES, dataEntity)
lEntityCount = dataEntity.Count
For i = 0 To lEntityCount
hEntity = DXFGetChild(hEntities, i, dataEntity)
lRet = DXFGetData(hEntity, dataEntity)
Next i
End If
End Sub
hEntities=DXFGetSection(hDXF,CS_ENTITIES,dataEntity)
only returns minimal data when iterating with
DXFGetChild(hEntities, i , dataEntity)
(only Tag is returned)
even a subsequent call to DXFGetData does not fill out dataEntity
See code fragment below
Public Sub EnumEntities(hDXF As Long)
Dim hEntities As Long
Dim hEntity As Long
Dim lRet As Long
Dim sLayer As String
Dim lEntityCount As Long
Dim dataEntity As Data
If hDXF <> 0 Then
hEntities = DXFGetSection(hDXF, CS_ENTITIES, dataEntity)
lEntityCount = dataEntity.Count
For i = 0 To lEntityCount
hEntity = DXFGetChild(hEntities, i, dataEntity)
lRet = DXFGetData(hEntity, dataEntity)
Next i
End If
End Sub