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

Существует ли под Автокад пограмма поочередного поштучного просмотра множества выбранных элементов? Например последовательного?
В одном из приложений одной из графических сред такой программкой я с удовольствием пользовался. Называлась "Очередь" ("Queue"). Хочешь - просматриваешь элементы выборки по возрастанию порядкового номера, хочешь - в обратном порядке, хочешь - указываешь порядковый номер элемента выборки. Кстати, и запомнить выборку (точнее - идентификаторы элементов) тоже было можно и загрузить потом нужную выборку тоже было можно. Была и настройка отображения просматриваемого элемента на экране - степень увеличения, показывать весь элемент или с его начальной точки и т.п.
Чрезвычайно удобно для исправлений, проверок, когда необходимо с однотипными элементами производить разные действия. Помогает не пропустить какие-то элементы, не делать такие выборки по много раз. Даже посмотр с редактированием больших выборок элементов (до тысячи) с помощью такой программы производился в реальные сроки, и из безнадежного превращается во вполне реальный.

[gomer]

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

В самом же базовом Автокаде есть даже похожая функция - поиска/замены текстов. Говоришь какой текст ищешь (как бы выборка), и можно последовательно просмотреть все найденное, и что нужно с этими текстами сделать.

[gomer]

ну вот так попробуй:

Код:

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

(defun c:test ( / ss i minp maxp)
  (vl-load-com)
  (if (setq ss (ssget))
	(progn
	  (setq i 0)
	  (terpri)
	  (repeat (sslength ss)
		(vla-GetBoundingBox (vlax-ename->vla-object (ssname ss i)) 'minp 'maxp)
		(vla-ZoomWindow (vlax-get-acad-object) minp maxp)
		(getkword "\rpress enter to continue")
		(setq i (1+ i))
	  )
	)
  )
  (princ)
)

И фантазируй, фантазируй

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

Сообщение от gomer ну вот так попробуй: И фантазируй, фантазируй

Круто!
(а ведь только-только подумал, что не точно назвал тему. Нужно было: Последовательный просмотр и редактирование выбранных элементов файла. Ведь от простого просмотра толку - как от просмотра порножурнала Необходимо же не просто полистать, но и поделать желаемое).
Я не фантазирую - подобной программой вовсю пользовался сам, и считал ее совершенно незаменимой.
Т.е. можно прикрутить сюда еще и возможность действия с каждым выбранным элементом? С возможностью вернуться к пролистыванию элементов?
Да, а подсветить текущий просматриваемый элемент возможно?

[gomer]

Ну тогда тебе нужны две глобальные переменные: gCCurentSelectionSet, gCCurentSelectionSetItem; панель с кнопочками: Новый набор, Добавить объект в набор, Приблизить, Приблизить к следующему, Приблизить к предыдущему, Сохранить набор в файл, Открыть набор из файла и Большая красная
Это еще без сортировки...
Представляешь фронт работ?
Для каждой кнопочки своя функция!
Как по мне лучше с видами работать и сохранять именно их

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

Сообщение от gomer Ну тогда тебе нужны две глобальные переменные: gCCurentSelectionSet, gCCurentSelectionSetItem; панель с кнопочками: Новый набор, Добавить объект в набор, Приблизить, Приблизить к следующему, Приблизить к предыдущему, Сохранить набор в файл, Открыть набор из файла и Большая красная Это еще без сортировки... Представляешь фронт работ? Для каждой кнопочки своя функция! Как по мне лучше с видами работать и сохранять именно их

Сортировка - это бы от жиру.
Большая красная - это завсегда от умища.
А вот остальные - буквально ведь так в той незабвенной программке и было сделано. Там только вместо "Добавить объект в набор" (тоже пусть бы и будет, но в лучшие времена) была кнопка настройка отображения и действия: степень увеличения, показывать весь элемент или его начало, какую команду по умолчанию активизировать.
Кстати, "приблизить" работает и сейчас в твоей проге, что приятно - колесико покрутить.
Фронт работ к счастью не представляю
С видами - это как?

