topic Re: Arc Lisp help in Visual LISP, AutoLISP and General Customization Forum

Arc Lisp help

lecheverriaK6J4P — Tue, 29 Jun 2021 18:16:45 GMT

first post on the forums. I used to work at a utility department creating permit drawings (water, sewer, gas etc...)

We used to have this neat LISP by typing in BD it would give us the options to draw a line using bearing and distance, It ALSO gave us the option to create curves using radius and length. My question is does somebody have something like this? i have a lisp that does arc from end, by selecting the end of line, entering radius then specifying delta. Can someone edit it to instead of delta its the over all length of the curve instead?

Thanks,

Luis

Re: Arc Lisp help

CodeDing — Tue, 29 Jun 2021 20:18:24 GMT

@lecheverriaK6J4P ,

Are you using Civil 3D by chance? Transparent Commands are built into C3D.

Best,

~DD

Re: Arc Lisp help

lecheverriaK6J4P — Tue, 29 Jun 2021 20:40:40 GMT

I am not. I am using AutoCad Map 2014

Re: Arc Lisp help

john.uhden — Tue, 29 Jun 2021 23:21:12 GMT

I have a great LineByDirection routine that works exactly as Land Desktop used to, but I never built anything for arcs.

Re: Arc Lisp help

lecheverriaK6J4P — Tue, 29 Jun 2021 23:29:51 GMT

How tedious would that be to incorporate arcs into that lisp? I also provided a lisp that i feel works great but it asks me for delta. Its a command that lets you draw an arc at the end of a line, sort of like curve from end of object like in Civil 3d. Ill start the command select my end point (end of line) it will ask me for a radius then a delta. The delta is whats throwing me off. If i could get it replace with length that would be perfect. I just dont have the most LISP writing skills.

Re: Arc Lisp help

Sea-Haven — Wed, 30 Jun 2021 00:52:20 GMT

If you look carefully at ARC command there are lots of options, one is the following sequence.

ARC Cen Start Length enterlength

The only issue is it will draw counter clockwise this can be solved by a "Flip" option. This can be programmed in lisp, pretty sure should exist.

The second is to draw plines and use the arc option, a arc length is Rad*theta so angle can be worked out. The combination of brg/dist then arcs, using a dcl could help. I have something like John's its copyrighted will look at updating it using a dcl. -ve radius = Clockwise. The dcl is a library routine posted here multiple times, Multi getvals.

Just a quick answer

delta (/ (getdist "\nlength: ") rad)

Re: Arc Lisp help

CADaSchtroumpf — Wed, 30 Jun 2021 10:44:21 GMT

@Sea-Haven a écrit :

Just a quick answer
delta (/ (getdist "\nlength: ") rad)

Yes, you are rigth.

If he change:

delta (getangle "\nDelta: ")

delta (/ (getdist "\nLength: ") (abs rad))

in his code

A negative or positive value for radius give the orient of the arc

Re: Arc Lisp help

john.uhden — Wed, 30 Jun 2021 11:00:07 GMT

Knowing that L=R*Delta, you can rearrange the equation...
Delta=L/R

Re: Arc Lisp help

john.uhden — Wed, 30 Jun 2021 21:25:34 GMT

"the orient of the arc?!"

Here's one for ya.

If you entmod the radius to a negative value, AutoCAD assigns it a radius of 1.0.

The point is that you will have to draw it backwards.

Re: Arc Lisp help

Sea-Haven — Thu, 01 Jul 2021 04:57:59 GMT

Yes thats why I often use the dcl "FLIP" yes or no so would mirror the arc.

In the supplied code is (if (minusp rad) which reworks the start end points. Not tested.

Re: Arc Lisp help

CADaSchtroumpf — Thu, 01 Jul 2021 09:16:03 GMT

@john.uhden a écrit :
If you entmod the radius to a negative value, AutoCAD assigns it a radius of 1.0.

Yes it's true, moreover in its program we have:

(vlax-invoke space 'addarc ctrPt (abs rad) startang endang)

Which implies that it is always a positive value ...
But the introduction of a negative radius in its program will calculate the center point of the arc (variable 'ctrPt') differently and will imply if this one is to the right or to the left of the line.

ctrPt (polar endPt (- ang (/ pi 2)) rad)

Re: Arc Lisp help

lecheverriaK6J4P — Tue, 13 Jul 2021 21:16:28 GMT

One more thing. What do i need to change in the code in order to do a curve from polyline, line and arc?
Currently its only set up to do a curve at the end of a line.

Re: Arc Lisp help

lecheverriaK6J4P — Tue, 13 Jul 2021 21:26:57 GMT

Can you share that "flip" command?

Re: Arc Lisp help

Sea-Haven — Thu, 15 Jul 2021 06:58:13 GMT

I think using a -ve radius would be better so draws correct 1st go, the flip for a simple arc is using mirror and some sq off points. I have this as front end. It just uses my Multi radio buttons.lsp

(setq ans (ah:butts but "h" '("Flip " "Yes" "No")))

Re: Arc Lisp help

lecheverriaK6J4P — Thu, 15 Jul 2021 18:41:00 GMT

Thank you for that just got the multi radio buttons.lisp

What do i need to change in the code in order to do a curve from polyline, line and arc?
Currently its only set up to do a curve at the end of a line. Im not the most knowledgeable when it comes to lisp so pardon the questions.

Thanks,
Luis

Re: Arc Lisp help

Sea-Haven — Sat, 17 Jul 2021 01:45:02 GMT

For an arc from the end of a pline need to get the angle of the pline at end picked than can do a arc as know the angles required. The use pedit to join to pline. Similar for an arc but a bit easier as arcs have start end angle as property.

Need to have a think.

Re: Arc Lisp help

john.uhden — Sat, 17 Jul 2021 13:27:15 GMT

Why not just add another vertex with the correct bulge?

Re: Arc Lisp help

Sea-Haven — Sun, 18 Jul 2021 05:22:43 GMT

Yes better way.