Question

auto lisp渐开线标准圆柱齿轮的参数化绘图 谁有这个程序啊 能不能给我一份啊 毕业设计着急的

能绘制出这种图最好了会提高悬赏的我qq740400463

Answer 1

(defun C:Lp7-1()
(setq p0(getpoint"enter center of basis circle:\n"))
(setq r (getreal "enter radius of basis circle:\n"))
(setq x0(car p0) y0(cadr p0))
(command"circle" p0 r "")
(setq x1(+ x0 r))
(setq y1 y0)
(setq p1 (list x1 y1))
(setq i 0)
(while(<= i 360)
(setq ir (/(* i pi)180))
(setq x2(+ x0(* r(+(cos ir)(* ir(sin ir))))))
(setq y2(+ y0(* r(-(sin ir)(* ir(cos ir))))))
(setq p2 (list x2 y2))
(command "line" p1 p2"")
(setq p1 p2)
(setq i(+ i 1))
)
)