заполнение контуров условными знаками

АлексЮстасу · 04.08.2010, 03:47

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

KAI · 04.08.2010, 04:20

Может поможет. Программа MINS_HATCH из пакета KAI-2001.

n0str0m0 · 04.08.2010, 04:22

Такая программа есть. Это Геоникс. Там в панели УТИЛИТЫ есть инструмент ШТРИХОВКА КОНТУРА БЛОКОМ. Выбираешь блок, выбираешь контур, указываешь шаг по Х, шаг по Y, угол штрихования и вперед. Блоки никогда не вылезут на контур, а при изменении контура штриховка тоже изменится, будет заполнять весь новый контур. Очень удобно.
http://www.csoft.ru/catalog/soft/geo...eonics-10.html
или на торренте

MCAD · 04.08.2010, 07:02

В СПДСе есть 2 команды:
spardarray - Массив по области
sppltarray - Раскладка плитки

АлексЮстасу · 04.08.2010, 18:14

Спасибо ответившим

Только покупать или ставить целый пакет из-за одной-двух функций нецелесообразно. Да и наверняка эти функции как-то будут связаны с идеологией пакета, т.е. потребуется что-то дополнительно учитывать, менять (это я про Геоникс).

Хмурый · 04.08.2010, 19:00

_superhatch из комплекта Express Tools опробована?

АлексЮстасу · 04.08.2010, 19:16

Цитата:

Сообщение от Хмурый

_superhatch из комплекта Express Tools опробована?

Пытался. Но моего умища не хватает получить иной результат, кроме зависания Автокада.
superhatch позволит заполнить нерегулярно?

Хмурый · 04.08.2010, 19:18

не позволяет

АлексЮстасу · 04.08.2010, 19:44

Итого: ничего отдельного, самостоятельной программки заполнения площадей условными знаками нет?

VVA · 04.08.2010, 19:44

Цитата:

Сообщение от АлексЮстасу

superhatch позволит заполнить нерегулярно?

Для заполнения superhatch создай третий блок, в котором заполнены только четные или нечетные места матрицы и штрихуй им

АлексЮстасу · 05.08.2010, 04:09

Цитата:

Сообщение от VVA

Для заполнения superhatch создай третий блок, в котором заполнены только четные или нечетные места матрицы и штрихуй им

"третий" - это как? А второй блок какой?

Наконец, получилось хоть раз заполнить

Можно ли задать расстояния (строки/колонки) цифрами, а не прямоугольником?
И блоки все-таки наложились на границу, и обрезались ей. Что в топографии делаться не должно.
Заполнить двумя разными блоками одновременно (например, через один) вроде бы тоже нельзя.

ShaggyDoc · 05.08.2010, 06:39

Цитата:

Сообщение от АлексЮстасу

Итого: ничего отдельного, самостоятельной программки заполнения площадей условными знаками нет?

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

Так что "программки" делай сам. Это просто. Например:

Код:

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

