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

wyi

我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
下面是程序.附件中是源文件:哪位老师辛苦了.
(defun c:test()
(setvar"cmdecho:0)
5 H0 ~1 }& }4 b0 o- N/ q8 ]1 _(setq pt1(getpoint"\n 起始点:"))
* J% h/ t, U6 h! G(setq pt2(getpoint pt1"\n 边长A:"))
(setp nn(getint "\n 堆叠层数:"))
(if(null nn)(setq nn4))
" ?. o- \" X& C% @& e9 t(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
6 {( [" t9 ^8 O( w( |9 {# x) e(setq ang(angle pt1 pt2))
(setq nn2 nn)
(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
9 [7 q( [' K) _  o2 |5 g: f8 K( b(repeat nn
    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
4 i1 H6 X& I& ^) L- _6 s     (repeat nn2
! X2 P- ]- q7 n6 ]" a         (command"circle"bas rr)
         (setq bas (polar bas ang(*2rr)))
)
     (setq nn2(1-nn2))
    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
& ~, `% f3 \) o( x     2)))
# B: k" q# U3 ^( `)
(prin1)
)
堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件
* [3 ]% `- \( w, b
; K4 Y+ I% B9 x4 P6 U$ u, i  B: B[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

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

1. (defun c:test ()
   
2.   (setvar "cmdecho" 0)
   + V+ r4 D" R# c$ D2 G5 X
3.   (setq pt1 (getpoint "\n 起始点:"))
   ; a& X/ k1 Y& }
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   : r. W; u5 ?* T
5.   (setp nn (getint "\n 堆叠层数:"))
   / A/ u5 ~7 I5 J1 O' R
6.   (if (null nn)
   
7.     (setq nn 4)
   . m5 H* u5 L! j  T# h/ C) h. ]
8.   )
   
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   7 J4 W/ D2 S( i) o! p3 G3 E5 O
10.   (setq ang (angle pt1 pt2))
    ; r6 A5 G  {& f8 Y
11.   (setq nn2 nn)
    
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    9 ?0 N8 b. Q2 }2 |/ k; Q
14.            "c"
    2 `" j4 p0 V8 i0 v4 t$ U5 c; u
15.   )
    0 t. `8 j+ u- \, ~( |* }
16.   (repeat nn
    
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    $ K& X( _' G) i
18.     (repeat nn2
    
19.       (command "circle" bas rr)
    
20.       (setq bas (polar bas ang (* 2 rr)))
    ) g/ b9 e+ x, o3 ?3 e
21.     )
    
22.     (setq nn2 (1- nn2))
    
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    $ M: u& J8 I- T! r6 s' b7 r
24.   )
    8 }6 ^( V$ r4 n
25.   (prin1)
    $ ^! {2 |! a; m- O
26. )

复制代码

wyi

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