|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
30.01.2006, 03:49 | #1 | |
Интересный глюк. Координаты в lispe зависит от zooma?
Минск
Регистрация: 22.11.2005
Сообщений: 63
|
||
Просмотров: 5298
|
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
(defun c:hod ()
(setq t1 (getpoint "\nУкажите базовую станцию ")) (setq t2 (getpoint "\nУкажите ориентрируемую станцию ")) (setq ygol (angle t1 t2)) (setq n (getint "\nВведите количество точек")) (setq i 0) (while (< i n) (setq nomer (getstring "\nВведите номер точки ")) (setq prologenie (getint "\nВведите горизонтальное проложение ")) (setq grad (getreal "\nВведите угол по ГК (градусы и минуты разделять клавишей Enter)")) (setq gmin (getreal)) (setq h (getstring "\nВведите высоту точки ")) (setq GK (+ (/ gmin 60) grad )) (setq GY (* (/ GK 180) pi)) (setq pk (polar t1 (- ygol GY) prologenie)) (setq pkn (list (+ (nth 0 pk) 2 ) (+ (nth 1 pk) 0.5 ))) (setq pkh (list (+ (nth 0 pk) 2 ) (- (nth 1 pk) 2.5 ))) (command "circle" pk 0.1) (command "text" pkn 2.5 0.0 nomer) (command "text" pkh 2.5 0.0 h) (setq i (1+ i)) ) ) вот код. Прожка для геодезии. Может кто еще знает как код упрустить, просто знаний по липу вообще почти нету, первая моя програмка) |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Ну тут наполовину привычка сработала. Кроме того, если дать несколько команд (setq), то они быстрее выполняются, если сделаны как я показал...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Гхм... В каком каде проверяешь? Русском или не совсем? В любом случае - мне оторвать дурную головенку, а тебе подправить все (command) на следующее:
(command "_.circle" pk 0.1) (command "_.text" pkn 2.5 0.0 nomer) (command "_.text" pkh 2.5 0.0 h) Кроме того, посмотри, для текущего стиля текстового у тебя какая высота? В коде не отслеживается высота стиля! Так что надо по идее устанавливать высоту в 0.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
В стиле и проблема. Когда использую шаблон с моим стилем, то после запроса на координаты text сразу идет угол а не высота. У меня в шаблоне высота 5, и программа значение 2.5 устанавливает как угол, а не как высоту текста. Если загружать шаблон acad где стиль стандартный, то все работает. В коде можно как-нибудь это исправить, или стоит мой стиль текста установить высотой 2.5 и убрать это значение из кода?
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Тогда надо проверять высоту:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
Kpblc спасибо! Очень помог) Существует программа аналогичная этой, только донные она берет из базы данных (txt файл создается VBA после рачета полевого журнала). В геодезии очень облегчает построение планов. Если ктонибудь занимается геодезией и его это интересует, обращайтесь. Думаю можно это дело довести до ума (но не с моими знаниями))))) Основа готова, нужно дорабатывать.
Всем спасибо! |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Дык ета... На autocad.ru сколько раз подобные задачи решались... там вся проблема на самом деле в обработке записей txt-файла, поскольку каждый пишет туда свое, да и в последующих пожеланиях - типа поставить текст, а в тексте то-то и то-то, да текст переместить туда-то...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Можно. Я про это постоянно забываю - почему-то пока больше нравится работать через vla-add*. Интереснее получается, да ошибок поменьше
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
Цитата:
|
|||
|
||||
Цитата:
Код:
|
||||