Soccer anyone?

[LSR]

http://www.cadimage.net/postimages/soccer-1.jpg

I thought I share this to you guys; It’s my first tutorial contribution to this forum.
I did this using 2000i. If you find it hard to follow; my apology.

The following figures are icosahedron and truncated icosahedron.
You can find the coordinates of these from this site.
http://en.wikipedia.org/wiki/icosahedron
http://en.wikipedia.org/wiki/Truncated_icosahedron

http://www.cadimage.net/postimages/soccer-2.jpg
http://www.cadimage.net/postimages/soccer-3.jpg
I used the regular icosahedron coordinates and truncate them but you can also used the coordinates of truncated icosahedron as well.

As you can see none of the centroid of the pentagons and hexagons are in any axes (x,y,z axis) as shown from top view.
http://www.cadimage.net/postimages/soccer-4.jpg

I rotated the truncated icosahedron so that one of the pentagons is on the z-axis.
See top view with pentagon in red and hexagon in green
http://www.cadimage.net/postimages/soccer-5.jpg
http://www.cadimage.net/postimages/soccer-6.jpg
You have to manipulate the UCS so that you can use the regular rotate command. (You can use the 3d rotate as well but I prefer the 2d rotate)


Once you have that, you have to isolate the pentagon and hexagon to make a solid. You have to make a multiple copies first before you can isolate them. And you have to enlarge the image larger than the ball.

Isolate first the pentagon on the z-axis and erase the rest. Retrace the pentagon to create a polyline for extrusion. In this case I used the centroid of the pentagon, draw a circle and redraw using the polygon command. I also created a line (red) in z-axis from the centroid of pentagon to center of the ball at 0,0,0. This line also represents the radius of the ball (Ball size is from 27” to 28” in circumference). I also created two lines (in red) from the centroid to the vertex of the pentagon and from the vertex to the 0,0,0. This line represents the taper angle of the extrusion.
Draw another profile as region or boundary to represents the size of the ball or to shape the top face of the pentagon. (in magenta).
Extrude the pentagon with the tapered length and revolved the region.
http://www.cadimage.net/postimages/soccer-7.jpg

Using the solid editing, subtract the pentagon from revolved profile. Fillet the corners of the face only of the pentagon. This fillet represents the stitching of the ball.
http://www.cadimage.net/postimages/soccer-8.jpg
http://www.cadimage.net/postimages/soccer-9.jpg

Next is the Hexagon, isolate the one on the YZ plane (see top view of icosahedron) then rotate it to the Z-axis. Do the same procedure as above for the pentagon. Once you have the solid, you have to rotate it back to their original location.
http://www.cadimage.net/postimages/soccer-10.jpg
http://www.cadimage.net/postimages/soccer-11.jpg
http://www.cadimage.net/postimages/soccer-12.jpg
http://www.cadimage.net/postimages/soccer-13.jpg
http://www.cadimage.net/postimages/soccer-14.jpg
http://www.cadimage.net/postimages/soccer-15.jpg

Array the hexagon.
http://www.cadimage.net/postimages/soccer-16.jpg

You can manipulate the others by using copy, rotate and array.
This is the half of the soccer ball. The other half is the mirror image.
http://www.cadimage.net/postimages/soccer-17.jpg

Hope you guys enjoyed the games in last world cup.

Larry

[WagglyFawn]

Using the solid editing, subtract the pentagon from revolved profile. Fillet the corners of the face only of the pentagon

Do you mean to say subtract the profile from the pentagon??

Btw, that looks awesome!

[X]

very nice work! i'm going to try it out when i get some time :lol:

umm.... :oops: for sleepy people like me, how exactly do we construct the truncated icosahedron again? i looked it up on wikipedia like you said, and then my mind just went :wacko: :?:

:sweat: its just one of those things that as soon as you see the solution, you're like 'd'oh! i knew that... :glare: '

thanks :lol:

[WagglyFawn]

X, I believe you take a look at the ratios (golden ration=1.618) then you can easily construct the three rectangles on each plane to make up the vertices of the icosahedron. Once you've done that simply slice the corners properly and then you'll notice you've made the proper amount of hexagons and octagons.

"This polyhedron can be constructed from an icosahedron with the 12 vertices truncated (cut off) such that one third of each edge is cut off at each of both ends."

