Сообщество программистов Autodesk в СНГ
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Звонок в техподдержку Autodesk Forge
Начало
Сайт
Правила
Помощь
Поиск
Непрочитанные
Календарь
Вход
Регистрация
Сообщество программистов Autodesk в СНГ
»
ADN Club
»
VBA
»
VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента (Прочитано 3305 раз)
0 Пользователей и 2 Гостей просматривают эту тему.
filat
ADN Club
Сообщений: 263
Карма: 2
VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
«
:
08-10-2021, 10:51:54 »
Есть
AcadDocument.ModelSpace
- входящие в эту коллекцию простые линии имеют
Стартовую точку
.
Как задать условие проверки существования такой точки у элемента?
Код - Text
[Выбрать]
For Each oModSpace In AcadDocument.ModelSpace
If oModSpace.StartPoint Is Nothing Then
такое условие проверки не работает...
Записан
Александр Ривилис
Administrator
Сообщений: 13830
Карма: 1784
Рыцарь ObjectARX
Skype:
Re: VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
«
Ответ #1 :
08-10-2021, 14:38:47 »
filat
,
Простите, Сэр, но это бред! У любого отрезка (Line) всегда есть начальная точка. Так что тебе нужно проверить, что объект - это Line. И этого будет достаточно.
Записан
Не забывайте про правильное
Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился
правильный ответ
, то не забудьте про кнопку
Решение
filat
ADN Club
Сообщений: 263
Карма: 2
Re: VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
«
Ответ #2 :
08-10-2021, 15:23:01 »
Да в целом нет возражений, только вот кроме линий, в этой коллекции есть и другие элементы - например, полилинии! и у них нет параметра Стартпоинт - озвученным условием их отсеч не получается....
Записан
Александр Ривилис
Administrator
Сообщений: 13830
Карма: 1784
Рыцарь ObjectARX
Skype:
Re: VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
«
Ответ #3 :
08-10-2021, 18:00:52 »
filat
,
Сформулируй пожалуйста нормально задачу.
Записан
Не забывайте про правильное
Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился
правильный ответ
, то не забудьте про кнопку
Решение
Nutson
ADN OPEN
Сообщений: 43
Карма: 6
Re: VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента
«
Ответ #4 :
08-10-2021, 21:56:22 »
Если надо получить все линии в модели то лучше запросить только их, а не перебирать все
Код - Visual Basic
[Выбрать]
Sub
test()
Dim
ssetObj
As
AcadSelectionSet
Set
ssetObj = ThisDrawing.SelectionSets.Add(
"SSET"
)
Dim
FilterType(0)
As
Integer
Dim
FilterData(0)
FilterType(0) = 0
FilterData(0) =
"LINE"
Call
ssetObj.
Select
(AcSelect.acSelectionSetAll, , , FilterType, FilterData)
End
Sub
Записан
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Сообщество программистов Autodesk в СНГ
»
ADN Club
»
VBA
»
VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента