Simple line break and jump AutoLISP
Good for you for making a start, though it could use some improvements. It assumes only orthogonal Lines. If you choose the vertical one to break, it does break that one, but draws the Arc as though you chose the horizontal one to break. [It also draws the Arc the same way if you pick non-orthogonal Lines.] And it requires you to pick the one to break inside the 1/8-drawing-unit distance from the intersection -- if you pick on it farther away, the wrong part gets broken off.
To see how others have approached this in more comprehensive ways, there are some other threads just on this Forum, such as >this one< and >this other one<, and no doubt others on different websites, available for the Searching.
Here is another quick to mull over one for polylines. The nice thing here is the segment will stay as one piece :).
(defun c:hop (/ a d e i o p p1 p2 p3)
;; RJP » 2019-01-14
;; Adds a 'hop' to a lwpolyline ( very little error checking )
(setq a 0.125)
(while (and (setq e (entsel "\nPick a polyline to add a hop: "))
(= "LWPOLYLINE" (cdr (assoc 0 (entget (car e)))))
(setq p (vlax-curve-getclosestpointto (car e) (cadr e)))
(setq i (1+ (fix (vlax-curve-getparamatpoint (setq e (car e)) p))))
(setq d (vlax-curve-getdistatpoint e p))
(setq p1 (vlax-curve-getpointatdist e (+ d a)))
(setq p2 (vlax-curve-getpointatdist e (- d a)))
)
(setq o (vlax-ename->vla-object e))
(vlax-invoke o 'addvertex i (mapcar '+ p1 '(0 0)))
(vlax-invoke o 'addvertex i (mapcar '+ p2 '(0 0)))
(vla-setbulge
o
i
(cond ((< (angle '(0 0) p1) (angle '(0 0) p2)) -1.)
(1.)
)
)
)
(princ)
)
(vl-load-com)
When you get tired of picking points, here is a quick mod to allow for multiple selection 🙂 Enjoy!
(defun c:hops (/ a b d e i p p1 p2 pts s x)
;; RJP » 2019-01-21
;; Creates hops on a selection of intersecting polylines
(setq a 0.125)
(cond
((and (setq s (ssget ":L" '((0 . "lwpolyline"))))
(> (sslength s) 1)
(setq s (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))))
(setq b s)
)
(foreach e s
(if (setq pts (apply 'append
(mapcar '(lambda (x) (vlax-invoke e 'intersectwith x acextendnone))
(setq b (cdr b))
)
)
)
(while (caddr pts)
(cond ((and (setq p (list (car pts) (cadr pts)))
(setq i (vlax-curve-getparamatpoint e p))
(= 0.0 (vla-getbulge e (fix i)))
(setq d (vlax-curve-getdistatpoint e p))
(setq p1 (vlax-curve-getpointatdist e (+ d a)))
(setq p2 (vlax-curve-getpointatdist e (- d a)))
)
(vlax-invoke e 'addvertex (setq i (1+ (fix i))) (mapcar '+ p1 '(0 0)))
(vlax-invoke e 'addvertex i (mapcar '+ p2 '(0 0)))
(vla-setbulge
e
i
(cond ((< (angle '(0 0) p1) (angle '(0 0) p2)) -1.)
(1.)
)
)
)
)
(setq pts (cdddr pts))
)
)
)
)
)
(princ)
)
(vl-load-com)
@adhammagdy At above function from @ronjonp change value 0.125 to some greater value.
At this link you can find my solution to similar problem (change radius value if needed (set at 2).
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@andrew_k wrote:
....
I am looking to allow lines to be converted as well, and not just polylines. I also wanted control over the arc length and the exact intersection where the arc is being placed ....
Something like this? [Untested -- I left much of your code alone]
(defun c:LineJump (/ a d e etype i o p p1 p2) ;; Adds a 'hop' to a LWPolyline or Line
(setq a (getdist "\nSpecify arc length: "))
(setvar 'peditaccept 1); [for PEDIT - could save current value and reset later if desired]
(while
(and
(setq e (entsel "\nPick a line or polyline to add a hop: "))
(wcmatch (setq etype (cdr (assoc 0 (entget (car e))))) "LINE,LWPOLYLINE")
); and
(if (= etype "LINE") (command "_.pedit" (car e) "")); convert Line to Polyline
(setq p (getpoint "\nSpecify intersection: "))
(setq i (1+ (fix (vlax-curve-getparamatpoint (setq e (car e)) p))))
(setq d (vlax-curve-getdistatpoint e p))
(setq p1 (vlax-curve-getpointatdist e (+ d a)))
(setq p2 (vlax-curve-getpointatdist e (- d a)))
(setq o (vlax-ename->vla-object e)); make into VLA object for next functions:
(vlax-invoke o 'addvertex i (mapcar '+ p1 '(0 0)))
(vlax-invoke o 'addvertex i (mapcar '+ p2 '(0 0)))
(vla-setbulge ; make into half-circle arc segment
o
i
(cond
((< (angle '(0 0) p1) (angle '(0 0) p2)) -1.)
(1.)
); cond
); vla-setbulge
); while
(princ)
)
(vl-load-com)
Enter at the pick-one prompt will end it.
A couple of explanations too long for inside the code window:
The (mapcar '+ {point variable} '(0 0)) parts make a 3-coordinate XYZ point list into a 2-coordinate XY-only list, which it will want for adding a vertex to a LWPolyline. [Read about (mapcar) in Help to understand why.]
The bulge factor of an arc segment is 1 for a half-circle arc, positive for CCW direction and negative for CW direction.