vb.net 外部参照 unload 导致cad崩溃

glowz · 发表于 2010-11-16 21:47

Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim doc As Document = Application.DocumentManager.MdiActiveDocument
        Dim db As Database = doc.Database
        ' Dim bt as
        '获取当前的选择集对象
        Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection()
        Dim ss As SelectionSet = ed.SelectImplied().Value
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            '循环遍历选择集中的对象

            For Each id As ObjectId In ss.GetObjectIds()
                Dim obj As DBObject = trans.GetObject(id, OpenMode.ForRead)
                               If TypeOf (obj) Is BlockReference Then
                                       Dim br As BlockReference = trans.GetObject(id, OpenMode.ForRead) 'CType(obj, BlockReference)
                    Dim btr As BlockTableRecord = trans.GetObject(br.BlockTableRecord, OpenMode.ForRead)
                    If (btr.IsFromExternalReference) Then
                        Dim xrefId As ObjectId = br.BlockTableRecord
                        If (Not xrefId = ObjectId.Null) Then
                            acObjIdColl.Add(xrefId)
                            'db.DetachXref(xrefId)
                            'db.UnloadXrefs()
                            ed.WriteMessage(vbCrLf & "Xref:" & btr.Name & " Unload!")
                        End If
                        db.UnloadXrefs(acObjIdColl)
                        trans.Commit()
                    End If
                    End If
            Next
        End Using

glowz · 发表于 2010-11-16 21:53

运行到db.UnloadXrefs(acObjIdColl) 就崩溃了

雪山飞狐_lzh · 发表于 2010-11-16 21:58

其他的没仔细看，但这里应该在For循环外吧

db.UnloadXrefs(acObjIdColl)
trans.Commit()

glowz · 发表于 2010-11-16 22:53

我是想做个右键的快捷菜单，一般的选择后执行我试了试没有问题，用在右键的快捷菜单就崩溃了

<CommandMethod("AddBlockRefMenu")> _
Public Sub AddBlockRefMenu()
'定义一个ContextMenuExtension对象，用于表示快捷菜单
Dim contextMenu As New ContextMenuExtension()
'对于对象级别的快捷菜单，不必设置菜单名
Dim miBlockUnload As New MenuItem("卸载")
AddHandler miBlockUnload.Click, AddressOf miBlockUnload_Click
contextMenu.MenuItems.Add(miBlockUnload)
Application.AddObjectContextMenuExtension(RXClass.GetClass(GetType(BlockReference)), contextMenu)
End Sub
Sub miBlockUnload_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
' Dim bt as
'获取当前的选择集对象
Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection()
Dim ss As SelectionSet = ed.SelectImplied().Value
Using trans As Transaction = db.TransactionManager.StartTransaction()
'循环遍历选择集中的对象
For Each id As ObjectId In ss.GetObjectIds()
Dim obj As DBObject = trans.GetObject(id, OpenMode.ForRead)
'如果所选择的对象是
If TypeOf (obj) Is BlockReference Then
'获取所选择的对象
Dim br As BlockReference = trans.GetObject(id, OpenMode.ForRead) 'CType(obj, BlockReference)
Dim btr As BlockTableRecord = trans.GetObject(br.BlockTableRecord, OpenMode.ForRead)
If (btr.IsFromExternalReference) Then
Dim xrefId As ObjectId = br.BlockTableRecord
If (Not xrefId = ObjectId.Null) Then
acObjIdColl.Add(xrefId)
'db.DetachXref(xrefId)
'db.UnloadXrefs()
' ed.WriteMessage(vbCrLf & "Xref:" & btr.Name & " Unload!")
End If
End If
End If
Next
db.UnloadXrefs(acObjIdColl)
trans.Commit()
End Using
End Sub
End Class

<CommandMethod("AddBlockRefMenu")> _ 
Public Sub AddBlockRefMenu() 
'定义一个ContextMenuExtension对象，用于表示快捷菜单 
Dim contextMenu As New ContextMenuExtension() 
'对于对象级别的快捷菜单，不必设置菜单名 
Dim miBlockUnload As New MenuItem("卸载") 
AddHandler miBlockUnload.Click, AddressOf miBlockUnload_Click 
 
contextMenu.MenuItems.Add(miBlockUnload) 
Application.AddObjectContextMenuExtension(RXClass.GetClass(GetType(BlockReference)), contextMenu) 
End Sub 
Sub miBlockUnload_Click(ByVal sender As Object, ByVal e As EventArgs) 
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor 
Dim doc As Document = Application.DocumentManager.MdiActiveDocument 
Dim db As Database = doc.Database 
' Dim bt as 
'获取当前的选择集对象 
Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection() 
Dim ss As SelectionSet = ed.SelectImplied().Value 
Using trans As Transaction = db.TransactionManager.StartTransaction() 
'循环遍历选择集中的对象

For Each id As ObjectId In ss.GetObjectIds() 
Dim obj As DBObject = trans.GetObject(id, OpenMode.ForRead) 
'如果所选择的对象是 
If TypeOf (obj) Is BlockReference Then 
'获取所选择的对象 
Dim br As BlockReference = trans.GetObject(id, OpenMode.ForRead) 'CType(obj, BlockReference) 
Dim btr As BlockTableRecord = trans.GetObject(br.BlockTableRecord, OpenMode.ForRead) 
If (btr.IsFromExternalReference) Then 
Dim xrefId As ObjectId = br.BlockTableRecord 
If (Not xrefId = ObjectId.Null) Then 
acObjIdColl.Add(xrefId) 
'db.DetachXref(xrefId) 
'db.UnloadXrefs() 
' ed.WriteMessage(vbCrLf & "Xref:" & btr.Name & " Unload!") 
End If

End If 
End If 
Next 
db.UnloadXrefs(acObjIdColl) 
trans.Commit() 
End Using 
End Sub 
End Class

glowz · 发表于 2010-11-16 22:57

顺便再问问

Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "BlockReference"), 0)

好像不能过滤到块参照，过滤块参照应该在.net怎么用呢

雪山飞狐_lzh · 发表于 2010-11-16 23:00

"Insert"

右键菜单的话，文档应该加锁的吧

glowz · 发表于 2010-11-17 08:19

谢谢飞狐版主能详细说下文档应该怎么加锁吗

雪山飞狐_lzh · 发表于 2010-11-17 21:08

Using doc.LockDocument()

End Using

glowz · 发表于 2010-11-17 21:59

谢谢飞狐版主可以做出来哈哈

glowz · 发表于 2010-11-17 22:01

完整的代码

账号		自动登录	找回密码
密码			注册

[图元] vb.net 外部参照 unload 导致cad崩溃