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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Быстрое рисование. QUICKDRAW

LISP. Быстрое рисование. QUICKDRAW

Ответ
Поиск в этой теме
Непрочитано 08.06.2009, 11:54 7 | #1
LISP. Быстрое рисование. QUICKDRAW
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,990

Развитие идеи, изложенной ttt и кода Rory Love, опубликованного Vova, здесь.
Внесены некоторые доработки по предложению Largo_GT, Valery Brelovsky, Yuriy, Disney, и др. участников форума. некоторые доработки под себя опубликовал Yuriy здесь
Принцип работы программы:
Выбираете примитив-образец и рисуете такие-же примитивы с такими же свойствами. Кроме того, при повторе (пробел, клавиша ENTER, или правая кнопка мыши) рисование по примитиву-образцу будет повторяться (повторное указание не требуется).
Короткие имена:
QR - QUICKDRAW с восстановлением свойств
Q - QUICKDRAW
История:
22.07.2009 - Добавлена обработка временных привязок при установке OSNAPCOORD = 2
02.09.2009 - Добавлена обработка linetype scale и SPLINE
10.09.2009 - Добавлена обработка Mtext и Table
09.11.2009 - Восстановление PLINEWID
24.11.2009 - HPDOUBLE in USER DEFINE PATTERN
05.04.2010 - HPSPACE in USER DEFINE PATTERN
07.06.2010 - Add MLINE. Correct GetDynamicBlockPropertyList function
21.05.2010 - Add True Color
23.08.2011 - Add XLINE and RAY
14.10.2015 - Add MLEADER

PS. Начиная с 2011 версии появилась аналогичная команда _ADDSELECTED

Вложения
Тип файла: lsp quickdraw.LSP (21.8 Кб, 553 просмотров)

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

Последний раз редактировалось VVA, 14.10.2015 в 17:30.
Просмотров: 51128
 
Непрочитано 15.06.2009, 16:48
#2
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Прекрасная программа!
Володя спасибо!
Кочетков Андрей вне форума  
 
Непрочитано 16.06.2009, 04:44
#3
KAI

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


На мой взгляд, для DTEXT, следует к числу основных свойств прибавить высоту текста и угол наклона (не люблю лишних действий ручками!).
__________________
Лень - великий двигатель прогресса!
KAI вне форума  
 
Непрочитано 16.06.2009, 09:48
#4
MeshIN

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


Решил повесить команду на кнопку, но что то не работает, вот сам макрос ^C^C(if (null C:<q>)(load "<qickdraw1.lsp>"));<q>; через командную строку все работает

Последний раз редактировалось MeshIN, 16.06.2009 в 18:13.
MeshIN вне форума  
 
Автор темы   Непрочитано 16.06.2009, 11:16
#5
VVA

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


Так должно работать
^C^C(if (null C:Q)(load "qickdraw1.lsp"));Q;
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.06.2009, 12:13
#6
MeshIN

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


Еще заметил такую ошибку, вставляю блок, потом беру за основу этот блок использую lisp, и блок вставляется больше по размеру
MeshIN вне форума  
 
Автор темы   Непрочитано 16.06.2009, 14:48
#7
VVA

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


MeshIN, Выложи пример.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.06.2009, 14:56
#8
MeshIN

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


вот пример
Вложения
Тип файла: dwg
DWG 2004
Drawing1.dwg (27.5 Кб, 5589 просмотров)
MeshIN вне форума  
 
Автор темы   Непрочитано 16.06.2009, 16:58
#9
VVA

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


MeshIN, Лисп обновил. Причины такого поведения описаны здесь: На заметку программистам
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.06.2009, 17:12
#10
MeshIN

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


Спасибо одно не понял, чем отличаются команды друг от друга

Последний раз редактировалось MeshIN, 16.06.2009 в 18:13.
MeshIN вне форума  
 
Автор темы   Непрочитано 17.06.2009, 18:34
#11
VVA

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


А я не понял, какие команды ты имеешь ввиду.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 17.06.2009, 18:36
#12
MeshIN

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


Q от QR
MeshIN вне форума  
 
Автор темы   Непрочитано 17.06.2009, 20:53
#13
VVA

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


