Question

关于lisp的编程问题

defun c:cw ()
(setvar "cmdecho" 0)
;;;获得已知参数
(setq c (getpoint "\n 请指定标准齿轮中心点<0,0>:"))
(if (null c) (setq c '(0 0)))
(setq m (getreal "\n 请指定轮齿模数<2.5>:"))
(if (null m) (setq m 2.5))
(setq z (getint "\n 请确定齿数<20>:"))
(if (null z) (setq z 20))
;;;计算齿轮参数
(setq d (* m z))
(setq ha m)
(setq hf (* m 1.25))
(setq da (+ d ha ha))
(setq df (- d hf hf))
(setq db (* d (cos (* (/ pi 180) 20))))
;;;计算过程参数
(setq b (* db 0.5))
(setq c1 (* da 0.5))
(setq c2 (* d 0.5))
(setq c3 (* df 0.5))
(setq a (sqrt (- (* c2 c2) (* b b))))
(setq zc1 (* 0.5 (+ a b c1)));;;zc为计算三角形周长的一半
(setq zc2 (* 0.5 (+ a b c2)))
(setq zc3 (* 0.5 (+ a b c3)))
(setq s1 (sqrt (* zc1 (- zc1 a) (- zc1 b) (- zc1 c1))))
(setq s2 (sqrt (* zc2 (- zc2 a) (- zc2 b) (- zc2 c2))))
(setq s3 (sqrt (* zc3 (- zc3 a) (- zc3 b) (- zc3 c3))))
(setq h1 (/ (* s1 2) c1))
(setq h2 (/ (* s2 2) c2))
(setq h3 (/ (* s3 2) c3))
(setq w1 (sqrt (- (* b b) (* h1 h1))))
(setq w2 (sqrt (- (* b b) (* h2 h2))))
(setq w3 (sqrt (- (* b b) (* h3 h3))))
(setq ang (* pi (/ (- (/ 360 (* z 4)) 0.02) 180)))
(setq ang1 (atan (/ h1 w1)))
(setq ang2 (atan (/ h2 w2)))
(setq ang3 (atan (/ h3 w3)))
(setq z1 (- ang2 ang1))
(setq z2 (- ang3 ang2))
(setq a1 (- ang z1))
(setq a3 (+ ang z2))
(setq angz (/ (* pi 2) z))
(setq angs (* a3 2))
(setq angc (- angz angs))
;;;计算绘图点
(setq b1 (polar c (- 0 a1) c1))
(setq b2 (polar c (- 0 ang) c2))
(setq b3 (polar c (- 0 a3) c3))
(setq p (polar c 0 c1))
(setq pt1 (polar c (+ 0 a1) c1))
(setq pt2 (polar c (+ 0 ang) c2))
(setq pt3 (polar c (+ 0 a3) c3))
(setq pt4 (polar c (+ 0 angc a3) c3))
;;;开始绘制轮齿
(command "layer" "Make" "xi" "Color"1 "" "Ltype" "continuous" "" "LWeight"0.4 "" "");(图层创建设置)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "clayer" "0")
(command "pline" b3 "w" 0 "" "a" "s" b2 b1 "s" p pt1 "s" pt2 pt3 "ce" c pt4 "")
(command "array" (entlast) "" "p" c z "" "")
(command "circle" c "d" c2)
(command "clayer" "中心线")
(command "circle" c c2)
(setvar "osmode" os)
(princ)
)
运行不了什么情况？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

(defun c:cw (/ A A1 A3 ANG ANG1 ANG2 ANG3 ANGC ANGS ANGZ B B1 B2 B3 C C1 C2 C3 D DA DB DF H1 H2 H3 HA HF M OS
P PT1 PT2 PT3 PT4 S1 S2 S3 W1 W2 W3 Z Z1 Z2 ZC1 ZC2 ZC3)
(setvar "cmdecho" 0)
;;;获得已知参数
(setq c (getpoint "\n 请指定标准齿轮中心点<0,0>:"))
(if (null c) (setq c '(0 0)))
(setq m (getreal "\n 请指定轮齿模数<2.5>:"))
(if (null m) (setq m 2.5))
(setq z (getint "\n 请确定齿数<20>:"))
(if (null z) (setq z 20))
;;;计算齿轮参数
(setq d (* m z))
(setq ha m)
(setq hf (* m 1.25))
(setq da (+ d ha ha))
(setq df (- d hf hf))
(setq db (* d (cos (* (/ pi 180) 20))))
;;;计算过程参数
(setq b (* db 0.5))
(setq c1 (* da 0.5))
(setq c2 (* d 0.5))
(setq c3 (* df 0.5))
(setq a (sqrt (- (* c2 c2) (* b b))))
(setq zc1 (* 0.5 (+ a b c1)));;;zc为计算三角形周长的一半
(setq zc2 (* 0.5 (+ a b c2)))
(setq zc3 (* 0.5 (+ a b c3)))
(setq s1 (sqrt (* zc1 (- zc1 a) (- zc1 b) (- zc1 c1))))
(setq s2 (sqrt (* zc2 (- zc2 a) (- zc2 b) (- zc2 c2))))
(setq s3 (sqrt (* zc3 (- zc3 a) (- zc3 b) (- zc3 c3))))
(setq h1 (/ (* s1 2) c1))
(setq h2 (/ (* s2 2) c2))
(setq h3 (/ (* s3 2) c3))
(setq w1 (sqrt (- (* b b) (* h1 h1))))
(setq w2 (sqrt (- (* b b) (* h2 h2))))
(setq w3 (sqrt (- (* b b) (* h3 h3))))
(setq ang (* pi (/ (- (/ 360 (* z 4)) 0.02) 180)))
(setq ang1 (atan (/ h1 w1)))
(setq ang2 (atan (/ h2 w2)))
(setq ang3 (atan (/ h3 w3)))
(setq z1 (- ang2 ang1))
(setq z2 (- ang3 ang2))
(setq a1 (- ang z1))
(setq a3 (+ ang z2))
(setq angz (/ (* pi 2) z))
(setq angs (* a3 2))
(setq angc (- angz angs))
;;;计算绘图点
(setq b1 (polar c (- 0 a1) c1))
(setq b2 (polar c (- 0 ang) c2))
(setq b3 (polar c (- 0 a3) c3))
(setq p (polar c 0 c1))
(setq pt1 (polar c (+ 0 a1) c1))
(setq pt2 (polar c (+ 0 ang) c2))
(setq pt3 (polar c (+ 0 a3) c3))
(setq pt4 (polar c (+ 0 angc a3) c3))
;;;开始绘制轮齿
(command "layer" "Make" "xi" "Color"1 "" "Ltype" "continuous" "" "LWeight"0.4 "" "");(图层创建设置)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "clayer" "0")
(command "pline" b3 "w" 0 "" "a" "s" b2 b1 "s" p pt1 "s" pt2 pt3 "ce" c pt4 "")
(command "array" (entlast) "" "p" c z "" "")
(command "circle" c "d" c2)
(setvar "clayer" "XI")
(command "circle" c c2)
(setvar "osmode" os)
(princ)
)

追问

能不能告诉我怎么算出来的啮合原理没看懂？
(setq a (sqrt (- (* c2 c2) (* b b))))
(setq zc1 (* 0.5 (+ a b c1)));;;zc为计算三角形周长的一半
(setq zc2 (* 0.5 (+ a b c2)))

追答

这个是数学，算准点位置，好画线等
这个自己慢慢理解。