Пересчет координат в МСК-66

Гугл - наше будущие. Старайтесь все перенести туда

 

Вот код лиспа для автокад:

Код:

(defun c:old2new()
    (setq basept '(123434.432 4234324.434))    ;базовая точка вращения и смещения
    (setq endpt '(323434.432 5234324.434))    ;конечная точка смещения
    (setq scale 0.0000132)                ;масштабный коэффициент
    (setq rotateang 1.20)                ;угол поворота в градусах (ГГ.ГГГГГ)
    ;===============================
    (setq obj (ssget)) ; Выбираем объекты
    (setq point (getpoint)) ; Указываем центр чертежа
    (setq baseline (distance basept point)) ;вычисляет линию от старого центра смещения до нового
    (setq offsetlen (* scale baseline));вычисляет смещение вместо масштаба
    (setq ang (angle basept point));направление для смещения вместо поворота
    (setq scaleoffset  (polar basept ang offsetlen)); координаты смещения вместо масштаба
    (vl-load-com)
    (setvar 'cmdecho 0)
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    (vla-startundomark adoc) ;Отмечает начало блока операций
    (command "._MOVE" obj "" basept scaleoffset "")
    (command "_ROTATE" obj "" basept rotateang "")
    (command "._MOVE" obj "" basept endpt "")
    (vla-endundomark adoc);Отмечает конец блока операций
    (setvar 'cmdecho 1)
    (princ)
)

Отключаем панель свойств (чтобы не тормозило при выделении всех объектов)
Вызываем команду old2new
Выделяем все объекты которые нужно трансформировать
Указываем центр чертежа (это для операции смещения которая служит вместо операции масштабирования)

Файл планшета весом 7мб с 4тыс объектов переворачиваеться <2 сек

 

Спасибо, как понимаю для обратного пересчета нужно добавить аналогичный лисп только с противоположными параметрами?

 

Согласен что гуглом удобнее и практичнее.Но в гугле все коор в WGS-84,поэтому нужна оперативно переводящая во все системы координат программа,с поддержкой гугл планета земля..как геодезер, работающий со спутниковой аппаратурой,все такие вопросы решаю в Topcon Tools.Плюсы программы: универсальный импорт точек с координатами, подгрузка подложек топографических карт,настройка различных систем координат,просмотр точек с проверкой в гугл планета земля,экспорт координат в различных форматах.а с поддержкой гугл и номенклатуры и место посмотреть можно..а маршрут прикинуть лучше подойдут гарминовские или навителовские карты..совмещать только есть некоторые проблемы..в идеале бы накладывать на карты-сотки все новые дороги с с навигаторных карт дорог..Max7,включи свой гениальный мозг,давай решим этот вопрос

 

X-Y-H, расшифруй.

 

Как подобное организовать в Mapinfo?
Можно ли сделать через аффинное преобразование проекции в файле MAPINFOW.PRJ для план-схемы?

Раскрыть Спойлер Свернуть Спойлер

Здесь я вообще не допру никак.
Допустим у меня следующие исходные параметры:

m 1.00001 (масштаб)
α 1.2 (поворот)
X₀₀ 10000 (центр вращения для старой)
Y₀₀ 20000 (центр вращения для старой)
X₀ 3500000 (центр вращения для новой)
Y₀ 450000 (центр вращения для новой)

И согласно этого
Получаем A, B, C, D, E, F

A m cos α 0.362361378
B −m sin α -0.932048406
C X₀ − (A X₀₀ + B Y₀₀) 3515017.354
D m sin α 0.932048406
E m cos α 0.362361378
F Y₀ − (D X₀₀ + E Y₀₀) 433432.2884
Как теперь записать это для план-схемы?
"Имя", аффинное преобразование, метры, A, B, C, D, E, F
"Мое преобразование", 1000, 7, 0.362361378, -0.932048406, 3515017.354, 0.932048406, 0.362361378, 433432.2884
Чтение мануалов и форумов не помогает. Тыкните пальцем!

Если нет то может существуют программы на mapbasic для таких действий как в лиспе?
(Affine для мапинфо не работает. Вернее работает но не все поворачивает. Multi_affine не трансформирует текст :( )

 

Так:
"Мое преобразование", 1000, 7, 7, 0.362361378, -0.932048406, 3515017.354, 0.932048406, 0.362361378, 433432.2884
7 ещё одну нужно ставить перед 6 параметрами аффинного
А ещё лучше вот так:
"Мое преобразование", 3000, 7, 7, 0.362361378, -0.932048406, 3515017.354, 0.932048406, 0.362361378, 433432.2884, -1000000, -1000000, 1000000, 1000000
Границы от минус миллиона до плюс миллиона подкорректируйте, конечно, под свой район работ.

 

http://www.mapbasic.ru/msk66

 

Вопрос к ANAT01 попытался протестировать Лисп автокадовский трансформировались вообще не там
У Х
1

39900.77

30682.001

2

39948.4

30655.397

3

39947.14

30627.689

4

39887.21

30632.287

5

39896.89

30565.717

6

39956.5

30568.899

 

Эээ... Его приготовить сперва надо. В моем лиспе указаны "левые" значения параметров для трансформации(для ваших СК я их не знаю).
Укажите параметры(x1, y1, x2, y2, mashtab, ugol) для вашей СК

и будет вам счастье

 

Вопрос касательно общей темы я из г. Екатеринбурга(а вы ANAT01 из какого города?). Я работаю в местной системе координат и необходимо местную систем координат трансформировать в МСК 66 зона 1.

 

Ау геодезисты кто-нибудь может 6 точек из местной системы(г. Екатеринбурга) перевести в МСК 66 зона 1. Срочно в субботу сдавать уже необходимо.

1. х=30682.001 у=39900.765 2. х=30655.203 у= 39948.397 3. х= 30627.689 у= 39947.135 4. х= 30632.287 у= 39887.21 5. х= 30565.700 у= 39896.892 6. х= 30568.899 у= 39956.505

 

МСК 66 проекция
8, 1001, 7, 60.05, 0, 1, 1500000, -5911057.628 Affine Units "m", 0.999992512, 0.007807588, -1495411.182, -0.007807588, 0.999992512, -338544.626

 

voda, это там ?! Просто хочу проверить, что у тебя получилось и с моими результатами. Какая разница?!

 

Вы довольно таки точно перевели.

 

Помогите пересчитать из СК Дегтярска в МСК66 или просто у кого есть эти пункты в МСК66
пункты по ул.Фурманова
пп8846, 8209.117, 4398.877, 385.649,
пп9113, 8376.360, 4248.755, 363.142,
пп4953, 8055.056, 4515.884, 385.14,

 

у меня есть 3 пункта в мск 66

 

shelf80, прикольно, сбросьте в личку, если не жалко.