Autodesk 15606-011408-9300 Developer Guide - Page 199

Dim xMin As Double, Debug.Print oBox.MinX, oBox.MinY

Page 199 highlights

CopySDF Example Code (continued) End Sub Private Sub btnBrowseOutSdf_Click() On Error GoTo ErrHandler cdOpen.Filter = "SDF Files (*.SDF)| *.SDF" cdOpen.FilterIndex = 1 cdOpen.DialogTitle = "Save SDF File" 'Show the open dialog box cdOpen.ShowSave sdfOutName.Text = cdOpen.FileName ErrHandler: 'Cancel was selected 'Just exit after resetting errhandler On Error GoTo 0 End Sub Private Sub btnCopy_Click() Dim msg As String 'Check for filenames If (sdfInName.Text = "") Or (sdfOutName.Text = "") Then ShowMessage "You must select filenames first.'" Exit Sub End If Dim oTlktIn As New SdfToolkit Dim oTlktOut As New SdfToolkit Dim oObj As SdfObject Dim oBox As New SdfBoundingBox Dim xMin As Double, yMin As Double, xMax As Double, yMax As Double Dim i As Long On Error GoTo ErrHandler 'Open the input sdf file in readonly mode oTlktIn.Open sdfInName, sdfOpenRead, True 'Open the output sdf file for write/append mode oTlktOut.Open sdfOutName, sdfOpenUpdate Or sdfOpenAlways, True 'Get insdf's extents Set oBox = oTlktIn.BoundingBox Debug.Print oBox.MinX, oBox.MinY, oBox.MaxX, oBox.MaxY 'Set up search area that is 1/3 of input sdf xMin = oBox.MinX + Abs((Abs(oBox.MaxX) - Abs(oBox.MinX)) / 3) xMax = oBox.MaxX - Abs((Abs(oBox.MaxX) - Abs(oBox.MinX)) / 3) SDF Component Toolkit Applications | 199

  • 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

SDF Component Toolkit Applications
|
199
End Sub
Private Sub btnBrowseOutSdf_Click()
On Error GoTo ErrHandler
cdOpen.Filter = "SDF Files (*.SDF)| *.SDF"
cdOpen.FilterIndex = 1
cdOpen.DialogTitle = "Save SDF File"
'Show the open dialog box
cdOpen.ShowSave
sdfOutName.Text = cdOpen.FileName
ErrHandler:
'Cancel was selected
'Just exit after resetting errhandler
On Error GoTo 0
End Sub
Private Sub btnCopy_Click()
Dim msg As String
'Check for filenames
If (sdfInName.Text = "") Or (sdfOutName.Text = "") Then
ShowMessage "You must select filenames first.'"
Exit Sub
End If
Dim oTlktIn As New SdfToolkit
Dim oTlktOut As New SdfToolkit
Dim oObj As SdfObject
Dim oBox As New SdfBoundingBox
Dim xMin As Double, yMin As Double, xMax As Double, yMax As Double
Dim i As Long
On Error GoTo ErrHandler
'Open the input sdf file in readonly mode
oTlktIn.Open sdfInName, sdfOpenRead, True
'Open the output sdf file for write/append mode
oTlktOut.Open sdfOutName, sdfOpenUpdate Or sdfOpenAlways, True
'Get insdf's extents
Set oBox = oTlktIn.BoundingBox
Debug.Print oBox.MinX, oBox.MinY, oBox.MaxX, oBox.MaxY
'Set up search area that is 1/3 of input sdf
xMin = oBox.MinX + Abs((Abs(oBox.MaxX) - Abs(oBox.MinX)) / 3)
xMax = oBox.MaxX - Abs((Abs(oBox.MaxX) - Abs(oBox.MinX)) / 3)
CopySDF Example Code (
continued
)