[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
PPPS. Откорректированный S_Vitaliy русифицированный Tabsort для удобства работы с длинными наименованиями листов см пост #101

[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 подшивка

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

[Walkmax]

VVA, можно дополнить вашу layout.lsp функцией группового экспорта выбранных вкладок в файлы модели (по аналогии с кодом из https://forum.dwg.ru/showpost.php?p=...3&postcount=17), с соблюдением уже реализованного вами стиля работы с окнами выбора листов?

[Red Nova]

VVA, Доброго и надеюсь у тебя все в порядке! ։)
Имею следующие листы в файле։
CS1.1a, CS1.1b, CS1.1c, CS2.1
При активном листе CS1.1a требуется создать новый лист с именем CS1.2a и при этом он должен быть между CS1.1c и CS2.1. То есть список листов должен получится такой։
CS1.1a, CS1.1b, CS1.1c, CS1.2a, CS2.1
(LTINC nil) создает лист CS1.2a, однако он оказывается не на том месте. Получаю такой результат։
CS1.1a, CS1.2a, CS1.1b, CS1.1c, CS2.1
Прошу глянуть если будет возможность.

[Red Nova]

Разобрался... Добавил следующее в код до копирования листа.

Код:

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

(while
	(<= j 3)
	(if
	  (wcmatch (nth i layout_names)(strcat "*" (LM:rtos (car (LM:parsenumbers old_layout_name))2 1) "*"))
	  (setq i (1+ i)))
	(setq j (1+ j))
	  )