[VVA]

По мотивам http://dwg.ru/f/showthread.php?t=19936
Команды

• LTINC - Копирование содержимого листа с увеличением его порядкового номера (Increment current layout including letters) Drawing_A -> Drawing_B
• LTINCN - Копирование содержимого листа с увеличением его порядкового ЦИФРОВОГО номера (Increment DIGITAL number current layout) Drawing_A -> Drawing_A-1
• LTREN - Переименование выбранных листов (Rename selected layout)
• LTRENN - Переименование выбранных листов с увеличением его ЦИФРОВОГО номера (Rename selected layout and increment its DIGITAL number)
• LTSORTN - Сортировка листов в порядке возрастания цифры как числа (L1 L2 L3 L22) [Layout sort as numeric (L1 L2 L3 L22)]
• LTSORTA - Сортировка листов в порядке возрастания по алфавиту (L1 L2 L22 L3) [Layout sort as alphabetic (L1 L2 L22 L3)]
• LS - Переключение на нужный лист (Layout switch)
• LTRS - Переименование листов с последующей сортировкой. (Rename and sort as numeric) LTREN + LTSORTN

Иконки и меню смотрим в#10 и в #73

PS. Похожая программа от Lee Mac TabSort
PPS. Во вложении переведенный на русский TabSort от Lee Mac

[VVA]

Иллюстрация работы команды

[dextron3]

VVA, дельный лисп, спасибо!



а можно ль сделать сиквел данного лиспа,
лисп перенумератор лайаутов,

Предыстория:

Обычно я делаю как чертежи марки Ар так и марки КЖ, КМ, и все выпускаю под обной общей маркой АС, сначало приходиться делать эксизный проект, планы, но чтобы сделать разрез я должен сделать сначало расчет и проект марки Кж или КМ, тоесть я сначало не знаю сколько будет первых листов марки АР, я листы нумерую 1, 2, 3, 4, 5...
тоесть пока делаю наброски, затем когда полностью конструктив готов делаю АР, и потом приходиться перебиывать все лайауты, чтобы вставить вначало чертежи планов разрезов, и спецификации окон полов, и т.п.

Алгоритм работы лиспа:


1. Дано:

Лайауты:

1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16


2. Выделите лист начало отсчета (к примеру выделяем лист 3)
3. Укажите цыфру отсчета (к примеру вводим цыфру 6)
4. Конец

Результат:

1,2,6,7,8,9,10,11,12,13,14,15,16,17,18,19


Теперь я могу вставить еще три листа после лайаута 2, как раз то что нужно, а иначе я перебивал бы все лайауты, и выполнял бы топорную работу, что не есть хорошо в наш высокотехнологичный век =)


Если такое возможно буду рад за помощь...

[VVA]

*** Перенесено в пост #1

[Red Nova]

Просто нет слов. лисп великолепен, нужен ооочень. Спасибо большое.
Вот только у меня LTRS не работает.

[dextron3]

VVA, спасибо за LTREN, что не лисп, так полноценная панель с кнопками,
еще вчера нашел новую опцию в автокаде,
оказывается если зажать лайаут то его можно таскать "drag and drop",
может пригодиться для разовых махинаций с тасканием,
хотел спросить на 2008 есть такая же опция?

[dextron3]

Red Nova, Вот только у меня LTRS не работает....

в том члучае если у тебя все правильно уже расстановлено

[VVA]

Ну так названия команд я поправил не везде.
Обновил лисп в #4. Можно качать, а можно исправить код команды LTRS Он должен быть таким:

Код:

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

 
(defun C:LTRS ( )(c:LTREN)(C:LTSORT))

[Red Nova]

dextron3,

хотел спросить на 2008 есть такая же опция?

Это дело как раз в 2008 появилось.

[Red Nova]

Выкладываю меню для layout

Добавлено
Лисп время от времени изменяется и выкладывается на посте #1.
Так что я его удалил из своего вложения.
Скачиваем лисп с #1 и добавляем его в папку с выложенным тут меню.
В лиспе есть две команды для сортировки, это
LTSOTRN
и
LTSOTRA
В меню только LTSOTRN.
Если вам больше подходит LTSOTRA, то подправьте название и макрос команды.
То же касается команд LTINC и LTINCN, (в меню только LTINCN)
и команд LTREN и LTRENN (в меню только LTRENN)

[dextron3]

вот мои кнопки

но твои более понятны, но какието старческие пожелтевшие =)

[Red Nova]

Так ты уже на 2009-ом, там цвет фона другой наверное. Пошли мне на мыло скрин панелей 2009-ого плиз.

[dextron3]

гляди

[Red Nova]

bmp пожалста. Можно оставить только панель modify. Фон как я и думал побелел.

[dextron3]

Там есть и темная шкурка еще в автокаде но от нее реально глаза болят,
поэтому даю светлую,

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

[Red Nova]

Изменил иконки, обновил #10
Модератору. Можешь скосить наше с dextron3 обсуждение с12-по15. Наверное в этом разделе обсуждения не преведствуются.

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

Оставим, лишним не будет.

[dextron3]

Red Nova, вот теперь кнопки беру на вооружение. Кстати ты в какой программе кнопки рисуешь, я в Паинте...

я сверх интересный алгоритм для лиспа придумал называется "записная книжка", отправил VVA на почту, жду когда он осовбодиться...
этот лисп сделает клавиатуру вообще не нужной в автокаде,
ну кроме ESC и DEL, сам жду даже работы приостановил...

[Red Nova]

Аааа. Понравилось. Мне тоже стиль кнопок 2009 нравиться.

я сверх интересный алгоритм для лиспа придумал называется "записная книжка", отправил VVA на почту, жду когда он осовбодиться...

Сказать по правде я тоже от него кое чего жду, лисп для создания ведомости чертежей. Что бы мы с тобой без него делали Хочется еще раз поблагодарить Владимира за помощь. Я в большом долгу.

Кстати ты в какой программе кнопки рисуешь,

Да что под рукой тем и рисую, но не пейнтом, там оч. мало инструментов. В ACDSee Photo Editor, или в Photoshop.

[dextron3]

листы с 9 на 10 не в конец получаются,

видеоролик