[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 не в конец получаются,

видеоролик

[Red Nova]

Я тоже неполадку нашел. В этом файле при попытке переименовать листы в место последнего листа норовит захватить модель.

[VVA]

Исправил ошибки, описанные в #20, #21. Обновил код в #4

[Red Nova]

Тогда и я обновил #10.
VVA, Может топик переименовать?

[VVA]

А сам не могу (или не знаю как), а Алексая в аське сейчас нет

[Red Nova]

Надо править первый пост (в расширенном режиме можно и название править), правда работает не всегда.

[VVA]

Переименовал

[Red Nova]

У меня опять в файле не видет первый лист.

[KAI]

>>У меня опять в файле не видит первый лист.

Подтверждаю, (команды LTREN, LTRS). А именно в списке листов в диалоговом окне.
И что-то перестала запускаться LTSORT (acad2008eng), причем никаких сообщений не выдается. Чертовщина, наверное.

p.s. Программа нужная, особенно для большого количества листов.

[VVA]

Red Nova, KAI, Перестарался немного, 2 раза cdr брал. Исправил, выложил в пост #1. По поводу LTSORT вставил печать сообщения. Если не будет сортироваться, жду файлик по почте

[Red Nova]

Работает. Спасибо. Обновил #10

[KAI]

LTRS, LTREN

А причем тут Model? А где layout sdd?

LTSORT - вызывает большие сомнения:
L1, L2, L4,L6, L22,sdd
А разве после L2 не должно идти L22?

И по поводу интерфейса:
В наименовании окна DCL следует приводить или имя программы или ее расширенное имя, тем более, что как выбирать листы приведено внизу DCL (что правильно).

[Red Nova]

LTSORT - вызывает большие сомнения: L1, L2, L4,L6, L22,sdd А разве после L2 не должно идти L22?

Не согласен. Если листов 30, то если следовать твоей логике и после 2 ставить 22, Получиться 1,10,11,12……19,2,20. Одним словом ничего хорошего.
А про глюк с не распознаванием модели это да...
Причем глючит когда имя листа начинается на q,w,z,t,y,u,z,s,o,p,x,v,n, и на все буквы Кириллицы.

[VVA]

KAI, Red Nova, ну клинит меня после праздников
Исправил пост #1
По поводу сортировки:
Сразу было реализована сортировка текствых строк, в которых числа сортируются как числа, т.е. L1 L2 L3 L22
Добавил команду сортировки по алфавиту, т.е. L1 L2 L22 L3
Команда LTSORT исключена, вместо нее 2 новые:
LTSOTRN - LayouT SORT as Number (сортировка листов, числа как числа)
LTSOTRA - LayouT SORT as Alphabetical (сортировка листов по алфавиту)

[dextron3]

Red Nova, что то про алфавит не пойму, или кто то вместо цыфр буквами листы обозначает?

[Red Nova]

Это не ко мне, к KAI скорее. Он хотел последовательность другую. А буквы я привел на которых глючит. Последовательность не причем.

[dextron3]

Command: <Switching to: КЖ-13>
Regenerating layout.
Regenerating model.

Command:
Command:
Command: (if (null C:layout)(load "Lisp/layout.lsp")) ; error: malformed list
on input

Command: LTINC ; error: no function definition: INCSUFF

Command:
Command: LTINC
; error: no function definition: INCSUFF

вообще ни вкакую не работает, где бы найти предыдущую версию, а то я заменил этой а лисп позарез нужен

[Red Nova]

Я на #10 пока не обновлял

[VVA]

>dextron Обновил #1, кое-что на ходу подправлял, скобку одну забыл

[Red Nova]

Подправил меню на #10, удалил из вложения сам лисп, его качаем с #1.

[Red Nova]

VVA, Обнаружил, что при ltinc для листа с иминем "ПЗ9" (тут З-это буква) создаваемый лист вместо "ПЗ10" получается "ПИ0". Смотри файл

[VVA]

Обновил #1. Разделил команды
LTINC - Копирование содержимого листа с увеличением его порядкового номера, включая буквы ( Drawing_A -> Drawing_B)
LTINCN - Копирование содержимого листа с увеличением его ЦИФРОВОГО номера ( Drawing_A -> Drawing_A-1)

[Red Nova]

Спасибо, на #10 поменял в меню LTINC на LTINCN.

[Red Nova]

С ltren то же самое, можно и эту команду разделить?

[VVA]

Разделил LTREN

[Red Nova]

Спасибо, еще раз обновил #10

[dextron3]

.............
Появилась нужда в такой команде:

1. Выберите лайауты
2. Готово

тоесть оналог команды LTINC, только выпадает окошко со всеми лайаутами, выбираешь несколько, и они сами в порядке возрастания копируются в конец...

где нужно:

Я сделал к примеру три чертежа: схема балок, армирование и спецификация, хочу теперь повторить это для другого этажа, если делать командой LTINC то мне прийдется сначало первый лист выделить нажать LTINC, потом второй лист выделить нажать LTINC, потом третий выделить и нажать LTINC, а я хочу автоматизировать, а если к примеру 10 листов уже трудновато будет

Буду благодарен....

[Red Nova]

VVA, Перешел недавно на штамп с атрибутами, и стал теперь доступен твой лисп создания ведомости чертежей отсюда
http://dwg.ru/f/showthread.php?t=14548&page=1
Я до сих пор использовал следующий механизм нумерации:
При помощи LTREN нумеровал листы, а в сам штамп номер записывался как поле (дизель выражение).
Но данный метод делает невозможным создания корректной ведомости чертежей, т.к. Поле номера листа отображается в модели как model.
wetr посоветовал автонумератор от Виталия Зуенко (ZZZ), опубликованный здесь:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=21092Ky
Чтобы далеко не ходить прикрепляю эту программу.
Эта программа нумерует как названия листов, так и атрибуты штампа с именем ЛИСТ.
Но эта программа не делает всего того, что делает лисп опубликованный на этом форуме, и работает по другому принципу.
Пытаюсь применить ее к листам с именами
К1, К2, К3а
В ответ она не переименовывает листы, а добавляет к ним префикс
01К1, 02К2, 03К3а
Получается не удобно.

В связи с этим есть просьба модифицировать лисп разработанный на этом форуме.
Прошу доработать команды LTREN и LTINC.
Было бы удобно, если бы они действовали и на атрибут блока с именем ЛИСТ.
Причем если Листы именуются составным именем, то есть сперва идут буквы а затем цифры, на пример
К1, К2, К3а или КМ1, КМ2, КМ3а
То в атрибут листа должна записываться только часть этого названия, которая идет после первой цифры (1,2,3а).
Надеюсь это возможно.

Если будет охота, можно для команды LTREN в всплывающее окно добавить радиокнопки.
-Начальный номер листа (вписать первое значение)
-Нумеровать листы (да или нет)
-Нумеровать штампы (да или нет)

[VVA]

Ответил здесь http://dwg.ru/f/showthread.php?t=14548&page=3

[dextron3]

VVA, а на мой вопрос...

[dextron3]

Нашел баг в лиспе, пришлось пожертвовать листом общих данных, обидно, приложил видеоролик:

1. После 60 лайаутов лисп ведет себя не корректно
2. К примеру создаю лист с номером 70, он идет в самое начало почемуто
3. Лист 1 пропадает вообще, исчезает
4. Иногда 1 и 2 листы пропадают (обидно), не всегда заметно...

Вот видеоролик в подвтерждение...

[VVA]

dextron3, Проишли мне на почту файл со своими 60 лэйаутами, посмотрю.

[dextron3]

VVA, я вам вышлю один файло, но данный глюк начал проявляться во всех чертежах, смотрите почту, (можете проделать тоже самое что на видеоролике и глюк повториться), буду рад корректировке лиспа, потомучто когда страниц больше 100, ваш лисп имеет самое непосредственное значение...

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

[Red Nova]

А я заметил, если к листу с названием к примеру "К9" применить LTINC, то получится не К10, а L0.

[VVA]

А для кого это написано?

LTINC - Копирование содержимого листа с увеличением его порядкового номера (Increment current layout including letters) Drawing_A -> Drawing_B LTINCN - Копирование содержимого листа с увеличением его порядкового ЦИФРОВОГО номера (Increment DIGITAL number current layout) Drawing_A -> Drawing_A-1

[Red Nova]

Блин, все уже забыл.

[dextron3]

Red Nova, а мой баг как вылечить???

[Red Nova]

dextron3,
Может ты имел в виду
VVA, а мой баг как вылечить???
Ато из меня такой же лечитель как из тебя.

[VVA]

dextron3, Red Nova, Не наблюдал я бага. На присланном dextron3 чертеже создал 105 лэйаутов, рука устала. Отвечал почтой.

[dextron3]

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

[VVA]

dextron3, Посмотри внимательнее свой видеоролик, помимо листов с 67 по 87 выделен еще лист 1. Нажми CTRL и сними выделение с листа

[dextron3]

VVA, спасибо! не обратил внимание!

[dextron3]

VVA, нашел баг, связанный с первым листом, при работе лиспа, прикалдываю видеоролик:

[Konstruktiv54]

Интересно, а с помощью этих инструментов можно так сделать, что бы листы 1а, 2а, 3а, 1b, 2b, 3b расположить как 1a, 1b, 2a, 2b, 3a, 3b.
Или подскажите, что надо поправить в скрипте, что бы при переименовании листов, порядковый номер изменялся не на +1, а на +2 )

