|
ACAD Newsletter Vol 05 No 10
|
jos vandoorn
|
May 16, 2005 18:26 PDT
|
-------------------ACAD newsletter---------------------
Newsletter about AutoCAD and AutoLISP
-------------------------------------------------------
Vol 05, No 10 May 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. Simple AutoLISP 3
4. Privacy Policy, Legal Stuff and Advertising Info.
5. Contact Information
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
1. Top Sponsor Section
-------------------------------------------------------
How to get your AutoCAD drawings right away
Dear People,
Listen carefully and I'll tell you how you can get your
AutoCAD drawings right away. Without waiting for hours.
It really is possible.
1. Don't listen to people sying that creating an
AutoCAD drawing takes hours.
That's what most people doing AutoCAD want you to
believe. Creating an AutoCAD drawing takes hours.
There is no way to avoid that.
What these people are syaing and what these people
want you to believe is not true. You can get your
AutoCAD drawings right away.
2. Be prepared to take a calculated risk for getting
your AutoCAD drawings right away.
If you come to me, I'll help you to get your AutoCAD
drawings right away. And you'll take a calculated
risk. You can't loose money.
Show me what you do and I'll make you a proposal.
Once you have my solution, you can test it and see
that you'll get you AutoCAD drawings right away.
If you don't get your AutoCAD drawings right away,
then you owe me nothing. Then you'll get my solution
at no charge.
3. Remember that you'll get what you paid for!
Speeding up AutoCAD is my business. I'm very
experienced in that business. I know what I'm doing.
I've got a lot of treferences.
You come to me, because you want to have your
AutoCAD drawings right away. I'll work on it. And
I'll help you.
I'll come with a solution. You pay me for my work.
And that's what you'll see. The price is right. My
solution is worth the price.
Want to know more? If so then take action. Send an e-
mail to:
mailto:acadprog-@hotmail.com
Write "AutoCAD" 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 send a blank
e-mail to:
mailto:acadnewslett-@hotmail.com
P.S. I found your e-mail address in the paper. You
were looking for an AutoCAD man. If I do a job
for you, then you don't need that man.
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
2. Notes from the Publisher
-------------------------------------------------------
*******************************************************
*******************************************************
*******************************************************
-------------------------------------------------------
3. Simple AutoLISP 3
-------------------------------------------------------
Here's the complete listing of the AutoLISP routine
that demonstrates how the LINE command, the CIRCLE
command, and the ARC command can be used.
I've added something to the AutoLISP routine. The
drawing that is created is a 2D drawing. So we don't
need the UCS icon.
In line 5 the UCSICON is set to zero. The UCS icon is
no longer displayed. We leave it like that. The system
variable is not set back.
(defun c:simple ()
(setvar "cmdecho" 0)
(setq om (getvar "osmode"))
(setvar "osmode" 0)
(setvar "ucsicon" 0)
(command "erase" "all" "")
(drlin (list 0 0))
(drlin (list 0 10))
(drlin (list 0 90))
(drlin (list 0 100))
(cross (list 20 30))
(drcir (list 30 50))
(drarc (list 0 100) (list 0 0) (list 30 50))
(drarc (list 0 90) (list 0 10) (list 30 50))
(drarc (list 60 0) (list 60 100) (list 30 50))
(drarc (list 60 10) (list 60 90) (list 30 50))
(command "zoom" "extents")
(command "zoom" "0.9x")
(setvar "osmode" om)
(setvar "cmdecho" 1)
(princ)
)
(defun drlin (pt)
(command "line" pt (polar pt 0 60) "")
)
(defun cross (pt)
(command "line" pt
(setq pt (polar pt 0 20))
(setq pt (polar pt (* pi 0.5) 10))
(setq pt (polar pt 0 10))
(setq pt (polar pt (* pi 0.5) 20))
(setq pt (polar pt pi 10))
(setq pt (polar pt (* pi 0.5) 10))
(setq pt (polar pt pi 20))
(setq pt (polar pt (* pi 1.5) 10))
(setq pt (polar pt pi 10))
(setq pt (polar pt (* pi 1.5) 20))
(setq pt (polar pt 0 10))
"c"
)
)
(defun drcir (pt)
(command "circle" pt
30
)
)
(defun drarc (p1 p2 p3)
(command "arc" p1
"e"
p2
p3
)
)
You know what you can do with this listing. Copy it to
a text file. Then save it under the name SIMPLE.LSP.
Next load the file into AutoCAD.
In AutoCAD type SIMPLE at the command prompt. And the
AutoLISP routine will run. It will create an AutoCAD
drawing. Do you see how quick?
*******************************************************
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
*******************************************************
*******************************************************
*******************************************************
_________________________________________________________________
Find just what you are after with the more precise, more powerful new MSN
Search. http://search.msn.com.my/ Try it now.
|
|
 |
|
