[АлексЮстасу]

Создаю динамический блок рамки листа топографического плана с координатной сеткой. В общем случае (не обязательно ведь стандартная разграфка) координаты углов листов не всегда кратны 100 м (200 м и т.д.). Но координатная сетка должна быть всегда кратна 100 (200 и т.д.).
Можно как-то сделать так, чтобы линии координатной сетки после вставки блока всегда сразу оказывались на своих местах?

[n0str0m0]

Может не совсем понял тебя, но глянь файлик. Точку вставки не посталил в одном из углов потому, что в этом блоке собраны все форматы листов за исключением А4, так что перемещать планшет придется вручную. Может позже доведу до ума

[АлексЮстасу]

Сообщение от n0str0m0 Может не совсем понял тебя, но глянь файлик. Точку вставки не посталил в одном из углов потому, что в этом блоке собраны все форматы листов за исключением А4, так что перемещать планшет придется вручную. Может позже доведу до ума

Да, в принципе - вроде этого.
Только есть ли возможность, чтобы, воткнув блок куда бы то ни было, линии координатной сетки всегда сами отрисовывались бы кратными 100 м (200 м и т.п.)? В том смысле, что не через 100 м или т.п. друг относительно друга. А чтобы их координаты были кратными 100 м и т.п., т.е. относительно начала координат.

[n0str0m0]

Боюсь, что это невозможно. Получится, что у блока будет две точки вставки, одна постоянная, а вот другая плавающая(таковой, по моему, не существует), что невозможно в принципе (если я не прав, прошу поправить). Гораздо проще накинуть на весь чертеж сетку заранее, а вот форматку без сетки ставить уже где душе угодно. Только вот подписывать координаты сетки будешь вручную. В моем же блоке подписи координат динамические, только после вставки не забудь регенерировать чертеж

[АлексЮстасу]

Сообщение от n0str0m0 Боюсь, что это невозможно. Получится, что у блока будет две точки вставки, одна постоянная, а вот другая плавающая(таковой, по моему, не существует), что невозможно в принципе (если я не прав, прошу поправить). Гораздо проще накинуть на весь чертеж сетку заранее, а вот форматку без сетки ставить уже где душе угодно. Только вот подписывать координаты сетки будешь вручную. В моем же блоке подписи координат динамические, только после вставки не забудь регенерировать чертеж

Ну, да, хотелось бы найти способ, чтобы сетка отстраивалась внутри рамки, но кратной 100 м относительно начала координат.
Сейчас такую точку с координатами, кратными 100 м, ближайшую к точке вставки, приходится отстраивать вручную, и к ней уже привязывать линии сетки координат (см. приложение. Вид подписей определял заказчик).

[n0str0m0]

Повторюсь, невозможно сделать блок, даже динамический, с двумя точками вставки, попробуй на самом простом примере, кружок там, точка вставки - центр и непосредственно на самой окружности. Я даже не понял, как твой блок работает, работа почти титаническая, но - тупиковая. Только создавать слой с сеткой по всему чертежу, а рамку ставить куда необходимо. Тоже хотел создать нечто подобное, но вот остановился на варианте, который привел в своем примере.

[АлексЮстасу]

Сообщение от n0str0m0 Повторюсь, невозможно сделать блок, даже динамический, с двумя точками вставки, попробуй на самом простом примере, кружок там, точка вставки - центр и непосредственно на самой окружности. Я даже не понял, как твой блок работает, работа почти титаническая, но - тупиковая. Только создавать слой с сеткой по всему чертежу, а рамку ставить куда необходимо. Тоже хотел создать нечто подобное, но вот остановился на варианте, который привел в своем примере.

Точки вставки достаточно одной - в углу плашета. Ведь сетку нужно построить не вообще, а в границе планшета. Т.е. какими-то инструментами (что и есть вопрос-мечта) определить ближайшую к углу точку внутри планшета с координатами, кратными 100 м, и от них построить координатную сетку.
Ничего титанического в блоке совешенно нет - обычный Array. Благодаря ему сетка сама отстраивается сейчас только в границах планшета.
"Тупиковая"? А куда ж мне деваться, если разграфку на планшеты мне выдают привязанной к произвольной точке - чтобы удобнее им было разграфить объект?
Наоборот. С помощью такого блока можно выдать координатную сетку для любой разграфки - не только для углов рамок, координаты которых кратны 100.
Если же добавить еще растягивание рамки по осям, то получится блок и для планшета любого размера-формата.

[n0str0m0]