А можно просмотр и его направление повесить не на Enter, а на стрелочки клавиатуры. Например, на влево-вправо? Они вроде бы ничем не заняты.

[gomer]

Для начала о неприятном... Если объект удален, может возникнуть либо ошибка, либо путаница... Поэтому нужно повесить реактор, который бы удалял из набора удаленный элемент...

Сообщение от АлексЮстасу С видами - это как?

есть команда -view с опциями save и restore

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

на стрелки лучше повесить pan, и в оригинале они тоже полезны...

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

Сообщение от gomer Для начала о неприятном... Если объект удален, может возникнуть либо ошибка, либо путаница... Поэтому нужно повесить реактор, который бы удалял из набора удаленный элемент...

Зришь в самый корень! Я оставлял просто это за скобками.

Сообщение от gomer есть команда -view с опциями save и restore

В данном случае виды как использовать? Я видами еще никогда не пользовался.

Сообщение от gomer на стрелки лучше повесить pan, и в оригинале они тоже полезны...

У меня на штатно установленных разных Автокадах на стрелки влево-вправо ничего не повешено. Вверх-вниз - да, перебор вызванных команд.
А перемещение экрана у меня на средней кнопке мыши.
С дугой стороны, т.к. данный режим просмотра-редактирования не совсем обычен, то пусть стрелки будут заняты именно перебором элементов выборки. Пока работает этот просмотр. (Ведь ты же использовал Enter с необычным для него действием?). Так ведь можно основательно сэкономить на кнопках для этой программы.
Или такой подход неправилен?

[gomer]

Сообщение от АлексЮстасу В данном случае виды как использовать? Я видами еще никогда не пользовался

Попробуй, возможно, этот способ удобнее... просто запоминаешь виды с именами 1, 2, 3.... потом восстанавливаешь по очереди... Конечно все в голове нужно держать... но с другой стороны с помощью видов отображать не один объект, а несколько... как узлы и редактировать их

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

Сообщение от gomer Попробуй, возможно, этот способ удобнее... просто запоминаешь виды с именами 1, 2, 3.... потом восстанавливаешь по очереди... Конечно все в голове нужно держать... но с другой стороны с помощью видов отображать не один объект, а несколько... как узлы и редактировать их

Гм... А как я запомню виды? Сначала с помощью твоей доработанной программы (доработанной уже до возможности не только смотреть, но и вызывать команды Автокада) последовательно просмотрю все элементы (допустим, штук 126), всякий раз вызывая view, задавая оцию save, вводя номер вида. А потом с ее же помощью в три этапа вызывать нужные виды. Естественно, что аккуратно отмечая на бумажке какие виды уже просмотрены

[gomer]

Кстати, а что за элементы ты просматриваешь? Надеюсь, не точки...

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

Сообщение от gomer Кстати, а что за элементы ты просматриваешь? Надеюсь, не точки...

Самые обычные и самые разные. Блоки, тексты, полилинии. Элементы какого-то слоя, с каким-то цветом, типом линий. Марки ошибок, созданные разными программами, фирменными (Map 3D) и самодельными.
Пометки корректора. И т.п.
Эта программа востребована всякий раз, когда есть элементы с общим признаком, но с этими элементами необходимо сделать не однотипное действие (например, все удалить, всем дать один цвет, все на одно расстояние сдвинуть и т.п.), а разные - по ситуации. Сейчас приходится делать эту выборку столько раз, на сколько хватает зрительной памяти. Если файл большой и сложный, то ее хватает запомнить местоположение в файле 2-3 элементов. Соответственно, начинаешь лениться (или надеяться, что все уже просмотрел глазами), соответственно - появляются ошибки, недоделки.

