[lebedun]

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

[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]

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