Цитата:
Сообщение от MeshIN Посмотреть сообщение
Q от QR
1. Нарисуй отрезок синим цветом
2. Выставь текущий цвет красным
3. Набери QR и посмотри, какой остался текущий цвет
4. Набери Q и посмотри, какой остался текущий цвет
Цитата из 1-го поста
Цитата:
QR - QUICKDRAW с восстановлением свойств
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.07.2009, 08:19
#14
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Тут вскрылась маленькая проблема. Работа с поллиниями. В объектных привязках выставлено пересечение и конечная точка. Мне нужно по образцу поллинии провести поллинию из середины отрезка. Набираю Q выбираю поллинию Shift + правая кнопка мыши из открывшегося меню выбираю к средней точке подвожу курсор к поллинии подсвечивается значок средней точки кликаю кнопку мыши и в итоге получаю привязку начала линии не к середине а к конечной точке. Проблема существовала давно, но не было времени вникнуть в неё. Думал что на на рботе так настроено. Сегодня добил этот вопрос до конца. Это результат использования именно этой программы. При обычном рисовании всё работает нормально. Т.е. выбираю команду поллиния ( при тех же установках привязок и режим привязок включен) всё работает как надо получаю привязку к середине, но если через QUICKDRAW то почему то преимущество разовой привязки не срабатывает.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 21.07.2009, 10:00
#15
VVA

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


Valery Brelovsky, Я проверил на файле из #1 поста, у меня срабатывает как положено (Автокад 2006 RUS). Давай уточним детали:
1. Версия Автокада
2. Значение переменной OSNAPCOORD до вызова Q
3. Значение переменной OSNAP до вызова Q
4. Приложи файлик с полилинией.
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 06.08.2013 в 08:57.
VVA вне форума  
 
Непрочитано 22.07.2009, 07:00
#16
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


OSNAPCOORD - 2
OSNAP включены привязки к конечной точке и пересечение
Версии 2000 и 2009
Вот чертёж. Нужно провести ось дороги через две линии пресекающие дорогу. Участок обведён кругом. Привязку к середине отрезка включаю как разовую.
Вложения
Тип файла: dwg
DWG 2000
23_09_Cl.dwg (48.5 Кб, 5400 просмотров)

Последний раз редактировалось Valery Brelovsky, 22.07.2009 в 07:26.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 22.07.2009, 09:59
#17
VVA

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


Valery Brelovsky,
Есть 2 варианта:
1. Скачать обновленный код в #1
2. Установить OSNAPCOORD=1
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 06.08.2013 в 08:57.
VVA вне форума  
 
Непрочитано 22.07.2009, 17:56
#18
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Цитата:
Сообщение от VVA Посмотреть сообщение
Valery Brelovsky,
Есть 2 варианта:
1. Скачать обновленный код в #1
2. Установить OSNAPCOORD=1
Скачал спасибо. Попробую.
А что я потеряю с OSNAPCOORD=1.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 22.07.2009, 18:24
#19
VVA

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


Valery Brelovsky, Ничего.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 22.07.2009, 18:52
#20
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Цитата:
Сообщение от VVA Посмотреть сообщение
Valery Brelovsky, Ничего.
Хорошо. В чём всё таки разница.
Я ка то привык уже к старому.
Valery Brelovsky вне форума  
 
Автор темы   Непрочитано 22.07.2009, 19:09
#21
VVA

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


Описание OSNAPCOORD
Цитата:
1 - Вводимые с клавиатуры координаты подавляют текущие режимы объектной привязки
2 - Вводимые с клавиатуры координаты подавляют режимы привязки (за исключением использованных в сценариях)
Главное выделено красным. Сценарий=lisp программа.
Что делает лисп:
1. запрашивает точку и ты указываешь середину.
2. Вызывает _pline и передает команде запрошенную точку (середину)
при OSNAPCOORD=2 в соответствии с выделенным красным преимущество имеют текущие (пересечение, конточка) объектные привязки. К координате средней точки применяются привязка _endp и ты прыгаешь в конточку.
Поэтому я и сказал, что для работы ручками разницы нет.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.07.2009, 06:39
#22
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Спасибо большое. Теперь понятно.
Valery Brelovsky вне форума  
 
Непрочитано 14.08.2009, 18:55
#23
cool_man

реставратор
 
Регистрация: 20.01.2009
Ростов
Сообщений: 5


Программка отличная! Спасибо огромное) !
Раньше пробывал программу написанную на ARX с названием auto (она лежит в dawnlode) но чем то она мне тогда не понравилась... этим лиспом пользоваться гораздо удобнее, ИМХО.
PS. Интересно, кто-нибудь пробывал повесить ее вызов на двойной щелчок мыши (вместо вызова панели свойств)... если да, то поделитесь опытом, насколько это удобно)
__________________
Да... палитры без поллитры - это сложно:drinks:
cool_man вне форума  
 
Непрочитано 14.08.2009, 19:08
#24
Рyslan


 
Регистрация: 25.07.2007
Сообщений: 2,508


ну и для чего эта программа? есть же стандартное match propeties
Рyslan вне форума  
 
