| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Копирование, сортировка, переименование листов (layout)

LISP. Копирование, сортировка, переименование листов (layout)

Ответ
Поиск в этой теме
Непрочитано 02.05.2008, 12:26 4 | #1
LISP. Копирование, сортировка, переименование листов (layout)
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,990

По мотивам 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

Вложения
Тип файла: zip TabSort_ru 2.2.zip (10.7 Кб, 1344 просмотров)
Тип файла: lsp layout2013.lsp (31.2 Кб, 455 просмотров)

__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 23.03.2022 в 18:02. Причина: Перезалил
Просмотров: 61377
 
Автор темы   Непрочитано 02.05.2008, 13:14
#2
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Иллюстрация работы команды
Изображения
Тип файла: gif Layinc.gif (44.3 Кб, 4093 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 02.05.2008 в 13:28.
VVA вне форума  
 
Непрочитано 02.05.2008, 17:08
#3
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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, как раз то что нужно, а иначе я перебивал бы все лайауты, и выполнял бы топорную работу, что не есть хорошо в наш высокотехнологичный век =)


Если такое возможно буду рад за помощь...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 03.05.2008, 13:43
#4
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


*** Перенесено в пост #1
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 12.05.2008 в 10:59. Причина: Найденные ошибки в #20, #21
VVA вне форума  
 
Непрочитано 03.05.2008, 17:12
#5
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Просто нет слов. лисп великолепен, нужен ооочень. Спасибо большое.
Вот только у меня LTRS не работает.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 03.05.2008, 17:36
#6
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


VVA, спасибо за LTREN, что не лисп, так полноценная панель с кнопками,
еще вчера нашел новую опцию в автокаде,
оказывается если зажать лайаут то его можно таскать "drag and drop",
может пригодиться для разовых махинаций с тасканием,
хотел спросить на 2008 есть такая же опция?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 03.05.2008, 17:37
#7
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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

в том члучае если у тебя все правильно уже расстановлено
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 03.05.2008, 19:18
#8
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Ну так названия команд я поправил не везде.
Обновил лисп в #4. Можно качать, а можно исправить код команды LTRS Он должен быть таким:
Код:
[Выделить все]
 
(defun C:LTRS ( )(c:LTREN)(C:LTSORT))
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.05.2008, 19:26
#9
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


dextron3,
Цитата:
хотел спросить на 2008 есть такая же опция?
Это дело как раз в 2008 появилось.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 04.05.2008, 09:45
#10
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


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

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

Последний раз редактировалось Red Nova, 03.06.2008 в 16:11. Причина: Обновил исправленный лисп с#1, слегка изменил иконки
Red Nova вне форума  
 
Непрочитано 04.05.2008, 10:33
#11
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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

но твои более понятны, но какието старческие пожелтевшие =)
Изображения
 
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.05.2008, 10:41
#12
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Так ты уже на 2009-ом, там цвет фона другой наверное. Пошли мне на мыло скрин панелей 2009-ого плиз.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 04.05.2008, 13:28
#13
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


гляди
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 955
Размер:	22.3 Кб
ID:	6049  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.05.2008, 14:14
#14
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


bmp пожалста. Можно оставить только панель modify. Фон как я и думал побелел.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 04.05.2008, 15:01
#15
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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

я уже сделал себе кнопочки..., не могу менять успел привыкнуть
Вложения
Тип файла: rar Snap2.rar (6.8 Кб, 377 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.05.2008, 20:28
#16
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Изменил иконки, обновил #10
Модератору. Можешь скосить наше с dextron3 обсуждение с12-по15. Наверное в этом разделе обсуждения не преведствуются.
Изображения
 
__________________
Блог
Red Nova вне форума  
 
Непрочитано 04.05.2008, 20:34
#17
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Оставим, лишним не будет.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 04.05.2008, 21:55
#18
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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

я сверх интересный алгоритм для лиспа придумал называется "записная книжка", отправил VVA на почту, жду когда он осовбодиться...
этот лисп сделает клавиатуру вообще не нужной в автокаде,
ну кроме ESC и DEL, сам жду даже работы приостановил...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.05.2008, 22:22
#19
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Аааа. Понравилось. Мне тоже стиль кнопок 2009 нравиться.
Цитата:
я сверх интересный алгоритм для лиспа придумал называется "записная книжка", отправил VVA на почту, жду когда он осовбодиться...
Сказать по правде я тоже от него кое чего жду, лисп для создания ведомости чертежей. Что бы мы с тобой без него делали Хочется еще раз поблагодарить Владимира за помощь. Я в большом долгу.

Цитата:
Кстати ты в какой программе кнопки рисуешь,
Да что под рукой тем и рисую, но не пейнтом, там оч. мало инструментов. В ACDSee Photo Editor, или в Photoshop.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 05.05.2008, 09:06
#20
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


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

видеоролик
Вложения
Тип файла: rar Untitled.rar (27.5 Кб, 375 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Копирование, сортировка, переименование листов (layout)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск