社区 › Auto Lisp › 具有自动的ThisDrawing属性

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

具有自动的ThisDrawing属性

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

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”例外。
 
我尝试了几种不同的方法来实现这一点。许多人在网上举出了例子，但都没有用。
 
一些失败的尝试：
 

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

 

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

 

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

 

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呢。为什么不直接使用文档？
 
Private ThisDrawing As Document = Application.DocumentManager.MdiActiveDocument
或
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程序集上，一切都就绪了，现在下面的代码可以正常工作了。
 

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。然后您可以使用以下选项：
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属性