.net二次开发中，写好的程序无法引用动态块的属性，该如何解决了？已上传项目文件

史巴燕

附件说明：
1、项目源文件在附件1中，引用的AutoCAD是2014版的（2014版的相关dll文件在“\Question\Question\bin\Debug”路径中），编程语言是vb.net，源文件专门针对这个问题精简了代码，很小的小程序。2、包含动态块的dwg文件在附件2中。


问题描述：我在CAD里面定义并插入了一个块参照（动态块），它除了包含两个常规的块属性外还有一个动态块的专有属性“可见性1”，但是在代码中DynamicBlockReferencePropertyCollection.Count的值输出为0（即动态块专有属性的个数为0），且它的isDynamicBlock属性是False（即程序认为该块参照不是动态块），想问下问题出在哪？


代码如下（也可以下载附件中的源文件和dwg文件调试）：

1. Imports Autodesk.AutoCAD.ApplicationServices
   
2. Imports Autodesk.AutoCAD.DatabaseServices
   
3. Imports Autodesk.AutoCAD.EditorInput
   
4. Imports Autodesk.AutoCAD.Runtime
   
5. 
   
6. Public NotInheritable Class MyAutoCADTools2014
   
7.     '该项目引用的是AutoCAD2014版的.net库
   
8. 
   
9.     ''' <summary>
   
10.     ''' 输出选择的块实体（包括动态块）的所有属性名称
    
11.     ''' </summary>
    
12.     <CommandMethod("SBBC")>
    
13.     Public Shared Sub SBBC() 'SetBlockByCoordinate
    
14. 
    
15.         '---------------这一段代码是输出常规的块参照的属性-------------------------
    
16.         Dim ed As Editor = Core.Application.DocumentManager.MdiActiveDocument.Editor
    
17.         Dim peo As PromptEntityResult = ed.GetEntity("请选择一个块实体")
    
18.         Dim objId As ObjectId = peo.ObjectId
    
19.         Dim ent As Entity = getEntityByObjectId(peo.ObjectId)
    
20.         Do Until ent.GetType.Name = "BlockReference" Or peo.Status = PromptStatus.Cancel Or peo.Status = PromptStatus.None
    
21.             ed.WriteMessage("选择的不是块实体")
    
22.             peo = ed.GetEntity("请选择一个块实体")
    
23.             ent = getEntityByObjectId(peo.ObjectId) 'getEntityByObjectId是我自定义的函数，代码见后面的“其他”
    
24.         Loop
    
25.         Dim br As BlockReference = CType(ent, BlockReference)
    
26.         Dim ar As AttributeReference
    
27.         Dim arNames As String = ""
    
28.         For i As Integer = 0 To br.AttributeCollection.Count - 1
    
29.             ar = CType(getEntityByObjectId(br.AttributeCollection.Item(i)), AttributeReference)
    
30.             If i = 0 Then arNames = ar.Tag Else arNames = arNames & vbCrLf & ar.Tag
    
31.         Next
    
32.         ed.WriteMessage(vbCrLf & vbCrLf & "------该块实体包含的属性------" & vbCrLf & arNames)
    
33.         '---------------这一段代码是输出常规的块参照的属性-------------------------
    
34. 
    
35. 
    
36. 
    
37. 
    
38. 
    
39.         '--------这一段代码用来调试检测动态块的相关属性，问题就在这里，跟动态块相关的代码都不起作用--------
    
40.         ed.WriteMessage(vbCrLf & "------检测该块是否是动态块------" & vbCrLf)
    
41.         ed.WriteMessage(br.IsDynamicBlock)
    
42.         ed.WriteMessage(vbCrLf & "------输出动态块的属性的个数------" & vbCrLf)
    
43.         ed.WriteMessage(br.DynamicBlockReferencePropertyCollection.Count)
    
44.         ed.WriteMessage(vbCrLf & "------输出动态块的所有属性的名称------")
    
45.         arNames = ""
    
46.         For Each dbrp As DynamicBlockReferenceProperty In br.DynamicBlockReferencePropertyCollection
    
47.             arNames = arNames & vbCrLf
    
48.         Next
    
49.         '--------这一段代码用来调试检测动态块的相关属性，问题就在这里，跟动态块相关的代码都不起作用--------
    
50.     End Sub
    
51. 
    
52. #Region "其他"
    
53.     Public Class Initialize
    
54.         Public Sub New()
    
55. 
    
56.         End Sub
    
57.     End Class
    
58.     ''' <summary>
    
59.     ''' 根据ObjectID返回实体，做这个函数是因为不知道为什么使用objectId.getObject()方法要出错
    
60.     ''' </summary>
    
61.     ''' <param name="objId">对象的ObjectId</param>
    
62.     ''' <returns></returns>
    
63.     Public Shared Function getEntityByObjectId(ByVal objId As ObjectId) As Entity
    
64.         Dim ent As Entity
    
65.         Using tr As Transaction = objId.Database.TransactionManager.StartTransaction
    
66.             ent = CType(tr.GetObject(objId, OpenMode.ForRead), Entity)
    
67.             tr.Commit()
    
68.         End Using
    
69.         Return ent
    
