I don’t know how useful this routine is – but it is still pretty cool.

Someone requested it for a landscaping project and Lee-Mac came to the rescue.

What it does – Lets you draw a spline that intersects itself and then after placing the spline, offset the spline on both sides and trim out the intersections and erase the middle (original spline).

Here’s how:

• SPLIT <enter> to start
• Draw spline that intersects itself
• Specify the offset distance

;LEE-MAC

(defun c:Split ( / d e ) (vl-load-com)

(setq e (entlast))

(command "_.spline")

(while (= 1 (boole 1 1 (getvar 'CMDACTIVE))) (command pause))

(if

(and

(not (equal e (setq e (entlast))))

(setq d (getdist "\nSpecify Offset: "))

)

(progn

(setq e (vlax-ename->vla-object e))

(vlax-invoke e 'offset d)

(vlax-invoke e 'offset (- d))

(vla-delete e)

)

)

(princ)

)