[X]

oh, alright. i didnt know if there was a command or something that you cold just plug some stuff in and it would make it for you.

that would make a pretty nice little lisp

[WagglyFawn]

X, if you'd like a dwg of the truncated icosahedron you could PM me with your e-mail address. Or if you'd like the satisfaction of doing it yourself that's just as well :)

[LSR]

Hi guys,

Here is the permutations of coordinates of truncated icosahedron;


(0.00000000 1.00000000 4.85410197)
(0.00000000 -1.00000000 -4.85410197)
(0.00000000 1.00000000 -4.85410197)
(0.00000000 -1.00000000 4.85410197)
(1.00000000 4.85410197 0.00000000)
(1.00000000 -4.85410197 0.00000000)
(-1.00000000 4.85410197 0.00000000)
(-1.00000000 -4.85410197 0.00000000)
(4.85410197 0.00000000 1.00000000)
(4.85410197 0.00000000 -1.00000000)
(-4.85410197 0.00000000 1.00000000)
(-4.85410197 0.00000000 -1.00000000)
(2.00000000 4.23606798 1.61803399)
(-2.00000000 4.23606798 1.61803399)
(2.00000000 4.23606798 -1.61803399)
(-2.00000000 4.23606798 -1.61803399)
(2.00000000 -4.23606798 1.61803399)
(-2.00000000 -4.23606798 1.61803399)
(2.00000000 -4.23606798 -1.61803399)
(-2.00000000 -4.23606798 -1.61803399)
(4.23606798 1.61803399 2.00000000)
(-4.23606798 1.61803399 2.00000000)
(4.23606798 1.61803399 -2.00000000)
(-4.23606798 1.61803399 -2.00000000)
(4.23606798 -1.61803399 2.00000000)
(-4.23606798 -1.61803399 2.00000000)
(4.23606798 -1.61803399 -2.00000000)
(-4.23606798 -1.61803399 -2.00000000)
(1.61803399 2.00000000 4.23606798)
(-1.61803399 2.00000000 4.23606798)
(1.61803399 2.00000000 -4.23606798)
(-1.61803399 2.00000000 -4.23606798)
(1.61803399 -2.00000000 4.23606798)
(-1.61803399 -2.00000000 4.23606798)
(1.61803399 -2.00000000 -4.23606798)
(-1.61803399 -2.00000000 -4.23606798)
(1.00000000 3.61803399 3.23606798)
(-1.00000000 3.61803399 3.23606798)
(1.00000000 3.61803399 -3.23606798)
(-1.00000000 3.61803399 -3.23606798)
(1.00000000 -3.61803399 3.23606798)
(-1.00000000 -3.61803399 3.23606798)
(1.00000000 -3.61803399 -3.23606798)
(-1.00000000 -3.61803399 -3.23606798)
(3.61803399 3.23606798 1.00000000)
(-3.61803399 3.23606798 1.00000000)
(3.61803399 3.23606798 -1.00000000)
(-3.61803399 3.23606798 -1.00000000)
(3.61803399 -3.23606798 1.00000000)
(-3.61803399 -3.23606798 1.00000000)
(3.61803399 -3.23606798 -1.00000000)
(-3.61803399 -3.23606798 -1.00000000)
(3.23606798 1.00000000 3.61803399)
(-3.23606798 1.00000000 3.61803399)
(3.23606798 1.00000000 -3.61803399)
(-3.23606798 1.00000000 -3.61803399)
(3.23606798 -1.00000000 3.61803399)
(-3.23606798 -1.00000000 3.61803399)
(3.23606798 -1.00000000 -3.61803399)
(-3.23606798 -1.00000000 -3.61803399)

And this is the permutation of coordinates of regular icosahedron;


(0.0000000000 1.0000000000 1.6180339887)
(0.0000000000 -1.0000000000 -1.6180339887)
(0.0000000000 1.0000000000 -1.6180339887)
(0.0000000000 -1.0000000000 1.6180339887)
(1.0000000000 1.6180339887 0.0000000000)
(-1.0000000000 -1.6180339887 0.0000000000)
(1.0000000000 -1.6180339887 0.0000000000)
(-1.0000000000 1.6180339887 0.0000000000)
(1.6180339887 0.0000000000 1.0000000000)
(-1.6180339887 0.0000000000 -1.0000000000)
(-1.6180339887 0.0000000000 1.0000000000)
(1.6180339887 0.0000000000 -1.0000000000)

