具有自动的ThisDrawing属性

Kraut1976 · 发表于 2022-7-6 22:10:23

我目前正在重新编译代码以与AutoCAD 2013兼容。
原始代码是使用“魔术宏”创建的，用于将VBA代码转换为VB。NET代码使用COM接口。
我在尝试创建ThisDrawing属性以供其余代码使用时遇到了一个问题。
在AutoCAD 2012中，这种方式效果很好：

copy

 
Public ReadOnly Property ThisDrawing() As AcadDocument
Get
Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument
End Get
End Property

但在AutoCAD 2013中，这种方式不再有效。
我得到了一个“无法转换类型的COM对象”系统__ComObject“to interface type”Autodesk。AutoCAD。互操作。“AcadDocument”例外。

我尝试了几种不同的方法来实现这一点。许多人在网上举出了例子，但都没有用。

一些失败的尝试：

copy

 
Public ReadOnly Property ThisDrawing() As AcadDocument
       Get
           Return DocumentExtension.GetAcadDocument(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument)
       End Get
End Property

copy

 
Public ReadOnly Property ThisDrawing() As AcadDocument
       Get
           Return CType(DocumentExtension.GetAcadDocument(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument), AcadDocument)
       End Get
End Property

copy

 
Public ReadOnly Property ThisDrawing() As Object
       Get
           Dim DotNetDoc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           Dim oDoc As Object = DocumentExtension.GetAcadDocument(DotNetDoc)
           Return oDoc
       End Get
End Property

copy

 
Public ReadOnly Property ThisDrawing() As AcadDocument
       Get
           Dim tAcadDoc As Autodesk.AutoCAD.ApplicationServices.Document
           Dim tAcadDocCOM As Autodesk.AutoCAD.Interop.AcadDocument
           tAcadDoc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           tAcadDocCOM = CType(Autodesk.AutoCAD.ApplicationServices.DocumentExtension.GetAcadDocument(tAcadDoc), Autodesk.AutoCAD.Interop.AcadDocument)
           Return tAcadDocCOM
       End Get
End Property

其他人有没有遇到过这个问题，或者已经知道如何使用AutoCAD 2013实现这一点？
非常感谢。
克劳特1976

flowerrobot · 发表于 2022-7-6 22:25:21

我知道VBA使用了AcadDocument

但是为什么你必须在网络中使用Acaddocument呢。为什么不直接使用文档？

copy

Private ThisDrawing As Document = Application.DocumentManager.MdiActiveDocument

或

copy

Public ReadOnly Property ThisDrawing() As Document
Get
Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
End Get
End Property

Kraut1976 · 发表于 2022-7-6 22:45:47

我不得不使用AcadDocument，因为代码是从VBA转换到VB的。NET使用Autodesk的“magic macro”。转换器使用COM接口来方便转换。
我发现了问题所在。这是新手犯的错误。英雄联盟
我未能更改引用以使用新的AutoCAD 2013类型库。
一旦我引用了正确的库，并将所有引用更改为AutoCAD。互操作和AutoCAD。互操作。在新的AxDBLib程序集上，一切都就绪了，现在下面的代码可以正常工作了。

copy

 
Public ReadOnly Property ThisDrawing() As AcadDocument
       Get
           Return DocumentExtension.GetAcadDocument(Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument)
       End Get
End Property

ColinB · 发表于 2022-7-6 22:46:35

你好，克劳特1976，

我已经阅读了你的帖子，不知道你是否可以提供更多关于更改对AxDBLib的引用的信息。我还没有找到关于那个图书馆的任何文档

谢谢
科林

Codeplayer · 发表于 2022-7-6 23:09:05

我也在为此奋斗。必须从autocad程序文件夹（X:\program files\Autodesk\autocad 2014）中添加引用。查找Autodesk。AutoCAD。互操作。dll和Autodesk。AutoCAD。互操作。常见的dll。之后，神奇地出现在我面前，但看看你是否从ObjectARX2014或2013文件夹中丢失，如果是这样，那么添加以下内容：AcCoreMgd。dll；AcDx。dll。然后您可以使用以下选项：

copy

Public ReadOnly Property ThisDrawing As AcadDocument
       Get
           Return Application.DocumentManager.MdiActiveDocument.GetAcadDocument()
       End Get
   End Property

rjellery · 发表于 2022-7-6 23:18:54

谢谢Codeplayer。我所要做的就是交换Autodesk的引用。AutoCAD。互操作。dll和Autodesk。AutoCAD。互操作。常见的从ObjectARX2014中的dll到“X:\Program files\Autodesk\Autocad 2014”。

[编程交流] 具有自动的ThisDrawing属性

发表回复

精选推荐