3D CYLINDER LISP

[Anonymous]

Hi,

Hoping someone could point out a lisp that will draw a 3d solid cylinder
based on selecting endpoints and specifying a diameter. Of course it has to
be able to do it regardless of ucs settings. Anybody know where to find one?

PS. tried www.cadalog.com already, no luck.

Thx.

[Anonymous]

Try 1)www.autosolids.com 2)do it without lisp by drawing a
circle, extrude the circle and use vpoint to whatever ucs
you want and 3)wait till someone post or send you the lisp.

[Anonymous]

What's wrong with the CYLINDER command? ...or just drawing a circle and
EXTRUDEing it?
___

"The real JD" wrote in message
news:A3F53D567651B54C49B54C453451B3C7@in.WebX.maYIadrTaRb...
>
> Hoping someone could point out a lisp that will draw a 3d solid cylinder
> based on selecting endpoints and specifying a diameter. Of course it has
to
> be able to do it regardless of ucs settings. Anybody know where to find
one?

[old-cadaver]

Gee Paul, beat me to it. CYLINDER->(pick center)->(enter radius)->C (for center other end)->(pick enter other end). Of course you can write a script or lisp to add the "C" I guess.

[Anonymous]

I just want it to work regardless of ucs. I know
about the Cylinder command. But when you use it, it extrudes based on your
current ucs. then i have to rotate or align the cylinder to have it match
up.

So...

Looking for

pick endpoint of cylinder

pick other enpoint

specify dia.

that's it.

Try to do a cylinder by picking two points with the
z value of zero, you'll see what i mean.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"OLD-CADaver" <
href="mailto:rculp@chicagobridge.com">rculp@chicagobridge.com> wrote in
message
href="news:f15906e.2@WebX.maYIadrTaRb">news:f15906e.2@WebX.maYIadrTaRb...

Gee
Paul, beat me to it. CYLINDER->(pick center)->(enter radius)->C (for
center other end)->(pick enter other end). Of course you can write a script
or lisp to add the "C" I guess.

[old-cadaver]

What version of ACAD are you using? In R14+ the CYLINDER command will create cylinders in any direction regardless of UCS orientation. Read the prompts, after entering the radius it asks "Specify height of cylinder or [Center of other end]:" Enter a C (for Center other end) then pick something.

[Anonymous]

Using A2ki. Seems to extrude based on my current
UCS. Maybe there's a system variable for this?

Have you tried creating a cylinder
with:

UCS world,

and picking to points with the same z and have it
work. If so, it's not working for me. it always creates the cylinder extruded,
based on UCS.

Really, i tried picking center for both endpoints,
but it doesn't work right. I have to rotate the cylinder and align it to the
points i originally selected.

Thx for the feedback.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"OLD-CADaver" <
href="mailto:rculp@chicagobridge.com">rculp@chicagobridge.com> wrote in
message
href="news:f15906e.4@WebX.maYIadrTaRb">news:f15906e.4@WebX.maYIadrTaRb...

What
version of ACAD are you using? In R14+ the CYLINDER command will create
cylinders in any direction regardless of UCS orientation. Read the prompts,
after entering the radius it asks "Specify height of cylinder or [Center of
other end]:" Enter a C (for Center other end) then pick
something.

[Anonymous]

Well ... if you insist:

(defun C:CYL (/ p1 p2 dia)
(setq p1 (getpoint "\nStarting point: ")
p2 (getpoint "\nEnding point: ")
dia (getdist "\nDiameter: "))
(command "_.cylinder" p1 (/ dia 2.0) "_c" p2)
(princ)
)
___

"The real JD" wrote in message
news:E1A9F924DF7061B63E56E27ADF757116@in.WebX.maYIadrTaRb...
> I just want it to work regardless of ucs.

[old-cadaver]

Key-in CYLINDER, it prompts "Specify center point for base of cylinder or [Elliptical] <0,0,0>:" you pick a point, any point. It prompts "Specify radius for base of cylinder or [Diameter]:" key-in a radius. It prompts "Specify height of cylinder or [Center of other end]:" See the "CENTER OF OTHER END" part? ENTER a C, then pick a point on the other side of the drawing. What do you get?

[old-cadaver]

Thanks Paul, sometimes ir's just easier, eh?

[Anonymous]

Sure ... why do it the easy way, when you can complicate it with a little
LISP? 8-))
___

"OLD-CADaver" wrote in message
news:f15906e.8@WebX.maYIadrTaRb...
> Thanks Paul, sometimes ir's just easier, eh?

[Anonymous]

Very nice lispy Paul,
I learn something new today 😉

from an old cad but not -aver...

"Paul Turvill" wrote in message
news:0AD02A8FF6B032D01833C748FCC3EC36@in.WebX.maYIadrTaRb...
> Sure ... why do it the easy way, when you can complicate it with a little
> LISP? 8-))
> ___
>
> "OLD-CADaver" wrote in message
> news:f15906e.8@WebX.maYIadrTaRb...
> > Thanks Paul, sometimes ir's just easier, eh?
>
>

[old-cadaver]

snicker

[Anonymous]

This is the result of 3 hours of sleep a night for the past 3 nights.
I kept forgeting the bloody "c" for other centerpoint.

So I'm glad, i could provide some fun for all of you.

Paul, thanks for the lisp. I've changed it a bit:

(defun C:Duh (/ p1 p2 dia)
(prompt "\nThis will draw a cylinder for those who can't read the command
line!!")
(setq p1 (getpoint "\nStarting point: ")
p2 (getpoint "\nEnding point: ")
dia (getdist "\nDiameter: "))
(command "_.cylinder" p1 (/ dia 2.0) "_c" p2)
(princ)
)



"Paul Turvill" wrote in message
news:0AD02A8FF6B032D01833C748FCC3EC36@in.WebX.maYIadrTaRb...
> Sure ... why do it the easy way, when you can complicate it with a little
> LISP? 8-))
> ___
>
> "OLD-CADaver" wrote in message
> news:f15906e.8@WebX.maYIadrTaRb...
> > Thanks Paul, sometimes ir's just easier, eh?
>
>

[Anonymous]

Can you translate that word into plain English or Spanish, please?

snicker

[old-cadaver]

A slightly stifled, sarcastic laugh. Sorry, can't help with the Spanish.

[old-cadaver]

Go home, take a nap, tomorrow comes anyway. 😉

[shanesparks]

Hi,

Could write you one for a small fee.

Shane
ssparks@northlandenergy.com

[old-cadaver]

Paul provided a free one about ten posts up.

[Dorecore]

Is it possible to make a lisp command that find two points of the same X & Y coordinates and creates a cylinder between them given a certain radius? I have several hundred cylinders to create and thought there would be a way to streamline the process.