| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Продуман Регистрация: 22.02.2007
Питер
Сообщений: 2,840
|
Тоже самое но "направлением":
(defun c:dlf ( / orto napr a len) (setq orto (getvar "orthomode")) (setvar "orthomode" 1) (setq a (getpoint "Начало") len (/ (getreal "Размер") (getvar "dimlfac")) napr (getpoint a "Направление")) (setvar "orthomode" orto) (if (> (nth 0 a) (nth 0 napr)) (command "_dimlinear" a (list (- (nth 0 a) len) (nth 1 a)))) (if (< (nth 0 a) (nth 0 napr)) (command "_dimlinear" a (list (+ (nth 0 a) len) (nth 1 a)))) (if (< (nth 1 a) (nth 1 napr)) (command "_dimlinear" a (list (nth 0 a) (+ (nth 1 a) len)))) (if (> (nth 1 a) (nth 1 napr)) (command "_dimlinear" a (list (nth 0 a) (- (nth 1 a) len)))) )
__________________
Когда в руках молоток все вокруг кажется гвоздями. |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
|
|||
|
||||
Если я правильно понял ваши смутные рассуждения
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
|
|||
|
||||
Код:
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
великий вам респект!!!!!!!! еще один момент - ваша прога спрашивает про пересчет, возможно ли сделать так шоб не спрашивала, а сама догадалась, что если человеки ставят точку кликом, то значит пересчитывать ничего не надо! Хотя ваше прога и так реально превзошла мои ожидания!))) |
|||
|
||||
Только если подскажешь как догадаться, что человеки ставят точку кликом
__________________
Как использовать код на Лиспе читаем здесь |
||||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
|
|||
|
||||
Регистрация: 25.12.2005
Москва
Сообщений: 13,627
|
Все еще меряем пустоту. У меня тоже еще днем был простенький вариант без оптимизации:
Код:
|
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
я часто размер в пустоте рисую - удобно бывает в отдельных случаях, и еще черчу "неправильно"
|
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
|
|||
|
||||
Регистрация: 25.12.2005
Москва
Сообщений: 13,627
|
Рисуете, значит, отрезками, в режиме ORTHO, направление указываете мышью, длины вычислили в уме. Я-то имел в виду "_rectangle". Но пусть так. Строите ведь вы, вычисляя в уме. Другие товарищи интересовались, как именно рисовать в масштабе, не вычисляя в уме. А вас, выходит дело, это не беспокоит. Не беспокоят абсолютные координаты, не беспокоят длины в единицах рисунка. Беспокоят только проставленные размеры?
|
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
|
|||
|
||||
Остекляем!!! Алюминим!!! Регистрация: 21.02.2005
Москва
Сообщений: 3,826
|
Цитата:
Переходите на черчение 1:1. А то на другую работу устроитесь там могут и не дать так извращаться, а вот наказать за задержку материально вполне могут.
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search: |
|||
|
||||
Инженер Регистрация: 23.03.2007
Уфа
Сообщений: 197
|
Цитата:
Ну да ладно, тема то не об этом, а о проге которую почти уже написали до конца. Еще чуть чуть осталось. |
|||
|
||||
Остекляем!!! Алюминим!!! Регистрация: 21.02.2005
Москва
Сообщений: 3,826
|
Цитата:
Пойми, что не только один человек работает над проектом, а команда. В другом месте сослуживцы просто пошлют этот проект подальше и все.
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search: |
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Эмуляция нажатия клавиш из под 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 |