Непрочитано 24.08.2009, 15:17
#25
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Столкнулся с тем, что данная программа не наследует масштаб двухмерных полилиний (linetype scale).
Это можно исправить?
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 26.08.2009, 21:30
#26
VVA

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


Кочетков Андрей, Смогу посмотреть не раньше 31 августа. В отпуске.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.08.2009, 22:53
#27
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Ага спасибо )))
Кочетков Андрей вне форума  
 
Непрочитано 27.08.2009, 01:08
#28
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Рад что зашел в эту тему )
Огромнейшая благодарность разработчикам!!!!
а можно, пожалуйста, узнать (или скажите где посмотреть списочек объектов с которыми работает данный lisp? а то я вот попробовал сплайн и 3d (куб, политело,...) объекты не хочет повторять!
Djur вне форума  
 
Автор темы   Непрочитано 27.08.2009, 15:35
#29
VVA

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


Djur, Сплайна нет. Добавлю. По поводу 3D: в результате получается объект 3DSOLID. А какой командой был создан - неизвестно.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 28.08.2009, 00:55
#30
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Благодарю! )
Djur вне форума  
 
Автор темы   Непрочитано 02.09.2009, 18:14
#31
VVA

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


Кочетков Андрей, Djur, Добавил linetype scale и SPLINE. Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.09.2009, 21:58
#32
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Пасиб!
Кочетков Андрей вне форума  
 
Непрочитано 03.09.2009, 10:46
#33
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Огромнейшая Благодарность!!!!
Djur вне форума  
 
Непрочитано 06.09.2009, 10:13
#34
kheylan


 
Регистрация: 24.05.2009
Екатеринбург
Сообщений: 86


Спасибо за программу!
А все же просьба по DText осталась без ответа,
хотелось бы за один прием и Mtext не понимает.
С таблицами можно что-нибудь придумать, примерно, как с блоками. Да, с безымянными блоками проблема, не находит. А выноски?!
А так все хорошо!
kheylan вне форума  
 
Непрочитано 07.09.2009, 15:16
#35
tov


 
Регистрация: 19.08.2009
Сообщений: 19


Спасибо за программу
пробую с прямоугольником получаю следующее

Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE
_.PLINE
Начальная точка: nil

и дальше работаю с полилинией. а вроде как должен с прямоугольником? и хотелось бы иметь возможность работать с многогранником (_polygon)
Как исправить??

перед использование программы стоит слой1 после ее применения устанавливается слой принадлежащий обекту а можно сделать так чтобы возращала первоначальный слой1 ?
tov вне форума  
 
Непрочитано 07.09.2009, 15:23
#36
Кулик Алексей aka kpblc
Moderator

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


Прямоугольник (да и многогранник тоже) есть полилиния.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.09.2009, 15:52
#37
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от tov Посмотреть сообщение
перед использование программы стоит слой1 после ее применения устанавливается слой принадлежащий обекту а можно сделать так чтобы возращала первоначальный слой1 ?
Команда QR не восстанавливает слой?
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 07.09.2009, 18:19
#38
VVA

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


tov, Я еще раз проверил, по опции RE вызывается прямоугольник (polygon), в команде QR слой восстанавливается. Скачай код заново и попробуй еще раз. Если не получится перешли мне код на почту с указанием версии Автокада
Уточнение: Для воостановления слоя нужно использовать QR, а не Q. Команда QDR - временная. Формируется динамически командами Q или QR. Предназначена для повтора последнего действия по Enter или пробелу.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.09.2009, 08:43
#39
tov


 
Регистрация: 19.08.2009
Сообщений: 19


VVA спасибо за уточнение.
действительно при использование QR слой востанавливается а вот прямоугольник рисовать не хочет (скачал заново *.lsp) Автокад 2009

Команда: (if (null C:QR)(load "qickdraw1.lsp"))
nil
Команда: QR
Select object:
Команда:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE
_.PLINE
Начальная точка: nil
Начальная точка:
Текущая ширина полилинии равна 0.00
Следующая точка или [Дуга/Полуширина/длИна/Отменить/Ширина]:
Следующая точка или [Дуга/Замкнуть/Полуширина/длИна/Отменить/Ширина]:

Команда:
Команда: (if (null C:QR)(load "qickdraw1.lsp"))
nil
Команда: QR
Select object:
Команда:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :R3P
_.PLINE
Начальная точка: nil
Начальная точка:
Текущая ширина полилинии равна 0.00
Следующая точка или [Дуга/Полуширина/длИна/Отменить/Ширина]:
Следующая точка или [Дуга/Замкнуть/Полуширина/длИна/Отменить/Ширина]:
tov вне форума  
 
Непрочитано 08.09.2009, 09:13
#40
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,825
<phrase 1=


