[ruslua]

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


На форуме нашел следующий lisp:

(defun c: DimPl2Pl ( / en1 en2 vrx pt)

(if (and (setq en1 (car (entsel "\nSelect 1st polyline (dim from): ")))
(= "LWPOLYLINE" (cdr (assoc 0 (entget en1))))
(setq en2 (car (entsel "\nSelect 2nd polyline (dim to): ")))
(= "LWPOLYLINE" (cdr (assoc 0 (entget en2))))
(setq vrx (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en1))))
)
(foreach e vrx
(if (setq pt (vlax-curve-getClosestPointTo en2 e))
(command "_.DIMALIGNED" "_none" (trans e 0 1) "_none" (trans pt 0 1) "_none" "@")))
(princ "\nWrong selection. Two LWPolylines are required.")
)
(princ)
)

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

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

Чисто по приколу. А что будет, если одна полилиния имеет длина 100, а вторая - 500?

[AlexCondor]

Cтремные какие-то размеры у вас на картинке. Хоть какой-то перпендикуляр все-таки должен быть, хоть к полилиниям, хоть к осевой между ними.

Прежде чем использовать найденный вами лисп. Можно разбить полилинию на сегменты равные нужному шагу.

[ruslua]

Сообщение от Кулик Алексей aka kpblc Чисто по приколу. А что будет, если одна полилиния имеет длина 100, а вторая - 500?

Они всегда равные по длине

----- добавлено через ~1 мин. -----

Сообщение от AlexCondor Cтремные какие-то размеры у вас на картинке. Хоть какой-то перпендикуляр все-таки должен быть, хоть к полилиниям, хоть к осевой между ними. Прежде чем использовать найденный вами лисп. Можно разбить полилинию на сегменты равные нужному шагу.

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

----- добавлено через ~12 мин. -----

Сообщение от AlexCondor Cтремные какие-то размеры у вас на картинке. Хоть какой-то перпендикуляр все-таки должен быть, хоть к полилиниям, хоть к осевой между ними. Прежде чем использовать найденный вами лисп. Можно разбить полилинию на сегменты равные нужному шагу.

Это да, но лисп проставит много лишних размеров от вершин