[Yuzer]

Здравствуйте.
Подскажите пожалуйста где найти лисп, который бы повторил предидущий выбор элементов.
К примеру: долго и нудно выбирал кучу разных элементов, потом случайно нажал Esc и приходится заново их выискывать... А так бы нажал кнопуку и выбор повторился бы...
Offtop: Извиняюсь, что не на языке пергамистов выражаюсь - не силен в этом.

[gomer]

Код:

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

TIP1134.MNU:    SEL_SET.MNU   Selection Sets   (c)1995, Marc Stringer

***POP10
[Selection Sets]
[Selection A]^p(if (/= sela nil)(setq sela sela)(setq sela (ssget)));
[Selection B]^p(if (/= selb nil)(setq selb selb)(setq selb (ssget)));
[Selection C]^p(if (/= selc nil)(setq selc selc)(setq selc (ssget)));
[--]
[Clear Sel.A]^p(progn(setq sela nil)(prompt "Group A Cleared.")(terpri)(princ))
[Clear Sel.B]^p(progn(setq selb nil)(prompt "Group B Cleared.")(terpri)(princ))
[Clear Sel.C]^p(progn(setq selc nil)(prompt "Group C Cleared.")(terpri)(princ))
[Clear   All]^p(progn(setq sela nil selb nil selc nil)(prompt "All Groups Cleared.")(terpri)(princ))

[Yuzer]

gomer, а можно краткое пояснение - что с ним делать?
Offtop: Как я понял defun тут не наблюдается...

[gomer]

сохраняешь как SEL_SET.MNU
_menuload
загружаешь...
Появится новый пункт меню в строке меню...
Первые 3 подпункта либо создаешь либо пользуешься сохраненным набором,
Следующие 4 - чистишь наборы (обнуляешь)

[Yuzer]

Малость не то, чего хотелось. Этот выбор нужно задавать через SEL_SET.MNU и тогда он "помнится".

[gomer]

Например,
_move -> Selection A (выбрал объекты) -> _move -> Selection B (выбрал объекты) -> _rotate -> Selection A (повернул первый набор) -> copy -> Selection B (скопировал 2й набор) Не то?

[Yuzer]

gomer, нужно изначально через select выбрать объекты, чтоб потом ими оперирывать. А мне нужно чтоб в памяти помнился последний выбор автоматически.Причем весь - начная от первого выбора до нажатия Esc.

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

_.select _p
или
_.select _l
Не оно?

[Vova]

1. команда _Group
2. (Setq А (ssget)) где "А" имя набора. Вызов набора !А
Далее можно оперировать (не только в эту сессию) либо именем группы, либо (только в эту сессию) набором "A" а также другими наборами, имена которых задаются пунктом 2 (но кроме чистых цифр)

[gomer]

Если я правильно понял... то нельзя... разве что через реакторы... но тут я пас...

[TararykovDG]

Yuzer, попробуй так

Код:

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

(vl-load-com)
; Функция действия на событие описанное в реакторе
(defun pickfirstModified(reac data / )
  (if (cadr (ssgetfirst))
    (setq last_select_selection (cadr (ssgetfirst)))
    )
  )
;------------------------------------------------------------

; Реактор
(setq Misc_Reac (vlr-miscellaneous-reactor nil
          (list '(:VLR-pickfirstModified . pickfirstModified)
            )
          )
      )
;------------------------------------------------------------


;------------------------------------------------------------
; Пример вызова: get-last-select
(defun c:get-last-select()
  (if (= (type last_select_selection) 'PICKSET)
    (if (> (sslength last_select_selection) 0)
      (progn
    (sssetfirst nil last_select_selection)
    (prompt "\n Последный сформированный набор восстановлен в переменнной last_select_selection")
    )
      (prompt "\n Последный сформированный набор пустой")
      )
    (prompt "\n На чертеже еще не было сформировано ни одного набора")
    )
  (princ)
  )
;------------------------------------------------------------

Сохрани это в lsp-файл, загрузи или лучше вообще добавь в автозагрузку. В ком. строке ACad'а введи команду get-last-select, ну или повесь её на кнопку

[Yuzer]

TararykovDG, то что доктор прописал!
Спасибо

[angel-fear]

Почему-то на некоторых компах, при прочих одинаковых условиях не пашет. Даже при выборе через TAB команда в списке не появляется?.. Кто знает почему?

[TararykovDG]

Сообщение от angel-fear Почему-то на некоторых компах, при прочих одинаковых условиях не пашет. Даже при выборе через TAB команда в списке не появляется?.. Кто знает почему?

Как не пашет, что ACAD выдает, при вводе команды get-last-select? Что это неизветсная команда или еще что-то? Или не подсвечиваются ранее выбранные примитивы? И что значит на некоторых компах, и при прочих одинаковых условиях? И там и там осенью код запускали?

[angel-fear]

Винда одна (ХР) автокад один (2010) осенью, да )
Пишет неизвестная команда, хотя лисп 100% загружен.
На моем компе все работает... странности какие-то.

[TararykovDG]

angel-fear, на компе, где на работает код пробуй открыть lisp-файл в VLIDE и там в пошаговом режиме все отследить
Полезности в редакторе VLIDE
Полезности в редакторе VLIDE, часть 2
P. S. За "Полезности..." спасибо Кулик Алексей aka kpblc

[Евгений А.]

тут обсуждалось .
"макрос попробуй (SSSETFIRST nil (ssget "_P")) " проще некуда!

[TararykovDG]

Сообщение от Евгений А. тут обсуждалось . "макрос попробуй (SSSETFIRST nil (ssget "_P")) " проще некуда!

Евгений А., а теперь попробуйте выделять примитивы на рамкой, а по одному и в какой-то момент нажать Esc, а потом "макрос попробуй (SSSETFIRST nil (ssget "_P")) " проще некуда! и посмортеть что получиться. У Вас подсветиься только первый выбранный примитив, а не все, как это делается с помощью кода из поста #11. А так да проще некуда!

[Yuzer]

TararykovDG, твоя прога постоянно меня выручает. Спасибо тебе огромное.
p.s. А можно сделать, чтоб влисп срабатывал не через get-last-select, а к примеру просто get или подобное? В некоторых лиспах я немного менял вызов.

[TararykovDG]

Сообщение от Yuzer p.s. А можно сделать, чтоб влисп срабатывал не через get-last-select, а к примеру просто get или подобное? В некоторых лиспах я немного менял вызов.

Yuzer, это сделать элементарно. В кода замени строку (defun c:get-last-select()... на (defun c:get()... или с другим нужным Тебе именем. Я сам постоянно иcпользую эту утилиту, но по-моему проще создать кнопку и на нее повесить вызов лиспа, типа так ^C^Cget-last-select, я так сделал, тогда все равно будет какое там имя у команды и понить его не нужно просто кнопку нажал и набор восстановился