Grasshopper to AUTOCAD

Replies to This Discussion

Permalink Reply by jnr on May 16, 2014 at 11:45am

This is my VB script, working in W7-64 and rhino5-64, well it is not really my, I worked from Nathan Miller codes. Thanks Nath . I attached gh file

Private Sub RunScript(ByVal aCommand As String, ByVal execute As Boolean, ByRef Done As Object)

    'open autocad 2013 (in this case) FIRST
    'manage assemblies:
    'Autodesk.AutoCAD.Interop.dll
    'Autodesk.AutoCAD.Interop.Common.dll
    'in C:\Program Files\Autodesk\AutoCAD 2013 in my PC
    Dim DoneYes As String = Nothing
    print(DoneYes)

    If execute = True Then
      Done = acommand 'show in Done pannel What it did
      Dim acApp As AcadApplication

      'the correct progID for AutoCAD 2010 is "AutoCAD.Application.18"
      'the correct progID for AutoCAD 2013 is "AutoCAD.Application.19"
      Dim progID As String = "AutoCAD.Application"

      acApp = Marshal.GetActiveObject(progID)
      acApp.Visible = True
      acApp.ActiveDocument.SendCommand(acommand)
      DoneYes = "AutoCAD command executed!"
      print(DoneYes)
    End If

Attachments:

• Autocad-SendCommandsTo.ghx, 47 KB