[Prestan]

Здравствуйте. Как сделать распределение точек по полилинии с определенным расстоянием между ними ПО ПРЯМОЙ.

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

[zenon]

Команды
_divide
_measure

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

Вручную - только так, как описано: окружность - точка пересечения, переместить окружность.
Или тема не в том разделе, и ее надо в программирование переместить?

[Prestan]

Сообщение от Кулик Алексей aka kpblc Вручную - только так, как описано: окружность - точка пересечения, переместить окружность. Или тема не в том разделе, и ее надо в программирование переместить?

Я не занимался не разу программирование. Я надеюсь что для моей задачи есть специальная команда.

Команд _divide и _measure , мне не подходят. Т.к. одна размечает полилинию на равные участки заданной длинны, а другая размечает на заданное колличество участков равной длинны.

А мне надо, чтобы каждая следующая точка на полилинии ставилась так, чтобы расстояние по ПрямоЙ(не по полилинии) до предыдущий точки равнялась заданному значению.

Мне надо распределить габионы (прямоугольники) по откосу так, чтобы габионы по верхней стороне были вплотную.

[Victor]

Нарисуй полилинию по "Прямой".

[Nike]

---

[Prestan]

Вот пример. Делал вручную как описал в вопросе.

[Хмурый]

Кулик Алексей aka kpblc, пользователю лисп нужен.

[Victor]

Попробуй. Должен нарисовать полилинию с заданным расстоянием по "прямой". А по этой полилинии разноси блоки. Программ полно.

Код:

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

(vl-load-com) 
(defun c:d2p ( / snp dis pln dis_pl krd_0 dis_run krd_run dlt_dis sp_pl ln j)
(setq snp (getvar "Osmode"))
(setvar "Osmode" 0) 
(setq dis (getreal "Distance?  "))
(setq pln (car (entsel)))
(setq dis_pl (vlax-curve-getDistAtParam pln (vlax-curve-getEndParam pln)))
(setq krd_0 (vlax-curve-getPointAtDist pln 0.0))
(setq dis_run dis sp_pl nil)
(while(< dis_run dis_pl) 
 (setq krd_run (vlax-curve-getPointAtDist pln dis_run))
 (repeat 2
 (setq dis_run (vlax-curve-getDistAtPoint pln krd_run))
 (setq dlt_dis (abs(- dis (distance krd_run krd_0))))
 (setq dis_pln (+ dis_run dlt_dis))
 (setq krd_run (vlax-curve-getPointAtDist pln dis_pln))
 )
 (setq sp_pl (append sp_pl (list krd_run))) 
 (setq dis_run (vlax-curve-getDistAtPoint pln krd_run))

 (setq krd_0 krd_run)
 (setq dis_run (+ dis_run dis))
)
(if (/= nil sp_pl)
 (progn
 (setq ln (-(length sp_pl)1) j 0)
 (vl-cmdf "_.pline" (nth 0 sp_pl))
 (repeat ln
   (setq j (+ j 1))
   (vl-cmdf (nth j sp_pl))
 )
 (vl-cmdf "")
 ) ;progn
) ;if
(setvar "Osmode" snp)
)

[VVA]

Сообщение от Хмурый Кулик Алексей aka kpblc, пользователю лисп нужен.

Так вроде как есть уже: PL-NoArc -Аппроксимация дуговых сегментов полилинии

Команда: PL-NoArc Выберите режим апроксимации дуговых сегментов [количество сегментов N/длина сегмента L/предельное отклонение хорды S/длина хорды C/помощь H]:

Если я правильно понял проблему

[Victor]

Жаль что только на русском