tov, а вроде все ясно
Цитата:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline>
вот и выбирай REctang
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Автор темы   Непрочитано 08.09.2009, 09:25
#41
VVA

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


tov, Озвучь версию Автокада
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.09.2009, 10:31
#42
tov


 
Регистрация: 19.08.2009
Сообщений: 19


Ребята внимательнее надо быть
Zenon
Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE
_.PLINE
типа я и выбираю REctang
VVA
VVA спасибо за уточнение.
действительно при использование QR слой востанавливается а вот прямоугольник рисовать не хочет (скачал заново *.lsp) Автокад 2009

AutoCAD 2009 Версия C.56.0 (UNICODE)

Уточнится при рисование размеров через функцию QUICKDRAW не наследуется Глобальный масштаб размеров(DimScale) это только у меня или не заложено в лисп

Последний раз редактировалось tov, 08.09.2009 в 11:00.
tov вне форума  
 
Автор темы   Непрочитано 16.09.2009, 19:02
#43
VVA

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


Цитата:
Сообщение от kheylan Посмотреть сообщение
А все же просьба по DText осталась без ответа,
хотелось бы за один прием и Mtext не понимает.
С таблицами можно что-нибудь придумать,
Добавил DTEXT, MTEXT и TABLE
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.09.2009, 19:18
#44
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


В AutoCAD'е нет объектов "Прямоугольник" и "n-угольник".
Profan вне форума  
 
Непрочитано 16.09.2009, 22:36
#45
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Благодарю очень! только потубал сегодня о "MTEXT" )
Djur вне форума  
 
Непрочитано 17.09.2009, 12:58
#46
kheylan


 
Регистрация: 24.05.2009
Екатеринбург
Сообщений: 86


VVA Спасибо, что ответили!
"Добавил DTEXT, MTEXT и TABLE"
Но, это не совсем то, что нужно.
вот бы с вашей программой скрестить простой макрос
*^C^C_Copy;\;@;\_Ddedit;_Last;;
который очень удобен для работы с любым текстом, и не только, он подходит для простого копирования растров (Image) и ссылок (Xref) и т.д., которые ваша программа пока не распознает.
kheylan вне форума  
 
Непрочитано 18.09.2009, 11:05
#47
tov


 
Регистрация: 19.08.2009
Сообщений: 19


VVA
попробовал лисп в AutoCAD 2006 прямоугольник и n-угольник не рисует только полилинию


Уточнится при рисование размеров через функцию QUICKDRAW не наследуется Глобальный масштаб размеров(DimScale) в AutoCAD 2009 Версия C.56.0 (UNICODE) это только у меня или не заложено в лиспе ??
tov вне форума  
 
Непрочитано 18.09.2009, 12:23
#48
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от tov Посмотреть сообщение
попробовал лисп в AutoCAD 2006 прямоугольник и n-угольник не рисует только полилинию
http://forum.dwg.ru/showpost.php?p=448364&postcount=44
Кочетков Андрей вне форума  
 
Непрочитано 08.11.2009, 11:04
#49
roman56

инженер строитель
 
Регистрация: 01.03.2007
ISRAEL
Сообщений: 39


VVA
Спасибо за прекрасный Lisp
много лет работал под Lisp который написал сам для 12
Autocad, но ваш, на уровень выше
протестировал на тех элементах которые употребляю
чаще всего- все работает нормально
заметил только одну погрешность:
при polyline с измененной толщиной, он рисует poly с нужной толщиной, но при выходе из команды не меняет значение переменной на 0.
если можно, подкорректируйте пожалуйста
заранее благодарен
roman56 вне форума  
 
Автор темы   Непрочитано 09.11.2009, 09:42
#50
VVA

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


roman56, Спасибо за дефектацию. Исправил.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 09.11.2009, 09:59
#51
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,825
<phrase 1=


VVA еще замечание, не наследует свойства из размеров измененных вручную, (например изменен тип стрелки для радиуса).
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 11.11.2009, 05:43
#52
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


Прочто чудо!
Поставил на F4 и уже не представляю как без этого работать.
Jonas вне форума  
 
Непрочитано 24.11.2009, 10:42
#53
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


При использовании в качестве образца штриховки, не наследуется свойство DOUBLE у штриховки USER DEFINED.
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 24.11.2009, 11:49
#54
VVA

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


Исправил
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.11.2009, 12:07
#55
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


При выборе смасштабированной (с большим коэффициентом масштаба) таблицы пользователь рискует насмерть озадачить автокад.
Nike вне форума  
 
Непрочитано 24.11.2009, 14:52
#56
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от VVA Посмотреть сообщение
Исправил
Спасибо!
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 24.11.2009, 15:15
#57
VVA

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


