Message 1 of 4
how to check if selection set is null
Not applicable
04-02-2010
02:46 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
how do you check if selection set is null? this is my code. it doesnt work... lol
Dim myDWG As ApplicationServices.Document
Dim myDB As DatabaseServices.Database
Dim myEd As EditorInput.Editor
Dim myPSR As EditorInput.PromptSelectionResult
Dim mySS As EditorInput.SelectionSet
Dim myFilter(0) As DatabaseServices.TypedValue
myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.BlockName, "aaa")
Dim mySF As New EditorInput.SelectionFilter(myFilter)
myDWG = ApplicationServices.Application.DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myEd = myDWG.Editor
myPSR = myEd.SelectAll(mySF)
mySS = myPSR.Value
---> this line is messed up, how do you fix this? im getting error if selectionset is empty...
If mySS <> Nothing Then
MsgBox(mySS.Count)
End If
Thanks....
Dim myDWG As ApplicationServices.Document
Dim myDB As DatabaseServices.Database
Dim myEd As EditorInput.Editor
Dim myPSR As EditorInput.PromptSelectionResult
Dim mySS As EditorInput.SelectionSet
Dim myFilter(0) As DatabaseServices.TypedValue
myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.BlockName, "aaa")
Dim mySF As New EditorInput.SelectionFilter(myFilter)
myDWG = ApplicationServices.Application.DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myEd = myDWG.Editor
myPSR = myEd.SelectAll(mySF)
mySS = myPSR.Value
---> this line is messed up, how do you fix this? im getting error if selectionset is empty...
If mySS <> Nothing Then
MsgBox(mySS.Count)
End If
Thanks....