|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
![]() |
Поиск в этой теме |
![]() |
#1 | |
Тахеометрическая съемка
Воркута
Регистрация: 23.03.2006
Сообщений: 10
|
||
Просмотров: 4076
|
|
||||
инженер Регистрация: 13.12.2004
Минск
Сообщений: 496
|
В настройках Едениц рисунка задаешь направление начала отсчета углов и направление, по часов или против, в зависимости от того что нужно, затем настраивашь полярное отсдеживание если есть необходимость в графическом вводе углов. После этого вызываешь команду отрисовки прямых, не отрезков, а именно прямых, указываешь базовую точку и начинаешь делать нужное количество построений.
__________________
Сейчас такая знаний бездна доступна всякому уму, что стало спорить бесполезно и глупо думать самому. |
|||
![]() |
|
||||
строительство Регистрация: 06.02.2006
Эстония
Сообщений: 80
|
Можно воспользоваться также "геодезической системой" отсчета углов по румбам. Для этого в окне Drawing units в разделе Angle в выпадающем меню Type надо выбрать Surveyor's Units. Далее Вы указываете расстояние и угол с указанием направления в румбах.
|
|||
![]() |
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
Попробуй это:
(defun c:hod (/ t1 t2 ygol n i nomer prologenie grad gmin h gk gy pk pkn pkh stname gtvar _osmode_) (if (and (setq t1 (getpoint "\nУкажите базовую станцию: ")) (setq t2 (getpoint "\nУкажите ориентрируемую станцию: ")) ) ;_ end of and (progn (setq ygol (angle t1 t2)) (setq n (getint "\nВведите количество точек: ")) (setq gtvar (cdr (assoc 40 (entget (tblobjname "style" (getvar "textstyle")))))) (setq stname (getvar "textstyle")) (vla-put-height (vla-item (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) stname) 2.5) (setq i 0) (while (< i n) (setq nomer (getstring "\nВведите номер точки: ") prologenie (getint "\nВведите горизонтальное проложение: ") gy (getangle "\nВведите угол по ГК [формат 12d34'56\" ]: ") h (getstring "\nВведите высоту точки: ") pk (polar t1 (- ygol gy) prologenie) pkn (list (+ (nth 0 pk) 2) (+ (nth 1 pk) 0.5)) pkh (list (+ (nth 0 pk) 2) (- (nth 1 pk) 2.5)) _osmode_ (getvar "osmode") ) ;_ end of setq (setvar "osmode" 0) (command "_.circle" pk 0.1) (progn (command "_.text" pkn 0.0 nomer "_.text" pkh 0.0 h );_ end of command ) ;_ end of progn (setvar "osmode" _osmode_) (setq i (1+ i)) ) ;_ end of while (vla-put-height (vla-item (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) stname) gtvar) ) ;_ end of progn ) ;_ end of if ) ;_ end of defun Вроде работало ![]() |
|||
![]() |
|
||||
Регистрация: 23.03.2006
Воркута
Сообщений: 10
![]() |
Можно воспользоваться также "геодезической системой" отсчета углов по румбам. Для этого в окне Drawing units в разделе Angle в выпадающем меню Type надо выбрать Surveyor's Units. Далее Вы указываете расстояние и угол с указанием направления в румбах.
что это я не смогла ![]() а то что посоветовал Stam - не поняла совсем, это команды и что мне с ними делать :?: Можно мне поподробнее объяснить - ПОЖАЙЛУЙСТА мне же просто надо относительно одной очки и направления распределить другие точки по углам и расстояниям [sm1400] |
|||
![]() |
|
||||
Регистрация: 22.11.2005
Минск
Сообщений: 63
|
Первым делом указываются базовая станция, затем станция на которую ориентируют нивелир. Потом указываешь количество точек которые нужно тебе нарисовать и их полярные координаты.
1. Базовая станция 2. Станция, на которую происходит ориентация (от этой линии впоследствие отсчитываются углы по часовой стрелке) 3. Кол-во точек 4. Название точки (номер) 5. ГП 6. Угол в формате 12d34'56\" (12град34'56'') 7. Высота точки Оставь мыло, вышлю файл. Грузишь его с помощью команды appload, а затем в консоли пишеш hod и все должно работать |
|||
![]() |
|
||||
Регистрация: 23.03.2006
Воркута
Сообщений: 10
![]() |
мыло SS.Morozova@vorkuta.severstalgroup.com
В начало координат привязаться не могу так как это планшет с уже пройденными выработками и все привязаны уже к координатам |
|||
![]() |