[Alex79]

Здравствуйте уважаемые участники форума.
У меня такой вопрос. Мне необходимо при помощи lisp программы или стандартной команды ( о которой я возможно не знаю) выделить все примитивы находящиеся на одном слое.
Можно конечно отключить все слои оставив один и посмотреть что на нем находится, но когда слоев очень много то это занимает время. У меня есть Лисп, который по примитиву изменяет название слоя. Еще раз поясню что мне нужно. Есть множество слоев, я запускаю ЛИСП, кликаю на один из объектов и автоматически выделяются все объекты, находящиеся на данном слое.
Только не нужно пинать, или советовать обратиться к мануалу, просто скажите, где нужно посмотреть.

PS - если ответ простой, не могли бы вы в скайп написать, буду очень признателен

[Profan]

Ничего там не растет. Заранее имя слоя неизвестно, поэтому "_qselect" не поможет.

[hwd]

Сообщение от Profan Ничего там не растет. Заранее имя слоя неизвестно, поэтому "_qselect" не поможет.

а что мешает посмотреть, выделив интересующий примитив? Или это идёт совместное "додумывание" мысли автора топика, мол одним кликом, да чтоб за пивом сбегала и носки заодно постирала?

[Profan]

Мешает пустой и нелепый сарказм некоего субъекта, который вместо того, чтобы использовать стандартные команды AutoCAD'а, зачем-то программирует в .NET.

[hwd]

Сообщение от Profan Мешает пустой и нелепый сарказм некоего субъекта, который вместо того, чтобы использовать стандартные команды AutoCAD'а, зачем-то программирует в .NET.

Пожалуй открою глаза другому "субъекту": _qselect - не написана мною на .Net, а является стандартной командой AutoCAD. Иначе как незнанием сего факта не могу объяснить наличие выше процитированного текста (дотнет зачем-то приплёл...)...

п.с. всё что написано выше (во всех моих постах топика) - писалось без сарказма (недоумение и сарказм - разные вещи). Обидчивых просьба особо не обижаться...

[TararykovDG]

Сообщение от hwd честно говоря, несколько удивлён велосипедостроению предложенным выше вариантам решения... А что, кто-то предал анафеме использование _qselect?

hwd, при всем уважении, у меня сложилось впечатление, что Вы даже не изучили должным образом варианты решения предложенные другими участниками форума, а просто не увидев предложения использовать _qselect назвали их "велосипедостроением". Да, согласен с тем, что автор темы не совсем точно сформулировал свои потребности, однако выскажусь в защиту своего "велосипеда" из поста #13. Лично я сделал его изначально для своих нужд по работе, в виде панельки с несколькими кнопками которые позволяют, как здесь говорили, выполнить выбор группы объектов в один клик по различным критериям (в моем примеры - это: слой, цвет, тип объекта или вхождения блока).
К тому же я несколько раз убеждался, что если чертеж очень насыщен (т. е. число около 100 тысяч.), то ssget с фильтрами работает гораздо быстрее, чем _qselect

[Profan]

hwd, что-то ты не туда загнул. Посмотри, что получается: есть набор команд работы со слоями. Мы можем кликнуть на объекте и слой, на котором отрисован объект, отключается. Или замораживается. Или блокируется. Или изолируется. А зачем нужны эти команды практически одного клика? Ведь следуя твоей логике, можно выделить объект, посмотреть его слой и потом в диспетчере слоев сделать этот слой текущим. Или заморозить его. Или заблокировать его. Или изолировать его. Но это не самый короткий путь. Команда "_qselect" - мощная команда выбора объектов по многим параметрам. У нас же требуется простейшая по выполнению команда, которая, к сожалению, не вошла в тот набор команд работы со слоями, который я упомянул выше. Я думаю, что такая команда "Выбор всех объектов на слое выбранного объекта" вполне могла бы войти в набор штатных команд. Поэтому автор темы и спрашивал, есть ли такая команда в AutoCAD'е...

