prob: curving a 3d cone in acad

[Hel1um]

???
how do I curve a cone over, in ACAD - or is on the only way in viz/max and importing it..
help would be greatly appreciated....
A cad student... ::)

[billsta]

cone? in 3D?
try drawing the section you want and then rev it.

[nearly??]

I think you've got the wrong end of the stick - I can create a cone , and revolving the object wouldn't sort it out - . I just want to bend it like a branch in the wind.?? if you get my meaning.. cheers anyway.

[CADTutor]

Unfortunately there's no BEND command in AutoCAD. 3D modelling is quite limited to creating basic forms and using booleans. If you want to make the sort of modifications you are talking about you'll need to use VIZ, MAX, Maya or some other 3D app.

[PAUL MITCHELL]

CHEERS FOR THAT..
Would have been nice to do it in ACAD.. but hey .. life goes on -

Paul

[superjari]

It is possible to extrude along a path, but the thickness of the extruded face will be even all over the path...

[CADTutor]

Yes, and something tells me that we won't be seeing the ability to taper an extrusion along a path anytime soon. :(

[Mr T]

The answer here is to use EDGE surf. This can create such an effect.

Hit F1 in Autocad and type EDGESURF in the Search and follow the instructions.

You must understand UCS first though and how to reset it to a new
origin.

HTH

Nick

www.cadteaching.com :roll:

[fuccaro]

And if do you need solids:
(defun c:bend()
(setvar "cmdecho" 0)
(setq old (getvar "osmode"))
(setvar "osmode" 0)
(setq ang1 0.04 ang 0
c (list 0 0) ;bend center
b (list 50 0) ;base center
v (list 50 100) ;top point
a (list 40 0)
s (list 60 0))
(setq bent (ssadd))
(command "zoom" (list (- (car v)) (- (cadr v))) v)

(while (< (angle c b) (angle c v))
(command "pline" a b v "c")
(command "_revolve" "l" "" v b 360)
(setq s (polar c ang 1)
v (polar b (+ ang (/ PI 2)) (distance v b))
b (inters c s v b nil)
a (inters c s v a nil)
ang (+ ang ang1))
(if (> ang ang1) (ssadd (entlast) bent))
(command "slice" "l" "" c b (list 0 0 1) (list 100 -50)))

(command "union" bent "")
(command "chprop" "l" "" "color" "red" "" "")
(command "zoom" "e")
(setvar "osmode" old)
)
(princ "\n Loaded. Type BEND at the command prompt")
(princ)
I wrote this piece of lisp just for fun. Please have no pretentions regarding how it works.

[robfowler]

That was a fun piece of lisp programming to run fuccaro.

I enjoyed seeing it bend a cone on screen. I then wondered what it could be used for? A horn perhaps! Grannie's hearing aid!!

Now if the lisp could select an already created cone and then specify the axis bend radius I'm sure it could be used for some types of transition pieces.

Rob.

[fuccaro]

Rob
Thank you for trying the routine. I think that the result is common but watching the lisp working it can be fun.
As I wrote this is just a game. It can be transformed in a "real" and usefull program but I am asking (my self?) if people need this.

[brite750]

I think I have a use for your lisp, I am a piping designer, and need to generate Reducing elbows in Acad 3D solids, it sounds like your program does this. How do I try your lisp, what do I do with the code.

[fuccaro]

Hello and welcome in our Forum!
Your question is an often-asked one. Check this link http://www.cadtutor.net/forum/viewtopic.php?t=240 and read the posts sent by CADTutor and Robfowler.
Please keep in mind that the routine is just a simple one. It should be modified to meet your concrete needs. Also in this form the routine generates a solid with small geometrical imperfections. Sure, it is perfectable but that means more code lines and some time to write them.