(defun ru-draw-block-hatch (header 
                            block_lib
                            block_name
                            scale
                            dx
                            dy
                            is_chess
                            ang_deg
                            / contour_ent lstbox lstver lx ly nx nxt ny nyt sm t0 tmax tt x x0 xmax y y0 ymax)
    
  ;|
 Штриховка блоком. Аргументы:
 Header	- заголовок
 block_lib       - макроблок
 block_name       - блок
 scale    - масштаб блока мм/бум
 dx	    - интервал по Х мм/бум
 dy       - интервал по У мм/бум
 is_chess     - признак шахматности
 ang_deg - поворот блока
 Примеры:
(ru-draw-block-hatch "Штриховка блоком" "land\\ru-lib-topo"  "ru_topo_0032"  1 8 8 T 0)
(ru-draw-block-hatch "Штриховка блоком" "common\\ru-lib-common" "ru_circle_and_cross_unit" 1  3  3 NIL 45)

|;
    (ru-app-begin)
    (if (ru-block-lib-insert block_lib block_name)
        (progn
            (setq dx    (ru-conv-millimeter-in-paper-to-unit dx)
                  dy    (ru-conv-millimeter-in-paper-to-unit dy)
                  scale (ru-conv-millimeter-in-paper-to-unit scale)
            ) ;_ end of setq
            ;; между рядами
            (if is_chess
                (setq sm (/ dy 2.0))
                (setq sm 0)
            ) ;_ end of if
            (if (setq lstVer (ru-pline-make-any-contour Header t NIL))
                (progn
                    (setq contour_ent (entlast))
                    ;; рисуем сетку
                    (princ "\nЖдите, рисую...\n")
                    (setq lstBox (ru-geom-bound-box (car lstVer))
                          t0     (cadr lstbox)
                          x0     (car t0)
                          y0     (cadr t0)
                          tmax   (car lstbox)
                          xmax   (car tmax)
                          ymax   (cadr tmax)
                          x      x0
                          y      y0
                          lx     (- xmax x0)
                          ly     (- ymax y0)
                          nx     (fix (/ lx dx))
                          ny     (fix (/ ly dy))
                          nxt    0
                          nyt    0
                    ) ;_ end of setq
                    (repeat (1+ nx)
                        (setq nxt (1+ nxt))
                        (repeat (1+ ny)
                            (setq nyt (1+ nyt)
                                  tt  (list X Y)
                            ) ;_ end of setq
                            (if (ru-match-is-even nyt)
                                (setq tt (polar tt 0 sm))
                            ) ;_ end of if

                            (if (ru-geom-is-point-in-contour tt (car lstVer))
                                (ru-block-insert-obj
                                    block_name
                                    tt
                                    scale
                                    scale
                                    scale
                                    (ru-conv-deg-to-rad ang_deg)
                                ) ;_ end of ru-block-insert-obj
                            ) ;_ end of if
                            (setq Y (+ Y dy))

                        )                                                      
                        (setq y   y0
                              nyt 0
                              X   (+ x dx)
                        ) ;_ end of setq
                    )                                                     
                    (if (ru-dlg-yes-cml "Стереть контур")
                        (entdel contour_ent)
                    ) ;_ end of if
                ) ;_ end of progn
            ) ;_ end of if
        ) ;_ end of progn
    ) ;_ end of if
    (ru-app-end)
    (princ)
) ;_ end of defun

Во время работы см. рис.1, результат - рис 2.

АлексЮстасу · 05.08.2010, 11:41

Цитата:

Сообщение от ShaggyDoc

