[Макс_Кунгур]

Добрый день. Подскажите, пожалуйста. Есть чертеж со множеством полилиний. Как при помощи lisp выбрать 2 из них и построить между ними перпендикуляры? При этом 1 полилинию надо разбить на одинаковые отрезки (например 5 ед), и из каждых этих точек, начиная с начала полилинии, будут построены перпендикуляры на 2 полилинию.

[Profan]

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

[Макс_Кунгур]

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

[Profan]

А вот попробуй включить одну только привязку "Нормаль" и порисуй на экране.

[Макс_Кунгур]

Profan, мне надо lisp-приложение написать под этот чертеж, а не чертить в AutoCad-е.

Кто-нибудь, подскажите, пожалуйста как это осуществить или, может быть, у кого-то есть уже готовый lisp на этот вопрос?

[Кулик Алексей aka kpblc]

Макс_Кунгур, "практически" параллельные и параллельные есть вещи разные принципиально. Вплоть до невозможности решения задачи.
P.S. У меня ощущение, что надо сделать нечто типа alx-dike (кажется, так). То бишь строить изображения откосов.

[LSN]

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

[Profan]

Я это и предложил проверить Макс_Кунгур'у, чтобы убедиться в неоднозначности задачи, а он, вишь, выкобенивается.

[Макс_Кунгур]

Кулик Алексей aka kpblc, 1-я линия - это кривая горизонта, 2-я линия - это подошва горизонта. Они могут быть и параллельными, и не параллельными. Как я понимаю, нужно рассматривать два случая по отдельности. Если параллельны, то так строятся перпендикуляры, если нет - то по другому.

[Кулик Алексей aka kpblc]

Макс_Кунгур, так дело-то в том, что сначала надо поставить задачу. Полностью. Предусмотрев все варианты. И только после этого задумываться о решении (которое, скорее всего, сведется к применению команды _.divide с опцией _block).

[Макс_Кунгур]

Кулик Алексей aka kpblc, задача состоит в следующем:
1. Выбираем первую полилинию
2. Выбираем вторую полилинию
3. Первая полилиния делится на отрезки одинаковой длины начиная с начала.
4. Строятся перпендикуляры по этим отрезкам, начиная с начала первой полилинии, пересекающие вторую полилинию. (перпендикуляры должны отсекаться 2-й полилинией)
6. Если вторая полилиния длиннее 1-й (что слева, что справа), обрезаем ее до первого и последнего перпендикуляра.

Полилинии могут быть как параллельными так и не параллельными.

[ытя]

Осталось изменить название темы на: "Построение перпендикуляров к первой линии и их обрезка по второй".

[ShaggyDoc]

Для размышления о "перпендикулярах" - технология рисования

http://cad.kurganobl.ru/risovanie_otkosov.html

и еще две заметки внутри. В качестве постановки задачи.

А реализация простая: (ru-draw-topo-slope T T 3.0 0.5)

[Макс_Кунгур]

Сообщение от Кулик Алексей aka kpblc Макс_Кунгур, P.S. У меня ощущение, что надо сделать нечто типа alx-dike (кажется, так). То бишь строить изображения откосов.

Все правильно, что мне и нужно (строить изображения откосов). Только это нужно реализовать через LISP, а у ShaggyDoc - там через ruCAD.

Потестировал я программы dike и otkos, все хорошо, все красиво, то, что нужно, но они не реализуют:

1. Не обрезают полилинии до первого перпендикуляра и после последнего.
2. Рисуют только простой откос, а мне нужно еще чтобы еще рисовался добычной откос (чтобы был выбор, какой откос рисовать).

Подскажите, пожалуйста, кто-нибудь знает, как это реализовать?

[zamtmn]

ShaggyDoc
а чем вызвана неправильная работа при сглаживании дугами?

[ShaggyDoc]

Сообщение от zamtmn ShaggyDoc а чем вызвана неправильная работа при сглаживании дугами?

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

а мне нужно еще чтобы еще рисовался добычной откос (чтобы был выбор, какой откос рисовать)

Это уже детали. Сначала делается базовая функция, а для неё уже в виде аргументов разные варианты рисования. Я же не зря пример привел (ru-draw-topo-slope T T 3.0 0.5)
Здесь 4 аргумента определяют варианты рисования бровок и штрихов. Можно сделать сколько угодно вариантов.

Тут важно забыть про "обрезают", "удлиняют". И особенно - слово "перпендикуляр". Всё только на геометрических вычислениях должно быть. Можно ведь и координаты концов бровок изменить, если надо.

Только это нужно реализовать через LISP, а у ShaggyDoc - там через ruCAD.

А там LISP и есть. И ничего более.

[zamtmn]

>>Это внутренние недостатки штатных функций
т.е. не учитываются скругления, обрабатываются как прямые?

>>Тут важно забыть про "обрезают", "удлиняют".
>>И особенно - слово "перпендикуляр"
Я бы заменил "перпендикуляр" на "ближайшая"
тогда получится:
1 measurим линию от которой строим с нужным шагом
2 measurим линию к которой строим с более мелким (в пределах разумного, с учетом нужной точности) шагом
3 перебераем токи из (1) ишем ближайшие им точки из(2) и их соединяем.

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