Реально эта возможность просматривать и что-то сделать с каждым найденным элементом есть и в самом Автокаде, но не в базовом, а встроенная в Drawing Cleanup из AutoCad Map 3D. В Drawing Cleanup можно выбрать интерактивный режим редактирования, который позволяет последовательно просмотреть все соответствующие места файла, с возможностью что-то отредактировать, а что-то оставить как есть, пометить спорные места специальными марками. Но, во-первых, Drawing Cleanup предназначен только для геометрической коррекции чертежей, и делает только ее.
Во-вторых, такая возможность есть только встроенной конкретно в Drawing Cleanup (как есть похожая и в поиске/замене текстов), а отдельной и в AutoCad Map 3D тоже нет.

[gomer]

Вот, набросал по быстрому... пока без реактора... Времени катастрофически нет...
rev.1.2
Добавлена настройка коэффициента приближения
rev.1.2.1
Добавлена очистка выделения при навигации по объектам
rev.1.2.2
Добавлена подсветка приближаемого объекта
rev.1.3
Добавлено удаление объекта из набора при его удалении
При отмене объект не восстанавливается в наборе!

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

Сообщение от gomer Вот, набросал по быстрому... пока без реактора... Времени катастрофически нет...

Дважды ку!
И за палетку, и за возможность редактировать элементы, и за просмотр в прямом и обратном направлении. Уже здорово!
Первую и вторую кнопку (Выбрать объекты, Добавить объект в набор) в принципе я даже не планировал. Можно ведь вполне обойтись и существующими возможностями выбора. Вот запомнить выборку - было бы здорово.
Кстати, есть возможность запоминать не сами элементы, а только их идентификаторы?
На третьей и четвертой кнопках можно вместо "SS" изобразить стрелки вправо/влево?
И можно сделать кнопку для задания вручную порядкового номера? Вечером уходил на 134-м элементе, а утром включил, и начал сразу со 135-го?
Геометрию элементов уже можно изменять отдельно у каждого элемента. Но при перекрашивании, назначении весов изменения происходят у всех элементов выборки.
После выхода (Esc), после создания новой выборки и повторного входа в программу, первая выборка не сбрасывается.
И, конечно, хорошо бы сообщать в ком. строке: сколько всего элементов и какой просматривается.
А так - круто!

[gomer]

Сообщение от АлексЮстасу На третьей и четвертой кнопках можно вместо "SS" изобразить стрелки вправо/влево?

Там и есть стрелочки, или это не заметно?

Сообщение от АлексЮстасу при перекрашивании, назначении весов изменения происходят у всех элементов выборки. После выхода (Esc), после создания новой выборки и повторного входа в программу, первая выборка не сбрасывается.

Этого не понял...

Сообщение от АлексЮстасу И можно сделать кнопку для задания вручную порядкового номера?

Сообщение от АлексЮстасу И, конечно, хорошо бы сообщать в ком. строке: сколько всего элементов и какой просматривается.

Если будет завтра время - сделаю

Сообщение от АлексЮстасу Кстати, есть возможность запоминать не сами элементы, а только их идентификаторы?

А в чем смысл... Я, например не пользовался ими никогда... и не жаловался

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

Сообщение от gomer Там и есть стрелочки, или это не заметно?

Сослепу не разглядел. Думал, что это какие-то звездочки. Можно их сделать побольше и вместо "SS"?

Сообщение от gomer Этого не понял...

Если я просматриваемому элементу меняю цвет, вес или т.п., то изменяется у всех элементов, а не только у этого конкретно.
Э... В первый раз не заметил, что программка работает только со своей выборкой. Потому я и напутал. Но необходимо, чтобы она работала с уже сделанной выборкой. Тем же Quick Select'ом. Иначе - поди найди нужное...

Сообщение от gomer Если будет завтра время - сделаю

ку!

Сообщение от gomer А в чем смысл... Я, например не пользовался ими никогда... и не жаловался

Был бы файл идентификаторов с другим расширением, не dwg, и было бы понятно, для чего он, удалять, хранить его, и что с ним вообще делать.
И меньше размером был бы, чем dwg. И был бы больше независим от изменения элементов.
Или я ломлюсь в открытую дверь? Сейчас как сохраняются выборки? В виде собственно самих элементов?

