What can i do with a mechanical engineering degree: Here is a useful LISP plan for mechanical engineers, involute flexure genaration plan for AutoCAD, which is widely used inward gear designs as well as casing of pumps as well as blowers. Have a expect at it.
What can i do with a mechanical engineering degree:
(defun c:involute()
(defun dtr(x)(* (/ pi 180) x))
(setq echo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osmode_1 (getvar "osmode")
ortho_1 (getvar "orthomode")
R1 (getdist "Enter the Base Circle Radius:")
Ang (getint "Enter the Angle of Revolution:")
Orgin 0.0
)
(setvar "orthomode" 0)
(setvar "osmode" 0)
(command "undo" "be")
(command "pline" )
(repeat Ang
(setq X (+ (* R1 (cos (dtr Orgin)))(/(* two pi R1 Orgin (cos (dtr(- Orgin 90))))360)))
(setq Y (+ (* R1 (sin (dtr Orgin)))(/(* two pi R1 Orgin (sin (dtr(- Orgin 90))))360)))
(setq Orgin (+ Orgin 1))
(setq Cordnte (list X Y))
(command Cordnte)
)
(setq X (+ (* R1 (cos (dtr Orgin)))(/(* two pi R1 Orgin (cos (dtr(- Orgin 90))))360)))
(setq Y (+ (* R1 (sin (dtr Orgin)))(/(* two pi R1 Orgin (sin (dtr(- Orgin 90))))360)))
(setq Cordnte (list X Y))
(command Cordnte)
(command "")
(command "undo" "e")
(setvar "osmode" osmode_1)
(setvar "orthomode" ortho_1)
(setvar "cmdecho" echo)
)
To piece of job the LISP but type the plan refer inward AutoCAD Command Prompt (Involute)
What can i do with a mechanical engineering degree: