AUTOCAD二次开发齿轮代码LISP

(defun c:jkxcl() (setq os(getvar "o__ode")) (setvar "o__ode" 0) (setq m(getreal"输入模数：M=") z(getin