cad渐开线齿轮轮廓绘制_CAD画齿轮的渐开线程序

CAD

中齿轮画法

有下面一段渐开线程序：

;;;begain suprgear.lsp

;*************************************************

;SPURGEAR.LSP - a lisp program by Tony Hotchkiss

;-------------------------------------------------

; This routine draws a spur gear using joined

; polylines. It lets you use any pressure angle

; to design the gear teeth.

;*************************************************

(defun err (s)

(if (= s "Function cancelled")

(princ "\nSPURGEAR - cancelled: ")

(progn (princ "\nSPURGEAR - Error: ") (princ s)

(terpri))

); if

(resetting)

(princ "SYSTEM VARIABLES have been reset\n")

(princ)

); err

(defun setv (systvar newval)

(setq x (read (strcat systvar "1")))

(set x (getvar systvar))

(setvar systvar newval)

); setv

(defun setting ()

(setq oerr *error*)

(setq *error* err)

(setv "CMDECHO" 0)