Сохранение подсветки выбранных объектов после ssget ":E"

1. (sssetfirst nab1)
выделит только ручки у обьектов набора nab1
2. (sssetfirst nab1 nab1)
выделит ручки и подсветит обьекты набора nab1
3. (sssetfirst)
снимает выделения (но не у объектов, подсвеченных с
помощью redraw)
Если системная переменная GRIPS установлена в "0" (нуль),
то выполняется только подсветка объектов без выделения их
ручек.

Подсвечивать можно объединенный набор, а оперировать с каждым набором в отдельности.

SSADD тебе поможет...

SSADD делает и то и другое.

Извиняюсь... не "e5" а "e1"
Короче брать отсюда:

 (setq count 0
      ss1 (ssget)
      ss2   (ssadd)
)
(while (setq e1 (ssname ss1 count))
  (setq    count (1+ count)
    ss2   (ssadd e5 ss2)
  )
) 

Редактор выдаёт, как и раньше одно и тоже типовое сообщение об ошибке:
; error: bad argument type: lentityp <Selection set: 186>
Это происходит после выбора первого набора ssget при попытке применить функцию ssadd. После первого выбора ssget образуется набор из нескольких блоков. После чего в цикле идет повтор выбора  аналогичного набора блоков. При попытке их объединения черех ssadd система и выдает сообщение об ошибке. Здесь не получается последовательного поштучного указания объектов, чтобы их можно было добавлять по одному в общий набор. Объединять хотелось бы "пачками". И что бы полсе каждой выбранной очередной "пачки" подсвечивались все указанные объекты.

> Анатолий Б
Попробуй так:

(defun test (/ ent i ss1 ss2)
  (sssetfirst nil nil)
  (redraw)
  (setq ss1 (ssget ":E"))
  (pl:ss-highlight ss1 3)
  (while (setq ss2 (ssget ":E"))
    (setq i -1)
    (while (setq ent (ssname ss2 (setq i (1+ i))))
      (if (not (ssmemb ent ss1))
        (ssadd ent ss1)
      )
    )
    (pl:ss-highlight ss1 3)
  )
  ss1
)
(defun pl:ss-highlight (ss mode / i ent)
  (setq i -1)
  (while (setq ent (ssname ss (setq i (1+ i))))
    (redraw ent mode)
  )
)
(setq mysel (test)) ;_ создать набор
(pl:ss-highlight mysel 4) ;_ снять подсветку

Это только демка.

> Анатолий Б
Попробуй так:

(defun test (/ ent i ss1 ss2)
(sssetfirst nil nil)
(redraw)
(setq ss1 (ssget ":E"))
(pl:ss-highlight ss1 3)
(while (setq ss2 (ssget ":E"))
(setq i -1)
(while (setq ent (ssname ss2 (setq i (1+ i))))
(if (not (ssmemb ent ss1))
(ssadd ent ss1)
)
)
(pl:ss-highlight ss1 3)
)
ss1
)
(defun pl:ss-highlight (ss mode / i ent)
(setq i -1)
(while (setq ent (ssname ss (setq i (1+ i))))
(redraw ent mode)
)
)
(setq mysel (test)) ;_ создать набор
(pl:ss-highlight mysel 4) ;_ снять подсветку

Это только демка.
Сорри! Поправка - слэш забыл (2 модератор - пред. пост можно удалить).

Очень жаль... а я надеялся!!!

> Евгений
И мне тоже...

> Анатолий Б
Я, лишь, могу предложить чуть измененный
вариант того же:

(setq ss_sym (ssad))
(foreach ss '(ss1 ss2 . . .)
  (repeat (sslength ss)
    (setq el (ssname ss 0))
    (ssadd el ss_sym)
    (ssdel el ss)
  )
)

и посоветовать сделать из этого функцию.

На > ML (2005-01-10 02:57:59)
Ваше решение мне хочется отметить, как наиболее предпочтительное. Оно уже "дышит" и с ним буду работать далее. Хотелось получить еще пару комментариев по программе. В программе два раза последовательно использована функция while. Второе применение вероятно связано с выделением отдельного элемента второго набора и после проверки добавления его в первый набор. А вот первое применение while мне до конца понятно. По логике нужно как-то определить количество элементов в наборе (через length или) и организовать цикл перебора для всех элементов.
Что скажете.

> Анатолий Б
Видимо, имеется ввиду: > ЯR (2005-01-09 20:17:35), если да, то первый while предназначен для повтора выбора до того момента, пока юзер не сделает пустой выбор (т.е., в ответ на предложение покликать по примитивам, не нажмёт "Энтер").