[alik3001]

Приветствую всех. Столкнулся с такой проблемой.
Через лисп выделяю объекты
(setq selSet (ssget))
(sssetfirst nil selSet)
Иногда показывает на экране выделение, иногда не показывает. Хотя в свойствах видно, что объекты выделены и если нажать какую-нибудь команду, то появляется выделение, то есть подсветка объектов. В чем причина?

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

Сообщение от alik3001 Иногда показывает на экране выделение, иногда не показывает. Хотя в свойствах видно, что объекты выделены и если нажать какую-нибудь команду, то появляется выделение, то есть подсветка объектов. В чем причина?

За 4 года - 1333 пустых просмотров и 0 ответов. Завораживающих своей глубокомысленностью...

Когда-то я тоже задавал вопрос об этом же. Ответы были, но с решениями было туговато.
Ок. Если никто не знает прямого ответа, то, может, кто знает ответ кривой?
Каким костылем можно заставить отображать выбранное-выделенное?
Я посмотрел, что выбор становится видимым после _REGEN. Но, во-первых, _REGEN в тяжелых файлах занимает время, а из lisp он дает ненужное неподавляемое сообщение.
Нет ли костыля полегче?

[===AAA===]

Иногда показывает на экране выделение, иногда не показывает.

А что тут ответишь? Это примерно, как про "кто-то стучит" у Стругацких.

Как вариант - ACAD "затыкается" на наборах, которых "до этого" по ходу
выполнения разных программ нахватали, да так и не сбросили.

Я вообще, когда с наборами работаю, давным-давно взял за правило:

1) обработал примитивы, сбросил набор в nil (пусть даже это и локальная
переменная)
2) тут же следом - (gc)

И хорошо. Всё стабильно.

[Valera1985]

Я заметил, что если сначала выделять, а потом SSGET, то и не подсвечивает. Если выбирать самим SSGET, то подсвечивает всегда.

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

pickfirst ?

[name02]

А если попробовать так:

Код:

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

 (defun c:GetSS (/ a i)
  (setq a (ssget))
  (repeat (setq i (sslength a))
    (redraw (ssname a (setq i (1- i))) 3)
  ) ;_ end repeat
  (sssetfirst nil a)
  a
) ;_ end defun

[===AAA===]

Я заметил, что если сначала выделять, а потом SSGET, то и не подсвечивает.

Так если нужно работать с предварительно выбранными объектами,
то "ссгетиться" нужно через "i", т.е.:

(setq selSet (ssget "_i"))

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

Сообщение от Valera1985 Я заметил, что если сначала выделять, а потом SSGET, то и не подсвечивает. Если выбирать самим SSGET, то подсвечивает всегда.

Сообщение от Кулик Алексей aka kpblc pickfirst ?

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

Сообщение от name02 А если попробовать так: Код: [Выделить все] (defun c:GetSS (/ a i) (setq a (ssget)) (repeat (setq i (sslength a)) (redraw (ssname a (setq i (1- i))) 3) ) ;_ end repeat (sssetfirst nil a) a ) ;_ end defun

Добавление цикла + действия redraw тоже же займет время. Не будет ли это то же, что _REGEN?
И redraw делает выделение только пунктиром, что не всегда видно.

... Какое-нибудь холостое легкое действие бы. Выполняющееся быстро.

[===AAA===]

Сорри, а чем эта конструкция-то плоха?

Код:

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

 (if (null (setq selSet (ssget "_i")))(setq selSet (ssget)))
(sssetfirst nil selSet)

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

Сообщение от ===AAA=== Сорри, а чем эта конструкция-то плоха? Код: [Выделить все] (if (null (setq selSet (ssget "_i")))(setq selSet (ssget))) (sssetfirst nil selSet)

Нужно произвести действие одним множеством объектов, указанным пользователем, с другим множеством объектов, указанным пользователем, и показать те объекты, которые попали под это действие.
И возможность предварительного выбора не означает, что нужно не дать возможности выбрать после запуска программы.

[===AAA===]

Ну так сбрось предварительный выбор вызовом пустого
(command) перед (if ...), если в менюшку для вызова
программы не добавлено ^C^C ...

Или сперва запомни предварительный набор в какой-
нибудь переменной, потом сбрось его, снова (ssget)
для нового набора и обрабатывай уже все объекты.

Или опять не то?

[name02]

Сообщение от АлексЮстасу И redraw делает выделение только пунктиром, что не всегда видно.

У меня в Автокаде 2022 redraw подсвечивает голубым объект.
Я потому и сделал так:
1 (ssget) - создает набор с выбранными объектами, но не выделяет их
2 (redraw) показывает объекты голубым выделением
3 (sssetfirst) показывает выделенное с ручками, т.е. (redraw) выполняется подстраховку на случай, если (sssetfirst) не подсветит объекты

Насчет цикла - с теоретической точки зрения - конечно да, время-ресурные затраты будут. Другой вопрос - насколько это все будет заметно и будет ли мешать пользователю?

[===AAA===]

У меня в Автокаде 2022 redraw подсвечивает голубым объект.

В наноКАДе это настраивается (см. рисунок), может быть и в Автокаде тоже?
Интересно, какая системная переменная за эту настройку отвечает?

[name02]

За смену "цвет или пунктир" переменная SELECTIONEFFECT (1 или 0 соответственно)
Цвет выделения можно поменять тут:

[===AAA===]

В nanoCAD23.1 переменная SELECTIONEFFECT на это дело не влияет.

Похоже, они для некоторых настроек отдельную ветку реестра замутили
и управляется оно только "руками" через меню. :-(