create a DLL with AutoCAD.Net functionality to be used in AutoCAD VBA
Excuse me , why you need it "callable from VBA"? I mean, you can run a dll directly without VBA
天涯海角的山姆
您认为此帖子是否有用？欢迎为此帖点赞。
您的问题是否已得到解答？请点击“接受解答”按钮。
I just googled your error message then got these 2, hope they are helpful.
btw, I think the way you call it is unusual.
天涯海角的山姆
您认为此帖子是否有用？欢迎为此帖点赞。
您的问题是否已得到解答？请点击“接受解答”按钮。
I tried with AutoCAD 2018 and VS2017 and do not think the result would be different for AutoCAD 2019. In my case, I do not get compiling error as you described. Here is what I did:
1. Create AutoCAD .NET Add-in DLL project, add references to AutoCAD .NET assemblies (accoremgd/acdbmgd/acmgd.dll)
2. Add public classes of business domain as needed in the project;
3. In the Project's "Properties" window page, make sure these:
a. "Application": I choose to target .NET4.7x (but .NET4.6x should be find for my Acad2018)
b. "Application": click "Assembly Information..." button, and select "Make assembly COM-Visible";
c. "Build": MAKE SURE to set "Platform target" to "x64" (since it is to be used as COM, it must be either 32, or 64 bit, not "Any CPU");
d. "Build": select "Register for COM interop";
Note, I run VS2017 as "Administrator", otherwise, after compiling, my regular user account is not allowed to register COM component.
Then, I do not have problem compile the DLL (and upon building completion, a COM class "[MyNetDll.MyClass]" is registered in Windows registry (I can find/browse it with RegEdt32.exe).
I do not have access to Acad2019. but I may verify it with my Acad2020 later, but I do not expect to see the building error as you described.
Accepted solution
OK, I repeated all the steps as you described, and indeed the build was failed with error. However, you failed provide the FULL ERROR message: it is NOT ONLY "Could not load file or assembly 'accoremdg,....', BUT ALSO the error message starts as"Cannot register assembly ".....\[theDll].dll".
Obviously, the DLL assembly can be compiled, but registering it as COM component fails because of certain functionality in accoremgd.dll cannot be used for COM exposure, namely, they are CommandClassAttribute and CommandMethodAttribute, at least.
But think about it, if the COM DLL is to be used in VBA, there is no reason to have CommandClass/Method in it. The DLL should only contains classes with properties/methods that can be called by other COM-able code/VBA code.
If you want to test your COM-able .NET DLL with CommandClass/Method, you should wrap up the CommandClass/Method in another separate project that reference this DLL project. This way, the DLL project can be used by both .NET add-in, or be exposed as COM-able.
HTH
Accepted solution
I also am trying to add some functionality to an existing VBA application. After I build my application, the JCK_VBA_Pipetools seems to be registered, but I'm unable to access the defined functions. Does anyone know what I'm doing wrong?
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.Civil
Imports Autodesk.Civil.ApplicationServices
Public Class Class1
Public Function getarea(x As Double, y As Double) As Double
Return x * y
End Function
Public Function PipeHGL_HandleGet(HandEnt As String) As String ' This method can have any name
PipeHGL_HandleGet = "No Pipe Exists"
Try
'Get Civil 3D application, document and database
Dim CivDoc As CivilDocument = CivilApplication.ActiveDocument
' Dim JuncLoss = Us_HGMax - Us_HG
Dim Doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
'MsgBox("Working Here:2")
Using lock As DocumentLock = Doc.LockDocument
Dim db As Database = Doc.Database
Dim ed As Editor = Doc.Editor
Dim MyPipe As DatabaseServices.Pipe = Nothing
Dim MyStr As DatabaseServices.Structure = Nothing
Dim tr As Transaction = Doc.TransactionManager.StartTransaction()
Try
Dim ln As Long = Convert.ToInt64(HandEnt, 16)
Dim hn As Handle = New Handle(ln)
' And attempt to get an ObjectId for the Handle
Dim id As ObjectId = db.GetObjectId(False, hn, 0)
Dim obj As DBObject = tr.GetObject(id, OpenMode.ForWrite)
Try
Dim xy(0 To 2) As Double
Dim oPipe As DatabaseServices.Pipe
If TypeOf obj Is DatabaseServices.Pipe Then
oPipe = obj
PipeHGL_HandleGet = oPipe.HydraulicGradeLineDown.ToString & ":" & oPipe.HydraulicGradeLineUp.ToString & ":" & (oPipe.HydraulicGradeLineUp + oPipe.JunctionLoss).ToString
End If
tr.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage(ex.Message)
'tr.Abort()
MsgBox("The Pipe With Handle: " & HandEnt.ToString & vbLf & "Was Not Found")
Finally
'tr.Dispose()
End Try
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage(ex.Message)
tr.Abort()
MsgBox("The Pipe With Handle: " & HandEnt.ToString & vbLf & "Was Not Found")
Finally
tr.Dispose()
End Try
End Using
Catch 'ex As Exception
MsgBox("Something went wrong, you may want to audit your drawing and try again")
Finally
End Try
End Function
End Class