Кочетков Андрей,
Цитата:
Сообщение от Nike Посмотреть сообщение
При выборе смасштабированной (с большим коэффициентом масштаба) таблицы пользователь рискует насмерть озадачить автокад
Рискует, но выхода я пока не вижу
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.11.2009, 16:52
#58
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


Цитата:
Сообщение от VVA Посмотреть сообщение
Рискует, но выхода я пока не вижу
Можно хотя-бы предупреждающее сообщение вывести, если высота текста в образцовой табличке значительно (например в десятки и больше раз) превышает высоту текста, определенную в соответствующем стиле. Хотя.. ерундень какая-то.. заморочки лишние
Nike вне форума  
 
Непрочитано 24.03.2010, 15:37
#59
Mikka


 
Регистрация: 05.08.2008
Сообщений: 155


VVA спасибо тебе за программу огромное, очень удобная...
Нашел маленький косячек, масштаб линии меньше 1(например 0,5), заменяется масштабом 1 ...
Mikka вне форума  
 
Непрочитано 24.03.2010, 23:22
#60
Кулик Алексей aka kpblc
Moderator

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


А чему равна lunits?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.03.2010, 09:05
#61
Mikka


 
Регистрация: 05.08.2008
Сообщений: 155


lunits =2
Mikka вне форума  
 
Непрочитано 25.03.2010, 13:26
#62
Кулик Алексей aka kpblc
Moderator

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


Тьфу, черт, переклинило меня не lunits, а luprec - точность отображения.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 25.03.2010, 14:13
#63
Mikka


 
Регистрация: 05.08.2008
Сообщений: 155


luprec = 4
Mikka вне форума  
 
Непрочитано 05.04.2010, 15:55
#64
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Володь можешь пофиксить еще такую штуку:
Опять это касается HATCH -> User Defined.
Теперь не наследуется HPSPACE.
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 05.04.2010, 20:22
1 | #65
VVA

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


Цитата:
Сообщение от Mikka Посмотреть сообщение
Нашел маленький косячек, масштаб линии меньше 1(например 0,5), заменяется масштабом 1 ...
Я не смог повторить такой косячок. Приложи пример.
Кочетков Андрей, Пофиксил (надеюсь)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.04.2010, 22:04
#66
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от VVA Посмотреть сообщение
Пофиксил (надеюсь)
Да, пофиксил ))
Спасибо!
Кочетков Андрей вне форума  
 
Непрочитано 13.05.2010, 22:44
#67
CAHTEXHuK

Инженер по теплоснабжению
 
Регистрация: 10.04.2010
РБ, г. Могилев
Сообщений: 25


Присоединяюсь ко всем восхищенным пользователям этого лиспа ... Спасибо, VVA, чудное творение...
Но тоже хотелось бы предложить сделать работу с текстом по принципу макроса, насколько это возможно...
А можно добавить в код возможность работы с мультилинией... ? я много их использую, было бы просто супер...

А еще у меня есть пара несложных динамических блоков с параметром выравнивания... и при использовании Q выдает такой текст...
ActiveX Server возвратил ошибку: Неверный индекс
акад 2008 русский
Вложения
Тип файла: dwg
DWG 2007
Пара_Блоков.dwg (110.5 Кб, 2125 просмотров)

Последний раз редактировалось CAHTEXHuK, 13.05.2010 в 22:53.
CAHTEXHuK вне форума  
 
