[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, я так сделал, тогда все равно будет какое там имя у команды и понить его не нужно просто кнопку нажал и набор восстановился

[Yuzer]

Блин!!! Я эту строку не заметил. Дальше я уже разберусь.
1. Я привык с клавиатуры (мышкой я дольше буду лезть).
2. Я поменяю вызов - будет еще быстрее.

[Emasi]

что то я не понял почему когда использовал этот лисп там выходит что "На чертеже еще не было сформировано ни одного набора"
Что я неправильно делаю?

[TararykovDG]

Emasi, ну значит Вы еще не выбирали ни одного объекта на чертеже. Лисп позволяет восстановить последний выбор, но только в текущей сессии. Итак, Вы загрузили лисп, теперь выбираете с помощью мыши какие-нибудь объекты на чертеже по-одному или рамкой, или и так и так, не имеет значения (пусть Вы их выбирали чтобы удалить), потом нажмите Esc и у Вас пропадут ручки выбора всех выбранных Вами объектов, теперь можно не заново все это выбирать, а просто ввести в ком. строку ACAD'а команду get-last-select и у Вас восстановиться набор выбранных Вами объектов с подсветкой ручек выбора.

[Emasi]

Вот вот я и как вы сказали так и делал.Но результат 0.
И после этого в Аутокаде вышла вот это проблема:
previus select.lsp successfully loaded.
Command: ; error: no function definition: VLR-MISCELLANEOUS-REACTOR

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

(vl-load-com) наверняка забыли в код вколотить

[TararykovDG]

Сообщение от Кулик Алексей aka kpblc (vl-load-com) наверняка забыли в код вколотить

Кулик Алексей aka kpblc так и есть, спасибо
Emasi, испраил код в посте #11, возьми еще раз оттуда.
Offtop: из-за того, что у меня vl-load-com загружается автоматически с автозагружаемым лиспом, постоянно забываю добавлять его в код отдельных лиспов. И потом у меня все работает, а у других как повезет

[angel-fear]

Ага.. вот он где косяк ) значит у меня тоже автоматом грузится где-то.

[Emasi]

Вот это другое дело. До здравствует умелые руки
Спасибо

[seregabs]

Это просто великолепно! Спасибо!

[skkkk]

Но get-last-select не срабатывает, если активна команда, например _move и запрашивается выбор объектов.
Иные же варианты (как то: (SSSETFIRST nil (ssget "_P")) или _p;;) - наоборот - дают набор только при активной команде, и только в том случае, когда над предыдущим набором уже производилась операция (то есть, если я просто повыбирал объекты и нажал Esc, то набор не вернется). Или я что-то не так понял...
Лично я давно привык и пользуюсь кнопкой _p;;, зная, что надо сначала выбрать команду, но тема дала толчок задуматься и посмотреть.
Хотелось бы все же универсальный вариант: активна ли некая команда, неактивна ли - всё одно - выбирался бы последний набор.

[cj_lex]

как вариант: _select _p

[TararykovDG]

Сообщение от cj_lex как вариант: _select _p

cj_lex, Вы сообщения этой темы читали или нет, советую прочитать, чтобы понять, о чем речь идет, чем Ваш вариант отличается от поста #8?

[cj_lex]

прошу прощения, был невнимателен.

[Амур]

TararykovDG, спасибо большое за программульку - очень ее не хватало после перехода с ArchiCAD'а!!! Все прекрасно работает на 2011, поставил половине работников офиса, все танцуют!

[TararykovDG]

Сообщение от Амур спасибо большое за программульку

Амур, пожалуйста, рад что лисп пригодился Вам и Вашим коллегам. Кстати, а почему поставили только половине работников офиса? С остальными не дружите

[Амур]

TararykovDG, другая половина - это "старшие коллеги", которым особо и не нужно никаких новшеств, либо коллеги вообще не работающие в программе))). Скажу так - поставил всем, кому могла пригодиться программка. )