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

wyi

! Q, |2 E7 O4 d* L# k" h. C我在书上抄了一段小程序,可是不能用,说是语句错误,如图
' U( @! z8 d& J/ X; d( Z0 o由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
下面是程序.附件中是源文件:哪位老师辛苦了.
9 p3 E# K3 V8 N+ H/ V8 @2 H' Y(defun c:test()
# j1 T# A$ R+ [% z0 Y, g. {, I(setvar"cmdecho:0)
- x7 q( ?  L- ^8 ?& Q/ M(setq pt1(getpoint"\n 起始点:"))
(setq pt2(getpoint pt1"\n 边长A:"))
) \$ S# G7 ~' K  J1 m  {6 C(setp nn(getint "\n 堆叠层数:"))
( w6 j7 S; `1 L- x(if(null nn)(setq nn4))
(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
(setq ang(angle pt1 pt2))
0 r9 h2 V/ l% b6 |+ Z(setq nn2 nn)
4 {$ o  P$ E, m+ _% d0 ](command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
' T# n! Q- @" M- }- F6 A! [) e(repeat nn
    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
: n3 C* E; \" `* ~     (repeat nn2
         (command"circle"bas rr)
         (setq bas (polar bas ang(*2rr)))
)
     (setq nn2(1-nn2))
& {( N: b5 v* r. k$ W( _    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
3 w0 C( d% o# T  e1 N( y0 E     2)))
6 u# d. t5 l) {)
(prin1)
- `5 p6 a/ g$ v& t6 {- t9 y)
堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件

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

SunVei

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

1. (defun c:test ()
   ) a" y) f2 i& q# l, d1 K+ i+ {+ ]
2.   (setvar "cmdecho" 0)
   
3.   (setq pt1 (getpoint "\n 起始点:"))
   4 q; r. j' @# X' b
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   ( K8 N4 ?+ X* _5 o0 E8 O
5.   (setp nn (getint "\n 堆叠层数:"))
   
6.   (if (null nn)
   # h1 a) U, |1 |( }$ {7 r+ c
7.     (setq nn 4)
   
8.   )
   0 P" w4 b& p+ y6 d
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   0 n4 B4 ?0 m5 r) r
10.   (setq ang (angle pt1 pt2))
    
11.   (setq nn2 nn)
    
12.   (command "line" pt1 pt2
    * |3 ]) b# k/ S( a2 F3 A
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    
14.            "c"
    " R6 z' k3 l6 O- }- W
15.   )
    
16.   (repeat nn
    , t/ y9 z; T3 G
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    ) e: V0 z2 h) r! C# H+ `
18.     (repeat nn2
    8 F" u; S4 e$ a/ _( [; R
19.       (command "circle" bas rr)
    
20.       (setq bas (polar bas ang (* 2 rr)))
    
21.     )
    + L: y. d" b7 R# P# V
22.     (setq nn2 (1- nn2))
    
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    
24.   )
    ' N( o9 \* v, `8 U8 }
25.   (prin1)
    
26. )

复制代码

wyi

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