[АлексЮстасу]

Вопрос от профана в лиспе.
Как на лиспе сделать выбор объектов, при котором, если не было выделения курсором, но нажат Enter, то выбиралось все?
Если же было выделение курсором, то все как обычно - Enter подтверждает-завершает выбор указанного.
Сейчас при обычном выборе, если не было выделения курсором, то Enter означает пустой выбор.
Обычно:

Выберите объекты:

Сделать:

Выберите объекты <Все>:

Например, есть такой фрагмент кода для выбора:

Код:

[Выделить все]

       (initget "Selection All _Select All")
      (if (eq (getkword "\nObject Selection [Selection/All] <All>: ") "Select")
        (setq js (ssadd) js (ssget '((-3 ("*")))))
        (setq js (ssadd) js (ssget "_X" '((-3 ("*")))))
      )

Как сделать, чтобы в комстроке было:

Select objects <All>:

При этом, чтобы можно было выбирать курсором, а можно сразу нажать Enter для выбора всего.

[===AAA===]

Ну так и осталось-то пару строк дописать...
Просто сделай проверку полученного набора.
Если он пустой (был нажат Ентер), то создать
новый набор, запихав в него "Всё".

[АлексЮстасу]

Я в лиспе профан совсем.

Кажется, что на основе моего фрагмента так не сделать.

Я пытаюсь сократить число действий пользователей.
Т.е. чтобы режим выбора объектов был уже активен. И не нужно было выбирать-вводить "S", "Selection", чтобы оказаться в режиме выбора курсором.
Хотелось бы, чтобы сразу было как при обычном выборе курсором.
Но при этом в комстроке была и подсказка про Enter == <All>.

[koMon]

Сообщение от АлексЮстасу Как сделать, чтобы в комстроке было

ну только если в комстроке.

Код:

[Выделить все]

 (setvar 'nomutt 1)
(princ "\nSelect objects <All>:")
(if (null (setq entities_ss (ssget '((-3 ("*")))))) (setq entities_ss (ssget "_X" '((-3 ("*"))))))
(setvar 'nomutt 0)

[StupidDuck]

nomutt интересная переменная, спасибо

(cond
((null (setq ss (ssget))) (vla-zoomextents (vlax-get-acad-object)) (setq ss (ssget "_X")) (vla-zoomprevious (vlax-get-acad-object)))
);cond

можно добавить зум, если не все обьекты на экране

[АлексЮстасу]

Сообщение от koMon ну только если в комстроке.

Получилось! Постепенно вставлю во всех лиспы, которыми пользуюсь.

Сообщение от StupidDuck можно добавить зум, если не все обьекты на экране

Я же профан!
В какое место это прикрутить, допустим, к фрагменту от koMon?

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

StupidDuck, ssget с ключом "_X" выбирает вообще все объекты на всех листах и в модели.

[StupidDuck]

точно, спасибо. АлексЮстасу, в коде от koMon ничего менять не надо.

судя по '((-3 ("*")), это в продолжении нового тренда XData. АлексЮстасу, позвольте поинтересоваться (здесь, не в другой теме), какие фактические планы использования хдата, ввиду некторой ограниченности по составу и структуре хдата.

[АлексЮстасу]

Сообщение от StupidDuck судя по '((-3 ("*")), это в продолжении нового тренда XData

А! Т.е. в лиспах не для XData с этим придется еще повозиться.

Сообщение от StupidDuck позвольте поинтересоваться (здесь, не в другой теме), какие фактические планы использования хдата, ввиду некторой ограниченности по составу и структуре хдата.

У меня - никаких. У меня в Map/Civil есть средства для описательных данных без этих ограничений. И там есть штатные и дополнительные инструменты для их удобного и полноценного использования.
Меня интересуют XData как аналог, пусть и меньше употребимый из-за ограничений. Но зато в любом, в базовом AutoCAD.
До совсем недавнего момента - месяц прошел, максимум - я много лет был убежден всем нашим сообществом, что для XData есть только две неудобные команды из Express. А оказалось, что есть множество лиспов.
Хочу собрать и доработать до общеупотребительного вида инструменты работы с XData. Чтобы получился общедоступный минимально необходимый набор команд для XData.
(С помощью программистов, конечно, поскольку я - совсем нет).
Чтобы пользователи AutoCAD могли применять и эту ценную его возможность, которой они лишены из-за отсутствия инструментов.
Практический для меня смысл - получать от исполнителей с базовым AutoCAD (а таких подавляющее большинство) данные с описательной информацией, аналогичной нашим в Map/Civil.

[Сергей812]

Сообщение от АлексЮстасу Чтобы пользователи AutoCAD могли применять и эту ценную его возможность, которой они лишены из-за отсутствия инструментов.

были бы востребованы - давно были бы написаны за десятки лет активного использования акада.

Сообщение от АлексЮстасу Практический для меня смысл - получать от исполнителей с базовым AutoCAD (а таких подавляющее большинство) данные с описательной информацией, аналогичной нашим в Map/Civil.

а у исполнителей будет на это время - заносить данные с описательной информацией, пользуясь винегретом из собранных по миру программ?