[KirYA_NO]

подскажите пожалуйстя, как через вба начертить 7 окружность разного диаметра и цвета через цикл?

[Сергей Дубина]

В справке автокада много примеров черчения примитивов, в т.ч. и круги. Ввинтить туда цикл особого труда не составит.

[AlexV]

Ну, например..

Код:

[Выделить все]

Sub main()
  Dim centerPoint(0 To 2) As Double
  Dim r As Double
  Dim i As Integer
  r = 10
  centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
  For i = 1 To 7
    Call Add_Circle(centerPoint, r, i)
    r = r + 10
  Next i
End Sub
Private Sub Add_Circle(center, radius, col)
    Dim circleObj As AcadCircle
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
    circleObj.color = col
End Sub

[Кулик Алексей aka kpblc]

KirYA_NO, тему переименуй. Как - см.справку по форуму (ссылка у меня в подписи)