And this is the lisp I found way back in 1991 from Cadence Magazine;


(defun C:pt_in1 (/ i file fp pt)
(setvar "cmdecho" 0)
(setq i 1)
(while i
(setq fp (findfile (getstring "\Input file: ")))
(if file
(progn
(setq fp (open file "r"))
(setq i nil)
)
(princ "\nInvalid filename.")
)
)
(setq pt 1)
(while pt
(setq pt (read-line fp))
(if pt
(progn
(setq pt (read pt))
(command "point" pt)
)
)
)
(closed fp)
(princ)
)

Have fun and show us your team colors when you're done!
I'm making another one that shows the maple leaf.

Larry

[X]

so how do we load the file into the lisp? i saved the coordinates in a txt file, but nothing i tried to load it into the lisp worked! what do i need to do?

[WagglyFawn]

Yeah I did the same thing and it just tells me that it's an invalid input file. What extension do we need to save it as?

[StykFacE]

so how do we load the file into the lisp? i saved the coordinates in a txt file, but nothing i tried to load it into the lisp worked! what do i need to do?

LOL, you need to go buy a book on AutoLISP, which is the programming language behind AutoCAD. walk before you run.... lol

[X]

i've done programming before, so i have a pretty good idea what's going on in the program :glare: it's not like im going about this blindly...

[StykFacE]

i've done programming before, so i have a pretty good idea what's going on in the program :glare: it's not like im going about this blindly...

oh okay, sorry.... i just assumed since AutoLISP is about 25 years old now and LISP even older. lol

[X]

lol, yeah. i hadn't even heard about lisp before i came here, to be honest :huh: but i've done stuff with VB, J#, C++, and that good stuff so the logic flow makes sense to me, im just not familiar with all of the commands

[LSR]

oops! sorry.
Line 5 was wrong.
Here is the correct one:

(defun C:pt_in1 (/ i file fp pt)
(setvar "cmdecho" 0)
(setq i 1)
(while i
(setq file (findfile (getstring "\Input file: ")))
(if file
(progn
(setq fp (open file "r"))
(setq i nil)
)
(princ "\nInvalid filename.")
)
)
(setq pt 1)
(while pt
(setq pt (read-line fp))
(if pt
(progn
(setq pt (read pt))
(command "point" pt)
)
)
)
(closed fp)
(princ)
)

Save the file in ASCII form or .txt
Change your PDMODE to 34 so that you can see your points

[LSR]

Once the points are entered, go to one of the 3D isometric views so that you can see your points

Larry

[X]

ah, excellent. I'll post mine when it's ready. thanks for the nifty guide :lol:



EDIT: um, mine's turning out to be kinda not a soccer ball, and instead of fixing it, i kinda ran with it and so it's going to be similar based off of the prinicple...but not a soccer ball. :sweat:

this is just a preview, i'll put the final up later.

http://img468.imageshack.us/img468/1516/sb1nu8.png

[X]

im not sure if i'm allowed to do this or not, so feel free to scold me if i'm not supposed to, but i ended up making it into a gif, and the gif prog goofed up the colors on a few frames, but it turned out alright overall i think. *shrug* the frames are supposed to be 10/100ths of a second each so hopefully it will run okay... >_o

awesome tutorial, it sure kept me entertained :P :lol:

http://img139.imageshack.us/img139/8333/ballanimationqq1.gif
I only used one light, right in the middle of the ball. then i just changed the intensity of the light and the refraction and self-illumination of the 'core' material. and the real renders look better, but the gif maker was kinda meeeeeeeeeeeeeehhhhhhhhhhhh..... :lol:

[lasershows]

Hi LSR, I am very new to autocad and have a 90% complete progect, I just need a ball like in your examples, however, I have no clue how to use lisp and also it will be a one time opperation. is it possible you could send me an autocad dwg of the ball?

regards

Andy

[lasershows]

would you mind sending me a dwg of this ball? I have no idea how to use lisp even tho I did try loading the files, while the first script loads (Tools, autolisp, loadapplication) nothing else happens:

Command: _appload drawing3.lsp successfully loaded.

