Открыть AutoCad 2014 и создать в нем трехмерную фигуру

Public Class Form1
 
    Dim acadApp As Object
    Dim acadDoc As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Считывание параметров из TextBox в файл обмена
 
        Dim FPath1 As String
        FPath1 = "d:\AutoCad\P\a.txt"
 
        Dim FNum1 As Integer
        FNum1 = FreeFile()
        'Открытие файла a.txt
        FileOpen(FNum1, FPath1, OpenMode.Output)
 
        Dim strA As String
        strA = TextBox1.Text
        PrintLine(FNum1, strA)
        strA = TextBox2.Text
        PrintLine(FNum1, strA)
        strA = TextBox3.Text
        PrintLine(FNum1, strA)
        FileClose(FNum1)
 
        'Запуск AutoCAD
     acadApp = CreateObject("AutoCAD.Application")
          [COLOR="Red"] acadApp.Visible = True
        AppActivate("AutoCAD") '- Активация окна "AutoCAD"
        acadDoc = acadApp.ActiveDocument[/COLOR]
        'С командной строки загружаются файлы и запускаются команды
        acadApp.ActiveDocument.SendCommand("(load ""d:/AutoCad/P/mod3d.lsp"") mod3d ")
        acadApp.ActiveDocument.SendCommand("(load ""d:/AutoCad/P/Pro3.lsp"") pro3 ")
 
        ' Обновляем AutoCAD
        acadApp.Update()
    End Sub
End Class

Public Class Form1
    Dim acadApp As Autodesk.AutoCAD.Interop.AcadApplication
    Dim acadDoc As Autodesk.AutoCAD.Interop.AcadDocument
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        acadApp = New Autodesk.AutoCAD.Interop.AcadApplication
        acadApp.Visible = True
        acadDoc = acadApp.ActiveDocument
        'acadDoc.SendCommand("твой лисп")
        acadApp.Update()
    End Sub
End Class

im acadApp As Autodesk.AutoCAD.Interop.AcadApplication

 Dim acadDoc As Autodesk.AutoCAD.Interop.AcadDocument