[VVA]

ShaRhaN, А попробовать? По моему и LTSORTN и LTSORTA должны так сделать

[Konstruktiv54]

ВВА, разумеется пробовал )) бился очень долго, не смог придумать...как только не придумывал переименовать, что бы отсортировать ) у меня не получилось, поэтому и обратился на форум...в остальном лиспом пользуюсь очень давно, всегда радует меня )
Вот если бы так можно было...
Есть листы: 1,2,3...
Применяем команду ltren2, указываем лист, с которого надо начать: 1
Получаем листы: 1,3,5...

[VVA]

ShaRhaN, После отпуска гляну. Добавил в #1 ссылку на программу от Lee Mac Попробуй, может подойдет

[Konstruktiv54]

спасиб! гляну )

[VVA]

Добавил к первому посту переведенную на русский версию Tabsort от Lee Mac

[Red Nova]

VVA,
при применении LTREN на 2013х64 программа зависает.

[VVA]

Red Nova, Спасибо за дефектацию. Пока нет времени. За мной долг с темы АВТО Заполнение ведомости рабочих чертежей. Напомни мне еще про это числа 17 июня. Попробуй tabsort с #1. Может не будет зависать

[MeshIN]

VVA, зависает программа при сортировке листов, автокад 2013

[VVA]

