Autodesk 15606-011408-9300 Developer Guide - Page 188

Getting SDF File Information—a Visual Basic Example, SDFInfo Example Code, ConvertSDF Example Code

Page 188 highlights

ConvertSDF Example Code (continued) GetObjectTypeString = "POLYGON" Case sdfPolylineObject: GetObjectTypeString = "POLYLINE" Case sdfPolyPolylineObject: GetObjectTypeString = "POLYPOLYLINE" Case sdfPolyPolygonObject: GetObjectTypeString = "POLYPOLYGON" End Select End Function Getting SDF File Information-a Visual Basic Example The SDFInfo example code shows how to open and access an SDF file to retrieve its information, such as precision, key length, bounding box, etc. It also shows how to search for features within the SDF file using sequential search, spatial search, and key-indexed search. This example is written in Visual Basic. SDFInfo Example Code VERSION 6.00 Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" Begin VB.Form frmLab1 Caption = "Form1" ClientHeight = 3360 ClientLeft = 48 ClientTop = 276 ClientWidth = 5820 LinkTopic = "Form1" ScaleHeight = 3360 ScaleWidth = 5820 StartUpPosition = 3 'Windows Default Begin VB.CommandButton btnExit Caption = "Exit" Height = 288 Left = 4440 TabIndex =7 Top = 3000 Width = 1212 End Begin VB.CommandButton btnSrchKey Caption = "Key Search" Height = 288 Left = 4440 188 | Chapter 7 Applications

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208

188
|
Chapter 7
Applications
Getting SDF File Information
a Visual Basic
Example
The SDFInfo example code shows how to open and access an SDF file to
retrieve its information, such as precision, key length, bounding box, etc. It
also shows how to search for features within the SDF file using sequential
search, spatial search, and key-indexed search. This example is written in
Visual Basic.
GetObjectTypeString = "POLYGON"
Case sdfPolylineObject:
GetObjectTypeString = "POLYLINE"
Case sdfPolyPolylineObject:
GetObjectTypeString = "POLYPOLYLINE"
Case sdfPolyPolygonObject:
GetObjectTypeString = "POLYPOLYGON"
End Select
End Function
SDFInfo Example Code
VERSION 6.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmLab1
Caption
=
"Form1"
ClientHeight
=
3360
ClientLeft
=
48
ClientTop
=
276
ClientWidth
=
5820
LinkTopic
=
"Form1"
ScaleHeight
=
3360
ScaleWidth
=
5820
StartUpPosition =
3 'Windows Default
Begin VB.CommandButton btnExit
Caption
=
"Exit"
Height
=
288
Left
=
4440
TabIndex
=
7
Top
=
3000
Width
=
1212
End
Begin VB.CommandButton btnSrchKey
Caption
=
"Key Search"
Height
=
288
Left
=
4440
ConvertSDF Example Code (
continued
)