Непрочитано 14.05.2010, 11:08
#68
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Ну надо же, какое совпадение! Только вчера как раз обнаружил и решил такую же проблему.
Все дело оказалось вот в этой функции (использовал ее в своей программе):
Код:
[Выделить все]
;;Возвращает список всех свойст динамического блока в виде списка 
;((Имя_свойства Текущее_значение Vla_объект_свойства)...) 
;; obj - Vla-указатель дин блока (vla-object) 
;;Пример 
;;(GetDynamicBlockPropertyList (vlax-ename->vla-object(car(entsel "\nВыбeри дин блок:")))) 
;;(("Видимость" "Канализация" #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15246fe4>) 
;;   ("Угол" 0.115395 #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15240fe4>) ...) 
(defun GetDynamicBlockPropertyList (obj / lstProperties) 
(if (and (vlax-property-available-p obj "IsDynamicBlock") 
          (= (vla-get-IsDynamicBlock obj) :vlax-true) 
          (setq lstProperties (vlax-safearray->list 
                                           (variant-value 
                                            (vla-GetDynamicBlockProperties obj))))) 
  (progn 
   (mapcar '(lambda (x)(list (vla-get-propertyname X) 
                             (variant-value (vla-get-value X)) 
                             x 
                             )) 
           lstProperties))))
Если присутствует только динамический параметр "выравнивание" (как у CAHTEXHuK) или только параметр "базовая точка" (как у меня встретилось), то функция выдает ошибку при попытке преобразовать безопасный массив в список. Я просто "завернул" преобразование в vl-catch-all-apply:
Код:
[Выделить все]
;;Возвращает список всех свойст динамического блока в виде списка 
                    ;((Имя_свойства Текущее_значение Vla_объект_свойства)...) 
;; obj - Vla-указатель дин блока (vla-object) 
;;Пример 
;;(GetDynamicBlockPropertyList (vlax-ename->vla-object(car(entsel "\nВыбeри дин блок:")))) 
;;(("Видимость" "Канализация" #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15246fe4>) 
;;   ("Угол" 0.115395 #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15240fe4>) ...) 
(defun GetDynamicBlockPropertyList (obj / lstProperties)
  (if (and (vlax-property-available-p obj "IsDynamicBlock")
       (= (vla-get-IsDynamicBlock obj) :vlax-true)
       (not    (vl-catch-all-error-p
          (setq    lstProperties
             (vl-catch-all-apply
               (function (lambda ()
                       (vlax-safearray->list
                     (variant-value
                       (vla-GetDynamicBlockProperties obj)
                     ) ;_ end of variant-value
                       ) ;_ end of vlax-safearray->list
                     ) ;_ end of lambda
               ) ;_ end of function
             ) ;_ end of vl-catch-all-apply
          ) ;_ end of setq
        ) ;_ end of vl-catch-all-error-p
       ) ;_ end of not
       lstProperties
      ) ;_ end of and
    (progn
      (mapcar '(lambda (x)
         (list (vla-get-propertyname X)
               (variant-value (vla-get-value X))
               x
         ) ;_ end of list
           ) ;_ end of lambda
          lstProperties
      ) ;_ end of mapcar
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun
Do$ вне форума  
 
Непрочитано 15.05.2010, 12:01 Изменения...
#69
CAHTEXHuK

Инженер по теплоснабжению
 
Регистрация: 10.04.2010
РБ, г. Могилев
Сообщений: 25


Спасибо, эти блоки работают как надо... а что насчет мультилиний ? это вообще реально ? или стоит закатать губу ?
CAHTEXHuK вне форума  
 
Автор темы   Непрочитано 17.05.2010, 11:21
#70
VVA

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


Цитата:
Сообщение от CAHTEXHuK Посмотреть сообщение
а что насчет мультилиний ? это вообще реально ?
Реально. См. #1

Цитата:
Сообщение от Do$ Посмотреть сообщение
Ну надо же, какое совпадение! Только вчера как раз обнаружил и решил такую же проблему.
Спасибо за дефектацию. Исправленная версия с проверкой верхнего индекса массива
Код:
[Выделить все]
(defun GetDynamicBlockPropertyList (obj / lstProperties tmp)
;;Возвращает список всех свойст динамического блока в виде списка 
;((Имя_свойства Текущее_значение Vla_объект_свойства)...) 
;; obj - Vla-указатель дин блока (vla-object) 
;;Пример 
;;(GetDynamicBlockPropertyList (vlax-ename->vla-object(car(entsel "\nВыбeри дин блок:")))) 
;;(("Видимость" "Канализация" #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15246fe4>) 
;;   ("Угол" 0.115395 #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 15240fe4>) ...) 
  
(if (and (vlax-property-available-p obj "IsDynamicBlock") 
          (= (vla-get-IsDynamicBlock obj) :vlax-true)
         (setq tmp (vlax-variant-value (vla-GetDynamicBlockProperties obj)))
         (>= (vlax-safearray-get-u-bound tmp 1) 0)
          (setq lstProperties (vlax-safearray->list tmp))
         )
  (progn 
   (mapcar '(lambda (x)(list (vla-get-propertyname X) 
                             (vlax-variant-value (vla-get-value X)) 
                             x 
                             )) 
           lstProperties))))
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 07.06.2010 в 17:06. Причина: Изменения в GetDynamicBlockPropertyList (синие)
VVA вне форума  
 
Непрочитано 17.05.2010, 12:20
#71
CAHTEXHuK

Инженер по теплоснабжению
 
Регистрация: 10.04.2010
РБ, г. Могилев
Сообщений: 25


VVA, спасибо огромное... с мультилинией ваще бесценный лисп...
CAHTEXHuK вне форума  
 
Непрочитано 18.05.2010, 22:24
#72
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Низкий поклон!)))
__________________
Любой ПУТЬ прост, если в согласии с Вселенскими законами :) Дукха Самудая Ниродха и Марга
Djur вне форума  
 
Непрочитано 20.05.2010, 12:17
#73
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Я опять со своими штриховками ))
Не наследуется цвет штриховки USER DEFINED.
Прошу подправить )))
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 20.05.2010, 14:46
#74
VVA

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


