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

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

[KAI]

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

[n0str0m0]

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

[MCAD]

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

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

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

[Хмурый]

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

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

Сообщение от Хмурый _superhatch из комплекта Express Tools опробована?

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

[Хмурый]

не позволяет

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

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

[VVA]

Сообщение от АлексЮстасу superhatch позволит заполнить нерегулярно?

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

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

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

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

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

[ShaggyDoc]

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

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

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

Код:

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

(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.

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

Сообщение от 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]

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

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

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

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

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

Сообщение от ShaggyDoc Ну, ты же не сможешь этим воспользоваться. Это фактически - алгоритм. Все подробности были в книге "САПР на базе AutoCAD - как это делается". "land\\", естественно, какое-то место, о котором знает программа. block_lib - макроблок, библиотека блоков - dwg-файл, в котором есть куча маленьких блочишек. block_name - имя конкретного блочишки которым надо "штриховать". А в "рабочем файле" этого блока может и не быть. Кто его там опишет? Если есть - будет использован, а нету - прилетит из библиотеки.

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

[Nikolays]

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

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

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

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

[Nikolays]

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

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

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

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

[Nikolays]

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