ADN Club > VBA

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

(1/1)

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

--- Код - Visual Basic [Выбрать] ---Sub extract1()Dim entry As AcadEntityFor Each entry In ThisDrawing.ModelSpace    If entry.ObjectName = "AcDbPolyline" Then        'Debug.Print entry.StartPoint 'startpoint, coordinate(0)?        'entry.StartPoint    End IfNextEnd Sub

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

--- Цитата: o5andrey от 16-02-2023, 08:54:17 ---Возможно ли на VBA получить данные чертежа?
--- Конец цитаты ---
Да.
--- Цитата: o5andrey от 16-02-2023, 08:54:17 ---Но вот мне бы получить массив точек начала и конца каждой уже давно нарисованной линии всего чертежа.
--- Конец цитаты ---
Линии - это что? В AutoCAD есть отрезки, несколько типов полилиний, окружности, эллипсы, сплайны, дуги и т.д. Для каждого из типов примитивов свои методы.

o5andrey:

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

Александр Ривилис:
o5andrey,
Свойство Coordinates должно тебе помочь.

Навигация

[0] Главная страница сообщений