Кочетков Андрей, Вышли пример на почту. Что-то я не могу смоделировать ситуацию
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.05.2010, 15:45
#75
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от VVA Посмотреть сообщение
Вышли пример на почту
Не смог найти твоей почты.
Поэтому выкладываю сюда файл.
Вложения
Тип файла: dwg
DWG 2007
для VVA - глюки со штриховкой.dwg (122.4 Кб, 2101 просмотров)
Кочетков Андрей вне форума  
 
Автор темы   Непрочитано 21.05.2010, 15:07
1 | #76
VVA

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


Добавил обработку True Color
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.05.2010, 15:36
#77
Кочетков Андрей

Java/Kotlin backend
 
Регистрация: 03.02.2006
Сообщений: 5,736


Цитата:
Сообщение от VVA Посмотреть сообщение
Добавил
Спасибо!
Кочетков Андрей вне форума  
 
Непрочитано 15.06.2010, 08:40
#78
Mikka


 
Регистрация: 05.08.2008
Сообщений: 155


Предлагаю в конце программы, там где объявляются команды дописать следующее

Код:
[Выделить все]
(defun C:Й () (QUICKDRAW nil))
(defun C:ЙГШСЛВКФЦ () (QUICKDRAW nil)) 
(defun C:ЙК () (QUICKDRAW t))
Это позволит вызвать команду не зависимо от выбранной раскладки...
Спасибо за вашу программу
Mikka вне форума  
 
Непрочитано 16.06.2010, 17:39
#79
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Пользуюсь ещё первой версией программы. И надо сказать что очень доволен. Добавил комаду в ShortcutMenu и она у меня всегда под рукой, на правой кнопке мыши.
Valery Brelovsky вне форума  
 
Непрочитано 01.09.2010, 16:18
#80
Влад

Инженер-конструктор
 
Регистрация: 30.08.2003
Новосибирск
Сообщений: 76
<phrase 1=


Лисп отличный!!! Постоянно использую. Вопрос к автору. Возможно ли научить этот лисп работать с СПДС объектами?
__________________
Ты можешь выслушать и принять к сведению десятки хороших советов, но действовать будешь САМ
Влад вне форума  
 
Автор темы   Непрочитано 01.09.2010, 22:59
#81
VVA

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


Думаю что скорее всего нет. Здесь на форуме есть разработчики, можно попробовать им задать вопрос. Я не имею опыта работы с СПДС.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 28.10.2010, 11:13
#82
MeshIN

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


Отличная программа - после обновления Bricscad до версии V11 стала работать и в нем.
MeshIN вне форума  
 
Непрочитано 21.02.2011, 11:20
#83
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


Уважаемый VVA!
А можно ли добавить возможность создания объектов "Autodesk СПДС модуля"?
Nike вне форума  
 
Непрочитано 16.08.2011, 12:09
#84
Largo GT

Архитектор
 
Регистрация: 11.03.2009
Новороссийск
Сообщений: 99


to VVA обнаружил что
Код:
[Выделить все]
 Сообщение AutoCAD
---------------------------
XLINE cannot be used with QUICKDRAW
Если не сложно добавьте пожалуйста поддержку XLINE

Последний раз редактировалось Largo GT, 18.08.2011 в 10:10.
Largo GT вне форума  
 
Автор темы   Непрочитано 23.08.2011, 10:51
#85
VVA

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


Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.08.2011, 11:40
#86
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


Наверное я что то пропустил.
В 2011 и 2012 (не помню но вроде и в 2010) есть команда _addselected - это то же?
Если не то в чем разница, если да то кто у кого стырил?
Jonas вне форума  
 
Автор темы   Непрочитано 23.08.2011, 12:45
#87
VVA

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


Да, похоже это то же.

Цитата:
Сообщение от Jonas Посмотреть сообщение
если да то кто у кого стырил?
Цитата из #1
Цитата:
История:
22.07.2009 - Добавлена обработка временных привязок при установке OSNAPCOORD = 2
02.09.2009 - Добавлена обработка linetype scale и SPLINE
10.09.2009 - Добавлена обработка Mtext и Table
09.11.2009 - Восстановление PLINEWID
...
А если пройтись по ссылке из #1, то там дата 09-01-2005
Вот и сравнивай
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.08.2011, 12:56
#88
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


Цитата:
Сообщение от VVA Посмотреть сообщение
А если пройтись по ссылке из #1, то там дата 09-01-2005
Вот и сравнивай
Так предъявляйте Афтодеску, пускай поделиться прибылью.
Jonas вне форума  
 
