Does your colleague dig sick CAD Jokes? Here's one,

At command prompt,
or adding to your favorite AutoLisp Routine,
Type

(Alert "Format C:Drive")

You wont believe how sick this is, enjoy.

AUGI CAD Camp 2005 At Orange County, CA

Its really really cool attending this CAD Camp.

reminds you how enjoyable this hobby job really is.

There was two hundred thirty people attending these CAD playgrounds

along with whose who in Southern California CAD community.

Got to meet Lynn Allen, a well known figure in the

AutoCAD world and a respected columnist of CADalyst magazine.

Visit her blog on my related links.

List Routine: To edit multiple single text entities

vmon

(DEFUN C:TEXTSUB ( );/ a b d e d1 b1 y)
(graphscr) (prompt "Select Text line ") (terpri)
(setq a1 (ssget))
(setq n (sslength a1))
(setq index 0) (repeat N
(setq b (entget (ssname a1 index)))
(setq d (assoc 1 b))
(redraw (cdr (assoc -1 b)) 3)
(prompt (cdr d)) (terpri)
(setq e (getstring 1))
(setq d1 (cons (car d) e))
(setq b1 (subst d1 d b))
(IF (/= E "")(entmod b1))
(setq y (getstring "Is this correct - Y ")) (terpri)
(if (= (strcase y) "N") (entmod b))
(setq index (+ index 1))
);end repeat
)

(PRINC)

Tired of calculating rebars standard 90 degree bend?

Here is a LISP routine you can use.

(defun C:JHOOK( / ang ang0 ang1 ang2 ac ac2 pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 P1 P2 P3 P4 P5 P6)
(setq pt3 (upoint 1 "" "Start point " nil nil) pt4 (upoint 1 "" "Reference Point " nil pt3))
(setq ac (/ #dwgsc 20.0)
ac2 (* 2.0 ac)
dt (/ #dwgsc 20)
ang (angle pt4 pt3)
ang0 (+ ang (dtr 90))
ang2 (+ ang (dtr 135))
pt3 (polar pt3 (angle pt3 pt4) (* 0.5 ac))
pt4 (polar pt4 ang (* 0.5 ac))
pt2 (polar pt3 ang ac)
pt2 (polar pt2 ang0 ac)
pt1 (polar pt2 ang0 ac2)
pt5 (polar pt4 ang0 ac)
pt5 (polar pt5 ang2 ac)
pt6 (polar pt5 (+ ang (dtr 45)) ac2))
(command "pline" pt1 "w" "0" "0" pt2 "a" pt3 "l" pt4 "a" pt5 "l" pt6 "" )
)

My Zen thoughts for today

1. If you lend someone $5.00, and never see that person again,
it was probably worth it.

2. Good judgement comes from bad experience,
and a lot of that comes from bad judgement.

Jokes Pinoy style

Pulis: Bayad ko sa kape, oh.
Chinese Merchant: Aba, aftah 25 years, bakit ka bayad?
Pulis: Utos ni Chief, wala nang kotong.
Chinese Merchant: Aba sige, simula ngayon hindi na ako dura
sa kape mo.

Gone fishing for sand bass

Welcome to CADMonk's Blog ! ! !

My blog is still a part of my imagination thing. Right now I am just messing around just to get some few kicks. Hope in the future my blog will become worthwhile. And for you to enjoy and comeback for some of my AutoCAD 2006 Tips , fishing tips, Zen thoughts and some plain BS.