MeshIN, Проверил. Win7 x64 Acad2013x64 SP2 LTSORTN и LTSORTA работают. Выкладывай более подробную информацию вместе с файлом

[Red Nova]

VVA, Попробуй применить LTINC к листу с названием к примеру h или x на 2013x64. Акад либо зависнет окончательно либо задумается ну очень надолго. При этом листы с номерными названиями или заканчивающиеся на цифру (к примеру 1, 2, 3, x1, x2, x3) не вызывают сбоя. Возможно зависание при LTREN (которое тоже не на каждом файле возникает) имеет схожую причину.

P.S. По моему раньше не выкладывал. Прикрепляю менюшку с иконками для layout команд + vrc. У меня стоит вот уже на которой версии акада. Может кому еще пригодится...

[VVA]

Red Nova, Попробовал. Все нормально. После x появляется y, после h - i. На всякий случай перезалил в #1 тот лисп, на котором тестировал.

Сообщение от Red Nova P.S. По моему раньше не выкладывал.

Это не тоже самое? http://forum.dwg.ru/showthread.php?p=239007#post239007

[Red Nova]

VVA,

Попробовал. Все нормально. После x появляется y, после h - i. На всякий случай перезалил в #1 тот лисп, на котором тестировал.

Потыкал, оказалось что у меня в macro вместо ^C^C_ltinc почему-то ^C^C_ltinc1. Теперь все исправилось. Странно что при ^C^C_ltinc1 программа вообще работала в каких то случаях. Наверное сам намудрил...