Непрочитано 26.08.2011, 12:57
#89
Largo GT

Архитектор
 
Регистрация: 11.03.2009
Новороссийск
Сообщений: 99


Цитата:
Сообщение от VVA Посмотреть сообщение
Обновил #1
спасибо VVA, а autodesk пусть не жадничает
Largo GT вне форума  
 
Непрочитано 21.03.2013, 11:25
#90
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


Цитата:
Сообщение от VVA Посмотреть сообщение
PS. Начиная с 2011 версии появилась аналогичная команда _ADDSELECTED
Недавно обнаружил это дополнение. Попробовал работать и сравнил с работой Лиспа QUICKDRAW. Могу сказать что уступает Лиспу. Первое при работе с блоком задаёт много вопросов по масштабам углу поворота. С лиспом работал с 2009 и когда не было нужды масштабировать блок выбранный по QUICKDRAW. Блок в чертеже имеет уже нужный масштаб, который был определён при первой вставке блока и по QUICKDRAW уже практически нет необходимости. По QUICKDRAW за точкой вставки идёт угол поворота и всё. Работа с полилинией. По QUICKDRAW я черчу аналогичную линию с теми спойствами которые определены в уже нарисованной линии, по _ADDSELECTED линия чертится той толщины которая была определена в предыдущей команде остальноё вроде как надо. При выборе прямоугольника _ADDSELECTED чертит линию QUICKDRAW прямоугольник.
При работе с обычным текстом по _ADDSELECTED текст появляется после написания текста и нажатия ВВод. По QUICKDRAW текст видим как и при работе с командой _текст.
Valery Brelovsky вне форума  
 
Непрочитано 24.02.2014, 02:08
#91
Клетчатый


 
Регистрация: 17.08.2005
Сообщений: 62


В AutoCAD2014/Windows8 программа вызывает этот глюк...
Клетчатый вне форума  
 
Непрочитано 14.10.2015, 14:32
#92
config


 
Регистрация: 20.02.2015
Сообщений: 79


Доброго времени суток! Вопрос к автору, VVA. А нельзя ли в программу добавить черчение по образцу объекта - мультивыноски. Спасибо!
config вне форума  
 
Автор темы   Непрочитано 14.10.2015, 17:30
#93
VVA

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


config, Обновил #1. Пробуй
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.10.2015, 18:36
#94
config


 
Регистрация: 20.02.2015
Сообщений: 79


Цитата:
Сообщение от VVA Посмотреть сообщение
config, Обновил #1. Пробуй
Кто бы сомневался. Как часики. Спасибо огромное за программу! За отзывчивость! За оперативность! Удачи!
config вне форума  
 
Непрочитано 27.03.2022, 21:57
#95
nikkomp


 
Регистрация: 08.09.2013
Сообщений: 21


Здравствуйте просьба кто умеет делать лиспы, на основе этой проги нельзя ли сделать этакую лайт, что бы он только выставлял текущими свойства объекта а чем чертить это уж решал пользователь сам, кто пользовался Vetcad этакий аналог комманды _MOPC_VC
nikkomp вне форума  
 
Автор темы   Непрочитано 28.03.2022, 14:22
#96
VVA

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


Цитата:
Сообщение от nikkomp Посмотреть сообщение
этакий аналог комманды _MOPC_VC
Код:
[Выделить все]
 
 ;_Устанавливает текущими свойства
(defun C:SETPR ( / e1)(if (setq e1 (car(entsel)))(props e1))(princ))
 ;_Восстанавливает значения
(defun C:RP ()(RESTOREPROPS))
Нужны функции из файла, выложенного в #1. Можно добавить в редакторе в конец файла
SETPR - устанавливает свойства
RP - восстанавливает значения
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.09.2022, 13:19
#97
nikkomp


 
Регистрация: 08.09.2013
Сообщений: 21


Цитата:
Сообщение от VVA Посмотреть сообщение
SETPR - устанавливает свойства
RP - восстанавливает значения
Понравилось что можно восстанавливать значение свойств "по слою", но он работает если ты изменил перед этим командой SETPR, а нельзя ли лисп чтобы он восстанавливал значение "по слою" и если изменил текущие свойства вручную через панель
nikkomp вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Быстрое рисование. QUICKDRAW

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ламерские вопросы по LISP и DCL TheBuTeK LISP 7 03.07.2016 22:15
Запуск Lisp команды в новом документе BlackHarp LISP 1 26.03.2009 23:06
LISP на _purge Малюк LISP 12 23.12.2007 18:15
Библиотека доступа к содержимому растров из LISP - существуе kp+ LISP 6 16.10.2007 21:45
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19