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

wyi

我在书上抄了一段小程序,可是不能用,说是语句错误,如图
1 M$ |$ f. g; _1 i( m由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
4 ^* V$ Q1 f/ j- X下面是程序.附件中是源文件:哪位老师辛苦了.
) a) @$ A& f' Q1 W) b( ^(defun c:test()
(setvar"cmdecho:0)
(setq pt1(getpoint"\n 起始点:"))
2 A- z% o; r$ L& R) c(setq pt2(getpoint pt1"\n 边长A:"))
, Y3 z. i1 F# `, T, Q7 i' E) ]$ M(setp nn(getint "\n 堆叠层数:"))
7 Q' W  z# c: G: [  [2 d) ]$ l(if(null nn)(setq nn4))
(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
9 }: w( E! D$ [! q- B(setq ang(angle pt1 pt2))
& B+ `  f2 U" s6 b* A, O" k, V(setq nn2 nn)
(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
(repeat nn
/ f% v8 L/ ~+ K" |7 F    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
0 X! Z3 j( S2 |6 G# ^! O) Y     (repeat nn2
: W* Z/ L* }; K# T8 b         (command"circle"bas rr)
$ g% e' X$ e1 K/ q& I6 U         (setq bas (polar bas ang(*2rr)))
  O% H& N% \% q+ p2 {! t: |)
     (setq nn2(1-nn2))
0 P- h& X) F0 {2 P/ e    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
* G4 u& A/ B! V( Y! @     2)))
* j8 [* w9 c! U5 ^)
(prin1)
: Z6 M+ |' R& Z0 a% O5 N7 f; B- o; D)
$ e4 A7 d; x8 p 堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件

[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

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

1. (defun c:test ()
   
2.   (setvar "cmdecho" 0)
   
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   
5.   (setp nn (getint "\n 堆叠层数:"))
   8 M  \/ w& Y& u
6.   (if (null nn)
   , U/ w1 H2 q- X! e. G' _/ q. ]' p
7.     (setq nn 4)
   * i; u& Q& J4 j; _) t1 k( c+ d
8.   )
   
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   ! t+ z  X0 }! m! J/ C8 e9 b) I
10.   (setq ang (angle pt1 pt2))
    
11.   (setq nn2 nn)
    4 S3 }) k( i: G4 X2 B
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    & H& Q+ Z- g& u# l+ ^6 Y+ l
14.            "c"
    
15.   )
    - F# G; h9 Y$ W4 @' i
16.   (repeat nn
    9 d' W& A+ q( W# ]8 C+ P
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    % u- N; l: l# v" B: O: ^$ L
18.     (repeat nn2
    ( S( u% S" n/ J+ T  k
19.       (command "circle" bas rr)
    / u: L- O0 ?) F
20.       (setq bas (polar bas ang (* 2 rr)))
    
21.     )
    
22.     (setq nn2 (1- nn2))
    2 S4 H. Q' M& R) y
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    ' l4 Y. V7 i. q* k* Q/ |6 @3 b* X
24.   )
    ) W% U- j0 i3 L% p; r
25.   (prin1)
    ) u) n  A' I3 \. b+ @- c
26. )

复制代码

wyi

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