Also, did I specify the filename correctly? myfile.txt


(defun C:pt_in1 (/ i file fp pt)
(setvar "cmdecho" 0)
(setq i 1)
(while i
(setq fp (findfile (getstring "\Input file: myfile.txt")))
(if file
(progn
(setq fp (open file "r"))
(setq i nil)
)
(princ "\nInvalid filename.")
)
)
(setq pt 1)
(while pt
(setq pt (read-line fp))
(if pt
(progn
(setq pt (read pt))
(command "point" pt)
)
)
)
(closed fp)
(princ)
)


This ballis perfect for my project, I just cant get touse it, very frustrating as you can imagine and I am in a huge lack of time panick.

Please someone heeeeeeeeelp!!!

Andy

[StykFacE]

i think the whole point is for you to learn to do it yourself.... :)

the tutorial is easy enough, you should be able to do it.

[Groutie]

I mean, sheeeeeit LSR uda man. Ya can't get a better tutorial that that. Nuff said, nice football...................

[lasershows]

jesus, the code does nothing, its poorly explained maybe unless your an expert in lisp and autocad and so far I didnt see anyone else manage to make another ball from it.

[StykFacE]

jesus, the code does nothing, its poorly explained maybe unless your an expert in lisp and autocad and so far I didnt see anyone else manage to make another ball from it.

so just because someone posts a tutorial means everyone should try it out? lol :lol:

[Gothic]

I can't run the Lisp file u supposed.
I don't know what it happened. when i load this lisp file into my obj,
it sign me unknown command. :( :huh:

Gothic

[CarlB]

Since there seems to be interest in this soccer ball lisp, so I simplified the routine to include the coordinates in the routine. It draws points, not surfaces.




(defun c:soccer ()
(setq ptlist
'(
(0.00000000 1.00000000 4.85410197)
(0.00000000 -1.00000000 -4.85410197)
(0.00000000 1.00000000 -4.85410197)
(0.00000000 -1.00000000 4.85410197)
(1.00000000 4.85410197 0.00000000)
(1.00000000 -4.85410197 0.00000000)
(-1.00000000 4.85410197 0.00000000)
(-1.00000000 -4.85410197 0.00000000)
(4.85410197 0.00000000 1.00000000)
(4.85410197 0.00000000 -1.00000000)
(-4.85410197 0.00000000 1.00000000)
(-4.85410197 0.00000000 -1.00000000)
(2.00000000 4.23606798 1.61803399)
(-2.00000000 4.23606798 1.61803399)
(2.00000000 4.23606798 -1.61803399)
(-2.00000000 4.23606798 -1.61803399)
(2.00000000 -4.23606798 1.61803399)
(-2.00000000 -4.23606798 1.61803399)
(2.00000000 -4.23606798 -1.61803399)
(-2.00000000 -4.23606798 -1.61803399)
(4.23606798 1.61803399 2.00000000)
(-4.23606798 1.61803399 2.00000000)
(4.23606798 1.61803399 -2.00000000)
(-4.23606798 1.61803399 -2.00000000)
(4.23606798 -1.61803399 2.00000000)
(-4.23606798 -1.61803399 2.00000000)
(4.23606798 -1.61803399 -2.00000000)
(-4.23606798 -1.61803399 -2.00000000)
(1.61803399 2.00000000 4.23606798)
(-1.61803399 2.00000000 4.23606798)
(1.61803399 2.00000000 -4.23606798)
(-1.61803399 2.00000000 -4.23606798)
(1.61803399 -2.00000000 4.23606798)
(-1.61803399 -2.00000000 4.23606798)
(1.61803399 -2.00000000 -4.23606798)
(-1.61803399 -2.00000000 -4.23606798)
(1.00000000 3.61803399 3.23606798)
(-1.00000000 3.61803399 3.23606798)
(1.00000000 3.61803399 -3.23606798)
(-1.00000000 3.61803399 -3.23606798)
(1.00000000 -3.61803399 3.23606798)
(-1.00000000 -3.61803399 3.23606798)
(1.00000000 -3.61803399 -3.23606798)
(-1.00000000 -3.61803399 -3.23606798)
(3.61803399 3.23606798 1.00000000)
(-3.61803399 3.23606798 1.00000000)
(3.61803399 3.23606798 -1.00000000)
(-3.61803399 3.23606798 -1.00000000)
(3.61803399 -3.23606798 1.00000000)
(-3.61803399 -3.23606798 1.00000000)
(3.61803399 -3.23606798 -1.00000000)
(-3.61803399 -3.23606798 -1.00000000)
(3.23606798 1.00000000 3.61803399)
(-3.23606798 1.00000000 3.61803399)
(3.23606798 1.00000000 -3.61803399)
(-3.23606798 1.00000000 -3.61803399)
(3.23606798 -1.00000000 3.61803399)
(-3.23606798 -1.00000000 3.61803399)
(3.23606798 -1.00000000 -3.61803399)
(-3.23606798 -1.00000000 -3.61803399)
)
)
(foreach x ptlist
(command "._point" x)
)
(princ)
)

