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

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

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

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

Развитие идеи, изложенной 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 Кб, 310 просмотров)

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

Последний раз редактировалось VVA, 14.10.2015 в 17:30.
Просмотров: 37502
 
Автор темы   Непрочитано 22.07.2009, 19:09
#21
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,800
<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,848


Спасибо большое. Теперь понятно.
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,431


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

Regular Java Developer
 
Регистрация: 03.02.2006
Сообщений: 4,638


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

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


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

Regular Java Developer
 
Регистрация: 03.02.2006
Сообщений: 4,638


Ага спасибо )))
__________________
Приглашаю в мой Телеграм-канал: https://tele.gg/middle_java
Кочетков Андрей вне форума  
 
Непрочитано 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,800
<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,800
<phrase 1= Отправить сообщение для VVA с помощью Skype™


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

Regular Java Developer
 
Регистрация: 03.02.2006
Сообщений: 4,638


Пасиб!
__________________
Приглашаю в мой Телеграм-канал: https://tele.gg/middle_java
Кочетков Андрей вне форума  
 
Непрочитано 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
С.-Петербург
Сообщений: 36,757


Прямоугольник (да и многогранник тоже) есть полилиния.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.09.2009, 15:52
#37
Кочетков Андрей

Regular Java Developer
 
Регистрация: 03.02.2006
Сообщений: 4,638


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

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,800
<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,400
<phrase 1=


tov, а вроде все ясно
Цитата:
Команда: QDR
Pick a first point of polyline or [Pline/REctang/R3P] <Pline>
вот и выбирай REctang
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon на форуме  
Ответ
Вернуться   Форум 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