[АлександрМихайлович]

Есть чертеж. Состоит только из линий и дуг. Надо через VBA (именно через него) вытащить координаты точек всех примитивов и сохранить их в массив. И нужно чтобы в массив писАлось что это: линия или дуга.

[Yura16]

Примерно так:

dim k(2) as double,massiv() as структура

name_shem = ThisDrawing.Blocks(0).name
With ThisDrawing.Blocks(name_shem)
For j = 0 To .Count - 1
t = .Item(j).ObjectName
redim preserve massiv(j)
Select Case t
Case "AcDbLine","AcDbArc"
k = .Item(j).StartPoint
massiv(j).x1 = k(0): massiv(j).y1 = k(1): massiv(j).z1 = k(2)
k = .Item(j).EndPoint
massiv(j).x2 = k(0): massiv(j).y2 = k(1):massiv(j).z2 = k(2)
end select
next j
end with

Не забудь описать структуру данных в модуле x1,y1 ...