获取图形属性externa

sanderson · 发表于 2022-7-6 22:33:30

你好：

在这里度过了一上午的大部分时间http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%20.NET%20Developer's%20指南/索引。html和无处可去，我张贴这个线程。

我试图指向AutoCAD图形，并从中获取一些系统变量信息，以应用于外部SQL Server数据库。代码非常简单，如下所示：

copy

 
[font=Courier New]GetInternalACADData(fil)[/font]

fil是文件名及其完整路径。当我运行代码时（我将在最后展示），我得到一个未处理的FileNotFoundException-找不到指定的模块。（HRESULT的例外：0x8007007E）。奇怪的是，在后续代码中尝试执行有关文件的任何操作之前，就会发生此错误：

copy

 
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Imports[/font][/color][/size][/color][/size][size=2][font=Courier New] Autodesk.AutoCAD.ApplicationServices[/font][/size]
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Imports[/font][/color][/size][/color][/size][size=2][font=Courier New] Autodesk.AutoCAD.DatabaseServices[/font][/size]
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Imports[/font][/color][/size][/color][/size][size=2][font=Courier New] Autodesk.AutoCAD.EditorInput[/font][/size]
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Imports[/font][/color][/size][/color][/size][size=2][font=Courier New] Autodesk.AutoCAD.Runtime[/font][/size]
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Module[/font][/color][/size][/color][/size][size=2][font=Courier New] ACAD_Functions[/font][/size]
[font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]  Public[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]Sub[/color][/size][/color][/size][size=2] GetInternalACADData([/size][size=2][color=#0000ff][size=2][color=#0000ff]ByVal[/color][/size][/color][/size][size=2] fil [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]String[/color][/size][/color][/size][/font][size=2][font=Courier New])[/font][/size]
[font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]      Dim[/color][/size][/color][/size][size=2] acCurDb [/size][size=2][color=#0000ff][size=2][color=#0000ff]As[/color][/size][/color][/size][size=2] Database = [/size][size=2][color=#0000ff][size=2][color=#0000ff]New[/color][/size][/color][/size][size=2] Database([/size][size=2][color=#0000ff][size=2][color=#0000ff]False[/color][/size][/color][/size][size=2], [/size][size=2][color=#0000ff][size=2][color=#0000ff]True[/color][/size][/color][/size][/font][size=2][font=Courier New])[/font][/size]
[size=2][font=Courier New]      acCurDb.ReadDwgFile(fil, System.IO.FileShare.Read, [/font][/size][font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]True[/color][/size][/color][/size][size=2], [/size][size=2][color=#a31515][size=2][color=#a31515]""[/color][/size][/color][/size][/font][size=2][font=Courier New])[/font][/size]
[font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]      Dim[/color][/size][/color][/size][size=2] strString [/size][size=2][color=#0000ff][size=2][color=#0000ff]As [/color][/size][/color][/size][size=2][color=#0000ff][size=2][color=#0000ff]String[/color][/size][/color][/size][/font][size=2][font=Courier New] = acCurDb.Tdupdate.ToString[/font][/size]
[font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]  End[/color][/size][/color][/size][/font][size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]Sub[/font][/color][/size][/color][/size]
[size=2][color=#0000ff][size=2][color=#0000ff][font=Courier New]End[/font][/color][/size][/color][/size][font=Courier New][size=2][color=#0000ff][size=2][color=#0000ff]Module[/color][/size][/color][/size][/font]

如果您对此有任何想法，以及关于使用AutoCAD API的任何其他信息，请告诉我。

非常感谢。

fixo · 发表于 2022-7-6 22:52:46

尝试像这样将类添加到项目中
只需在接下来的3行中更改项目名称和类名：

copy

 
<Assembly: CommandClass(GetType([color=red]MyProject.MyClass[/color]))> 
Namespace [color=red]MyProject[/color]
Public Class [color=red]MyClass[/color]

更改代码中的文件名：

copy

 
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
<Assembly: CommandClass(GetType(MyProject.MyClass))> 
Namespace MyProject
Public Class MyClass
<CommandMethod("ReadFileTest", "rft", CommandFlags.Session Or CommandFlags.Modal)> _
Public Sub TestInternalData()
GetInternalACADData([color=red]"C:\Test\WorkingDrawing.dwg"[/color])
End Sub
Public Sub GetInternalACADData(ByVal fil As String)
Dim acCurDb As Database = New Database(False, True)
acCurDb.ReadDwgFile(fil, System.IO.FileShare.Read, True, "")
Dim strString As String = acCurDb.Tdupdate.ToString
acCurDb.CloseInput(True)
acCurDb.Dispose()
MsgBox(strString)
End Sub
End Class
End Namespace

~'J'~

sanderson · 发表于 2022-7-6 22:57:11

谢谢，但是没有帮助。无论如何，这个类已经在它自己的模块中了。我想知道DLL没有正确映射是否有问题，尽管我可以在Windows 7-64位和Windows XP-32位中产生错误botn。

这些进口产品都很好用。我用于AutoCAD 2010的文件引用是acdbmgd。dll和acmgd。dll。不确定这是否正确，尽管我在某处读到它是正确的。可能有一个问题，我需要更多的dll的依赖。如果你知道那些可能是什么，请告诉我。

再次感谢！