Сообщение от АлексЮстасу Точки вставки достаточно одной - в углу плашета. Ведь сетку нужно построить не вообще, а в границе планшета. Т.е. какими-то инструментами (что и есть вопрос-мечта) определить ближайшую к углу точку внутри планшета с координатами, кратными 100 м, и от них построить координатную сетку.

Вот и получается, что одна точка вставки для планшета, а другая для сетки. А почему просто слой с сеткой по всему чертежу тебя не устраивает? Из-за автоматических подписей координат? Можно было бы применить шаговую привязку через 100 м, но она будет распространяться и на планшет тоже
Если у тебя акад 2010 или 2011, попробуй параметризацию, авось там что нароешь.

[АлексЮстасу]

Сообщение от n0str0m0 А почему просто слой с сеткой по всему чертежу тебя не устраивает? Из-за автоматических подписей координат? Можно было бы применить шаговую привязку через 100 м, но она будет распространяться и на планшет тоже Если у тебя акад 2010 или 2011, попробуй параметризацию, авось там что нароешь.

Слой с сеткой по всему чертежу - это как? Бесконечного размера? Типа бесконечных прямых?
Вообще - мы сдаем продукцию почти всегда в файлах на каждый планшет отдельных.

О параметризации я еще не в курсе. Но у большинства заказчиков , смежников и исполнителей сейчас еще Автокад 2006-2008.

[ShaggyDoc]

Точки вставки достаточно одной - в углу плашета. Ведь сетку нужно построить не вообще, а в границе планшета. Т.е. какими-то инструментами (что и есть вопрос-мечта) определить ближайшую к углу точку внутри планшета с координатами, кратными 100 м, и от них построить координатную сетку.

Чего тут голову ломать-то? Если это планшет, то он имеет строго определенную рамку, зарамочное оформление и внутреннюю сетку. Могут отличаться в зависимости от масштаба, но масштабов немного (1:500, 1:1000, 1:2000, 1:5000, а дальше уже "трапеции" идут).

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

Точку вставки такого блока - в левом нижнем углу внутренней рамки.

Вставлять такой блок нужно в строго определенное место, не привязкой к произвольно начерченному плану, а в точку, полагающауюся этому планшету по разграфке города. Все кресты станут на свои места. А если вдруг почему-то и план был в правильных координатах начерчен - и план внутри рамки будет. Это при вставке рамки в пространстве модели.

Если рамка в пространстве листа, то надо делать видовой экран с правильными координатами и размерами.

Если же не планшет, а произвольный план ("выкопировка"), то сетка крестиков легко рисуется простой программой, для которой достаточно указать одну точку с известными координатами и габаритный прямоугольник для крестиков. Или не прямоугольник, а многоугольник, хотя лишние крестики легче стереть.

[АлексЮстасу]

Сообщение от ShaggyDoc Чего тут голову ломать-то? Если это планшет, то он имеет строго определенную рамку, зарамочное оформление и внутреннюю сетку. Могут отличаться в зависимости от масштаба, но масштабов немного (1:500, 1:1000, 1:2000, 1:5000, а дальше уже "трапеции" идут). Делаешь один, обычный, нединамический блок на каждый масштаб. Лучше с атрибутами зарамочного оформления, номером планшета и прочим, например координатами углов. Они на каждом планшете отображаются. И, конечно, с координатной сеткой из крестиков. Точку вставки такого блока - в левом нижнем углу внутренней рамки. Вставлять такой блок нужно в строго определенное место, не привязкой к произвольно начерченному плану, а в точку, полагающауюся этому планшету по разграфке города. Все кресты станут на свои места. А если вдруг почему-то и план был в правильных координатах начерчен - и план внутри рамки будет. Это при вставке рамки в пространстве модели. Если рамка в пространстве листа, то надо делать видовой экран с правильными координатами и размерами. Если же не планшет, а произвольный план ("выкопировка"), то сетка крестиков легко рисуется простой программой, для которой достаточно указать одну точку с известными координатами и габаритный прямоугольник для крестиков. Или не прямоугольник, а многоугольник, хотя лишние крестики легче стереть.