[LSR]

Gothic and Lasershows:
If you guys had followed or read the thread sequence you would notice that I posted
the wrong code (typo error) the first time, the two previous guys made the same mistake as you guys.
I corrected the code since then, the correct one is somewhere in the middle of the thread.
"X" made a glass like ball.

CarlB:
Simpler code. An excellent one, I like it. Yes, it only draws points not surfaces.
These points represent the vertices of the icosahedron which you create the surfaces.

[Gothic]

Gothic and Lasershows:
If you guys had followed or read the thread sequence you would notice that I posted
the wrong code (typo error) the first time, the two previous guys made the same mistake as you guys.
I corrected the code since then, the correct one is somewhere in the middle of the thread.
"X" made a glass like ball.

CarlB:
Simpler code. An excellent one, I like it. Yes, it only draws points not surfaces.
These points represent the vertices of the icosahedron which you create the surfaces.

thanks 4 ur rply. i'll try it again as u proposed.
i'm just a novice in those field.

thank you.

Gothic

[Gothic]

221


:lol: I've caught it, N' I love it very much that.........:oops:

Thank you

Gothic

[Antisthenes]

how can i get a DWG of your soccerball to make a SAT out of?

thanks

[chan09]

Now, i also got one....!

[Norts]

whilst this is a very good tutorial, it should be made clear that is not soccer, it is indeed football

[kthuyein]

Since there seems to be interest in this soccer ball lisp, so I simplified the routine to include the coordinates in the routine. It draws points, not surfaces.




(defun c:soccer ()
(setq ptlist
'(
(0.00000000 1.00000000 4.85410197)
(0.00000000 -1.00000000 -4.85410197)
(0.00000000 1.00000000 -4.85410197)
(0.00000000 -1.00000000 4.85410197)
(1.00000000 4.85410197 0.00000000)
(1.00000000 -4.85410197 0.00000000)
(-1.00000000 4.85410197 0.00000000)
(-1.00000000 -4.85410197 0.00000000)
(4.85410197 0.00000000 1.00000000)
(4.85410197 0.00000000 -1.00000000)
(-4.85410197 0.00000000 1.00000000)
(-4.85410197 0.00000000 -1.00000000)
(2.00000000 4.23606798 1.61803399)
(-2.00000000 4.23606798 1.61803399)
(2.00000000 4.23606798 -1.61803399)
(-2.00000000 4.23606798 -1.61803399)
(2.00000000 -4.23606798 1.61803399)
(-2.00000000 -4.23606798 1.61803399)
(2.00000000 -4.23606798 -1.61803399)
(-2.00000000 -4.23606798 -1.61803399)
(4.23606798 1.61803399 2.00000000)
(-4.23606798 1.61803399 2.00000000)
(4.23606798 1.61803399 -2.00000000)
(-4.23606798 1.61803399 -2.00000000)
(4.23606798 -1.61803399 2.00000000)
(-4.23606798 -1.61803399 2.00000000)
(4.23606798 -1.61803399 -2.00000000)
(-4.23606798 -1.61803399 -2.00000000)
(1.61803399 2.00000000 4.23606798)
(-1.61803399 2.00000000 4.23606798)
(1.61803399 2.00000000 -4.23606798)
(-1.61803399 2.00000000 -4.23606798)
(1.61803399 -2.00000000 4.23606798)
(-1.61803399 -2.00000000 4.23606798)
(1.61803399 -2.00000000 -4.23606798)
(-1.61803399 -2.00000000 -4.23606798)
(1.00000000 3.61803399 3.23606798)
(-1.00000000 3.61803399 3.23606798)
(1.00000000 3.61803399 -3.23606798)
(-1.00000000 3.61803399 -3.23606798)
(1.00000000 -3.61803399 3.23606798)
(-1.00000000 -3.61803399 3.23606798)
(1.00000000 -3.61803399 -3.23606798)
(-1.00000000 -3.61803399 -3.23606798)
(3.61803399 3.23606798 1.00000000)
(-3.61803399 3.23606798 1.00000000)
(3.61803399 3.23606798 -1.00000000)
(-3.61803399 3.23606798 -1.00000000)
(3.61803399 -3.23606798 1.00000000)
(-3.61803399 -3.23606798 1.00000000)
(3.61803399 -3.23606798 -1.00000000)
(-3.61803399 -3.23606798 -1.00000000)
(3.23606798 1.00000000 3.61803399)
(-3.23606798 1.00000000 3.61803399)
(3.23606798 1.00000000 -3.61803399)
(-3.23606798 1.00000000 -3.61803399)
(3.23606798 -1.00000000 3.61803399)
(-3.23606798 -1.00000000 3.61803399)
(3.23606798 -1.00000000 -3.61803399)
(-3.23606798 -1.00000000 -3.61803399)
)
)
(foreach x ptlist
(command "._point" x)
)
(princ)
)


