麻烦高人看看这个除数为零(Autolist)

janekou

1. (defun c:pcc ()
   1 V% d8 F& k4 G5 n
2. (setq osnap (getvar "osmode" ))
   " e8 y2 L' @, f& z9 Z
3. (setvar "osmode" 0)
   4 ~$ {, f# ^. l. r
4. (setq a (getpoint "选取左下角的点:" ))
   
5. (setq si (getreal "\n输入要5边形的边长:" ))
   , K/ O, l0 {! H; o
6. (setq lab (/ si 2 ))
   
7. (setq b (polar a 0 lab ))
   
8. (setq temp1 (* pi (/ 54 180 )) )
   8 C" x6 L% `5 j* ~# Q7 T4 i( S
9. (setq temp2 (* pi (/ 36 180 )) )
   
10. (setq bo (* lab (/ (sin temp1) (sin temp2))) )
    
11. (setq o (polar b pi bo ))
    6 b7 ~. M( d0 J8 A" C
12. (setq ao (/ lab (cos temp1) ))
    & A- ~% r3 U; L
13. 
    9 X, M" u; t# \/ H: |
14. (setq r3 (/ (* ao bo (sin temp1)) (+ 1 (* bo (sin temp1))) ))
    $ z: [. Z6 \8 S, I  N, i
15. (setq ao1 (/r3 (sin temp1)))
    
16. (setq r1 (- ao ao1 r3))
    / J  _7 q9 i0 {, K  H1 n
17. (setq r2 ( / (- bo r1) 2))
    ) t! |" L. |3 G* Q
18. (setq o2 (polar b pi r2))
    ( r2 V) J2 s# ]$ L* `6 b# w
19. (command "circle" o2 r2 ""  )
    ' Y$ P6 J4 r2 @" K
20. 
    
21. )

复制代码

: M$ y: F4 d" {. l 程序先写了一部分，测试的时候就出问题了，麻烦高人看看是什么地方出问题了，谢谢。

woaishuijia

第2行,"osnap"是函数,不能做变量
/ g  R0 I+ ], L2 M1 C6 |2 p1 H" x第8,9行,计算结果为0.以第8行为例,应为

1. (setq temp1 (* pi (/ 54.0 180 )) )

复制代码

或

1. (setq temp1 (* pi (/ 54 180.0 )) )

复制代码

第15行,"/r3"中间应有空格

janekou

2# woaishuijia

( a: J2 C+ n8 T8 `& r/ z# Y谢谢版主指点，请问下像这样的命令应该怎样编呢 (command "polygon" 5 "" "E" a si<0 "" )，就是说我这个命令什么地方出错了

woaishuijia

1. (command "polygon" 5 "E" a (polar a 0 si))

复制代码

janekou

4# woaishuijia
谢谢啦，估计是半径的关系出问题了，画出的图关系错了，请问一下版主应该怎样做呢？
&#10102; r3=ao-r1-ao1  （ao1是r3圆的圆心）
&#10103; r3/ao1=sin54
&#10104; bo=2*r2+r1

woaishuijia

: Q/ E+ Y# T4 h+ m( C. K$ ?5# janekou
. K+ n! y1 R) z/ |( N  s' U" H+ \五楼三个等式的方程组中有四个未知数(r1,r2,r3,ao1),这是不定方程,有无数个解.
# |) X5 t5 T4 L* _3 Z% e" `你还需要利用余弦定理添加一个等式,方程组才会有解.
7 l- }& K" R* w8 i7 U# g(r2+r3)^2=(r1+r2)^2+(r1+r3)^2-2*cos(temp2)*(r1+r2)*(r1+r3)
你一楼代码中第14行求r3的算式是错的
1 O7 S* s* g7 I  C7 N) @) Z9 b
下面是修改补充后的代码

1. 
   
2. (defun c:pcc (/ oldos a si lab b temp1 temp2 bo o ao r3 ao1 r1 r2 o2
   
3.        temp3 o3)   ;本行已修改,使用局部变量
   ' J' i6 p6 X4 D. W5 L& R8 p! p- \% K1 s
4.   (setq oldos (getvar "osmode" )) ;本行已修改变量名
   
5.   (setvar "osmode" 0)
   
6.   (setq a (getpoint "选取左下角的点:" ))
   
7.   (setq si (getdist a "\n输入要5边形的边长:" ))
   ! ?' h" n$ y2 e) p+ R- e, G( g6 P
8.      ;本行已修改,使用更适合的函数
   . E8 n1 g& c: C( `3 X5 ?  G8 w9 i
9.   (setq lab (/ si 2))
   
10.   (setq b (polar a 0 lab))
    
11.   (setq temp1 (* pi (/ 54.0 180))) ;本行已修改,使用实数而不是整数
    - S- A+ Q7 D6 Y( Y' ]5 M
12.   (setq temp2 (* pi (/ 36.0 180))) ;同上一行
    
13.   (setq bo (* lab (/ (sin temp1) (sin temp2))))
    ' c3 `" h8 u1 w* v
14.   (setq o (polar b (/ pi 2) bo)) ;本行已修改,原代码中180度角度应该是错的
    
15.   (setq ao (/ lab (cos temp1)))  
    1 W  s" L/ z" \3 n1 ]5 ?
16.   (setq
    
17.     temp3 (sqrt (- 5 (* 2 (sin temp1)) (* 3 (sin temp1) (sin temp1))));中间变量
    / @5 z( w1 T) T: v8 Z& {
18.     r1   (* bo
    9 M! e7 y) T1 C. c5 m: ?3 m; g+ d
19.       (/ (- (+ 3 (sin temp1)) temp3)
    
20.   (+ 1 (* 3 (sin temp1)) temp3)
      q) E6 q8 C+ [$ V, J- P
21.       )
    5 ~  s* J7 ^( E
22.    );原算式错误,删除原代码中14,16,17行重写
    
23.     r2   (/ (- bo r1) 2)
    
24.     r3   (/ (- bo (* r1 (sin temp1))) (+ 1 (sin temp1)))
    8 P, u& e% P  s" H% G
25.     ao1   (/ r3 (sin temp1));本行使用原代码第15行
    % U* O" z7 w6 L6 j9 [/ I- Y
26.     o2   (polar b (/ pi 2) r2);本行对应原代码第18行,修改原因同原代码第11行
    
27.     o3   (polar a temp1 ao1);左下圆心
    + {' @! u' {2 C: {
28.   )
    
29.   (command "polygon" 5 "E" a (polar a 0 si));四楼代码,画五边形
    
30.   (command "circle" o r1);画中心大圆
    & N# K4 a  D" O# f7 G4 Y6 n
31.   (command "circle" o2 r2);对应原代码第19行,已修改,去除多余回车
    
32.   (command "array" (entlast) "" "p" o 5 "" "" );环形阵列最后画出的下方小圆
    % |# B" U7 ]2 m. r; j
33.   (command "circle" o3 r3);画左下圆
    * q5 O; z4 P3 J0 Y5 Q- B
34.   (command "array" (entlast) "" "p" o 5 "" "" );环形阵列左下圆
    0 E: s  r( ]) ~6 a4 B
35.   (setvar "osmode" oldos);恢复对象捕捉设置
    9 P* G2 }- p7 v; l# n
36.   (princ)
    8 }+ F3 z6 F" G, @/ ]7 s$ l
37. )

复制代码

janekou

6# woaishuijia
( B* X$ x! {- m' F! R
感激不尽，忘记余弦定理了。版主辛苦了。

janekou

再次谢谢版主，论坛的系统的问题，第4.6.7.32.34行的最后一个括号不见了。

woaishuijia

表情代码捣乱,已编辑