VB - AutoCAD2007 Вставка готовых объектов

> Alexey fon Ritter
Лучше вычерчивать самому по вершинкам, не нужно привязываться к стандартному прямоугольнику а то привыкните.

ThisDrawing.ModelSpace.AddPolyline(points)

вот начертит что захотите в виде полилинии

> SmeL
Пасиб :)

> LeonidSN
Пасиб, начал с хелпа ;)
проблема во времени, его не вагон :( потому работаю методом тыка, находя более-менее подходящее решение.
Включил в приложение (ВБ 6.0) через OLE окно atocad drawind
Подключил библиотеки: autocad (2007, object dbx common 17.0, focus control for vba) type lybrary
Теперь залез в браузер объектов, выбрал автокад, глянул, ужаснулся, но вроде, все что мне нужно имеется. Слава хелпу!
Угу, тут встала проблема, хелп я плохо понял что куда вписывать. В теории я могу нарисовать ромб, на практике он не рисуется:
Dim PLineObj As AcadLWPolyline
Dim lineObj As AcadLine
Dim D(1) As Double
Dim P(7) As Double
A = ThisDrawing.Utility.GetPoint(, 0)
B = ThisDrawing.Utility.GetPoint(A, 5)
Set lineObj = ThisDrawing.ModelSpace.AddLine(A, B)
C = ThisDrawing.Utility.GetPoint(B, 30)
D(0) = A(0) + C(0) - B(0)
D(1) = A(1) + C(1) - B(1)
P(0) = A(0)
P(1) = A(1)
P(2) = B(0)
P(3) = B(1)
P(4) = C(0)
P(5) = C(1)
P(6) = D(0)
P(7) = D(1)
lineObj.Delete
Set PLineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(P)
PLineObj.Closed = True

Вот пример построения полилинии из Help:

Sub Example_AddLightWeightPolyline()
    ' This example creates a light weight polyline in model space.
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    ' Create a light weight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
End Sub

Вопрос заключается в способе задания координат вершин:
1.Из текста кода (как в приведенном примере)
2.В виде параметров вызываемой процедуры Example_AddLightWeightPolyline()
3.Путем указания точек на чертеже
Какой способ применяешь ты, извини, не понял.
И еще. Чтобы не ужасаться, разглядывая browser, не подключай лишние библиотеки, начни с AutoCAD , а там видно будет.

Private Sub Command1_Click()
    On Error Resume Next
    ' Connect to the AutoCAD application
    Dim acadApp As AcadApplication
    Set acadApp = GetObject _
                  (, "AutoCAD.Application.17")
    If Err Then
        Err.Clear
        Set acadApp = CreateObject _
                  ("AutoCAD.Application.17")
        If Err Then
            MsgBox Err.Description
            Exit Sub
        End If
    End If
    ' Connect to the AutoCAD drawing
    Dim acadDoc As AcadDocument
    Set acadDoc = acadApp.ActiveDocument
    ' Establish the endpoints of the line
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    startPoint(0) = 1
    startPoint(1) = 1
    startPoint(2) = 0
    endPoint(0) = 5000
    endPoint(1) = 5000
    endPoint(2) = 0
    ' Create a Line object in model space
    Set lineObj = acadDoc.ModelSpace.AddLine _
                         (startPoint, endPoint)
    ZoomAll
    acadApp.Visible = True
End Sub

Я монстер! Я начертил линию!!!
Теперя попытался начертить рамку при помощи полилинии, за основу брал код из хелпа, приведенный LeonidSN (пасиб).

   ' This example creates a light weight polyline in model space.
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    ' Create a light weight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll

Но в получившемся результате не уверен, вродь автокад что-то чертил... но что, я так на чертеже и не нашел. Хотя, когда пытаешься его закрыть, автокад выдает запрос на сохранение, что для пустого проекта не свойственно.

Эх, кто бы привел работающий пример на VBA вычерчивания прямоугольника из отрезков с вводом параметров B (ширина) и L (длина) из формы. Типовой такой классический пример.

Плиз, хелп ми :(
У меня, по ходу дела и действия, возник вопрос, даже три:
1. Как изменить программно из приложения ВБ масштаб изображения в автокаде, чтобы весь чертеж вписывался в экран. В противном случае при экспорте в другой формат (.бмп) изображение получается из того куска, который был виден на экране.
2. Для экспорта необходимо выделить требуемые объекты, можно ли выбрать весь чертеж?
3. Никак не могу найти, как экспортировать чертеж. Если кто-нить делал такое, плиз :(