|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
(defun c:test ( / pt pt1);_ основа взята у VVA)
(if (and (setq pt (getpoint "\nНачало первой выносной линии <выход>: ")) (if (setq pt1 (getpoint pt "\nНачало второй выносной линии (с пересчетом dimlfac) <покажу точку без перечсета>: ")) (setq pt1 (polar pt (angle pt pt1)(/ (distance pt pt1)(getvar "dimlfac")))) t ) ) (progn (setvar "texteval" 1) (setvar "cmdecho" 1) (command "_line" "_non" pt ) (if pt1 (command "_non" pt1)) (while (> (getvar "CMDACTIVE") 0)(command pause)) ) ) ) ;_ end of defun |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
я уже сам запутался, хотется уже увидеть не тестовый код , а готовый инструмент. в оригинале VVA прога спрашивает 1) точку начальную 2) цифру или точку с пересчетом или точку без пересчета. Нельзя ли шоб во втором шаге прога запрашивала только цифру или точку без пересчета? |
|||
|
||||
Регистрация: 25.12.2005
Москва
Сообщений: 13,627
|
Вот и думайте, что для вас важнее - нарисовать отрезок в масштабе или проставить размер. Это были бы две разные программы (или три). Однако, чертим мы не только отрезки, но и еще всякие загогулины. Как быть с ними? Будем продолжать в уме или на бумажке (калькуляторе) делить?
|
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
|
|||
|
||||
Я свой вопрос задал в #68
Цитата:
Когда в ответ на (getpoint) ты на клавиатуре вбиваешь цифру (расстояние), то тут используется метод "направление-рассояние". Направление берется по направлению курсора (орто, трассировка или от балды), а расстояние с клавиатуры. В результате getpoint все равно возвращает некую точку не зависимо от того, пнул в некое место экрана мышкой или ввел на клавиатуре. Вот я и спрашиваю, как узнать как юзер эту точку задал? Можно попробовать отслеживать ввод с помошью grread, но там не будут работать объектные привязки. А показывать точки рядом с нужными даже при неправильном способе черчения я особого смысла не вижу.
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Эмуляция нажатия клавиш из под AutoLisp-a | Supermax | LISP | 89 | 19.11.2007 14:40 |
Linetype Scale для слоев | Werwolf | AutoCAD | 17 | 16.07.2007 14:45 |
Dim Scale Overall ??? | Xo66iT | AutoCAD | 7 | 24.03.2006 17:37 |
ACAD2006. Знаки после запятой в окне Viewport Scale Control | =mik= | AutoCAD | 2 | 16.06.2005 10:57 |
zoom scale при выводе на печать | Rauf | AutoCAD | 3 | 22.01.2005 23:43 |