Заказчики часто хотят свои кусочки местности просто увидеть на наименьшем числе листов (или планшетов). И разграфка их кривого-косого участка местности тогда может оказаться ну с совершенно нестандартными координатами. И размер листов (планшетов) зачастую бывает тоже достаточно странным.
А многие заказчики (зарубежные - в том числе) хотят и нестандартное оформление. Например, хотят линии координатной сетки вместо крестов.
Конечно же, хорошая программка часто лучше других способов. Если она уже есть, или если бы уметь их писать.
С другой стороны, динамические блоки - это же и есть программирование в специфическом, адаптированном для непрограммистов виде.
Программу же, которая расставляла бы в границах планшета (листа, трапеции - как скажете) координатные кресты или рисовала бы координатную сетку, было бы ценно иметь. Которая бы расставляла координатные кресты (чертила бы сетку) вне зависимости от того, стандартная разграфка или нет, развернуты листы (планшеты или т.п.) или нет. Ведь часто для линейных объектов (трубопроводов, ЛЭП, дорог и т.п.) требуется разворачивать каждый лист (планшет) на свой уникальный угол вдоль оси объекта съемки.
Если есть такая открытая программка, то поделитесь.

[n0str0m0]

Сообщение от АлексЮстасу Программу же, которая расставляла бы в границах планшета (листа, трапеции - как скажете) координатные кресты или рисовала бы координатную сетку, было бы ценно иметь. Которая бы расставляла координатные кресты (чертила бы сетку) вне зависимости от того, стандартная разграфка или нет, развернуты листы (планшеты или т.п.) или нет. Ведь часто для линейных объектов (трубопроводов, ЛЭП, дорог и т.п.) требуется разворачивать каждый лист (планшет) на свой уникальный угол вдоль оси объекта съемки. Если есть такая открытая программка, то поделитесь.

Ну собственно Сивил при проектировании трасс и трубопроводов позволяет планшеты произвольно поворачивать по трассе. А в геониксе есть автоматическая разбивка на планшеты с возможностью правки каждого из них, то есть расстановки оных как необходимо, со всем зарамочным оформлением согласно ГОСТа. Есть и разбивка на топопланшеты и многое другое для топографов и геодезистов.

[ShaggyDoc]

И разграфка их кривого-косого участка местности тогда может оказаться ну с совершенно нестандартными координатами

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

А многие заказчики (зарубежные - в том числе) хотят и нестандартное оформление. Например, хотят линии координатной сетки вместо крестов.

Ну так нарисуйте для извращенцев нестандартное оформление. Линии вместо крестов "и сбоку бантик". Все в блоке.

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

Кресты (сетка) всегда "стандартна". Если планшет - её надо делать в блоке вместе с рамкой. Планшет никогда не поворачивается, кресты показывают направление параллелей-меридианов.

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

Если есть такая открытая программка, то поделитесь

Да сделай блок крестика и вставляй массивом.

А программа вот:

Код:

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

