Autodesk 15606-011408-9300 Developer Guide - Page 192
ShowMessage Contains Points: & oTlkt.ContainsObjectClasssdfPointClass
UPC - 606121429548
View all Autodesk 15606-011408-9300 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 192 highlights
SDFInfo Example Code (continued) 'Get total count of features strMsg = oTlkt.TotalObjects ShowMessage "Total features: " & strMsg 'Check for feature classes present in this sdf ShowMessage "Contains Points: " & oTlkt.ContainsObjectClass(sdfPointClass) ShowMessage "Contains Polylines: " & oTlkt.ContainsObjectClass(sdfPolylineClass) ShowMessage "Contains Polygons: " & oTlkt.ContainsObjectClass(sdfPolygonClass) 'Close the toolkit 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 Private Sub btnSrchKey_Click() 'Check if there is a file name in edit box If txtSdfName.Text = "" Then ShowMessage ("Select an SDF file first!") Exit Sub End If Dim Key As String 'Get the key from Key = InputBox("Enter the key of the feature: ", "Key Input", "RedLine[144.111.8.96]") If Key = "" Then Exit Sub End If Dim oTlkt As New SdfToolkit Dim oBox As SdfBoundingBox Dim oObj As SdfObject Dim strMsg As String Dim i As Long Dim objFound As Boolean 192 | Chapter 7 Applications