SDF Component Toolkit Applications
|
195
Dim oTlkt As New SdfToolkit
Dim oBox As SdfBoundingBox
Dim oObj As SdfObject
Dim strMsg As String
Dim i As Long
On Error GoTo ErrHandler
'Open the sdf file in read-only mode
oTlkt.Open txtSdfName.Text, sdfOpenRead, True
'Get the SDF extents
Set oBox = oTlkt.BoundingBox
'Begin spatial search for polylines
oTlkt.BeginSpatialIndexSearch sdfPolylineClass, oBox
'Get first feature
Set oObj = oTlkt.SearchToNextObject()
i = 1
While Not (oObj Is Nothing)
ShowMessage "Feature: " & i & " " & GetObjectTypeString(oObj.Type)
ShowMessage "
Key: " & oObj.Key
ShowMessage "
Name: " & oObj.Name
ShowMessage "
Url: " & oObj.Url
Set oObj = oTlkt.SearchToNextObject()
i = i + 1
DoEvents
Wend
'Close the toolkit
oTlkt.EndSearch
oTlkt.Close
Exit Sub
ErrHandler:
'Display the error number/message
MsgBox Err.Number & " : " & Err.Description
'Reset the handler before exiting
On Error GoTo 0
End Sub
Sub ShowMessage(Msg As String)
SDFInfo Example Code (
continued
)
Содержание 15606-011408-9300 - MAP R6.3 UPG
Страница 1: ...15306 010000 5060 October 2001 Autodesk MapGuide Release 6 Developer s Guide ...
Страница 6: ...vi ...
Страница 16: ...16 ...
Страница 30: ...30 ...
Страница 84: ...84 ...
Страница 134: ...134 ...
Страница 202: ...202 ...