(defun start (/          bn         is_x_on_nord          l
              lx         ly         mm_05      number_x_pnt
              number_y_pnt          nx         ny         pnt_00
              pnt_start_grid        txt_x      txt_y      x
              x_scale    y          y0
             )
  (ru-app-begin)
  (setq bn      "ru_cross_unit"
        x_scale (ru-conv-millimeter-in-paper-to-unit 5.0)
        mm_05   (ru-conv-millimeter-in-paper-to-unit 0.5)
  ) ;_ end of setq
  (if (ru-block-lib-insert "common\\ru-lib-common" bn)
    (progn
      (ru-msg-alert
        "Внимание! Сетка координат всегда создается в мировой системе!"
      ) ;_ end of ru-msg-alert
      (command "_.UCS" "_W")
      (setvar "orthomode" 0)
      (setq pnt_00         (list 0 0)
            l              100.0
            is_x_on_nord
                           (ru-conv-str-to-bool
                             (ru-ini-read-default NIL "Setup" "X_axis_North" "1")
                           ) ;_ end of =

            pnt_start_grid (ru-get-point-reguired
                             "Укажи левый нижний угол сетки"
                             pnt_00
                           ) ;_ end of ru-get-point-reguired
            y0             (cadr pnt_start_grid)
            x              (car pnt_start_grid)
            y              y0
            l              (ru-conv-unit-to-meter
                             (ru-conv-millimeter-in-paper-to-unit
                               (ru-get-dist
                                 "\nШаг изображаемых пересечений сетки, мм на бумаге: "
                                 l
                                 pnt_start_grid
                               ) ;_ end of ru-get-dist
                             ) ; _ end of
                              ; ru-conv-millimeter-in-paper-to-unit
                           ) ;_ end of ru-conv-unit-to-meter
            ly             (* 0.7 (getvar "viewsize"))
            lx             (ru-conv-unit-to-meter
                             (ru-get-dist
                               "\nДлина площадки по оси Х: "
                               (* 1.5 ly)
                               pnt_start_grid
                             ) ;_ end of ru-get-dist
                           ) ;_ end of ru-conv-unit-to-meter
            ly             (ru-conv-unit-to-meter
                             (ru-get-dist
                               "\nДлина площадки по оси Y: "
                               ly
                               pnt_start_grid
                             ) ;_ end of ru-get-dist
                           ) ;_ end of ru-conv-unit-to-meter
            nx             (fix (/ lx l))
            ny             (fix (/ ly l))
            l              (ru-conv-meter-to-unit l)
            number_x_pnt   0
            number_y_pnt   0
      ) ;_ end of setq
      (repeat (1+ nx)
        (setq number_x_pnt (1+ number_x_pnt))
        (repeat (1+ ny)
          (setq number_y_pnt (1+ number_y_pnt))
          (if is_x_on_nord
            (setq txt_x (strcat "X="
                                (rtos (ru-conv-unit-to-meter Y) 2 0)
                        ) ;_ end of strcat
                  txt_y (strcat "Y="
                                (rtos (ru-conv-unit-to-meter X) 2 0)
                        ) ;_ end of strcat
            ) ;_ end of setq
            (setq
              txt_x (strcat "X="
                            (rtos (ru-conv-unit-to-meter X) 2 0)
                    ) ;_ end of strcat
            ) ;_ end of setq
          ) ;_ end of if
          (princ (strcat "\nРисую "
                         (itoa number_x_pnt)
                         "-ю колонку, "
                         (itoa number_y_pnt)
                         "-й ряд.. "
                 ) ;_ end of strcat
          ) ;_ end of princ
          (princ (strcat txt_x ", " txt_y ". "))
          (ru-block-insert-obj
            bn
            (list X Y)
            x_scale
            x_scale
            x_scale
            0
          ) ;_ end of ru-block-insert-obj
          (if is_x_on_nord
            (progn
              (ru-text-add
                txt_y
                (list (- x mm_05) (+ Y mm_05))
                (ru-normal-text-height)
                (ru-geom-go-left 0)
                nil
              ) ;_ end of ru-text-add
              (ru-text-add
                txt_x
                (list (+ x mm_05) (+ Y mm_05))
                (ru-normal-text-height)
                0
                nil
              ) ;_ end of ru-text-add
            ) ;_ end of progn
            (progn
              (ru-text-add
                txt_x
                (list (- x mm_05) (+ Y mm_05))
                (ru-normal-text-height)
                (ru-geom-go-left 0)
                nil
              ) ;_ end of ru-text-add
              (ru-text-add
                txt_y
                (list (+ x mm_05) (+ Y mm_05))
                (ru-normal-text-height)
                0
                nil
              ) ;_ end of ru-text-add
            ) ;_ end of progn
          ) ;_ end of if
          (setq Y (+ Y l))
        ) ;_ end of repeat
        (setq y y0
              number_y_pnt
               0
              X (+ x l)
        ) ;_ end of setq
      ) ;_ end of repeat
      (command "_.UCS" "_P")
      (princ
        "\n Готово! Ненужные тексты координат можно стирать! "
      ) ;_ end of princ
    ) ;_ end of progn
  ) ;_ end of if
  (ru-app-end)
  (princ)
) ;_ end of defun
(START)

Только ей не воспользуешься, требуются библиотечные функции. Это часть большой связанной системы. Но принцип понять можно.

Если она уже есть, или если бы уметь их писать.

Или приобретать. Программы для топографического черчения в десятки раз повышают производительность труда. У нас на насышенный планшет городской застройки М1:500 норма времени 22.4 чел-часа.

[АлексЮстасу]

Сообщение от n0str0m0 Ну собственно Сивил при проектировании трасс и трубопроводов позволяет планшеты произвольно поворачивать по трассе. А в геониксе есть автоматическая разбивка на планшеты с возможностью правки каждого из них, то есть расстановки оных как необходимо, со всем зарамочным оформлением согласно ГОСТа. Есть и разбивка на топопланшеты и многое другое для топографов и геодезистов.

Сообщение от ShaggyDoc Программы для топографического черчения в десятки раз повышают производительность труда.

