[lebedun]

Имеется 3д кривая. Каким инструментом я могу провести по ней ломанную с определенной длинной сегментов этой ломанной?

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

_divide / _measure / написать свою программу / заняться поиском и найти готовую программу
все дороги хороши, выбирай на вкус

[kp+]

PLTOOLS forever!

[gomer]

РЕДСПЛАЙН с 2010 года преобразовывает сплайн в полилинию

[lebedun]

Я так понимаю из всего изложенного остается только написать свою программу

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

#3 прочитай еще разок

[CaMoCAD]

Сообщение от lebedun Я так понимаю из всего изложенного остается только написать свою программу

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

[lebedun]

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

[skkkk]

Сообщение от lebedun есть полилиния из множества прямых и дуг. мне надо ее заменить ломаной полилинией из прямых сегментов определенной длинны

Сначала

PL-DIVAll -Разбивает все сегменты полилинии на указанное количество сегментов или через указанное расстояние

затем

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

А со сплайнами см. #4 и далее все с начала

[lebedun]

Сообщение от skkkk PL-DIVAll -Разбивает все сегменты полилинии на указанное количество сегментов или через указанное расстояние

Эта команда делит сегменты, которые больше требуемой длины. А если полилиния состоит из ломаной с длиной сегмента к примеру 10, а мне надо получить с длинной 13, то эта команда не работает.

[CaMoCAD]

Что привередничаете? Пост №2 -

Сообщение от Кулик Алексей aka kpblc _divide / _measure / написать свою программу

[lebedun]

_measure делит на сегменты по линии существующей, а не создавая прямые отрезки определенной длины. Хорда всегда меньше дуги.

PL-NoArc я поделю дугу. А вот с ломаной полилинией получается ничего не поделаешь

[CaMoCAD]

Однако, у Вас запросы...
Тогда ручками, - из начала ПЛ чертите окружность нужного радиуса (длина Вашей хорды). Потом копируете ее в точки пересечения с исходной ПЛ. Центры окружностей соединяете - плучаете искомую ломаную.
Как автоматизировать - в душЕ не знаю. Пересечений может быть несколько.

[lebedun]

Сообщение от CaMoCAD Однако, у Вас запросы... Тогда ручками, - из начала ПЛ чертите окружность нужного радиуса (длина Вашей хорды). Потом копируете ее в точки пересечения с исходной ПЛ. Центры окружностей соединяете - плучаете искомую ломаную. Как автоматизировать - в душЕ не знаю. Пересечений может быть несколько.

Да. Окружность решит этот вопрос вручную. Но мне нужно это делать с 3д полилинией, и окружность уже здесь не спасет

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

В 3Dполилинии не может быть дуговых сегментов.

[VVA]

Сообщение от lebedun А если полилиния состоит из ломаной с длиной сегмента к примеру 10, а мне надо получить с длинной 13

Это можно сделать, если вершины расположены на одной прямой или некой условной прямой, когда незначительными отклонениями можно пренебречь. Для этого есть "прополка" полилинии.
PL-VxRdc -Удаление вершин полилиний, которые лежат на одной прямой
После можно разбить и через 13 PL-DIV или PL-DIVALL.

[lebedun]

Сообщение от Кулик Алексей aka kpblc В 3Dполилинии не может быть дуговых сегментов.

Да. Дуга у меня была в 2д

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

Как говорят на некоторых ресурсах, "эта пять!" И каким манером определять, где что начинается и куда продолжается?

[lebedun]

Сообщение от VVA Это можно сделать, если вершины расположены на одной прямой или некой условной прямой, когда незначительными отклонениями можно пренебречь. Для этого есть "прополка" полилинии. PL-VxRdc -Удаление вершин полилиний, которые лежат на одной прямой После можно разбить и через 13 PL-DIV или PL-DIVALL.

Как вариант это пойдет. Но желательно чтобы неточностей было как можно меньше. Буду писать свои инструменты.
Спасибо.

[CaMoCAD]

Сообщение от lebedun и окружность уже здесь не спасет

значит, - сфера

[lebedun]

если привязка к пересечению сферы с полилинией есть то да

[gomer]

Сообщение от CaMoCAD из начала ПЛ чертите окружность нужного радиуса (длина Вашей хорды). Потом копируете ее в точки пересечения с исходной ПЛ. Центры окружностей соединяете - плучаете искомую ломаную.

Я кстати так и подумал сначала, автоматизировать несложно, просто это как-то некошерно да и лениво ибо жарко... Без полторушки не обойтись. Могу только подсказать IntersectWith и выбор следующей точки по большему значению параметра полилинии в точке пересечения... Для 3м полилинии проще, там нужно решать треугольники, без всяких сфер

[lebedun]

Сообщение от gomer Могу только подсказать IntersectWith

Что такое IntersectWith? Где используется?

[gomer]

да, сделал я ради интереса

Код:

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

 (defun c:test ()

  (vl-load-com)

  (defun mkcircle (c r)
    ;; допилено с помощью VVA
    (entmakex (list '(0 .  "CIRCLE")(cons 10 c)(cons 40 r)))
  )

  (defun mkpline (lst / plst)
	(entmake
	  (append
		(list
		 '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")
		  (cons 90 (length (setq plst (mapcar '(lambda (x)(cons 10 x))lst))))
		  (cons 70 0)
		 '(210 0.0 0.0 1.0)
		)
		plst
	  )
	)
  )

  (defun mklist (lst)
	(if lst 
	  (if (> 3 (length lst))
		(list lst)
		(cons (list (car lst)(cadr lst)(caddr lst)) (mklist (cdddr lst)))
	  )
	)
  )
  
  (setq ofs (getreal "\nУкажите длину участка: "))
  (setq pline (car (entsel "\nУкажите трассу: ")))
  
  (setq start_point (vlax-curve-getStartPoint pline)
		cur_point start_point
		cur_param (vlax-curve-getParamAtPoint pline cur_point)
		end_param (vlax-curve-getEndParam pline)
		prev_param -1
		end_point (vlax-curve-getEndPoint pline)
		plist '()
  )
  (while (< prev_param cur_param end_param)
	(setq
	  circle (mkcircle cur_point ofs)
	  inters
	  (mklist
		(vlax-safearray->list
			  (vlax-variant-value
				(vla-IntersectWith 
				  (vlax-ename->vla-object circle)
				  (vlax-ename->vla-object pline)
				  acExtendNone
				)
			  )
		)
	  )
	  prev_param cur_param
	  cur_param
	  (apply
	   'max
		(mapcar
		 '(lambda (x)
			(vlax-curve-getParamAtPoint pline x)
		  )
		  inters
		)
	  )
	  cur_point (vlax-curve-getPointAtParam pline cur_param)
	  plist (cons cur_point plist)
	)
	(entdel circle)
  )
  (mkpline (append (list start_point) (reverse plist) (list end_point)))
)

кто хочет пирожок, допиливайте

[VVA]

Допиливаю

Код:

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

(defun mkcircle (c r)(entmakex (list '(0 .  "CIRCLE")(cons 10 c)(cons 40 r))))

[gomer]

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