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

janekou

1. (defun c:pcc ()
   3 u7 R4 w1 v: y0 k
2. (setq osnap (getvar "osmode" ))
   & c9 g0 `" N7 i& K1 G5 y3 D
3. (setvar "osmode" 0)
   
4. (setq a (getpoint "选取左下角的点:" ))
   
5. (setq si (getreal "\n输入要5边形的边长:" ))
   6 D/ k: H8 L+ M/ H  T9 V+ j3 g
6. (setq lab (/ si 2 ))
   
7. (setq b (polar a 0 lab ))
   
8. (setq temp1 (* pi (/ 54 180 )) )
   
9. (setq temp2 (* pi (/ 36 180 )) )
   & A( F2 l: b2 T1 j
10. (setq bo (* lab (/ (sin temp1) (sin temp2))) )
    $ p, o- Z* X; o1 L
11. (setq o (polar b pi bo ))
    5 t/ u  W; B+ T/ l
12. (setq ao (/ lab (cos temp1) ))
    6 `" M! v  o# u$ a1 Z; x% q
13. 
    5 I* c) l: O7 i
14. (setq r3 (/ (* ao bo (sin temp1)) (+ 1 (* bo (sin temp1))) ))
    
15. (setq ao1 (/r3 (sin temp1)))
    
16. (setq r1 (- ao ao1 r3))
    
17. (setq r2 ( / (- bo r1) 2))
    
18. (setq o2 (polar b pi r2))
    
19. (command "circle" o2 r2 ""  )
    
20. 
    9 S/ m) ?. u& ^2 D/ A1 r+ z" u
21. )

复制代码

程序先写了一部分，测试的时候就出问题了，麻烦高人看看是什么地方出问题了，谢谢。

woaishuijia

第2行,"osnap"是函数,不能做变量
第8,9行,计算结果为0.以第8行为例,应为

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

复制代码

或

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

复制代码

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

janekou

2# woaishuijia

谢谢版主指点，请问下像这样的命令应该怎样编呢 (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圆的圆心）
* ]1 t3 S* e" C" h2 f$ N&#10103; r3/ao1=sin54
&#10104; bo=2*r2+r1

woaishuijia

/ {- |! K+ T; H9 d
/ i, L1 @1 a5 O$ {9 Z: p% \6 D$ Q5# janekou
' B7 k/ `1 l# e' |& D五楼三个等式的方程组中有四个未知数(r1,r2,r3,ao1),这是不定方程,有无数个解.
你还需要利用余弦定理添加一个等式,方程组才会有解.
(r2+r3)^2=(r1+r2)^2+(r1+r3)^2-2*cos(temp2)*(r1+r2)*(r1+r3)
. ~: [/ h  R+ b你一楼代码中第14行求r3的算式是错的

下面是修改补充后的代码

1. 
   
2. (defun c:pcc (/ oldos a si lab b temp1 temp2 bo o ao r3 ao1 r1 r2 o2
   : C  q- S* c' d( d  |$ B
3.        temp3 o3)   ;本行已修改,使用局部变量
   
4.   (setq oldos (getvar "osmode" )) ;本行已修改变量名
   ) P" B  J0 n8 C  |: V: R
5.   (setvar "osmode" 0)
   " H" L' ]6 S* T  E% R3 D
6.   (setq a (getpoint "选取左下角的点:" ))
   6 s, a# l) U' D1 S4 v8 e/ W/ y! I4 g
7.   (setq si (getdist a "\n输入要5边形的边长:" ))
   
8.      ;本行已修改,使用更适合的函数
   
9.   (setq lab (/ si 2))
   
10.   (setq b (polar a 0 lab))
    # L+ c  b. T, Y" I- L( Z3 l
11.   (setq temp1 (* pi (/ 54.0 180))) ;本行已修改,使用实数而不是整数
    0 n/ a3 k& `9 Y  }4 U$ O
12.   (setq temp2 (* pi (/ 36.0 180))) ;同上一行
    
13.   (setq bo (* lab (/ (sin temp1) (sin temp2))))
    1 J" u: b$ E* A" c2 K9 D6 v
14.   (setq o (polar b (/ pi 2) bo)) ;本行已修改,原代码中180度角度应该是错的
    
15.   (setq ao (/ lab (cos temp1)))  
    ; q- A3 f, N: e+ d- c
16.   (setq
    ! S& u7 c" G; D# {
17.     temp3 (sqrt (- 5 (* 2 (sin temp1)) (* 3 (sin temp1) (sin temp1))));中间变量
    ; F! u$ j- z# o" o
18.     r1   (* bo
    8 ~  s8 U$ t% Y1 n" c
19.       (/ (- (+ 3 (sin temp1)) temp3)
    
20.   (+ 1 (* 3 (sin temp1)) temp3)
    
21.       )
    
22.    );原算式错误,删除原代码中14,16,17行重写
    , m/ H$ H$ |# g. d: F9 b4 w
23.     r2   (/ (- bo r1) 2)
    
24.     r3   (/ (- bo (* r1 (sin temp1))) (+ 1 (sin temp1)))
    
25.     ao1   (/ r3 (sin temp1));本行使用原代码第15行
    0 c! t: e5 X  u+ i, C, H& a& S
26.     o2   (polar b (/ pi 2) r2);本行对应原代码第18行,修改原因同原代码第11行
    9 {3 D; _" q. u! J; e: c
27.     o3   (polar a temp1 ao1);左下圆心
    ; V: v. N! _, R3 n
28.   )
    6 S, Q9 j$ F4 h  [  S7 o4 D/ \
29.   (command "polygon" 5 "E" a (polar a 0 si));四楼代码,画五边形
    
30.   (command "circle" o r1);画中心大圆
    
31.   (command "circle" o2 r2);对应原代码第19行,已修改,去除多余回车
    
32.   (command "array" (entlast) "" "p" o 5 "" "" );环形阵列最后画出的下方小圆
    4 {$ u7 L; j# A6 K
33.   (command "circle" o3 r3);画左下圆
    9 U! E0 y3 e! p' X- y
34.   (command "array" (entlast) "" "p" o 5 "" "" );环形阵列左下圆
    
35.   (setvar "osmode" oldos);恢复对象捕捉设置
    
36.   (princ)
    % j& o, M" f% |6 Z. ~6 h* V
37. )

复制代码

janekou

6# woaishuijia
3 H& i" }) Y- B1 @
感激不尽，忘记余弦定理了。版主辛苦了。

janekou

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

woaishuijia

表情代码捣乱,已编辑