Opening a polyline on the edge selected

[RenManZ]

Thanks, its interesting to see all the different approaches to solve a problem.

 

I modified Lee Mac routine ;; Open Polylines at Selected Edge. To Change Selected Edge to Arc, I changed the (vla-put-closed Obj :vlax-false) to (vla-setbulge obj 3 1).

[RenManZ]

I finally had time to put yours to the test, you were right it is really simple.

 

;Select pline segment to change to arc

(defun c:arcpl (/ pl pt pa)

(setq pl (entsel "\nSelect the pline segment: "))

(setq pt (trans (osnap (cadr pl) "_nea") 1 0))

(setq pl (car pl))

(setq pa (fix (vlax-curve-getParamAtPoint pl pt)))

(vla-setbulge (vlax-ename->vla-object pl) pa 1.0)

)

 

Thanks again!

[RenManZ]

How would I go about creating a lisp routine to modify a closed polyline recatangle with .6" radius bulge on oposing sides at one end or both ends of a rectangle. The rectangle would look like a dog bone, see the attached jpg.