I got only points. Why? Help me :(

[chan09]

I got only points. Why? Help me :(

you should read this topic fist page , the post of topic owner..
this is not for surface, soccer is only solid.
lisp file is only for coordinate points.
u should follow topic owner way.

thankz n regards

[ascorbic]

so the one posted by CarlB is the soccer ball lisp? so how do i use this lisp? i have 0 knowledge in lisp, all i know that lisp is a programming language use by autocad. could you teach me how to use lisp posted by CarlB?
i'm interested to model this this because i could practice again in cad 3d modeling.

thanks!

[Ritch7]

for a football (or soccerball for the americans) it all depends on how you wish to draw it, some people use different techniques, lisps or no lisps, theire only there to make things quicker and easier. ROUGH IT OUT FROM SCATCH!

[chan09]

so the one posted by CarlB is the soccer ball lisp? so how do i use this lisp? i have 0 knowledge in lisp, all i know that lisp is a programming language use by autocad. could you teach me how to use lisp posted by CarlB?
i'm interested to model this this because i could practice again in cad 3d modeling.

thanks!

plz go to the below link!
"http://www.esnips.com/doc/0c30f9f7-7b54-43b7-a2f0-285ce394b133/3d-soccer"
enjoy!

[ascorbic]

@chan09

thanks for the link!

btw, how can i download the .swf file?

[GE13579]

...so how do i use this lisp? i have 0 knowledge in lisp, all i know that lisp is a programming language use by autocad. could you teach me how to use lisp posted by CarlB?..

You can learn more on how to use Lisps here (http://www.cadtutor.net/forum/showthread.php?t=1390).

[chan09]

@chan09

thanks for the link!

btw, how can i download the .swf file?

u just click the download

thankz for ur downloading my flash file..

some more i want u to invite from my blog

but sorry for font, i will translate to english version not so soon..

but my account still can't link for url coz of my posts not more than 9 posts :D

urs,
chan chan

[chan09]

u just click the download

thankz for ur downloading my flash file..

some more i want u to invite from my blog

but sorry for font, i will translate to english version not so soon..

but my account still can't link for url coz of my posts not more than 9 posts :D

urs,
chan chan

u just click the download (http://www.esnips.com/nsdoc/0c30f9f7-7b54-43b7-a2f0-285ce394b133/?action=forceDL)

thankz for ur downloading my flash file..

some more i want u to invite from my blog (http://chan09.blogspot.com/)

but sorry for font, i will translate to english version not so soon..

urs,
chan chan

[ascorbic]

@GE13579
thanks for the link! :D

@chan09

thanks again! i have visit your site. nice tutorials i will try to create that drill. lolz!

[buburayak]

please for more simple tutor how to draw a soccer ball :(

[buburayak]

please for more simple tutor how to draw a soccer ball :(
please anyone T__T

[pudgeoree]

Thanks for this! Very Nice Work!
:thumbsup: