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

wyi

' ?; U6 c& i" \& A3 c! Z我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
$ Q; u9 C. D6 l, ?- _9 t下面是程序.附件中是源文件:哪位老师辛苦了.
( w$ Z5 \9 @2 V8 s- U3 m6 u(defun c:test()
# H/ d4 {1 O# A" `(setvar"cmdecho:0)
(setq pt1(getpoint"\n 起始点:"))
(setq pt2(getpoint pt1"\n 边长A:"))
1 p0 ?% {1 t( I% L, J( d, C(setp nn(getint "\n 堆叠层数:"))
- `! C# a' {6 o" |1 [$ i(if(null nn)(setq nn4))
' U4 m2 q# L9 z(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
(setq ang(angle pt1 pt2))
% L7 F/ w3 K, Q. g! }; N1 n' |8 |(setq nn2 nn)
8 M3 R% W( Y8 f9 z" Y3 y(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
(repeat nn
8 H, N3 }: e9 j( g. w- S% E  b    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
     (repeat nn2
         (command"circle"bas rr)
0 ~, U0 {. W; D3 a0 Q1 o         (setq bas (polar bas ang(*2rr)))
0 g8 l, d& A; j5 d, @$ i7 _)
     (setq nn2(1-nn2))
    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
7 R/ n: T+ ]& Y* F     2)))
: ^2 }" x' d. b- N3 Q" l3 ~) h4 I)
6 Z- g/ y) ?& A$ n0 K(prin1)
)
/ p7 c3 M# D% W, [6 _/ \. A 堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件
+ d# f) ~% N' R+ C
[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

少了一些空格....
  b( `# K6 W+ h0 k/ W其餘未試

1. (defun c:test ()
   
2.   (setvar "cmdecho" 0)
   6 Z$ A, r% k4 m) u
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   ! R' Q: L5 \6 s! }$ O
5.   (setp nn (getint "\n 堆叠层数:"))
   
6.   (if (null nn)
   
7.     (setq nn 4)
   
8.   )
   # m! z8 Y9 |) S- u
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   
10.   (setq ang (angle pt1 pt2))
    & a$ G( y% s5 A& V( o: L2 `
11.   (setq nn2 nn)
    ) s4 B' ~, B" W9 I
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    ; [& P" D4 U0 V$ h, c3 }$ U
14.            "c"
    ( J( y1 |& r3 j; b
15.   )
    
16.   (repeat nn
    ) x) _( n9 A- _0 n* y5 H$ B
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    
18.     (repeat nn2
    
19.       (command "circle" bas rr)
    
20.       (setq bas (polar bas ang (* 2 rr)))
    
21.     )
    
22.     (setq nn2 (1- nn2))
    
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    
24.   )
    / Z0 R) s0 o- O( L: K# @" e* J
25.   (prin1)
    
26. )

复制代码

wyi

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