请教，批量改变文本内容出错

intelfox

以前，一直用使用vba编程，最近刚刚学习.net，vs2010+AutoCAD2012
编制一个命令，文本内容批量加1000，结果调试错误
vs2010的信息是“在 System.AccessViolationException 中第一次偶然出现的“AcdbMgd.dll”类型的异常”
代码如下

1. 
   
2.     ' 加法Temp
   
3.     <CommandMethod("ADT")> Public Sub ADT()
   
4.         On Error Resume Next
   
5.         '定义过滤条件
   
6.         Dim value1 As TypedValue = New TypedValue(0, "TEXT")
   
7.         Dim values() As TypedValue = {value1}
   
8.         Dim sfilter As New SelectionFilter(values)
   
9.         '定义一个选择集交互类
   
10.         Dim optSel As New PromptSelectionOptions
    
11.         '选择操作时的提示文本
    
12.         optSel.MessageForAdding = "单行文本"
    
13.         Dim resSel As PromptSelectionResult = ed.GetSelection(optSel, sfilter)
    
14.         If resSel.Status = PromptStatus.Cancel Then Return
    
15.         '返回选择集的用户提示类
    
16.         Dim sSet As SelectionSet = resSel.Value
    
17.         '得到选择集中所有对象的objectId集合
    
18.         Dim ids As ObjectId() = sSet.GetObjectIds()
    
19.         Using trans As Transaction = db.TransactionManager.StartTransaction()
    
20.             '总和
    
21.             '遍历选择集
    
22.             For Each sSetEndId As ObjectId In ids
    
23.                 Dim ent As DBText= trans.GetObject(sSetEndId, OpenMode.ForWrite)
    
24.                 strK1 = ent.TextString
    
25.                 dblK2 = Val(strK1)
    
26.                 ent.TextString = CStr(Format(dblK2 + 1000, "#"))
    
27.                 trans.Commit()
    
28.             Next
    
29.         End Using
    
30.     End Sub
    

<br />     ' 加法Temp<br />     <CommandMethod("ADT")> Public Sub ADT()<br />         On Error Resume Next<br />         '定义过滤条件<br />         Dim value1 As TypedValue = New TypedValue(0, "TEXT")<br />         Dim values() As TypedValue = {value1}<br />         Dim sfilter As New SelectionFilter(values)<br />         '定义一个选择集交互类<br />         Dim optSel As New PromptSelectionOptions<br />         '选择操作时的提示文本<br />         optSel.MessageForAdding = "单行文本"<br />         Dim resSel As PromptSelectionResult = ed.GetSelection(optSel, sfilter)<br />         If resSel.Status = PromptStatus.Cancel Then Return<br />         '返回选择集的用户提示类<br />         Dim sSet As SelectionSet = resSel.Value<br />         '得到选择集中所有对象的objectId集合<br />         Dim ids As ObjectId() = sSet.GetObjectIds()<br />         Using trans As Transaction = db.TransactionManager.StartTransaction()<br />             '总和<br />             '遍历选择集<br />             For Each sSetEndId As ObjectId In ids<br />                 Dim ent As DBText= trans.GetObject(sSetEndId, OpenMode.ForWrite)<br />                 strK1 = ent.TextString<br />                 dblK2 = Val(strK1)<br />                 ent.TextString = CStr(Format(dblK2 + 1000, "#"))<br />                 trans.Commit()<br />             Next<br />         End Using<br />     End Sub<br />

貌似是第二遍提取ent的时候出错，不知原因，请高手赐教，非常感谢

河伯

trans.Commit() 放到循环外面。

intelfox

昨晚发帖以后发现问题了，呵呵，多谢多谢