Так что "программки" делай сам. Это просто. Например:
[code](defun ru-draw-block-hatch (header
block_lib
block_name
scale
dx
dy
is_chess
ang_deg
/ contour_ent lstbox lstver lx ly nx nxt ny nyt sm t0 tmax tt x x0 xmax y y0 ymax)

;|
Штриховка блоком. Аргументы:
Header - заголовок
block_lib - макроблок
block_name - блок
scale - масштаб блока мм/бум
dx - интервал по Х мм/бум
dy - интервал по У мм/бум
is_chess - признак шахматности
ang_deg - поворот блока
Примеры:
(ru-draw-block-hatch "Штриховка блоком" "land\\ru-lib-topo" "ru_topo_0032" 1 8 8 T 0)
(ru-draw-block-hatch "Штриховка блоком" "common\\ru-lib-common" "ru_circle_and_cross_unit" 1 3 3 NIL 45)

Этот "block_lib - макроблок" - это что такое? Остальное вроде бы все понятно.
Это название файла с блоками ("ru-lib-topo")? А "land\\" - это какое-то место, где лежит этот файл с блоками?
И как правильно задать этот параметр block_lib, если блок описан в самом рабочем файле?

ShaggyDoc · 05.08.2010, 14:46

Цитата:

Этот "block_lib - макроблок" - это что такое? Остальное вроде бы все понятно.
Это название файла с блоками ("ru-lib-topo")? А "land\\" - это какое-то место, где лежит этот файл с блоками?
И как правильно задать этот параметр block_lib, если блок описан в самом рабочем файле?

Ну, ты же не сможешь этим воспользоваться. Это фактически - алгоритм. Все подробности были в книге "САПР на базе AutoCAD - как это делается".

"land\\", естественно, какое-то место, о котором знает программа.
block_lib - макроблок, библиотека блоков - dwg-файл, в котором есть куча маленьких блочишек.
block_name - имя конкретного блочишки которым надо "штриховать".

А в "рабочем файле" этого блока может и не быть. Кто его там опишет? Если есть - будет использован, а нету - прилетит из библиотеки.

АлексЮстасу · 05.08.2010, 17:07

Цитата:

Сообщение от ShaggyDoc

Ну, ты же не сможешь этим воспользоваться. Это фактически - алгоритм. Все подробности были в книге "САПР на базе AutoCAD - как это делается".

"land\\", естественно, какое-то место, о котором знает программа.
block_lib - макроблок, библиотека блоков - dwg-файл, в котором есть куча маленьких блочишек.
block_name - имя конкретного блочишки которым надо "штриховать".

А в "рабочем файле" этого блока может и не быть. Кто его там опишет? Если есть - будет использован, а нету - прилетит из библиотеки.

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

Nikolays · 15.08.2010, 15:52

есть набор утилит kelf называется посмотри в загрузках

АлексЮстасу · 15.08.2010, 23:56

Цитата:

Сообщение от Nikolays

есть набор утилит kelf называется посмотри в загрузках

Сейчас не могу его найти.
Но я его когда-то скачал. Жаль только, что он не ставится из-за отсутствия файла интерфейса Kelf.cui

Nikolays · 16.08.2010, 06:18

Загружай файл меню kite.mns, а файл kite.cui сам образуется,если надо сброшу на email, у меня стоит и нормально работает включая и 2009 АКАД

АлексЮстасу · 16.08.2010, 12:25

Цитата:

Сообщение от Nikolays

Загружай файл меню kite.mns, а файл kite.cui сам образуется,если надо сброшу на email, у меня стоит и нормально работает включая и 2009 АКАД

Получилось, заработало, спасибо!
Интересный пакет.
О заполнении знаками:
1. нет нерегулярного заполнения
2. знаки почему-то вылезают за указанную границу. В некоторых случаях вообще все заполняющие знаки оказываются за пределами площади. (похоже, что за базовую точку программа принимает точку вставки образца знака или что-то в этом роде)

Nikolays · 17.08.2010, 06:32

граница штриховки должна быть замкнутой полилинией и иметь нулевую отметку,если значки оказываются за пределами площади значит граница имеет какую то отметку по высоте

АлексЮстасу · 17.08.2010, 22:48

Цитата:

Сообщение от Nikolays

граница штриховки должна быть замкнутой полилинией и иметь нулевую отметку,если значки оказываются за пределами площади значит граница имеет какую то отметку по высоте

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

Кулик Алексей aka kpblc · 17.08.2010, 22:49

Цитата:

Сообщение от АлексЮстасу

работать не только с полилиниями, но и с 3Дполилиниями.

А в какой плоскости и на какой высоте тогда располагать объекты штриховки?

АлексЮстасу · 18.08.2010, 00:03

Цитата:

Сообщение от Кулик Алексей aka kpblc

А в какой плоскости и на какой высоте тогда располагать объекты штриховки?

В любом случае, конечно, заполняющие знаки нужно кинуть в сердцах подальше от контура.

Nikolays · 18.08.2010, 06:30

при обработки съёмки надо придерживаться правила, отрисовывать все площадные объекты которые будут заполняться условными знаками замкнутыми полилиниями,перед штриховкой площади нужно обнулить границу контура, если она не нулевая это всё делается элементарно и без проблем

ShaggyDoc · 18.08.2010, 07:01

Штриховка (хоть "образцами", хоть блоками) - условность черчения. В частном случае - топографического. Разумется такой "условный знак" должен быть выполнен в одной плоскости. Применительно к Автокаду - это плоскость Х-У текущей ПСК (какая бы она не была). 3D полилинии для контуров тут не пойдут. Если хотите в 3D - ставьте каким-то образом и 3D-изображения знаков. Но это сложно и не нужно.

Разумеется и программы должны всегда рисовать плоские изначально изображения в текущей ПСК. Очень часто авторы программ про это забывают и они работают у них только в МСК.

АлексЮстасу · 18.08.2010, 13:23

Цитата:

Сообщение от Nikolays

при обработки съёмки надо придерживаться правила, отрисовывать все площадные объекты которые будут заполняться условными знаками замкнутыми полилиниями,перед штриховкой площади нужно обнулить границу контура, если она не нулевая это всё делается элементарно и без проблем

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

Кстати, при существующем требовании замкнутой полилинии kelf ведь не сможет заполнять контуры с "дырками".

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

ShaggyDoc - есть реальные и распространенные случаи, когда 3D полилинии для контуров нужны. Это когда заказчикам нужна гидрография, дорожная сеть и объекты рельефа еще и как структурные линии рельефа. Тогда эти объекты вычерчиваются 3D полилиниями. А все они могут являться границами площадных объектов.

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

Уже сейчас почти все заказчики хотят отметки и горизонтали на своей высоте. Часть заказчиков хочет еще и гидрографию с дорожной сетью в виде 3Д объектов. И все больше заказчиков, которые хотят 3Д карту, полную 3Д модель. Почему бы те же заполняющие знаки - каждый - не поместить на высоте модели поверхности? Пусть это сейчас и звучит фантазийно.

BadB_85 · 16.02.2011, 17:39

я извиняюсь.тут такое дело...искал как раз тоже самое.у меня 4 Га топосъемки.надо ее заполнить условными знаками.вот прочитал,но не до конца все понял.а точнее мало чего понял.сделал ваш лисп который вы посоветовали(надеюсь это не считается за кражу) и что дальше то?как мне это все заполнить тем же сенокосом????

Nikolays · 16.02.2011, 18:05

в справке всё написано

BadB_85 · 17.02.2011, 09:58

эм.в какой справке?и где мне найти эту примочку kelf??

Timbu · 17.12.2015, 17:34

Помогите разобраться с этим кодом, как все таки мне его доделать под свои нужды. Миниатюры Рис1 и Рис 2 это как раз то что мне нужно.
в этих строках мне нужно внесли изменения, в каких еще?
(ru-draw-block-hatch "Штриховка блоком" "land\\ru-lib-topo" "ru_topo_0032" 1 8 8 T 0)
(ru-draw-block-hatch "Штриховка блоком" "common\\ru-lib-common" "ru_circle_and_cross_unit" 1 3 3 NIL 45)
что такое набор утилит kelf , вернее для чего он? в общем можно подробнее описать как сделать из этого рабочий лисп. Просто я слабо пока в этом разбираюсь, но такой лисп был бы крайне полезен.

помогите пожалуйста разобраться с этим кодом. Я очень слабо разбираюсь в этом. Как все таки из этого сделать рабочий лисп? примеры приложенные к описанию кода это как раз то что нужно.
я понимаю что он почти готовый но нужно заменить названия файлов и пути к ним, в этих строках :
(ru-draw-block-hatch "Штриховка блоком" "land\\ru-lib-topo" "ru_topo_0032" 1 8 8 T 0)
(ru-draw-block-hatch "Штриховка блоком" "common\\ru-lib-common" "ru_circle_and_cross_unit" 1 3 3 NIL 45)
где еще? в общем можно подробнее расписать что нужно отредактировать ?

АлексЮстасу · 17.12.2015, 17:58

Цитата:

Сообщение от Timbu

в общем можно подробнее расписать что нужно отредактировать ?

Ответ от автора кода:

Цитата:

Сообщение от ShaggyDoc

Ну, ты же не сможешь этим воспользоваться. Это фактически - алгоритм. Все подробности были в книге "САПР на базе AutoCAD - как это делается".

Поищите работающие альтернативы. Например: http://geodesist.ru/forum/threads/za...kom-vlx.14717/

Nikolays · Регистрация: 03.05.2007

скачай menuGEO и будет тебе хорошо

Ingpro · 03.01.2024, 12:02

Возможно ли упростить код из поста #12, убрав из него блоки и пути к ним и заменить блоки на окружности или точки?
Заполнить выбранные объекты (rectangle, circle, lwpolyline, polyline) окружностями ∅50 (или точками, если это проще)
в шахматном порядке, с выбором шага (если возможно, с указанием отступа, но можно и без него).
В прямоугольниках, конечно, можно применить массив, но в круге или многоугольнике надо потом
удалять лишние окружности за пределами фигуры, что не очень удобно.

Код:

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

 
(defun ru-draw-block-hatch (header 
                            block_lib
                            block_name
                            scale
                            dx
                            dy
                            is_chess
                            ang_deg
                            / contour_ent lstbox lstver lx ly nx nxt ny nyt sm t0 tmax tt x x0 xmax y y0 ymax)
    
  ;|
 Штриховка блоком. Аргументы:
 Header	- заголовок
 block_lib       - макроблок
 block_name       - блок
 scale    - масштаб блока мм/бум
 dx	    - интервал по Х мм/бум
 dy       - интервал по У мм/бум
 is_chess     - признак шахматности
 ang_deg - поворот блока
 Примеры:
(ru-draw-block-hatch "Штриховка блоком" "land\\ru-lib-topo"  "ru_topo_0032"  1 8 8 T 0)
(ru-draw-block-hatch "Штриховка блоком" "common\\ru-lib-common" "ru_circle_and_cross_unit" 1  3  3 NIL 45)

|;
    (ru-app-begin)
    (if (ru-block-lib-insert block_lib block_name)
        (progn
            (setq dx    (ru-conv-millimeter-in-paper-to-unit dx)
                  dy    (ru-conv-millimeter-in-paper-to-unit dy)
                  scale (ru-conv-millimeter-in-paper-to-unit scale)
            ) ;_ end of setq
            ;; между рядами
            (if is_chess
                (setq sm (/ dy 2.0))
                (setq sm 0)
            ) ;_ end of if
            (if (setq lstVer (ru-pline-make-any-contour Header t NIL))
                (progn
                    (setq contour_ent (entlast))
                    ;; рисуем сетку
                    (princ "\nЖдите, рисую...\n")
                    (setq lstBox (ru-geom-bound-box (car lstVer))
                          t0     (cadr lstbox)
                          x0     (car t0)
                          y0     (cadr t0)
                          tmax   (car lstbox)
                          xmax   (car tmax)
                          ymax   (cadr tmax)
                          x      x0
                          y      y0
                          lx     (- xmax x0)
                          ly     (- ymax y0)
                          nx     (fix (/ lx dx))
                          ny     (fix (/ ly dy))
                          nxt    0
                          nyt    0
                    ) ;_ end of setq
                    (repeat (1+ nx)
                        (setq nxt (1+ nxt))
                        (repeat (1+ ny)
                            (setq nyt (1+ nyt)
                                  tt  (list X Y)
                            ) ;_ end of setq
                            (if (ru-match-is-even nyt)
                                (setq tt (polar tt 0 sm))
                            ) ;_ end of if

                            (if (ru-geom-is-point-in-contour tt (car lstVer))
                                (ru-block-insert-obj
                                    block_name
                                    tt
                                    scale
                                    scale
                                    scale
                                    (ru-conv-deg-to-rad ang_deg)
                                ) ;_ end of ru-block-insert-obj
                            ) ;_ end of if
                            (setq Y (+ Y dy))

                        )                                                      
                        (setq y   y0
                              nyt 0
                              X   (+ x dx)
                        ) ;_ end of setq
                    )                                                     
                    (if (ru-dlg-yes-cml "Стереть контур")
                        (entdel contour_ent)
                    ) ;_ end of if
                ) ;_ end of progn
            ) ;_ end of if
        ) ;_ end of progn
    ) ;_ end of if
    (ru-app-end)
    (princ)
) ;_ end of defun

Кулик Алексей aka kpblc · 03.01.2024, 12:36

https://www.autodesk.com/blogs/autoc...ls-superhatch/ ?
Всю тему не пересматривал, может, уже и показывали.

Ingpro · 03.01.2024, 14:13

Цитата:

Сообщение от Кулик Алексей aka kpblc

https://www.autodesk.com/blogs/autoc...ls-superhatch/ ?

Там кучу всего надо указать... и непонятно поддерживается ли шахматный порядок... блоки не нужны...
Да и Express есть или нет...
Хотелось бы просто указать объекты, указать шаг и end... Потом мне нужно будет выбрать подобные и посмотреть количество.
Можно ли всё-таки подправить код?

04.08.2010, 03:47		#1
заполнение контуров условными знаками АлексЮстасу топограф, технолог Москва Регистрация: 24.05.2009 Сообщений: 3,074 Есть программы для заполнения контуров площадных объектов условными знаками? Для заполнения регулярного - по прямоугольной сетке и в шахматном порядке, и нерегулярного, но через указанное среднее расстояние? И чтобы знаки не накладывались на границы контуров? Такая программа очень нужна для картографов-топографов.
Просмотров: 21274