[angel-fear]

TararykovDG надо бы таблицы добавить в список выделяемого

Или это у меня чего-то не пашет....

Да, точно с экспрессовским Fastsel спуталось, а _fast_select почему-то работать отказыватся хм...

Разобрался ) засада со скобочками, не обратил внимания сразу )

[sbi]

[quote=Profan;779051]hwd, что-то ты не туда загнул[/quote
ПримИтивы -в "слое" - What it is?
Пальцев жалко, для перехода на NET? Много лет ( без фильтра) - напишу на NET, жди!

[Profan]

sbi, что это ты такое загнул?
[quote]

Сообщение от Profan hwd, что-то ты не туда загнул[/quote ПримИтивы -в "слое" - What it is? Пальцев жалко, для перехода на NET? Много лет ( без фильтра) - напишу на NET, жди!

А я,собственно, вот что имел в виду: автор темы желает автоматизировать некую операцию при работе с AutoCAD'ом. И очень странно видить критику этого от человека, который сам автоматизирует работу в AutoCAD'е и уже давно.

[Дима_]

Offtop: то TararykovDG - программа написанна классно (по крайней мере мне нравится) - но критика (не то чтоб критика но момент который лично мне "глаз резанул") есть - принимаешь?

[TararykovDG]

Сообщение от Дима_ Offtop: то TararykovDG - программа написанна классно (по крайней мере мне нравится) - но критика (не то чтоб критика но момент который лично мне "глаз резанул") есть - принимаешь?

Offtop: конечно принимаю, говорите

[Дима_]

Еще раз повторю - все красиво (это мои личные тараканы):
1. Строка 38 (vla-get-EffectiveName (vlax-ename->vla-object (car obj))) - это происходит на каждой итерации - "залямбдить" до цикла.
2. Тут уже более мелочное но - строка 39 ты уже в 37 все равно перевел набор в список - фильтруй его (и возращай из полученного списка набор) - ты же по сути на каждой итерации "крутишь" переменную nbr (не аргумент а именно переменную - и чистота функции теряется), если что-то впоследствии решить добавить в цикл - что там у тебя в наборе??? - потенциальная ошибка из серии хрен найдешь.

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

Э...
Select Similar бы усовершенствовать (пардон за повтор, но люди увлеклись дискуссией у кого код длиннее )
Есть же это замечательное творение Александра Ривилиса. Но в нем прошита чувствительность к типу указаного элемента-образца. Если в Select Similar Settings оставить только слой, то, в принципе она могла бы и находить все элементы слоя.
Почему бы хорошо усовершенствовать Select Similar:
1. чтобы не плодились кнопочки-лиспы,
2. потому что она решает очень похожую задачу ("одной кнопкой выделить некое все по указанному элементу").

Кстати, все это со всяческим глубоким уважением к создателям лиспов.

[TararykovDG]

Дима_, в общем, со всем согласен. 1-ый пунк более очевиден чем 2-ой, зато 2-ой потенциально более опасен, как Вы сказали при добавлении кода в цикл. Я бы еще добавил одну lambd'у, чтобы избавиться от постоянного (car obj) и (entget (car obj)). Еще нашел ошибку, в строке 43 (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat "`*U*," (cdr (assoc mode (entget (car obj)))))))), если изначально выбранный блок был динамическим, то (cdr (assoc mode (entget (car obj)))) может вернут *U... и в фильтруемый набор не попадут те вхождения дин. блока у которых (cdr (assoc mode (entget (car obj)))) возвращает полноценное имя блока.

P. S. Еще один минус, в старых ACAD'ах нет свойства EffectiveName и код работать не будет, можно заменить EffectiveName, на это Имена динамических блоков

АлексЮстасу, Вашу просьбу может удовлетворить только Александр Ривилис, а наша дискуссия этому никак на мешает и не помогает