70.     End Function
    
71. #End Region
    
72. End Class

Imports Autodesk.AutoCAD.ApplicationServices<br /> Imports Autodesk.AutoCAD.DatabaseServices<br /> Imports Autodesk.AutoCAD.EditorInput<br /> Imports Autodesk.AutoCAD.Runtime<br /> <br /> Public NotInheritable Class MyAutoCADTools2014<br />     '该项目引用的是AutoCAD2014版的.net库<br /> <br />     ''' <summary><br />     ''' 输出选择的块实体（包括动态块）的所有属性名称<br />     ''' </summary><br />     <CommandMethod("SBBC")><br />     Public Shared Sub SBBC() 'SetBlockByCoordinate<br /> <br />         '---------------这一段代码是输出常规的块参照的属性-------------------------<br />         Dim ed As Editor = Core.Application.DocumentManager.MdiActiveDocument.Editor<br />         Dim peo As PromptEntityResult = ed.GetEntity("请选择一个块实体")<br />         Dim objId As ObjectId = peo.ObjectId<br />         Dim ent As Entity = getEntityByObjectId(peo.ObjectId)<br />         Do Until ent.GetType.Name = "BlockReference" Or peo.Status = PromptStatus.Cancel Or peo.Status = PromptStatus.None<br />             ed.WriteMessage("选择的不是块实体")<br />             peo = ed.GetEntity("请选择一个块实体")<br />             ent = getEntityByObjectId(peo.ObjectId) 'getEntityByObjectId是我自定义的函数，代码见后面的“其他”<br />         Loop<br />         Dim br As BlockReference = CType(ent, BlockReference)<br />         Dim ar As AttributeReference<br />         Dim arNames As String = ""<br />         For i As Integer = 0 To br.AttributeCollection.Count - 1<br />             ar = CType(getEntityByObjectId(br.AttributeCollection.Item(i)), AttributeReference)<br />             If i = 0 Then arNames = ar.Tag Else arNames = arNames & vbCrLf & ar.Tag<br />         Next<br />         ed.WriteMessage(vbCrLf & vbCrLf & "------该块实体包含的属性------" & vbCrLf & arNames)<br />         '---------------这一段代码是输出常规的块参照的属性-------------------------<br /> <br /> <br /> <br /> <br /> <br />         '--------这一段代码用来调试检测动态块的相关属性，问题就在这里，跟动态块相关的代码都不起作用--------<br />         ed.WriteMessage(vbCrLf & "------检测该块是否是动态块------" & vbCrLf)<br />         ed.WriteMessage(br.IsDynamicBlock)<br />         ed.WriteMessage(vbCrLf & "------输出动态块的属性的个数------" & vbCrLf)<br />         ed.WriteMessage(br.DynamicBlockReferencePropertyCollection.Count)<br />         ed.WriteMessage(vbCrLf & "------输出动态块的所有属性的名称------")<br />         arNames = ""<br />         For Each dbrp As DynamicBlockReferenceProperty In br.DynamicBlockReferencePropertyCollection<br />             arNames = arNames & vbCrLf<br />         Next<br />         '--------这一段代码用来调试检测动态块的相关属性，问题就在这里，跟动态块相关的代码都不起作用--------<br />     End Sub<br /> <br /> #Region "其他"<br />     Public Class Initialize<br />         Public Sub New()<br /> <br />         End Sub<br />     End Class<br />     ''' <summary><br />     ''' 根据ObjectID返回实体，做这个函数是因为不知道为什么使用objectId.getObject()方法要出错<br />     ''' </summary><br />     ''' <param name="objId">对象的ObjectId</param><br />     ''' <returns></returns><br />     Public Shared Function getEntityByObjectId(ByVal objId As ObjectId) As Entity<br />         Dim ent As Entity<br />         Using tr As Transaction = objId.Database.TransactionManager.StartTransaction<br />             ent = CType(tr.GetObject(objId, OpenMode.ForRead), Entity)<br />             tr.Commit()<br />         End Using<br />         Return ent<br />     End Function<br /> #End Region<br /> End Class

动态块的专有属性截图：

史巴燕

真的没有人知道吗？我问了很多论坛和QQ群了，都没人回复我，大家遇到这些疑难杂症连网上大神都解决不了的问题最后又都是怎么解决的了？

我做业余CAD二次开发有好多年了，但是有些疑难杂症至今都无法解决，网上也没人愿意回答，晓东工具箱这里是悬赏提问，也没人回复，难道真的要给钱吗？付费回答也不知道给多少合适，而且也没有地方付费问答，什么知乎、百度知道上面更不可能有人回答这种专业问题了，二次开发感觉真的玩不下去了。

史巴燕

我自己找到解决方法了，国外的一个网友也提过这个问题，答案就是不能把引用动态块专有属性的相关代码放在transaction代码段的外面，而我的代码中单独定义了一个getEntityByObjectID函数，在该函数返回entity对象后就关闭了transaction，所以再检测返回的entity对象是否为动态块时系统就会认为它不是动态块了。
来自: 微社区

pengfei2010

楼主辛苦了，想要成为高手就要 自己多多摸索 哈哈