[vaxo55]

есть такая задача:
надо чтоб при нажатии на кнопке формы vba, отдельные объекты line повернулись; для этого стараюсь идентифицировать объекты line подобно объекта Layer:
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Add("ABC")
layerObj.Color = acRed
но никак не получается
lineObj.name- и подобные выдает ошибки
прошу посоветовать решением
спасибо за ранее

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

При работе в VBA срабатывает IntelliSense, насколько я помню. Посмотри внимательно: у объекта AcDbLine нет и быть не может свойства Name: смотри справку по объектной модели AutoCAD.

[vaxo55]

Кулик Алексей aka kpblc
спасибо за отзыв
"у объекта AcDbLine нет и быть не может свойства Name". да я этого уже смотрел ,и как поступать?
а если командовать из внешний VB?

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

А какая разница? Объектная модель остается неизменной.

[vaxo55]

или взять другой примитив которий поддается команде rotate?

[trir]

У линии, как и любого графичесго примитива есть ObjectId и Handle

[gomer]

Почему тема не в программировании? Что мешает нарисовать линии сразу в проектном положении? Что мешает воспользоваться LineObj.Rotate?

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

Сообщение от gomer Почему тема не в программировании?

Бывает, закрутились. Перемещено.

[vaxo55]

gomer

Сообщение от gomer Что мешает нарисовать линии сразу в проектном положении? Что мешает воспользоваться LineObj.Rotate?

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

Сообщение от trir ObjectId и Handle

вуду пробовать

[Сергей812]

Может этот пример

Добавим в чертеж с помощью VBA линию (отрезок) и повернем ее на определенный угол, например 45 градусов. Как это сделать?

поможет? И проще всего все таки через имя слоя выборку автоматическую делать, поскольку для обработки ObjectId и Handle к ним надо программно обращаться и все равно на основании каких то дополнительных условий делать выборку.

А если по слою: цикл по пространству модели I1=0..ThisDrawing.ModelSpace.Count - 1, проверка типа ThisDrawing.ModelSpace.Item(I1).ObjectName="AcDbLine", проверка имени слоя и поворот. А линии для поворота в нужный слой загоняются стандартными средствами автокада.

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

Сообщение от Сергей812 цикл по пространству модели I1=0..ThisDrawing.ModelSpace.Count - 1, проверка типа ThisDrawing.ModelSpace.Item(I1).ObjectName="AcDbLine", проверка имени слоя и поворот. А линии для поворота в нужный слой загоняются стандартными средствами автокада.

А просто набор (SelectionSet) почему не создать?

[Сергей812]

Сообщение от Кулик Алексей aka kpblc А просто набор (SelectionSet) почему не создать?

Ну в топике темы было:

Сообщение от vaxo55 надо чтоб при нажатии на кнопке формы vba, отдельные объекты line повернулись

Если бы задача была сформулирована - как повернуть группу выделенных line по нажатию кнопки на форме VBA - то тогда через SelectionSet, конечно. Я просто один из вариантов предложил - как решал в свое время свои задачи по идентификации объектов на чертеже на VBA. Можно и фильтр создать, и сделав потом выборку SelectionSet - это уже дело предпочтений)

[gomer]

Сообщение от vaxo55 надо повернуть уже нарисованную линию

В каком виде хранится информация о

Сообщение от vaxo55 ObjectId и Handle

?