Message 1 of 2
need help debugging code

Not applicable
04-06-2010
01:18 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi. I need help here. There is an error in my code when I run the program in autocad. Im using vb.net. The line where the error is in denoted by <----. Error is Object reference not set to an instance of an object.
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
Dim myObjIds As DatabaseServices.ObjectIdCollection
Dim myObjId As DatabaseServices.ObjectId
Dim myEnt As DatabaseServices.Entity
myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.BlockName, "aaa")
Dim mySF As New EditorInput.SelectionFilter(myFilter)
Dim maxPt As Geometry.Point3d
Dim minPt As Geometry.Point3d
Dim dist As Double
myDWG = ApplicationServices.Application.DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myEd = myDWG.Editor
myPSR = myEd.SelectAll(mySF)
If Not IsNothing(myPSR.Value) Then
mySS = myPSR.Value
myObjIds = New DatabaseServices.ObjectIdCollection(mySS.GetObjectIds)
For Each myObjId In myObjIds
myEnt = myObjId.GetObject(DatabaseServices.OpenMode.ForRead) <------ error here
Next
End If
Edited by: a7v1n on Apr 6, 2010 8:19 PM
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
Dim myObjIds As DatabaseServices.ObjectIdCollection
Dim myObjId As DatabaseServices.ObjectId
Dim myEnt As DatabaseServices.Entity
myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.BlockName, "aaa")
Dim mySF As New EditorInput.SelectionFilter(myFilter)
Dim maxPt As Geometry.Point3d
Dim minPt As Geometry.Point3d
Dim dist As Double
myDWG = ApplicationServices.Application.DocumentManager.MdiActiveDocument
myDB = myDWG.Database
myEd = myDWG.Editor
myPSR = myEd.SelectAll(mySF)
If Not IsNothing(myPSR.Value) Then
mySS = myPSR.Value
myObjIds = New DatabaseServices.ObjectIdCollection(mySS.GetObjectIds)
For Each myObjId In myObjIds
myEnt = myObjId.GetObject(DatabaseServices.OpenMode.ForRead) <------ error here
Next
End If
Edited by: a7v1n on Apr 6, 2010 8:19 PM