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

Тема в разделе "Исходные данные", создана пользователем sicmike, 13 дек 2011.

  1. SVP

    SVP Форумчанин

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

    ANAT01 Форумчанин

    Вот код лиспа для автокад:
    Код:
    (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 сек
     
  3. adon73

    adon73 Форумчанин

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

    sanput Форумчанин

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

    X-Y-H Администратор Команда форума

  6. max7

    max7 Форумчанин

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

    X-Y-H Администратор Команда форума

    max7, яндекс натрави ::wink24.gif::
     
  8. ANAT01

    ANAT01 Форумчанин

    Как подобное организовать в 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 не трансформирует текст :( )
     
  9. dabbad

    dabbad Форумчанин

    Так:
    "Мое преобразование", 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
    Границы от минус миллиона до плюс миллиона подкорректируйте, конечно, под свой район работ.
     
  10. Kubik13

    Kubik13 Форумчанин

  11. voda

    voda Форумчанин

    Вопрос к 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
     
  12. ANAT01

    ANAT01 Форумчанин

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

    voda Форумчанин

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

    voda Форумчанин

    Ау геодезисты кто-нибудь может 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
     
  15. voda

    voda Форумчанин

    МСК 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
     
  16. kheylan66

    kheylan66 Форумчанин

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

    Вложения:

    • точки66.txt
      Размер файла:
      174 байт
      Просмотров:
      54
  17. voda

    voda Форумчанин

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

    kheylan66 Форумчанин

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

    kheylan66 Форумчанин

    shelf80, прикольно, сбросьте в личку, если не жалко.
     
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление