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

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

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

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

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

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

Последний раз редактировалось VVA, 09.04.2016 в 22:08. Причина: Перезалил
Просмотров: 42966
 
Автор темы   Непрочитано 02.05.2008, 13:14
#2
VVA

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


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

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

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


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,801
<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,974
Отправить сообщение для Red Nova с помощью Skype™


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

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


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

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


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

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

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,801
<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,974
Отправить сообщение для Red Nova с помощью Skype™


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

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


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

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

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

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


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

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

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


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

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


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

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


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

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


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

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

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для 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
С.-Петербург
Сообщений: 36,760


Оставим, лишним не будет.
__________________

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

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


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

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

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


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

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

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


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

видеоролик
Вложения
Тип файла: rar Untitled.rar (27.5 Кб, 335 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 05.05.2008, 21:00
#21
Red Nova

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


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

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


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

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


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

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


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

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


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

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


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

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


У меня опять в файле не видет первый лист.
Вложения
Тип файла: dwg
DWG 2004
49509k0151a.dwg (141.8 Кб, 3137 просмотров)
__________________
Блог
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,801
<phrase 1= Отправить сообщение для VVA с помощью Skype™


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

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для 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
Просмотров: 273
Размер:	50.6 Кб
ID:	6341  
__________________
Лень - великий двигатель прогресса!
KAI вне форума  
 
Непрочитано 13.05.2008, 09:41
#32
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,974
Отправить сообщение для 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,801
<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,042


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

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


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

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

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


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,974
Отправить сообщение для Red Nova с помощью Skype™


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

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


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

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


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

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


VVA, Обнаружил, что при ltinc для листа с иминем "ПЗ9" (тут З-это буква) создаваемый лист вместо "ПЗ10" получается "ПИ0". Смотри файл
Вложения
Тип файла: dwg
DWG 2004
ПЗ.dwg (80.3 Кб, 3089 просмотров)
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 02.06.2008, 11:43
#41
VVA

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


dextron3, Посмотри внимательнее свой видеоролик, помимо листов с 67 по 87 выделен еще лист 1. Нажми CTRL и сними выделение с листа
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 04.10.2008, 20:26
#61
dextron3

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


VVA, спасибо! не обратил внимание!
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 02.12.2009, 18:46
#62
dextron3

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


VVA, нашел баг, связанный с первым листом, при работе лиспа, прикалдываю видеоролик:
Вложения
Тип файла: rar Untitled.rar (195.5 Кб, 144 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 22.06.2012, 13:50
#63
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 995
<phrase 1=


Интересно, а с помощью этих инструментов можно так сделать, что бы листы 1а, 2а, 3а, 1b, 2b, 3b расположить как 1a, 1b, 2a, 2b, 3a, 3b.
Или подскажите, что надо поправить в скрипте, что бы при переименовании листов, порядковый номер изменялся не на +1, а на +2 )
Konstruktiv54 вне форума  
 
Автор темы   Непрочитано 22.06.2012, 23:35
#64
VVA

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


ShaRhaN, А попробовать? По моему и LTSORTN и LTSORTA должны так сделать
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 23.06.2012, 07:17
#65
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 995
<phrase 1=


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

Последний раз редактировалось Konstruktiv54, 23.06.2012 в 07:23.
Konstruktiv54 вне форума  
 
Автор темы   Непрочитано 23.06.2012, 22:06
#66
VVA

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


ShaRhaN, После отпуска гляну. Добавил в #1 ссылку на программу от Lee Mac Попробуй, может подойдет
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 25.06.2012, 05:35
#67
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 995
<phrase 1=


спасиб! гляну )
Konstruktiv54 вне форума  
 
Автор темы   Непрочитано 17.10.2012, 19:02
#68
VVA

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


Добавил к первому посту переведенную на русский версию Tabsort от Lee Mac
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 30.05.2013, 16:13
#69
Red Nova

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


VVA,
при применении LTREN на 2013х64 программа зависает.
Red Nova вне форума  
 
Автор темы   Непрочитано 31.05.2013, 12:50
#70
VVA

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


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

Изыскания и САПР
 
Регистрация: 05.07.2008
Ижевск
Сообщений: 295


VVA, зависает программа при сортировке листов, автокад 2013
MeshIN вне форума  
 
Автор темы   Непрочитано 18.06.2013, 20:35
#72
VVA

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


MeshIN, Проверил. Win7 x64 Acad2013x64 SP2 LTSORTN и LTSORTA работают. Выкладывай более подробную информацию вместе с файлом
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 13.07.2013, 11:00
#73
Red Nova

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


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

