Break horizontal line at intersection

0
50
I have a fairly simple toolbar macro that I created many years
ago that I am trying to convert to a lisp routine so I don’t have
to click the button each time, but I just can’t figure it out
with my poor programming skills. Hopefully one of you smart
people can help me.
Here’s the basic rundown:
Starting with a vertical and horizontal line that cross. The
command has me select the apparent intersection of the 2 lines,
draws a circle with a radius based on the dimscale, starts the
trim command and selects the circle, selects the horizontal line
within the circle to break it, then erases the circle.

Macro:
^C^C_circle;_appint;$m=$(/,$(getvar,dimscale),32);_trim;_last;;_none;$(eval,”@”$(/,$(getvar,dimscale),48)”<0″);;_erase;_previous;;

If someone could help me replicate this in lisp I would be very
appreciative.
Thanks.

Read More

LEAVE A REPLY