VBA для чайников (Страница 1 из 2)

Ты угадал. Для начала бери книгу VBA для чайников.
А чем справка в автокаде не подходит. На английском? Но объектную модель и код без английского всяко не напишешь.
Вот пример из справки:

Sub Example_AddLine()
    ' This example adds a line in model space
    
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    
    ' Define the start and end points for the line
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
    
    ' Create the line in model space
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
    
End Sub

Sub Example_AddLightWeightPolyline()
    ' This example creates a lightweight 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 lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    
End Sub

Я скопипастил с какой то страницы следующий код:

Private Sub CommandButton1_Click()
     Dim plineObj As AcadLWPolyline
      Dim Pt1(0 To 2)   As Double
      Dim Pt2(0 To 2)  As Double
      Dim Pt3(0 To 2)  As Double
      Dim Pt4(0 To 2)  As Double
    
    

 Pt1(0) = 0: Pt1(1) = 0: Pt1(2) = 0
 Pt2(0) = 420: Pt2(1) = 0: Pt2(2) = 0
  Pt3(0) = 420: Pt3(1) = 297: Pt3(2) = 0
  Pt4(0) = 0: Pt4(1) = 297: Pt4(2) = 0

    Set lineObj = ThisDrawing.ModelSpace.AddLWPolyline(Pt1, Pt2)
    Set lineObj = ThisDrawing.ModelSpace.AAddLWPolyline(Pt2, Pt3)
    Set lineObj = ThisDrawing.ModelSpace.AddLWPolyline(Pt3, Pt4)
    Set lineObj = ThisDrawing.ModelSpace.AddLWPolyline(Pt4, Pt1)
    ZoomExtents
End Sub

Выдает ошибку. Точнее код был для простых линий, я решил начертить полилинии. В чем ошибка, ткните пожалуйста.
PS Вильдар ваш код работает на ура. Спасибо попытаюсь разобраться что к чему

Sub Example_AddLightWeightPolyline()
    ' This example creates a lightweight 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 lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
   
End Sub

Почему-то на points 8  выдает смайлик

Такие элементарные вопросы отпадут, когда ты прочитаешь любую книжку по VBA, и изучишь объектную модель автокада.

Или из самого автокада, меню справка-доп.ресурсы-справка для разработчиков (это в 2008 рус.версии)

Сойдет такая книга.
Нет контролировать не надо. Из самого пустого автокада код vba не запустить. А из IDE сам следи конечно.

Рекомендую самому хорошенько попариться :D

Не очень понятно, что тебе нужно.
Но полное завершение программы можно сделать с помощью End.
Или с помощью оператора перехода Goto в конец программы.
Вообще, лучше если покажешь код, тогда точнее можно сказать.

2 Electr
Если вы только начинаете изучать VBA под акад, то бросайте это дело. =(
К сожалению VBA под акад уже умер, а жаль.
У вас есть преимущество, вы не испорчены vba и по этому с теми же усилиями изучите другой язык или платформу.
             Удачи.

Леонид, а можно поподробнее? Особенно интересует связка Акад х64 + VBA

Так что дейтвительно может не стоит начинать. Тогда посоветуйте что же делать. Лично для меня возникла острая необходимость автоматизировать некоторые свои рутинные операции, вот и подумал что VBA поможет. Пытался начать с лиспа, как то не заладилось, скобок там много чтоли.

Или чтобы написать полноценную програму средств VBA будет недостаточно?

По ссылке пишет

.
Т.е. это совершенно 2 разных языка, или сходство есть?. Это я спрашиваю просто из интереса.