how to access AutoCAD 2012 from Vb.net Standard Exe
http://through-the-interface.typepad.com/through_the_interface/2006/07/debugging_using.html
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
Sorry I read your question wrong.
acDbMgd.dll and AcMgd are only for internal use within Autocad. They can't be used by an outside EXE.
Get a reference to COM Autocad 2012 Type Library
Imports System
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Interop
Public Class ComCode
Public Sub runme()
Const progID As String = "AutoCAD.Application.18"
Dim acApp As AcadApplication = Nothing
Try
acApp = DirectCast(Marshal.GetActiveObject(progID), AcadApplication)
Catch ex As Exception
Try
Dim acType As Type = Type.GetTypeFromProgID(progID)
acApp = DirectCast(Activator.CreateInstance(acType, True), AcadApplication)
Catch ex2 As Exception
MessageBox.Show("Cannot create object of type """ & progID & """")
End Try
End Try
If acApp IsNot Nothing Then
' By the time this is reached AutoCAD is fully
' functional and can be interacted with through code
End If
End Sub
End Clas
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
Sub dwgAddCircle(ByVal acadApp As Autodesk.AutoCAD.Interop.AcadApplication)
Dim doc As AcadDocument = acadApp.ActiveDocument
Dim pt(2) As Double
pt(0) = 0
pt(1) = 0
pt(2) = 0
doc.ModelSpace.AddCircle(pt, 10)
End Sub
Sub dwgReSave(ByVal acadApp As Autodesk.AutoCAD.Interop.AcadApplication, ByVal strFileName As String)
Dim acadDBX As Object = acadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.18")
If FileExists(strFileName) Then
If Not InUse(strFileName) Then
Try
acadDBX.Open(strFileName)
acadDBX.saveas(strFileName)
acadDBX = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject(acadApp)
GC.Collect()
GC.WaitForPendingFinalizers()
Catch ex As Exception
End Try
End If
End If
End Sub
Public Function InUse(ByVal sFile As String) As Boolean
If System.IO.File.Exists(sFile) Then
Try
Dim F As Short = FreeFile()
FileOpen(F, sFile, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
FileClose(F)
Catch
Return True
End Try
End If
End Function
Public Function FileExists(ByVal FileFullPath As String) _
As Boolean
Dim f As New IO.FileInfo(FileFullPath)
Return f.Exists
End Function
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))