[Kline_Kinder]

Ситуация:
Данные о характерных точках (много их... очень) на местности имеются только в "артиллерийской" системе координат. Т.е. в т.н. "тысячных" (360град=6000 тысячных, направление против часовой)
...Вышло так...
В конторе моей из угломерных приборов тольео компас был ...
докупил буссоль артиллерийскую.
Померял....
Думал перекинуть легко получится.


Посоветуйте пожалста может иначе както решить задачу эту пожно, другими методами
А?..

[GWA18]

Алёооо!!! Среди посетителей форума есть переводчик с одесского на русский?!!

[Vova]

Нашел по слову Артиллерист
http://dwg.ru/forum/viewtopic.php?p=17312#17312

[MIP]

Данные о характерных точках (много их... очень) на местности имеются только в "артиллерийской" системе координат. Т.е. в т.н. "тысячных" (360град=6000 тысячных, направление против часовой) ...Вышло так...

Если я правильно понимаю поставленную задачу, если что пусть автор меня поправит, то необходимо перегнать в чертеж Автокада точки полевой съемки в формате "угол", "расстояние" от какого то базиса (станции съемки), причем особенности ввода угла в том что он задн как "Десятичные градусы", а не градусы секунды минуты. Причем на данный момент для меня не ясно в каком виде существуют эти данные, в виде Текстового файла или на бумаге.
Со своей ссторны могу сказать что в ручную (если бумажный носитель) это удобнее всего будет делать в GeoniCS (специальное приложение под Автокад), а если автоматически (текстовый файл), то надосмотреть в сторону специальных геодезических программ RGS, CREDO и т.п. Но более конкретные рекомендации можно дать когда автор более подроббней раскроет поставленную перед ним задачу, а также какие и в какам виде у него есть исходные данные.

[Kline_Kinder]

Извиняюсь за молчание. Интернет на работе, с утра катался на обект.
Также извиняюсь за невразумительный текст предыдущего поста. Дело в том, что на фоуме впервые, не освоился. С интернетом толькознакомлюсь потихоньку.

Поясню по теме.
...в "артиллерийской" системе координат...
Выразился неверно. Правильно наверно сказать:
в полярной системе координат.
"Тысячная"- мера угла равная одной шеститысячной окружности. т.е.
1 тыс=360градусов/6000=0,06градуса=2*Пи/6000=0,0010471975511965977461542144610932 радиана.

Т.е. координаты точек полеквой съемки в полярной системе координат имеются в формате Угол(в тысячных)/Дистанция(в матрах)
На бумаге, рукописью.

проблема в том что-бы отобразить это счастье в АКАДе

как решить проблему советуют:
Младший шеф "совесть"- сиди пересчитывай екселем
Брат- составить отдельную функцию Лиспа типа С:Функ и повесить ее на кнопку.

[Perezz!!]

В Автокаде есть ввод данных в "артиллерийской" системе координат. Ничего пересчитывать не требуеца.

[Kline_Kinder]

Где!!!!????

Щаз..
Есть :
Геодезические ед.- типа сев широта, восточная долгота, не то
Град/мин/сек- не то
Радианы- не то
Грады- 90градусов=0,5*Пи=100град
Дробные градусы-90,75градуса=90градусов 40мин, не то
Значит не там ищу.

Где искать, ув. Perezz подскажите пожалста.

[Perezz!!]

F1 -> Указатель -> polar coordinates -> entering
-> Enter Polar Coordinates или Overview of Coordinate Entry

или
F1 -> Содержание -> Create and Modify Objects -> Overview of Coordinate Entry -> Use Precision Tools -> Use Coordinates and Coordinate Systems (UCS)

[Krieger]

>Kline_Kinder
Если надо поставить точку в полярных координатах относительно начала координат, вводим команду "_Point" и на запрос координаты вводим следующее:

Код:

[Выделить все]

500<30.5

где 500 - это дистанция, а 30.5 - угол в градусах.

[Kline_Kinder]

Извиняюсь еще раз за собств. неспособность выражать мысли письменно,
но
как я понял в хелпе указано что следует вводить точку в виде ХХ<AAA
где ХХ-единицы измерения длины (допустим миллиметры)
ААА- единицы измерения углов (возможные варианты) в Акаде: Геодезические ед.
Град/мин/сек
Радианы
Грады

Буссоль ПАБ-2Б, ею выполнаялись замеры, выдает углы в этих самых "тысячных" (о тысячных см. выше), а вовсе не в:
Геодезические ед.
Град/мин/сек
Радианы
Грады

Возможно ли "изобрести" т.е. сформулировать АКАДу новую(дополнительную) единицу измерения углов.


К сожалению F1 -> Содержание -> Create and Modify Objects -> Overview of Coordinate Entry -> Use Precision Tools -> Use Coordinates and Coordinate Systems (UCS)
обрывается на
F1 -> Содержание -> Create and Modify Objects
Create and Modify Objects -отсутствует. Выдает
Невозможно отобразить страницу

[Perezz!!]

Извиняюсь еще раз за собств. неспособность выражать мысли письменно

У тебя получилось выразить мысли письменно - я понял твой вопрос. Поздравляю! [sm167]

Собственно, ответ:
Вряд ли мы тут сможем в Кад ввести дополнительную величину измерения угла. Пересчитывай углы в экселе.

[Kline_Kinder]

Чтож, считаю уже.
Решил учится программированию. Дело очень нужное и интересное
Выписал Полещука "... как это делается", за одно грызу со вчерашнего дня парковую дорожку.
Может что есть по программированию LISP для совсем эмбриональной фазы развития программиста?
Не переваривается парковая дорожка.
Клавиши тыкаю а что с чем пока не понятно :? .

Еще раз спасибо за внимание всем.

[Krieger]

Сообщение от Kline_Kinder Чтож, считаю уже. Решил учится программированию. Дело очень нужное и интересное Выписал Полещука "... как это делается", за одно грызу со вчерашнего дня парковую дорожку. Может что есть по программированию LISP для совсем эмбриональной фазы развития программиста? Не переваривается парковая дорожка. Клавиши тыкаю а что с чем пока не понятно :? . Еще раз спасибо за внимание всем.

Ну теперь вроде и я врубился. Лови прогу для проставки точек по этой твоей тысячной системе (ну если это я конечно все правильно понял )

Код:

[Выделить все]

(defun c:tispoint (/ dist angtis anggrad angrad pt1)
       (while (setq 	dist 	(getreal "Укажите дистанцию: "))
	(if (setq angtis	(getreal "Укажите угол в тысячных: ");угол в тысячных
	      anggrad	(* angtis 0.06);переводим в градусы
	      angrad	(* (/ anggrad 180) pi);переводим в радианы
	      pt1	(polar '(0.0 0.0 0.0) angrad dist);переводим в декартову систему
       )
(entmake
	(list
	 '(0 . "POINT")
	 '(100 . "AcDbEntity")
	 '(410 . "Model")
	 (cons 10 pt1)
	 '(100 . "AcDbPoint")
	)
	);end entmake
	  );end if
);end while
  );end defun

[Kline_Kinder]

Огромное спасибо, Krieger!
Прога работает!!!

Маленький баг- отсчет углов в тысячных идет почасовой - исправил!
САМ!
:P Во многом благодаря Вашим подробным комментариям.
Счас буду эксплуатировать, а дома надеюсь обвесить ее дополнительными фишками (выбор точки базы, не только 0,0,0), выделение на отдельный слой под построенные точки, и что-нибудь еще придумаю.

Огромное спасибо еще раз.
АвтоКАД ФОРЕВА!!!!