Это не тоже самое? http://forum.dwg.ru/showthread.php?p=239007#post239007

Все верно. Что-то с памятью моей стало...

[Red Nova]

VVA, Прошу проверить SHTUPDALL на 2013x64. У меня зависает. И действия аналогичные #75 не помогли.
При этом SHTUPD работает корректно.

Код:

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

 (defun C:SHTUPDALL ()(update-shtamp-block nil))
(defun C:SHTUPD ()(update-shtamp-block (getvar "CTAB")))
;; obj - Ename or Vla object of block
;; att_list - list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...)
;; Tag_Name - string
;; Value - string

(defun mip-block-setattr-bylist (obj att_list / txt lst)(vl-load-com)
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list))
(if (and obj
(not(vlax-erased-p obj))
(= (vla-get-ObjectName obj) "AcDbBlockReference")
(eq :vlax-true (vla-get-HasAttributes obj))
(vlax-property-available-p obj 'Hasattributes)
(vlax-write-enabled-p obj)
)
(vl-catch-all-apply
(function
(lambda ()
(foreach at (vlax-invoke obj 'Getattributes)
(if (setq lst (assoc(strcase(vla-get-TagString at)) att_list))
(vla-put-TextString at (cdr lst))
)
)
)
)
)
)
)
(defun mip-conv-to-str (dat)
(cond ((= (type dat) 'INT)(setq dat (itoa dat)))
((= (type dat) 'REAL)(setq dat (rtos dat 2 12)))
((null dat)(setq dat ""))
(t (setq dat (vl-princ-to-string dat)))))
;;;csp - имя листа (getvar "CTAB")
;;; или nil - все листы
;;(setq csp (getvar "CTAB"))
(defun update-shtamp-block ( csp / ss i n Target-Tag-Name attValue ch )
(setq Target-Tag-Name "ЛИСТ") ;_ ТАГ (имя) атрибута блока
(if csp
(setq ss
(ssget "_X" (list
'(0 . "INSERT")
'(66 . 1)
(cons 410 csp)
)
)
)
(setq ss
(ssget "_X" (list
'(0 . "INSERT")
'(66 . 1)
)
)
)
)
(repeat (setq n (sslength ss)) ;_ end setq
(cdr(assoc 410(entget (setq item (ssname ss (setq n (1- n)))))))

(if (/= (setq attValue (cdr(assoc 410 (entget item)))) "Model" )
(progn
(setq i 0)
(while (or
(not(wcmatch (setq ch (substr attValue (setq i (1+ i)) 1)) "#"))
(= ch "")
)
)
(setq attValue (substr attValue i))
(mip-block-setattr-bylist item (list(cons Target-Tag-Name attValue)))
)
)
) ;_ end
)

[zz07]

Здравствуйте! Спасибо за лисп!
Можно ли как-то применить ваш лисп для автоматической нумерации в штампе?
Например имена layout'ов у меня "1", "2", "3", "4" и штампах листов стоят соответствующие номера листов. При удалении layout 2, перенумеровывая layout на "1", "2", "3" с помощью лиспа, чтобы номера в штампе соответственно изменились.
И еще, можно ли как-то в названии каждого листа зафиксировать собственный текст, а именно: Layout'ы называются "План л.1", "Разрез л.2", "Армирование л.3" и при удалении листа №2, чтобы было "План л.1", "Армирование л.2"

[VVA]

Сообщение от zz07 При удалении layout 2, перенумеровывая layout на "1", "2", "3" с помощью лиспа, чтобы номера в штампе соответственно изменились.

Вставь в штамп поле. Категория Прочее->Системная переменная->CTAB
Эта переменная ссылается на имя текущего листа

[Isuma]

Товарищи, а на 2015 Acadе не работает?
эммм..работает. просто сразу не подгрузился, почему-то

[zz07]

Сообщение от VVA Категория Прочее->Системная переменная->CTAB

У меня эта переменная ссылается на текст который написан в имени layout. Т.е. у меня написано "лист 2" и поле выводит "лист 2", а не просто номер.

[VVA]

zz07, А что мешает переименовать "Лист 2" в "2"?

[Red Nova]

В поле
Other - Diesel Expression
$(substr,$(getvar,CTAB),6)

[Red Nova]

Перешел на 2015х64.
Не работают SHTUPD, SHTUPDALL, остальное работает.

Еще не работает vrc, но это наверное в другую ветку, поищу ка ее...

Код:

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

Command: SHTUPD
nil
Command:

Добавлено. Заработало после того как поменяли в региональных настройках windows US на Russia...

[vein2005]

Доброго дня.
Возможно этот лисп сделать как доп. окно(палитра)?
Спасибо

[VVA]

vein2005, извини, не понял вопроса.

[Сергей812]

1. Вынесите команды на инструментальную панель.. лисп в автозагрузку, например.
2. Сделайте отдельную панельку, на которой на кнопки посажены вызов команд.

[Red Nova]

Сергей812, Например так?
http://forum.dwg.ru/showpost.php?p=1120859&postcount=73

[Сергей812]

Red Nova, Да, похоже по содержимому архива). Просто даже не знаю, есть ли в лиспе возможность создавать палитры программно, как в NET API/ObjectARX.
VVA можно дополнить ссылкой на панель шапку ветки?

[VVA]

Дополнил

[Bi57]

VVA, доброго дня.
Спасибо огромное за LISP. Очень часто пользуюсь командой LTREN. Но когда переименовываю листы, старые названия пропадают.
Пример:
"ОД" "ПЛАН" "СПЕЦ" -> "1" "2" "3"
Возможно ли добавить функцию аналогичную LTREN, которая оставляет старые названия листов и добавляет префикс с увеличением порядкового цифрового номера?
Пример:
"ОД" "ПЛАН" "СПЕЦ" -> "1 ОД" "2 ПЛАН" "3 СПЕЦ"

[doctorraz]

Сообщение от Bi57 Возможно ли добавить функцию аналогичную LTREN, которая оставляет старые названия листов и добавляет префикс с увеличением порядкового цифрового номера?

Не лисп конечно, но может
https://doctorraz.blogspot.com/2016/...ename.html?m=1

[Bi57]

doctorraz, интересная программа. Функционал намного больше, только выделение нужны страниц удобно было бы выполнять через shift.
Но я не смог найти в ней решение моего вопроса, а именно возможность добавления префикса, который будет увеличивать свой порядок.
Пример:
"ОД" "ПЛАН" "СПЕЦ" -> "1 ОД" "2 ПЛАН" "3 СПЕЦ"
Возможно добавить постоянный префикс/суффикс нашел.

[VVA]

Сообщение от Bi57 Возможно ли добавить функцию аналогичную LTREN, которая оставляет старые названия листов и добавляет префикс с увеличением порядкового цифрового номера? Пример: "ОД" "ПЛАН" "СПЕЦ" -> "1 ОД" "2 ПЛАН" "3 СПЕЦ"

Добавил в команду LTREN запрос на сохранение названия листа. Скачай файл layout2013.lsp заново и пробуй

[Bi57]

VVA, Попробовал, все отлично работает. Спасибо огромное, теперь и нумерация есть, и ориентироваться по листам можно быстро.

[Archeo]

Здравствуйте. К вопросу о сортировке (в какой-то степени). Поиском не нашёл. Есть ли какой-нибудь LISP для ВЫБОРА произвольного количества вкладок листов через диалоговое окно? Нередко количество вкладок таково, что не помещается в границы экрана. Да и визуально в окошке более понятно было бы. Просто цвет выделенных и невыделенных вкладок почти не отличается, а перекрасить возможности нет, насколько я знаю.

[Сергей812]

Сообщение от Archeo Есть ли какой-нибудь LISP для ВЫБОРА произвольного количества вкладок листов через диалоговое окно? Нередко количество вкладок таково, что не помещается в границы экрана. Да и визуально в окошке более понятно было бы. Просто цвет выделенных и невыделенных вкладок почти не отличается, а перекрасить возможности нет, насколько я знаю.

подшивка, однако) это если без программирования.

[Archeo]

Сообщение от Сергей812 подшивка

Для меня - да) Для большинства других пользователей, которые только знакомятся с пространством листа и изо всех сил сопротивляются - нет...