функция vla-get-activeselectionset

[1958]

Если я правильно понимаю, функция vla-get-activeselectionset позволяет выбрать примитивы и, преобразовав их во vla-object, поместить в набор. Т.е. выполнив (setq ass (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))), в ass имеем набор vla-объектов.
А как выбрать сразу все примитивы чертежа?
Конструкция :

(ssget "_X")
(setq ass (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))

не срабатывает, все равно идет запрос на выбор объектов.

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

Если я правильно понимаю, функция vla-get-activeselectionset позволяет выбрать примитивы

Уже неправильно. Эта функция позволяет вернуть набор уже выбранных примитивов.

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

Должно быть как-то так:

Код - Auto/Visual Lisp [Выбрать]

1. (setq ss (vla-add (vla-get-selectionsets (vla-get-activedocument (vlax-get-acad-object))) "SSET"))
2. (vla-select ss acselectionsetall)
3.  

[1958]

Всё равно идет запрос на выбор объектов. Как же все таки сделать выбор всего и вся?

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

Всё равно идет запрос на выбор объектов. Как же все таки сделать выбор всего и вся?

Где идёт запрос? В том коде, который я привёл??? Подтверди видео.

[1958]

Честно говоря, я уже запутался! А нужно мне всего лишь получить среднюю точку чертежа.

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

А нужно мне всего лишь получить среднюю точку чертежа.

Получаешь значения системных переменных EXTMIN и EXTMAX и находишь среднее арифметическое.
Вот так:

Код - Auto/Visual Lisp [Выбрать]

1. (setq p (mapcar '* '(0.5 0.5 0.5) (mapcar '+ (getvar "EXTMIN") (getvar "EXTMAX"))))

[1958]

Получаешь значения системных переменных EXTMIN и EXTMAX и находишь среднее арифметическое.

Блин! Так просто!