lisp绘制直齿圆柱齿轮_lisp制作渐开线齿轮.doc

lisp制作渐开线齿轮.doc

来看看吧

很多朋友没有接触过AutoCAD的内置编程模块LISP.本人学过些,用它编写一个制作渐开线齿轮的小程序,给大家分享.

代码:;标准直齿圆柱齿轮

(defun c:齿轮(/ P0 P1 P2 p3 m z YLJ R Ra Rf Rb h

ak stk a Rk n d jcg b

p3 ss1 ss2 l youz

bz;储存CAD对象捕捉

)

(command "layer" "n" "齿轮" "" "");新建图层

(command "s" "齿轮" "" "");设为当前层

(command "lw" 0 "齿轮" "" "");特别特别实用的操作.

;在绘制足球时,没有由此操作理论上画不成

(command "view" "top" "");上视图

(setq p0 (getpoint "\n请输入齿轮回转中心:")

)

(command "ucs" "n" p0 "");将回转中心放到坐标系原点

(setq p0 '(0 0 0);将回转中心放到坐标系原点(修正上一步)

m (getreal "\n齿轮模数:<1>")

z (getint "\n齿轮齿数:<32>")

ylj (getint "\n齿廓压力角(度):<20>");单位：度

h (getdis