P.S. По моему раньше не выкладывал. Прикрепляю менюшку с иконками для layout команд + vrc. У меня стоит вот уже на которой версии акада. Может кому еще пригодится...
Вложения
Тип файла: rar Layout.rar (58.4 Кб, 126 просмотров)

Последний раз редактировалось Red Nova, 16.07.2013 в 12:31.
Red Nova вне форума  
 
Автор темы   Непрочитано 17.07.2013, 19:19
#74
VVA

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


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

Цитата:
Сообщение от Red Nova Посмотреть сообщение
P.S. По моему раньше не выкладывал.
Это не тоже самое? http://forum.dwg.ru/showthread.php?p=239007#post239007
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 19.07.2013, 17:19
#75
Red Nova

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


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 вне форума  
 
Непрочитано 26.09.2013, 12:40
#76
Red Nova

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


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
)
Red Nova вне форума  
 
Непрочитано 18.04.2014, 16:05
#77
zz07

студент
 
Регистрация: 01.07.2007
Москва
Сообщений: 21


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

Последний раз редактировалось zz07, 18.04.2014 в 16:17.
zz07 вне форума  
 
Автор темы   Непрочитано 21.04.2014, 20:15
#78
VVA

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


Цитата:
Сообщение от zz07 Посмотреть сообщение
При удалении layout 2, перенумеровывая layout на "1", "2", "3" с помощью лиспа, чтобы номера в штампе соответственно изменились.
Вставь в штамп поле. Категория Прочее->Системная переменная->CTAB
Эта переменная ссылается на имя текущего листа
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 28.04.2014, 11:26
#79
Isuma

конструктор
 
Регистрация: 29.09.2008
Санкт-Петербург
Сообщений: 156
<phrase 1=


Товарищи, а на 2015 Acadе не работает?
эммм..работает. просто сразу не подгрузился, почему-то
__________________
Идеал оптимизации - это когда жмёшь куда попало, а получаешь то, что нужно.

Последний раз редактировалось Isuma, 28.04.2014 в 11:28. Причина: Подождал
Isuma вне форума  
 
Непрочитано 29.05.2014, 23:17
#80
zz07

студент
 
Регистрация: 01.07.2007
Москва
Сообщений: 21


Цитата:
Сообщение от VVA Посмотреть сообщение
Категория Прочее->Системная переменная->CTAB
У меня эта переменная ссылается на текст который написан в имени layout. Т.е. у меня написано "лист 2" и поле выводит "лист 2", а не просто номер.
zz07 вне форума  
 
Автор темы   Непрочитано 29.05.2014, 23:26
#81
VVA

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


zz07, А что мешает переименовать "Лист 2" в "2"?
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 30.05.2014, 11:00
#82
Red Nova

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


В поле
Other - Diesel Expression
$(substr,$(getvar,CTAB),6)
Red Nova вне форума  
 
Непрочитано 18.11.2015, 13:20
#83
Red Nova

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


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

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

Код:
[Выделить все]
Command: SHTUPD
nil
Command:

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

Последний раз редактировалось Red Nova, 18.11.2015 в 14:28.
Red Nova вне форума  
 
Непрочитано 07.04.2016, 17:44
#84
vein2005

как-то, где-то
 
Регистрация: 18.10.2013
мск
Сообщений: 2
<phrase 1=


Доброго дня.
Возможно этот лисп сделать как доп. окно(палитра)?
Спасибо
vein2005 вне форума  
 
Автор темы   Непрочитано 08.04.2016, 23:07
#85
VVA

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


vein2005, извини, не понял вопроса.
__________________
Как использовать код на Лиспе читаем здесь
VVA на форуме  
 
Непрочитано 09.04.2016, 02:07
#86
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 7,026


1. Вынесите команды на инструментальную панель.. лисп в автозагрузку, например.
2. Сделайте отдельную панельку, на которой на кнопки посажены вызов команд.
Сергей812 вне форума  
 
Непрочитано 09.04.2016, 04:10
#87
Red Nova

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


Сергей812, Например так?
http://forum.dwg.ru/showpost.php?p=1120859&postcount=73
Red Nova вне форума  
 
Непрочитано 09.04.2016, 09:23
#88
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 7,026


Red Nova, Да, похоже по содержимому архива). Просто даже не знаю, есть ли в лиспе возможность создавать палитры программно, как в NET API/ObjectARX.
VVA можно дополнить ссылкой на панель шапку ветки?
Сергей812 вне форума  
 
Автор темы   Непрочитано 09.04.2016, 22:08
#89
VVA

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


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

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

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