AutoCAD - Change the polyline into a rectangle of the same length(unroll polyline)

[daivce]

Please forgive my poor English. Anyone can help me. I want to change the polyline into a rectangle of the same length. The height can be set freely .At the polyline intersection to form an inner rectangle. Thank you

[ The subject line of this post has been edited for clarity by @handjonathan Original: Change the polyline into a rectangle of the same length(unroll polyline) ]

[Kent1Cooper]

I can't spend time on that now, but in case it gives anyone a start, I attach my StretchPolylinesStraight.lsp routine [command name: SPS].  That will give a basis for the red parts in your results, but getting the rest will be more of a challenge....

[nilesh.bhosale]

i tested this but SPS lisp but it is not enough ....i need to identify only curves as i shown in my sample drawing i have many drawings so will this lisp get modify it  for only convert curves to horizontal lines with dimensions as shown in my sample drawing???

[Kent1Cooper]

---

@nilesh.bhosale wrote:

i tested this but SPS lisp but it is not enough ....i need to identify only curves as i shown in my sample drawing i have many drawings so will this lisp get modify it  for only convert curves to horizontal lines with dimensions as shown in my sample drawing???

---

Go back to the other topic [where your sample drawing is].  Answer the question in Message 2.  And clarify what you mean by "identify" -- the sample drawing includes the line segment lengths in the straightened result, including dimensions, not just the curves.

[nilesh.bhosale]

Identify means = when i will select polyline by using lisp.... then the lisp should generate rectangles equal to  curve length in horizontal position

PLEASE REFER ANOTHER SKETCH FOR BETTER UNDERSTANDING

[daivce]

No, I need to form a rectangle at the top of a long polyline. The middle rectangle is a rectangle formed by the intersection of short lines and long polylines. Their lengths should be one-to-one

[Kent1Cooper]

Looking back at this, I see a condition that could make it very difficult to develop a routine to do what you want.  Some of the "length" spaces are between independent single intersections of separate crossing Polylines with the "path" Polyline, but some of them are between two intersections of the same intersecting Polyline with the path.  Can the intersecting ones all be made to have the same kind of relationship to the path?

[schulz8NPAP]

Hello,

could this be a step to sole your problem?

(Please notice, I used 3D-polylines, i.e. I changed the arcs into linear segmented 3d-polylines.)

Regards

Jochen

www.black-cad.de

[ВeekeeCZ]

---

@nilesh.bhosale wrote:

Identify means = when i will select polyline by using lisp.... then the lisp should generate rectangles equal to  curve length in horizontal position

PLEASE REFER ANOTHER SKETCH FOR BETTER UNDERSTANDING

---

Try this. It should do the trick.

(vl-load-com)

(defun c:PlStraightening ( / i e p dl bl c)
  
  (if (and (setq e (car (entsel "\nSelect a polyline: ")))
	   (or (= "LWPOLYLINE" (cdr (assoc 0 (entget e)))) (prompt "\nNot a lwpolyline."))
	   (setq p (getpoint "\nPlace straightened profile: "))
	   )
    (repeat (setq i (1+ (fix (getpropertyvalue e "EndParam"))))
      (setq i (1- i)
	    dl (cons (vlax-curve-getdistatparam e i) dl)
	    bl (cons (getpropertyvalue e "Vertices" i "Bulge") bl))))
  
  (if dl (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(70 . 0) (cons 90 2))
			  (mapcar '(lambda (d) (list 10 (+ d (car p)) (cadr p)))
				  (list (car dl) (last dl))))))
  (setq c 0)
  (mapcar '(lambda (d1 d2 b)
	     (and (not (zerop b))
		  (setq ps (list (list 10 (+ d1 (car p)) (cadr p))
				 (list 10 (+ d1 (car p)) (+ 17000 (cadr p)))
				 (list 10 (+ d2 (car p)) (+ 17000 (cadr p)))
				 (list 10 (+ d2 (car p)) (cadr p))))
		  (entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(8 . "0") '(90 . 4) '(70 . 1)) ps))
		  (entmake (list '(0 . "TEXT") '(10 0 0 0) (list 11 (+ (car p) d1 (/ (- d2 d1) 2))  (+ 17000 (cadr p))) '(40 . 12600) '(72 . 1) '(73 . 1)
				 (cons 1 (strcat "CURVE NO-" (itoa (setq c (1+ c)))))))))
	  dl (cdr dl) bl)
  (princ)
  )

[Kent1Cooper]

Be aware that @nilesh.bhosale is not the originator of this Topic.  They were looking for something different from @daivce who originated this Topic.  They have their own Topic over >here<, asking for the same, where they have already accepted a Solution.

[daivce]

Thanks,but it Missing function.

  erro: no function definition: GETPROPERTYVALUE

[Kent1Cooper]

---

@daivce wrote:

Thanks,but it Missing function.

  erro: no function definition: GETPROPERTYVALUE

---

What version are you using?