您好~！ 前段时间我用老梅的号发了个关于锯片参数化绘图的请求的帖子
很感谢您的帮忙~！
在您传源码和lisp入门教程后 我自己学了那语言三天后隐约知道点了怎么回事因为自己还有好几个齿形需要进行参数化绘制，所以尝试着去改您的这个程序，虽然改动了下但总是执行错误搞了好多天也不知道错误在哪所以现在又厚着脸皮来请教您了。期望还能得到您的帮助！谢谢！
(defun c:deJP()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq cen1(getpoint "\n请输入锯片中心点："))
(setq qianjiao (getreal "\n请输入前角："))
(setq houjiao (getreal "\n请输入后角："))
(setq num (getint "\n请输入锯片齿数："))
(setq radius (getreal "\n请输入锯片半径："))
(setq dim (* radius 2))
(setq chiju (/(* dim pi) num))
(setq chishen (* 0.4 chiju))
(setq yw (-(/ pi4) (/qianjiao 2)))
(setq wy (* (/ yw 180) pi ))
(setq qianjiao (* (/ qianjiao 180) pi))
(setq houjiao (*(/ houjiao 180) pi))
（ defun tan (qw /y)
(setqy (cos qw))
(if (/=y 0) (/(sin qw) y))
)
(setq cdbj (* (-(/ chishen (cos qianjiao)) (*0.08 num)) tan(qw)))
(setq pt1 (polar cen1 (/pi2) radius))
(setq pt2 (polar pt1 (- (*pi1.5) qianjiao) (* 0.08 chiju)))
(setq cen2 (polar pt2 (-(* 2pi) qianjiao) cdbj))
(command "line" pt1 pt2 "")
(setq line1(entlast))
(command "circle" cen2 cdbj "")
(setq cir2 (entlast))
(setvar "osmode" os)
(prin1)
)
做成块复制，黏贴就好了
膜拜！
谢谢楼主的分享，正需要这个呢！