Вопрос Н.Н.Полещуку по VB.NET

> Н.Н.Полещук
Код сработал, причем скомпилирован он был на VS.NET2003.
Большое спасибо!
Однако попытки создать Приложение под ACAD2002,ACAD2003 (соответственно, версии 15.06 и 16.0) заканчиваются сообщением об ошибке:Cannot create AtiveX component.
Видимо, VB.NET это инструмент только для ACAD2005 и выше. А жаль... Ведь в ходу еще много Автокадов предыдущих поколений. Может быть удастся сочинить какой-нибудь переходник?
Например, от VBA к VB.NET.

> LeonidSN
Возможно я чего-то недопонял, так как очень далек от VBA и VB.NET
Тем не менее вот этот код я скомпилировал в VB.NET 2002, получил exe-файл, который благополучно запустил AutoCAD 2002, отрисовал отрезок, сохранил чертеж и завершил работу AutoCAD:

Imports AutoCAD
    Public Sub AcadAccess()
        On Error Resume Next
        Dim AcadApp As AcadApplication
        Dim ActDocs As AcadDocuments
        Dim ActDoc As AcadDocument
        AcadApp = CreateObject("AutoCAD.Application.15")
        ' Видимость
        AcadApp.Visible = True
        ActDocs = AcadApp.Documents
        ActDoc = ActDocs.Add
        Modelspace = ActDoc.ModelSpace
        Dim lineObj As AcadLine
        ' Точки
        Dim StartPoint(2) As Double
        Dim EndPoint(2) As Double
        StartPoint(0) = 1.0#
        StartPoint(1) = 1.0#
        StartPoint(2) = 0.0#
        EndPoint(0) = 250.0#
        EndPoint(1) = 250.0#
        EndPoint(2) = 50.0#
        ' Построение отрезка
        lineObj = ActDoc.ModelSpace.AddLine(StartPoint, EndPoint)
        ActDoc.SaveAs("C:\Test.dwg")
        AcadApp.Quit()
    End Sub

Что-то не так?

> LeonidSN
Я просто подключил не .NET, а COM-библиотеку acad.tlb, а она сама генерирует Interop.AutoCAD.dll
Очевидно, что с .NET библиотеками от AutoCAD 2005-2006 в AutoCAD 2002,2004 ничего работать не будет.

Скажу честно, что обратная совместимость на уровне dll-файлов мне даже в голову не приходила. Это настолько сложно реализовать (если вообще возможно), что (IMHO) у Autodesk даже мыслей об этом возникать не должно было. :) И для будующих версий AutoCAD этого ожидать не следует.

ой извините я не тот код вставил
' Н.Н.Полещук, Глава 07\Book11\VbNetAcadAccess.vb
' В книге "AutoCAD: разработка приложений, настройка и адаптация"
' (издательство "БХВ-Петербург", 2005)
'
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Public Class Form1
    Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(104, 104)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1})
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AcadAccess()
    End Sub
    Public Sub AcadAccess()
        On Error Resume Next
        Dim AcadApp As AcadApplication
        Dim ActDoc As AcadDocument
        ' Проверка открытого окна AutoCAD
        AcadApp = GetObject(, "AutoCAD.Application.16.2")
        If Err.Number <> 0 Then
            Err.Clear()
            AcadApp = CreateObject("AutoCAD.Application.16.2")
        End If
        ' Видимость
        AcadApp.Visible = True
        ' Активный рисунок
        ActDoc = AcadApp.ActiveDocument
        Dim lineObj As AcadLine
        ' Точки
        Dim StartPoint(2) As Double
        Dim EndPoint(2) As Double
        StartPoint(0) = 1.0#
        StartPoint(1) = 1.0#
        StartPoint(2) = 0.0#
        EndPoint(0) = 250.0#
        EndPoint(1) = 250.0#
        EndPoint(2) = 50.0#
        ' Построение отрезка
        lineObj = ActDoc.ModelSpace.AddLine(StartPoint, EndPoint)
    End Sub
End Class

P.S.: Так как в коде есть строка

AcadApp = GetObject(, "AutoCAD.Application.16.2")

то речь идет об AutoCAD 2006

Ой извините уже разобрался (вообще убрал номер версии) большое спасибо.