求教关于读取扩展数据的问题

wuqiu1986

从C#的代码转换到VB.NET的，如果选择带有扩展数据的对象，程序能正常运行，但是如果对象不包含扩展数据，就会导致CAD崩溃。我想原因是不是出在Not IsDBNull(resBuf) 这一句上，C#为(resBuf != null)，我这样转换不对吗？求解

1.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   
2.         Dim acCurDb As Database = acDoc.Database
   
3. 
   
4.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction
   
5.             Dim acEntityOpts As PromptEntityOptions = New PromptEntityOptions("")
   
6.             Dim acEntityRsl As PromptEntityResult = acDoc.Editor.GetEntity(acEntityOpts)
   
7.             Dim acEnt As Entity = acTrans.GetObject(acEntityRsl.ObjectId, OpenMode.ForRead, True)
   
8.             Dim resBuf As ResultBuffer = acEnt.XData
   
9.             If Not IsDBNull(resBuf) Then
   
10.                 Dim iter As IEnumerator = resBuf.GetEnumerator()
    
11.                 While iter.MoveNext()
    
12.                     Dim tmpVal As TypedValue = iter.Current
    
13.                     acDoc.Editor.WriteMessage(vbLf & tmpVal.TypeCode.ToString & ":" & tmpVal.Value.ToString())
    
14.                 End While
    
15.             End If
    
16.         End Using

        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br /> <br />         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction<br />             Dim acEntityOpts As PromptEntityOptions = New PromptEntityOptions("")<br />             Dim acEntityRsl As PromptEntityResult = acDoc.Editor.GetEntity(acEntityOpts)<br />             Dim acEnt As Entity = acTrans.GetObject(acEntityRsl.ObjectId, OpenMode.ForRead, True)<br />             Dim resBuf As ResultBuffer = acEnt.XData<br />             If Not IsDBNull(resBuf) Then<br />                 Dim iter As IEnumerator = resBuf.GetEnumerator()<br />                 While iter.MoveNext()<br />                     Dim tmpVal As TypedValue = iter.Current<br />                     acDoc.Editor.WriteMessage(vbLf & tmpVal.TypeCode.ToString & ":" & tmpVal.Value.ToString())<br />                 End While<br />             End If<br />         End Using

cdinten

你把isdbnull这一句换成isnothing试试？我也没怎么使用VB，也不是太了解，希望能帮到你

wuqiu1986

cdinten 发表于 2014-4-3 22:13
你把isdbnull这一句换成isnothing试试？我也没怎么使用VB，也不是太了解，希望能帮到你

改成isnothing就没有问题了，感谢

cdinten

wuqiu1986 发表于 2014-4-4 12:49
改成isnothing就没有问题了，感谢

居然被我蒙对了？哈哈