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

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

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

Ответ
Поиск в этой теме
Непрочитано 08.06.2009, 11:54 7 |
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.
Просмотров: 51123
 
Автор темы   Непрочитано 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 вне форума  
Ответ
Вернуться   Форум 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