Нарисованные линии

[o5andrey]

Возможно ли на VBA получить данные чертежа? В примерах я вижу создание и модификацию сущностей чертежа. Но вот мне бы получить массив точек начала и конца каждой уже давно нарисованной линии всего чертежа.

Код - Visual Basic [Выбрать]

1. Sub extract1()
2. Dim entry As AcadEntity
3. For Each entry In ThisDrawing.ModelSpace
4.     If entry.ObjectName = "AcDbPolyline" Then
5.         'Debug.Print entry.StartPoint 'startpoint, coordinate(0)?
6.        'entry.StartPoint
7.    End If
8. Next
9. End Sub

[Александр Ривилис]

Возможно ли на VBA получить данные чертежа?

Да.

Но вот мне бы получить массив точек начала и конца каждой уже давно нарисованной линии всего чертежа.

Линии - это что? В AutoCAD есть отрезки, несколько типов полилиний, окружности, эллипсы, сплайны, дуги и т.д. Для каждого из типов примитивов свои методы.

[o5andrey]

Линии - это что?

Полилинии: AcDbPolyline, AcDb2dPolyline. (Мой "чертёж" - это схема из прямоугольных блоков и соединяющих линий.)

[Александр Ривилис]

o5andrey,
Свойство Coordinates должно тебе помочь.