|
ACAD Newsletter Vol 05 No 11
|
jos vandoorn
|
May 30, 2005 18:26 PDT
|
-------------------ACAD newsletter---------------------
Newsletter about AutoCAD and AutoLISP
-------------------------------------------------------
Vol 05, No 11 June 2005
-------------------------------------------------------
-------------------------------------------------------
For best viewing maximize the window to full size
-------------------------------------------------------
In this issue I have prepared for you....
1. Top Sponsor Section
2. Notes from the Publisher
3. Speeding up AutoCAD 2
4. Privacy Policy, Legal Stuff and Advertising Info.
5. Contact Information
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
1. Top Sponsor Section
-------------------------------------------------------
Get this and save lots of time with AutoCAD
Going to a bank. I hate it. Waiting, waiting. Some days
you must wait for hours. I don't know about you. But
I've got better things to do.
Working with AutoCAD. Even worse. It takes hours before
your AutoCAD drawing is created. Sometimes it even
takes days.
But that's where working with AutoCAD is different from
going to a bank. You can speed up AutoCAD. You can get
your AutoCAD drawing much quicker.
That's my business. I'm programming for AutoCAD. I
wrote programs that create parts of AutoCAD drawings
and complete AutoCAD drawings.
The programs that create parts of AutoCAD drawings
reduce the time needed for creating AutoCAD drawings by
50 percent or more.
The programs that create complete AutoCAD drawings did
the job within one minute. One minute! Imagine that.
You can wait as the AutoCAD drawing is created.
Are you interested? Or do you prefer to wait for hours
before the AutoCAD drawing is created? If you prefer to
wait for hours then do nothing.
Otherwise we could make an appointment. I come to your
place. I show you what I did for programming. And I
tell you what I can do for you.
Take action. Get in touch. Write an e-mail to:
mailto:acadprog-@hotmail.com
Write "Save" in the subject line. Or give me a call.
In Malaysia. This is my number:
012-9312742.
Sincerely,
Jos van Doorn. AutoCAD specialist and AutoLISP
programmer. Also publisher ACAD Newsletter. About
AutoCAD and AutoLISP. FREE. To subscribe blank e-mail
to:
mailto:acadnewslett-@hotmail.com
P.S. I work on a "no cure, no pay" base. If my
program doesn't save you time and money, then
you'll get it for free.
P.P.S. Making an appointment and me coming to your
place has no charge. I'm not going to bill you
for the appointment.
P.P.P.S. Suppose you have speeded up AutoCAD. That
would be great. You could do without an extra
AutoCAD operator.
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
2. Notes from the Publisher
-------------------------------------------------------
FBI
My entire fault. I was standing there. Waiting. Took a
long time. I had a long face. I was already there for
45 minutes. I looked very serious.
A man came to me. He was standing next to me. He looked
at me. Then he had a question. "Excuse me. Are you
police?"
I don't like it when they ask a stupid question. But
this man did. He didn't know. So I gave him a stupid
reply. "No. FBI".
Now I turned around. I looked at the man. I looked him
straight in the eyes. "What’s your name? IC number. Are
you married? Wife’s name".
That scared him off. Good. He told me everything. About
his kids. His parents. The whole family. I really go
him scared.
I think I’ve got a talent. A secret service talent.
Aren’t they looking for a new James Bond? They are not
talking to the right person.
Even if you're from the FBI. Have a good read.
Jos
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
3. Speeding up AutoCAD 2
-------------------------------------------------------
The last time we came to drawing the grill. That is a
little bit special. The grill has got a hatch. The
hatch must have a correct position.
For giving the correct position to the hatch we must
move the UCS. Do you now that? A hatch starts in the
origin of the UCS.
So we move the origin of the UCS to the lower left
corner of the grill. And then we draw the hatch. But we
must do one more thing.
After repositioning the origin of the UCS, we must
bring it back in its original position. For if we want
to continue using the insertion point.
But first things first. Here's the function for drawing
the grill. In it yuou'll find things I will explain.
1. (defun grill (ip)
2. (command "rectangle" (setq pt (polar ip 0 125)
3. pt (polar pt
(* pi 0.5)
75)
4. )
5. (setq pt (polar pt 0 450)
6. pt (polar pt
(* pi 0.5)
00
)
7. )
8. )
9. (command "rectangle" (setq pt (polar ip 0 150)
10. pt (polar pt
(* pi 0.5)
300)
11. )
12. (setq pt (polar pt 0 400)
13. pt (polar pt
(* pi 0.5)
250
)
14. )
15. )
16. (setq et (entlast))
17. (command "ucs" "or"
18. (setq pt (polar ip 0 150)
19. pt (polar pt
(* pi 0.5)
400
)
20. )
21. )
22. (command "hatch" "u"
23. 0
24. 10
25. "n"
26. et
27. ""
28. )
29. (command "ucs" "or"
30. (setq pt (polar (list 0 0)
pi
150
)
31. pt (polar pt
(* pi 1.5)
400
)
32. )
33. )
34. )
In the lines from 2 till 15 two rectangles are drawn.
The name of the last rectangle is stored in the ET
variable.
Next we move the origin of the UCS. The UCS command is
invoked for doing that. In the command the OR option is
used.
A hatch is drawn. Once that is done the UCS is set back
to its original position. And that's all that is done
in the function.
In this part of the series you've seen the function for
drawing the grill. In the previous part you already saw
the functions for drawing the outline and the holes.
The AutoLISP routine also has a main part. That part is
used to make a call to the functions for drawing the
outline, the holes, and the grill.
Here's the main part of the AutoLISP routine:
1. (defun c:speed ()
2. (setvar "cmdecho" 0)
3. (setq om (getvar "osmode"))
4. (setvar "osmode" 0)
5. (command "erase" "all" "")
6. (setq ip (getpoint "\nInsertion point: "))
7. (outln ip)
8. (holes ip 0)
9. (holes (polar ip (* pi 0.5) 700) (* pi 1.5))
10. (holes (polar ip 0 700) (* pi 0.5))
11. (grill ip)
12. (command "zoom" "extents")
13. (command "zoom" "0.9x")
14. (setvar "osmode" om)
15. (setvar "cmdecho" 1)
16. (princ)
17. )
You see that I did something with the CMDECHO system
variable and the OSMODE system variable. At the start
everything in the drawing is deleted.
In the main part there is asked for an insertion point.
The insertion point is the lower left corner of the
rectangle.
And then several calls are made to functions. A call is
mad to the function for drawing the rectangle, the
holes, and the grill.
At the end the whole drawing is placed in the middle of
the screen. For doing that the ZOOM command is used. We
also zoom out a little.
Next time I will give you the complete AutoLISP
routine. Then you can place it into a text file and
load it into AutoCAD.
*******************************************************
Writer of this article is Jos van Doorn.
Once you start with AutoLISP, you will be saving lots
of time and money with AutoCAD. Don't know AutoLISP?
Here are the books for learning.
http://autocadbooks.topcities.com
*******************************************************
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
4. Privacy policy, Advertising Info, and Legal Stuff
-------------------------------------------------------
This newsletter is only sent on request. Our list of
subscribers is strictly confidential. That means that
your details have never been and never will be passed
on to any third party.
Your privacy is greatly respected. Should you ever wish
to unsubscribe, full instructions are always provided.
To subscribe:
mailto:acadnewslett-@topica.com
To unsubscribe:
mailto:acadnewslette-@topica.com
Previous issues of the newsletter can be seen at:
http://www.topica.com/lists/acadnewsletter/read
Advertising info:
If you wish to advertise in this newsletter, you
shouldn't wait a second longer. Ad rates now are the
lowest for the season.
The ad rates are:
Top sponsor message: $5 per issue
Ad in the sponsors section: $2 per issue
The ad guidelines are:
Ads have to be up to 5 lines including a URL and a
mail to tag. Each line can have up to 55 chars max.
Legal stuff:
ACAD newsletter publishes original content and tips
that are distributed by readers. ALL of our articles
are original and copyrighted by Jos van Doorn.
If you wish to publish any of the content here in your
newsletter please contact Jos van Doorn at
mailto:acad-@hotmail.com
He's the publisher of this newsletter. Write PUBLISH in
the subject line.
Reprinting or reproducing this newsletter can be done
only if you keep it all together. You may NOT reproduce
any part of this newsletter in a way without a written
permission from Jos van Doorn. The signatures are to
be kept intact.
More stuff:
In the archive you can find ll back issues of the ACAD
Newsletter. This is the web site address where you can
find the archive:
http://www.topica.com/lists/acadnewsletter/read
At the web site of the ACAD Newsletter a lot of
applications can be found. There you can also find back
issues bundled in PDF files. Here's the web site:
http://groups.yahoo.com/group/acadnewsletter/files
-------------------------------------------------------
Disclaimer:
ACAD newsletter accepts no responsibility whatsoever
for the content or legality of any customer's
advertisement shown in any e-mailing.
It is the advertisers' responsibility to check and
abide by the Local, State, Federal and International
laws pertaining to the products, services or business
opportunities they advertise, as well as all laws
pertaining to the products, services and/or business
opportunities promotions.
All offers in this publication, are void where
prohibited by law!
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
5. Contact Information
-------------------------------------------------------
Jos van Doorn - publisher ACAD newsletter
Jalan Watan 12
CA-4-24
68000 Bandar Baru Ampang
Malaysia
(03) 42706214
mailto:acad-@hotmail.com
*******************************************************
*******************************************************
*******************************************************
_________________________________________________________________
Get an advanced look at the new version of MSN Messenger.
http://messenger.msn.com.my/Beta/Default.aspx
|
|
 |
|
