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

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

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

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

По мотивам 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 Кб, 1358 просмотров)
Тип файла: lsp layout2013.lsp (31.2 Кб, 471 просмотров)

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

Последний раз редактировалось VVA, 23.03.2022 в 18:02. Причина: Перезалил
Просмотров: 61669
 
Непрочитано 05.05.2008, 21:00
#21
Red Nova

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


Я тоже неполадку нашел. В этом файле при попытке переименовать листы в место последнего листа норовит захватить модель.
Миниатюры
Нажмите на изображение для увеличения
Название: баг.JPG
Просмотров: 277
Размер:	22.2 Кб
ID:	6101  
Вложения
Тип файла: dwg
DWG 2004
Баг.dwg (65.5 Кб, 3117 просмотров)
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 07.05.2008, 11:11
#22
VVA

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


Исправил ошибки, описанные в #20, #21. Обновил код в #4
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.05.2008, 11:33
#23
Red Nova

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


Тогда и я обновил #10.
VVA, Может топик переименовать?
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 07.05.2008, 11:39
#24
VVA

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


А сам не могу (или не знаю как), а Алексая в аське сейчас нет
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.05.2008, 15:30
#25
Red Nova

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


Надо править первый пост (в расширенном режиме можно и название править), правда работает не всегда.
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 07.05.2008, 16:20
#26
VVA

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


Переименовал
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 11.05.2008, 23:12
#27
Red Nova

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


У меня опять в файле не видет первый лист.
Вложения
Тип файла: dwg
DWG 2004
49509k0151a.dwg (141.8 Кб, 3150 просмотров)
__________________
Блог
Red Nova вне форума  
 
Непрочитано 12.05.2008, 03:20
#28
KAI

геологоразведка, строительство
 
Регистрация: 14.10.2003
Магадан
Сообщений: 311


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

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

p.s. Программа нужная, особенно для большого количества листов.
__________________
Лень - великий двигатель прогресса!
KAI вне форума  
 
Автор темы   Непрочитано 12.05.2008, 11:04
#29
VVA

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


Red Nova, KAI, Перестарался немного, 2 раза cdr брал. Исправил, выложил в пост #1. По поводу LTSORT вставил печать сообщения. Если не будет сортироваться, жду файлик по почте
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.05.2008, 13:12
#30
Red Nova

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


Работает. Спасибо. Обновил #10
__________________
Блог
Red Nova вне форума  
 
Непрочитано 13.05.2008, 03:47
#31
KAI

геологоразведка, строительство
 
Регистрация: 14.10.2003
Магадан
Сообщений: 311


LTRS, LTREN

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

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

И по поводу интерфейса:
В наименовании окна DCL следует приводить или имя программы или ее расширенное имя, тем более, что как выбирать листы приведено внизу DCL (что правильно).
Миниатюры
Нажмите на изображение для увеличения
Название: layout.jpg
Просмотров: 290
Размер:	50.6 Кб
ID:	6341  
__________________
Лень - великий двигатель прогресса!
KAI вне форума  
 
Непрочитано 13.05.2008, 09:41
#32
Red Nova

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


Цитата:
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, и на все буквы Кириллицы.
__________________
Блог

Последний раз редактировалось Red Nova, 13.05.2008 в 09:54.
Red Nova вне форума  
 
Автор темы   Непрочитано 13.05.2008, 12:02
#33
VVA

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


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

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


Red Nova, что то про алфавит не пойму, или кто то вместо цыфр буквами листы обозначает?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 13.05.2008, 21:04
#35
Red Nova

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


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

Последний раз редактировалось Red Nova, 13.05.2008 в 21:16.
Red Nova вне форума  
 
Непрочитано 13.05.2008, 22:51
#36
dextron3

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


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

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

Последний раз редактировалось dextron3, 13.05.2008 в 22:56.
dextron3 вне форума  
 
Непрочитано 14.05.2008, 00:53
#37
Red Nova

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


Я на #10 пока не обновлял
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 14.05.2008, 09:58
#38
VVA

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


>dextron Обновил #1, кое-что на ходу подправлял, скобку одну забыл
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 17.05.2008, 11:13
#39
Red Nova

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


Подправил меню на #10, удалил из вложения сам лисп, его качаем с #1.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 02.06.2008, 11:05
#40
Red Nova

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


VVA, Обнаружил, что при ltinc для листа с иминем "ПЗ9" (тут З-это буква) создаваемый лист вместо "ПЗ10" получается "ПИ0". Смотри файл
Вложения
Тип файла: dwg
DWG 2004
ПЗ.dwg (80.3 Кб, 3102 просмотров)
__________________
Блог
Red Nova вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Копирование, сортировка, переименование листов (layout)

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

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