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

Вернуться   Форум 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.
Просмотров: 51124
 
Непрочитано 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 вне форума  
Ответ
Вернуться   Форум 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