How to draw a involute line under Acad 2000
How to draw a involute line under Acad 2000
(OP)
I don't know how to draw a involute under Acad 2000,anybody can give me some advice on this? many thanks
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
How to draw a involute line under Acad 2000
|
RE: How to draw a involute line under Acad 2000
(defun c:involute(/ plist fi old_osnap cent rad xp yp eang)
(setq plist (list "pline" 'command)
fi 0.0
old_osnap (getvar "osmode")
cent (getpoint "\nSpecify center of invotute: ")
rad (getdist cent "Specify circle radius of involute: ")
)
(initget 0)
(setq eang (getangle cent "Specify end angle <360>: "))
(if (not eang) (setq eang (* pi 2.0)))
(repeat 24
(setq xp (+ (car cent) (* rad (+ (cos fi) (* fi (sin fi)))))
yp (+ (cadr cent) (* rad (- (sin fi) (* fi (cos fi)))))
plist (cons (list 'list xp yp) plist)
fi (+ fi (/ eang 24.0))
)
)
(setq plist (reverse (cons "" plist)))
(setvar "osmode" 0)
(eval plist)
(setvar "osmode" old_osnap)
(command "PEDIT" (entlast) "F" "")
(princ)
)
Regards.
RE: How to draw a involute line under Acad 2000
inv (alfa) = tan (alfa) - alfa.
for alfa in radian and alfa is the pressure angle of the gear.
so for a given circle , you have as many involutes as alfa´s choosen.
I have a exel file to make a script file to load on acad and a LISP program to do the same .
Due a virus attack my pc is out of order until nex week . then I will be able to sen it if you want to.
Pardal