|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
08.06.2009, 11:54 | 7 | | #1 |
LISP. Быстрое рисование. QUICKDRAW
Инженер LISP
Минск
Регистрация: 11.05.2005
Сообщений: 6,990
|
||
Просмотров: 51128
|
|
||||
Изыскания и САПР Регистрация: 05.07.2008
Ижевск
Сообщений: 297
|
Решил повесить команду на кнопку, но что то не работает, вот сам макрос ^C^C(if (null C:<q>)(load "<qickdraw1.lsp>"));<q>; через командную строку все работает
Последний раз редактировалось MeshIN, 16.06.2009 в 18:13. |
|||
|
||||
Так должно работать
^C^C(if (null C:Q)(load "qickdraw1.lsp"));Q;
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
MeshIN, Выложи пример.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
MeshIN, Лисп обновил. Причины такого поведения описаны здесь: На заметку программистам
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
А я не понял, какие команды ты имеешь ввиду.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
1. Нарисуй отрезок синим цветом
2. Выставь текущий цвет красным 3. Набери QR и посмотри, какой остался текущий цвет 4. Набери Q и посмотри, какой остался текущий цвет Цитата из 1-го поста Цитата:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер дорожник Регистрация: 22.10.2007
Израиль
Сообщений: 1,859
|
Тут вскрылась маленькая проблема. Работа с поллиниями. В объектных привязках выставлено пересечение и конечная точка. Мне нужно по образцу поллинии провести поллинию из середины отрезка. Набираю Q выбираю поллинию Shift + правая кнопка мыши из открывшегося меню выбираю к средней точке подвожу курсор к поллинии подсвечивается значок средней точки кликаю кнопку мыши и в итоге получаю привязку начала линии не к середине а к конечной точке. Проблема существовала давно, но не было времени вникнуть в неё. Думал что на на рботе так настроено. Сегодня добил этот вопрос до конца. Это результат использования именно этой программы. При обычном рисовании всё работает нормально. Т.е. выбираю команду поллиния ( при тех же установках привязок и режим привязок включен) всё работает как надо получаю привязку к середине, но если через QUICKDRAW то почему то преимущество разовой привязки не срабатывает.
|
|||
|
||||
Valery Brelovsky, Я проверил на файле из #1 поста, у меня срабатывает как положено (Автокад 2006 RUS). Давай уточним детали:
1. Версия Автокада 2. Значение переменной OSNAPCOORD до вызова Q 3. Значение переменной OSNAP до вызова Q 4. Приложи файлик с полилинией.
__________________
Как использовать код на Лиспе читаем здесь Последний раз редактировалось VVA, 06.08.2013 в 08:57. |
||||
|
||||
Инженер дорожник Регистрация: 22.10.2007
Израиль
Сообщений: 1,859
|
OSNAPCOORD - 2
OSNAP включены привязки к конечной точке и пересечение Версии 2000 и 2009 Вот чертёж. Нужно провести ось дороги через две линии пресекающие дорогу. Участок обведён кругом. Привязку к середине отрезка включаю как разовую. Последний раз редактировалось Valery Brelovsky, 22.07.2009 в 07:26. |
|||
|
||||
__________________
Как использовать код на Лиспе читаем здесь Последний раз редактировалось VVA, 06.08.2013 в 08:57. |
||||
|
||||
Valery Brelovsky, Ничего.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Описание OSNAPCOORD
Цитата:
Что делает лисп: 1. запрашивает точку и ты указываешь середину. 2. Вызывает _pline и передает команде запрошенную точку (середину) при OSNAPCOORD=2 в соответствии с выделенным красным преимущество имеют текущие (пересечение, конточка) объектные привязки. К координате средней точки применяются привязка _endp и ты прыгаешь в конточку. Поэтому я и сказал, что для работы ручками разницы нет.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
реставратор Регистрация: 20.01.2009
Ростов
Сообщений: 5
|
Программка отличная! Спасибо огромное) !
Раньше пробывал программу написанную на ARX с названием auto (она лежит в dawnlode) но чем то она мне тогда не понравилась... этим лиспом пользоваться гораздо удобнее, ИМХО. PS. Интересно, кто-нибудь пробывал повесить ее вызов на двойной щелчок мыши (вместо вызова панели свойств)... если да, то поделитесь опытом, насколько это удобно)
__________________
Да... палитры без поллитры - это сложно:drinks: |
|||
|
||||
Кочетков Андрей, Смогу посмотреть не раньше 31 августа. В отпуске.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131
|
Рад что зашел в эту тему )
Огромнейшая благодарность разработчикам!!!! а можно, пожалуйста, узнать (или скажите где посмотреть списочек объектов с которыми работает данный lisp? а то я вот попробовал сплайн и 3d (куб, политело,...) объекты не хочет повторять! |
|||
|
||||
Djur, Сплайна нет. Добавлю. По поводу 3D: в результате получается объект 3DSOLID. А какой командой был создан - неизвестно.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Кочетков Андрей, Djur, Добавил linetype scale и SPLINE. Обновил #1
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 24.05.2009
Екатеринбург
Сообщений: 86
|
Спасибо за программу!
А все же просьба по DText осталась без ответа, хотелось бы за один прием и Mtext не понимает. С таблицами можно что-нибудь придумать, примерно, как с блоками. Да, с безымянными блоками проблема, не находит. А выноски?! А так все хорошо! |
|||
|
||||
Регистрация: 19.08.2009
Сообщений: 19
|
Спасибо за программу
пробую с прямоугольником получаю следующее Команда: QDR Pick a first point of polyline or [Pline/REctang/R3P] <Pline> :RE _.PLINE Начальная точка: nil и дальше работаю с полилинией. а вроде как должен с прямоугольником? и хотелось бы иметь возможность работать с многогранником (_polygon) Как исправить?? перед использование программы стоит слой1 после ее применения устанавливается слой принадлежащий обекту а можно сделать так чтобы возращала первоначальный слой1 ? |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Прямоугольник (да и многогранник тоже) есть полилиния.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Java/Kotlin backend Регистрация: 03.02.2006
Сообщений: 5,736
|
|
|||
|
||||
tov, Я еще раз проверил, по опции RE вызывается прямоугольник (polygon), в команде QR слой восстанавливается. Скачай код заново и попробуй еще раз. Если не получится перешли мне код на почту с указанием версии Автокада
Уточнение: Для воостановления слоя нужно использовать QR, а не Q. Команда QDR - временная. Формируется динамически командами Q или QR. Предназначена для повтора последнего действия по Enter или пробелу.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 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 Следующая точка или [Дуга/Полуширина/длИна/Отменить/Ширина]: Следующая точка или [Дуга/Замкнуть/Полуширина/длИна/Отменить/Ширина]: |
|||
|
||||
Остекляем!!! Алюминим!!! Регистрация: 21.02.2005
Москва
Сообщений: 3,825
|
tov, а вроде все ясно
Цитата:
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search: |
|||
|
||||
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. |
|||
|
||||
Добавил DTEXT, MTEXT и TABLE
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 24.05.2009
Екатеринбург
Сообщений: 86
|
VVA Спасибо, что ответили!
"Добавил DTEXT, MTEXT и TABLE" Но, это не совсем то, что нужно. вот бы с вашей программой скрестить простой макрос *^C^C_Copy;\;@;\_Ddedit;_Last;; который очень удобен для работы с любым текстом, и не только, он подходит для простого копирования растров (Image) и ссылок (Xref) и т.д., которые ваша программа пока не распознает. |
|||
|
||||
Регистрация: 19.08.2009
Сообщений: 19
|
VVA
попробовал лисп в AutoCAD 2006 прямоугольник и n-угольник не рисует только полилинию Уточнится при рисование размеров через функцию QUICKDRAW не наследуется Глобальный масштаб размеров(DimScale) в AutoCAD 2009 Версия C.56.0 (UNICODE) это только у меня или не заложено в лиспе ?? |
|||
|
||||
Java/Kotlin backend Регистрация: 03.02.2006
Сообщений: 5,736
|
Цитата:
|
|||
|
||||
инженер строитель Регистрация: 01.03.2007
ISRAEL
Сообщений: 39
|
VVA
Спасибо за прекрасный Lisp много лет работал под Lisp который написал сам для 12 Autocad, но ваш, на уровень выше протестировал на тех элементах которые употребляю чаще всего- все работает нормально заметил только одну погрешность: при polyline с измененной толщиной, он рисует poly с нужной толщиной, но при выходе из команды не меняет значение переменной на 0. если можно, подкорректируйте пожалуйста заранее благодарен |
|||
|
||||
roman56, Спасибо за дефектацию. Исправил.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Остекляем!!! Алюминим!!! Регистрация: 21.02.2005
Москва
Сообщений: 3,825
|
VVA еще замечание, не наследует свойства из размеров измененных вручную, (например изменен тип стрелки для радиуса).
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search: |
|||
|
||||
Исправил
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Кочетков Андрей,
Рискует, но выхода я пока не вижу
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Шаражпроектхалтурмонтаж Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989
|
Можно хотя-бы предупреждающее сообщение вывести, если высота текста в образцовой табличке значительно (например в десятки и больше раз) превышает высоту текста, определенную в соответствующем стиле. Хотя.. ерундень какая-то.. заморочки лишние
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
А чему равна lunits?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Тьфу, черт, переклинило меня не lunits, а luprec - точность отображения.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Цитата:
Кочетков Андрей, Пофиксил (надеюсь)
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер по теплоснабжению Регистрация: 10.04.2010
РБ, г. Могилев
Сообщений: 25
|
Присоединяюсь ко всем восхищенным пользователям этого лиспа ... Спасибо, VVA, чудное творение...
Но тоже хотелось бы предложить сделать работу с текстом по принципу макроса, насколько это возможно... А можно добавить в код возможность работы с мультилинией... ? я много их использую, было бы просто супер... А еще у меня есть пара несложных динамических блоков с параметром выравнивания... и при использовании Q выдает такой текст... ActiveX Server возвратил ошибку: Неверный индекс акад 2008 русский Последний раз редактировалось CAHTEXHuK, 13.05.2010 в 22:53. |
|||
|
||||
Ну надо же, какое совпадение! Только вчера как раз обнаружил и решил такую же проблему.
Все дело оказалось вот в этой функции (использовал ее в своей программе): Код:
Код:
|
||||
|
||||
Реально. См. #1
Цитата:
Код:
__________________
Как использовать код на Лиспе читаем здесь Последний раз редактировалось VVA, 07.06.2010 в 17:06. Причина: Изменения в GetDynamicBlockPropertyList (синие) |
||||
|
||||
Кочетков Андрей, Вышли пример на почту. Что-то я не могу смоделировать ситуацию
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Добавил обработку True Color
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер-конструктор Регистрация: 30.08.2003
Новосибирск
Сообщений: 76
|
Лисп отличный!!! Постоянно использую. Вопрос к автору. Возможно ли научить этот лисп работать с СПДС объектами?
__________________
Ты можешь выслушать и принять к сведению десятки хороших советов, но действовать будешь САМ |
|||
|
||||
Думаю что скорее всего нет. Здесь на форуме есть разработчики, можно попробовать им задать вопрос. Я не имею опыта работы с СПДС.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Обновил #1
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Да, похоже это то же.
Цитата из #1 Цитата:
Вот и сравнивай
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер дорожник Регистрация: 22.10.2007
Израиль
Сообщений: 1,859
|
Недавно обнаружил это дополнение. Попробовал работать и сравнил с работой Лиспа QUICKDRAW. Могу сказать что уступает Лиспу. Первое при работе с блоком задаёт много вопросов по масштабам углу поворота. С лиспом работал с 2009 и когда не было нужды масштабировать блок выбранный по QUICKDRAW. Блок в чертеже имеет уже нужный масштаб, который был определён при первой вставке блока и по QUICKDRAW уже практически нет необходимости. По QUICKDRAW за точкой вставки идёт угол поворота и всё. Работа с полилинией. По QUICKDRAW я черчу аналогичную линию с теми спойствами которые определены в уже нарисованной линии, по _ADDSELECTED линия чертится той толщины которая была определена в предыдущей команде остальноё вроде как надо. При выборе прямоугольника _ADDSELECTED чертит линию QUICKDRAW прямоугольник.
При работе с обычным текстом по _ADDSELECTED текст появляется после написания текста и нажатия ВВод. По QUICKDRAW текст видим как и при работе с командой _текст. |
|||
|
||||
Регистрация: 17.08.2005
Сообщений: 62
|
В AutoCAD2014/Windows8 программа вызывает этот глюк...
|
|||
|
||||
config, Обновил #1. Пробуй
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 08.09.2013
Сообщений: 21
|
Здравствуйте просьба кто умеет делать лиспы, на основе этой проги нельзя ли сделать этакую лайт, что бы он только выставлял текущими свойства объекта а чем чертить это уж решал пользователь сам, кто пользовался Vetcad этакий аналог комманды _MOPC_VC
|
|||
|
||||
Код:
SETPR - устанавливает свойства RP - восстанавливает значения
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Регистрация: 08.09.2013
Сообщений: 21
|
Понравилось что можно восстанавливать значение свойств "по слою", но он работает если ты изменил перед этим командой SETPR, а нельзя ли лисп чтобы он восстанавливал значение "по слою" и если изменил текущие свойства вручную через панель
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ламерские вопросы по 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 |