[gomer]

Сообщение от АлексЮстасу В первый раз не заметил, что программка работает только со своей выборкой. Потому я и напутал. Но необходимо, чтобы она работала с уже сделанной выборкой. Тем же Quick Select'ом. Иначе - поди найди нужное...

Ну конечно же со своей!

Сообщение от АлексЮстасу Сейчас как сохраняются выборки? В виде собственно самих элементов?

Сейчас сохраняется только один набор в течение одного сеанса Autocad...
Обновил программу... Добавил:
Две команды - Показать текущий, Показать по индексу... Надеюсь пригодятся...
Номер элемента теперь отображается в ком.строке
Теперь обрабатывается ошибка при отсутствии набора и попытке навигации или добавления элемента;
Теперь обрабатывается нажатие ESC...

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

Сообщение от gomer Ну конечно же со своей!

Почему? Нужно же со внешней выборкой.

Сообщение от gomer Сейчас сохраняется только один набор в течение одного сеанса Autocad...

Я-то думал, что уже принято выборки как-то сохранять.

Сообщение от gomer Обновил программу... Добавил: Две команды - Показать текущий, Показать по индексу... Надеюсь пригодятся... Номер элемента теперь отображается в ком.строке Теперь обрабатывается ошибка при отсутствии набора и попытке навигации или добавления элемента; Теперь обрабатывается нажатие ESC...

Все это замечательно, только обновление не приложено...

[gomer]

Сообщение от АлексЮстасу Почему? Нужно же со внешней выборкой.

Ну, так... Если вы не знаете, где находится какая-то вещь, то не можете ее использовать... И всегда запоминаете, где что находится... Так и с набором... Программа его запоминает и работает с ним... Все логично...

Сообщение от АлексЮстасу Я-то думал, что уже принято выборки как-то сохранять.

Сохранять-то можно... Это как плей-лист... В котором есть ссылки, а самих файлов нет...
Впрочем, все возможно...

Сообщение от АлексЮстасу Все это замечательно, только обновление не приложено...

Смотри пост #14

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

Сообщение от gomer Ну, так... Если вы не знаете, где находится какая-то вещь, то не можете ее использовать... И всегда запоминаете, где что находится... Так и с набором... Программа его запоминает и работает с ним... Все логично...

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

Добавленные сообщения - шикарно.
Добавление кнопки "Показать текущий" - супер. Вспомнил, что в той чужой палетке тоже была такая кнопка! Когда увлечешься редактированием других элементов, то с ее помощью удобно вернуться в очередь.
Добавление кнопки "Показать по индексу" - классно. Удобно для быстрой "прокрутки фильма". Если выборку можно будет сохранять, а потом загружать, то будет удобно и для возвращения к работе утром или в понедельник. Можно ее переназвать в "Показать с номером" или "Показать с пор. номером" или "Показать с порядковым номером"? Это все ж таки не так приводит в трепет как "индекс"
Обрабатывается Esc - здорово! Теперь можно перекрашивать, назначать типы линий и т.п. отдельным элементам выборки.
Об иконках. Нарыл в Автокаде некоторые, и две сообразил сам (одну из существующей). Иконки, как мне кажется, подходящие для соответствующих действий, и более информативные.
SEL_SET.BMP - Выбрать объекты
SEL_ADD.BMP - Добавить объект в набор
SEL_FWD.BMP - Показать следующий
SEL_CUR.bmp - Показать текущий
SEL_NUM.bmp - Показать по индексу (Показать с порядковым номером)
SEL_BACK.BMP - Показать предыдущий
Конкретно на этих иконках я не настаиваю. Можно еще порисовать-поискать.
Кстати, на пробу удалил один из элементов выборки. Программа сказала: "Ошибка 2: bad argument type: VLA-OBJECT nil". Но дело свое не бросила А можно сообщать вместо этого что-нибудь вроде: "Объект ... из выборки удален"? Вместо многоточия - его порядковый номер.

Уже практически все работает как нужно