Both ways is woking for me with A2009 Win7
Try again
{code}
''1st way
Private Function GetAcadVer() As String
Dim acadver As Object
Try
acadver = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\AutoCAD.Application\CurVer", _
String.Empty, String.Empty)
If TypeOf acadver Is String Then
'MessageBox.Show("String acadver: " & acadver.ToString())
Return acadver.ToString()
Else
Return Nothing
End If
Catch
Return Nothing
End Try
End Function
Public Sub connectAutoCad()
Dim acApp As Object = Nothing
Dim progID As String = GetAcadVer()
Try
'try to get a current instance of AutoCAD
acApp = Marshal.GetActiveObject(progID)
Catch
'try to create a new instance of AutoCAD
Dim acType As Type = Type.GetTypeFromProgID(progID)
acApp = Activator.CreateInstance(acType, True)
End Try
acApp.GetType().InvokeMember("visible", Reflection.BindingFlags.SetProperty + Reflection.BindingFlags.IgnoreCase, Nothing, acApp, New Object() {True})
acApp.GetType().InvokeMember("eval", Reflection.BindingFlags.InvokeMethod + Reflection.BindingFlags.IgnoreCase, Nothing, acApp, New Object() {"MsgBox(" + """Hello Discussion group""" + ")"})
acApp.GetType().InvokeMember("quit", Reflection.BindingFlags.InvokeMethod + Reflection.BindingFlags.IgnoreCase, Nothing, acApp, Nothing)
Marshal.FinalReleaseComObject(acApp)
acApp = Nothing
End Sub
''2nd way
Private Sub GetAcadApp(ByVal AcadString As String)
Dim AcadApp As Object = Nothing
Try
AcadApp = GetObject(, "AutoCAD.Application." & AcadString)
Catch
AcadApp = CreateObject("AutoCAD.Application." & AcadString)
AcadApp.GetType().InvokeMember("Visible", Reflection.BindingFlags.SetProperty + Reflection.BindingFlags.IgnoreCase, Nothing, AcadApp, New Object() {True})
MessageBox.Show(AcadApp.GetType().InvokeMember("Name", Reflection.BindingFlags.GetProperty + Reflection.BindingFlags.IgnoreCase, Nothing, AcadApp, Nothing).ToString)
Finally
AcadApp.GetType().InvokeMember("Quit", Reflection.BindingFlags.InvokeMethod + Reflection.BindingFlags.IgnoreCase, Nothing, AcadApp, Nothing)
Marshal.FinalReleaseComObject(AcadApp)
AcadApp = Nothing
End Try
End Sub
''example:
''on button click call
'' GetAcadApp("17")
{code}
~'J'~
_____________________________________
C6309D9E0751D165D0934D0621DFF27919