[Макс_Кунгур]

ShaggyDoc, а ты не можешь выложить готовый lisp на мой вопрос, а то я сам не смогу его сделать?

[ShaggyDoc]

Сообщение от Макс_Кунгур ShaggyDoc, а ты не можешь выложить готовый lisp на мой вопрос, а то я сам не смогу его сделать?

Легко. Самое главное - остальное сам сделаешь.

Код:

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

(defun ru-draw-topo-slope (is_draw_short
                           is_dot
                           dist_berg
                           length_berg_rel
                          )
;; (ru-draw-topo-slope T nil 3.0 0.5)
;; (RU-DRAW-TOPO-SLOPE T nil 2.0 1.0)
;; (ru-draw-topo-slope T 2.0 1.0) - откос
;; (ru-draw-topo-slope T 3.0 0.5) - откос
;; (ru-draw-topo-slope T 3.0 2.0) - откос
;; (ru-draw-topo-slope 2.0 1.0) - обрыв
  (_ru-draw-some-slope
    is_draw_short
    is_dot
    dist_berg
    length_berg_rel
    'ru-topo-draw-slope-one
  ) ;_ end of _ru-draw-some-slope

) ;_ end of defun




(defun _ru-draw-some-slope (is_draw_short
                           is_dot
                           dist_berg
                           length_berg_rel
                           func
                           /

                           bottom_point
                           dist
                           dist_dot
                           dist_short
                           end_dot
                           end_short
                           ent_bottom
                           long
                           start_dot
                           len_dot
                          )
  (ru-app-begin)
  ;|
Откос или обрыв
(RU-DRAW-TOPO-SLOPE T nil 2.0 1.0)
(ru-draw-topo-slope T 2.0 1.0) - откос
(ru-draw-topo-slope T 3.0 0.5) - откос
(ru-draw-topo-slope T 3.0 2.0) - откос
(ru-draw-topo-slope 2.0 1.0) - обрыв
Новые аргументы 
dist_berg - расстояние между бергштрихами, мм (2 было)
length_berg_rel - длина бергштрихов в долях от расстояния между кромками
(меньше 1, иначе - в долях от расстояния между бергштрихами)
Опция - укрепленный
Сглаженную полилинию разглаживать и в сплайн?

|;

  (setq
    dist_berg (ru-conv-millimeter-in-paper-to-unit dist_berg)
    dist_dot  (ru-conv-millimeter-in-paper-to-unit 2.0)
    len_dot   (* dist_dot 0.5)
  ) ;_ end of setq
  (while (setq ent_top
                (ru-get-entsel-by-type
                  "Выбери линию бровки"
                  "Это нельзя использовать в качестве бровки"
                  (list "LINE" "LWPOLYLINE" "POLYLINE" "ARC" "CIRCLE" "SPLINE")
                  t
                ) ;_ end of ru-get-entsel-by-type
         ) ;_ end of setq
    (progn
      (ru-obj-undo-begin)
      (setq
        ent_top (car ent_top)
      ) ;_ end of setq
      (ru-pline-decurve ent_top "Бровка")
      (if (setq ent_bottom
                 (ru-get-entsel-by-type
                   "Выбери линию подошвы"
                   "Это нельзя использовать в качестве подошвы"
                   (list "LINE" "POLYLINE" "LWPOLYLINE" "ARC" "CIRCLE" "SPLINE")
                   t
                 ) ;_ end of ru-get-entsel-by-type
          ) ;_ end of setq
        (progn
          (setq
            ent_bottom
             (car ent_bottom)
          ) ;_ end of setq
          (ru-pline-decurve ent_bottom "Подошва")
          (setq
            top_points_list
             (ru-geom-list-measured-points-on-curve
               ent_top
               dist_berg
             ) ;_ end of ru-geom-list-measured-points-on-curve
          ) ;_ end of setq
          (mapcar
            (function
              (lambda (top_point)
                (setq bottom_point (vlax-curve-getclosestpointto
                                     ent_bottom
                                     top_point
                                     T
                                   ) ;_ end of vlax-curve-getclosestpointto
                      dist         (distance top_point bottom_point)
                      long         (if is_draw_short
                                     (not long)
                                     t
                                   ) ;_ end of if
                                   ;; - было для откоса с короткими штрихами
                ) ;_ end of setq
                ((eval func)
                  top_point
                  bottom_point
                  dist_berg
                  (list dist dist_dot len_dot long length_berg_rel is_dot)
                )

              ) ;_ end of lambda
            ) ;_ end of function
            top_points_list
          ) ;_ end of mapcar

        ) ;_ end of progn
      ) ;_ end of if
      (ru-obj-undo-end)
    ) ;_ end of progn
  ) ;_ end of if
  (ru-app-end)
  (princ)
) ;_ end of defun

[Макс_Кунгур]

Попробовал, выдает ошибку:

Command: (ru-draw-topo-slope)
; error: too few arguments