Всячески согласен. Потому и здесь.
Еще слышал, что под палящим краснодарским солнцем в ИнжГЕО тоже ваяли свой топографически ориентированный программный продукт под Автокад. Но подробности, увы, неизвестны.
Очень хотелось бы полноценный продукт иметь, но лишенный местнического и узко-личностного понимания топографии и картографии.
Но ведь и динамические блоки тоже многое могут.
Да, чаще всего координатные кресты вставляют массивом. И сетку тоже массивом или офсетом.
Но сколько пришлось повидать неправильно вставленных, пропущенных, лишних координатных крестов!..
В гипотетическом блоке же они могли бы быть всегда правильными, и были бы всегда в нужном комплекте. На то и блок. Если возможно такой сделать.

[n0str0m0]

Прилагаю еще один файл. Вкладки рельеф и топоплан сделаны полностью автоматически, в том числе и подписи, в Геониксе. Вручную указал только границу разбивки и размер планшета. Думаю, это бы частично решило твои проблемы.

[ShaggyDoc]

Сообщение от n0str0m0 Прилагаю еще один файл. Вкладки рельеф и топоплан сделаны полностью автоматически, в том числе и подписи, в Геониксе. Вручную указал только границу разбивки и размер планшета. Думаю, это бы частично решило твои проблемы.

Давайте покритикую немного. В целом всё сделано правильно и является хорошей иллюстрацией принципиально верного оформления и планшетов, и "вырезок". Модель местности - на вкладке Model, оформление - во вкладках пространства листа. При необходимости можно сделать и планы более мелкого или более крупного масштабов.

Однако есть "нюансы, панимашь ли". Видимо это вызвано именно работой Геоникс. Возможно у него остались атавизмы еще от Автокад-14.

1. Для полностью грамотной работы, совпадающей с концепцией AutoCAD необходимо на каждый печатный лист делать свою вкладку, полностью готовую для печати. Это позволяет автоматизировать уже следующие операции, например саму печать через подшивки. Т.е. в данном примере могли бы быть пять вкладок с листами планшетов и пять - с листами рельефа. На каждой вкладке лист должен быть в зоне печати. А в примере они аккуратно разложены программой "рядами и колоннами". Теперь для печати каждого листа надо индивидуально 10 раз задавать окно печати.

Т.е. Геоникс, по идее, должен бы сам создавать вкладки и оформлять их правильно. В идеале - еще и вместе с подшивкой.

2. На планшетах нет важной информации - координат углов. А они требуются по "Условным знакам....". Перетасуйте планшеты - получите "puzzle". И не всегда удастся их правильно совместить по визуальному содержанию. Это недоработка программы, а ведь она "знает" координаты углов, раз вписывает в них содержимое.

А в целом пример хороший, наглядная иллюстрация "крестиков". Жалко, там нет варианта листа с повернутым содержанием. Но в то же вемя и пример "местнического" подхода - "а мы всегда делаем так". Хотя я хорошо понимаю программистов Геоникс почему именно они так сделали программу

[n0str0m0]

Сообщение от ShaggyDoc Жалко, там нет варианта листа с повернутым содержанием.

Никогда не занимался трассами и сетями, просто видел в сивиле такую возможность.

Сообщение от ShaggyDoc На планшетах нет важной информации - координат углов. А они требуются по "Условным знакам....". Перетасуйте планшеты - получите "puzzle". И не всегда удастся их правильно совместить по визуальному содержанию. Это недоработка программы, а ведь она "знает" координаты углов, раз вписывает в них содержимое.

я на этом зубы сломал. к сожалению, мой пример в посте 2 с автоматическим подписыванием координат сетки работает только в пространстве модели. а вот в пространстве листа своя система координат и автоподписи там я так и ниасилил. Может кто подскажет?

[АлексЮстасу]

Сообщение от n0str0m0 Никогда не занимался трассами и сетями, просто видел в сивиле такую возможность. я на этом зубы сломал. к сожалению, мой пример в посте 2 с автоматическим подписыванием координат сетки работает только в пространстве модели. а вот в пространстве листа своя система координат и автоподписи там я так и ниасилил. Может кто подскажет?

Да, как сделать атрибут, который при вставке блока в лейауте считывал бы координаты из модели? Это был и мой следующий, еще не заданный вопрос

[n0str0m0]

Сообщение от АлексЮстасу Да, как сделать атрибут, который при вставке блока в лейауте считывал бы координаты из модели? Это был и мой следующий, еще не заданный вопрос

Я ответа так и не нашел, может тебе удасться. Где-то здесь на форуме была моя тема по этому поводу, найти не могу

[АлексЮстасу]

Сообщение от n0str0m0 Я ответа так и не нашел, может тебе удасться. Где-то здесь на форуме была моя тема по этому поводу, найти не могу

А не запрещено тупо посадить лейаут на нужные координаты?