请帮忙看下这段程序那里错了？

wyi

* R5 I0 X& d1 o  @我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
9 |( [1 z! O6 I# m5 O' z下面是程序.附件中是源文件:哪位老师辛苦了.
(defun c:test()
) a' e- o; O; F- t6 ]. Y, j7 j(setvar"cmdecho:0)
5 O4 V! t/ T% Q/ `3 I7 |(setq pt1(getpoint"\n 起始点:"))
(setq pt2(getpoint pt1"\n 边长A:"))
$ J, P$ A9 P7 ~( G2 n(setp nn(getint "\n 堆叠层数:"))
- O2 ^2 B& }9 A1 n/ Z' X(if(null nn)(setq nn4))
(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
5 C: ~; r+ E( X' C(setq ang(angle pt1 pt2))
(setq nn2 nn)
$ L9 ]5 w) _) K(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
/ m% ~; _  W( y/ c0 Y/ o# x(repeat nn
* h7 Q# m* [) U. C" @    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
     (repeat nn2
         (command"circle"bas rr)
. _# u+ @) z' s4 _6 F  N( Z         (setq bas (polar bas ang(*2rr)))
1 T& y$ f8 V+ v* u0 ^4 Z$ r)
     (setq nn2(1-nn2))
" T! z& S2 |* _# x$ j8 ?' R    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
     2)))
( f' E4 m7 n3 d- o9 B5 }* G8 e  z)
3 i9 G- g- R0 H5 h4 J+ V# @(prin1)
8 S& d4 |/ L. t' ~9 ^7 Y)
. B" N4 Z$ l# S. z1 q7 s 堆叠.rar (411 Bytes, 下载次数: 3)

2008-2-17 13:46 上传

点击文件名下载附件
4 g; {8 d! u) q+ ~6 ~) V  I' R" s
- R6 T2 P# m0 k$ T8 B[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

少了一些空格....
其餘未試

1. (defun c:test ()
   
2.   (setvar "cmdecho" 0)
   - H! r: }8 w% T
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   8 E  ]& V! k; }( d# p! o
5.   (setp nn (getint "\n 堆叠层数:"))
   
6.   (if (null nn)
   . D3 p2 G  x- C0 X+ N* u/ {7 ]
7.     (setq nn 4)
   ( R9 Y8 A1 I/ B5 f6 z+ R
8.   )
   : I; R& t2 S2 f
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   7 r1 }# }4 T- f& u- L
10.   (setq ang (angle pt1 pt2))
    7 B% I& ^0 _; J( K5 [) S
11.   (setq nn2 nn)
    
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    
14.            "c"
    ' y7 q3 i. j9 a. N! C2 k$ E
15.   )
    , S$ g8 {1 |; R0 g, h
16.   (repeat nn
    , |- v9 {; o; N2 T% Z. v
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    
18.     (repeat nn2
    0 C1 w7 t& W" _7 z
19.       (command "circle" bas rr)
    8 C* [: w" P) b  H. |
20.       (setq bas (polar bas ang (* 2 rr)))
    - C* C, b) ^6 T
21.     )
    
22.     (setq nn2 (1- nn2))
    ) X* @/ m, P; g2 `( s
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    / @' k: @' L% g: Y, g4 e
24.   )
    4 ]9 ^- Z2 J' X6 q  m1 D8 [
25.   (prin1)
    
26. )

复制代码

wyi

感谢楼上老师的帮助,终于做出了这张图.