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

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

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

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

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

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

Последний раз редактировалось VVA, 09.04.2016 в 22:08. Причина: Перезалил
Просмотров: 42911
 
Автор темы   Непрочитано 02.06.2008, 11:43
#41
VVA

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


Обновил #1. Разделил команды
LTINC - Копирование содержимого листа с увеличением его порядкового номера, включая буквы ( Drawing_A -> Drawing_B)
LTINCN - Копирование содержимого листа с увеличением его ЦИФРОВОГО номера ( Drawing_A -> Drawing_A-1)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.06.2008, 14:45
#42
Red Nova

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


Спасибо, на #10 поменял в меню LTINC на LTINCN.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 02.06.2008, 15:55
#43
Red Nova

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


С ltren то же самое, можно и эту команду разделить?
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 03.06.2008, 12:18
#44
VVA

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


Разделил LTREN
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.06.2008, 16:12
#45
Red Nova

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


Спасибо, еще раз обновил #10
__________________
Блог
Red Nova вне форума  
 
Непрочитано 29.06.2008, 23:42
#46
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


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

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

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

где нужно:

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

Буду благодарен....
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 17.07.2008, 17:19
#47
Red Nova

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


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 в всплывающее окно добавить радиокнопки.
-Начальный номер листа (вписать первое значение)
-Нумеровать листы (да или нет)
-Нумеровать штампы (да или нет)
Вложения
Тип файла: rar z_layout_number.rar (2.3 Кб, 187 просмотров)
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 17.07.2008, 19:37
#48
VVA

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


Ответил здесь http://dwg.ru/f/showthread.php?t=14548&page=3
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.08.2008, 16:09
#49
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, а на мой вопрос...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 29.09.2008, 21:27
#50
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


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

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

Вот видеоролик в подвтерждение...
Вложения
Тип файла: rar Untitled.rar (425.5 Кб, 175 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 29.09.2008, 22:37
#51
VVA

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


dextron3, Проишли мне на почту файл со своими 60 лэйаутами, посмотрю.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 29.09.2008, 23:19
#52
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


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

сейчас надобно переименовать 20 листов, а не получается, исчезают некторые лайауты, я вас подожду может что то получиться...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 02.10.2008, 19:26
#53
Red Nova

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


А я заметил, если к листу с названием к примеру "К9" применить LTINC, то получится не К10, а L0.
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 02.10.2008, 21:40
#54
VVA

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


А для кого это написано?
Цитата:
LTINC - Копирование содержимого листа с увеличением его порядкового номера (Increment current layout including letters) Drawing_A -> Drawing_B
LTINCN - Копирование содержимого листа с увеличением его порядкового ЦИФРОВОГО номера (Increment DIGITAL number current layout) Drawing_A -> Drawing_A-1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.10.2008, 19:37
#55
Red Nova

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


Блин, все уже забыл.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 03.10.2008, 19:49
#56
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Red Nova, а мой баг как вылечить???
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.10.2008, 16:41
#57
Red Nova

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


dextron3,
Может ты имел в виду
VVA, а мой баг как вылечить???
Ато из меня такой же лечитель как из тебя.
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 04.10.2008, 16:48
#58
VVA

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


dextron3, Red Nova, Не наблюдал я бага. На присланном dextron3 чертеже создал 105 лэйаутов, рука устала. Отвечал почтой.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.10.2008, 17:14
#59
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, вы смотрели видеоролик, там явно баг прорисовывается, попробуйте проделать тоже самое что и я делал в видеоролике, с другими по номерам лайаутов работает, а вот именно как я делаю так и не работает...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 04.10.2008, 19:58
#60
VVA

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


dextron3, Посмотри внимательнее свой видеоролик, помимо листов с 67 по 87 выделен еще лист 1. Нажми CTRL и сними выделение с листа
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Копирование, сортировка, переименование листов (layout)

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

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