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

wyi

5 H. `3 D0 |- R# u7 P+ p4 l我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
下面是程序.附件中是源文件:哪位老师辛苦了.
7 @: R' `3 _; e3 N; q(defun c:test()
: l) y3 h, H$ C7 Y# j( n(setvar"cmdecho:0)
(setq pt1(getpoint"\n 起始点:"))
. F: D# P0 U. A, k8 l+ \, q(setq pt2(getpoint pt1"\n 边长A:"))
/ C* Q3 u8 J! b5 |$ _( T8 R(setp nn(getint "\n 堆叠层数:"))
' Y! o- }  ?; C! ^(if(null nn)(setq nn4))
(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
(setq ang(angle pt1 pt2))
(setq nn2 nn)
(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
+ h# @. B5 S% }1 C2 ^- z* I# i' jtance pt1 pt2))"c")
(repeat nn
' P$ _0 Y! o, ~4 {    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
     (repeat nn2
) o8 J: \( D5 `7 n         (command"circle"bas rr)
         (setq bas (polar bas ang(*2rr)))
6 s" }& C5 e( f  y0 J$ c)
5 y! V0 {" ^5 Z1 @# v; I9 f     (setq nn2(1-nn2))
7 w; \' W5 y2 u' D$ N    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
1 U- d) {5 ^" {- v) O% a4 @     2)))
)
: X' ^$ v) E- l' q(prin1)
7 Q$ q& X& B1 |0 I& ]8 B)
堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件
( {. w# }. N9 K& X  P! Z
[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

少了一些空格....
; L1 B/ M) n8 G% A8 e( a  N其餘未試

1. (defun c:test ()
   $ x2 f) ]$ u$ L. j. S
2.   (setvar "cmdecho" 0)
   
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   
5.   (setp nn (getint "\n 堆叠层数:"))
   , q9 Y  y5 A3 q/ z% c2 @5 a
6.   (if (null nn)
   
7.     (setq nn 4)
   
8.   )
   
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   
10.   (setq ang (angle pt1 pt2))
    
11.   (setq nn2 nn)
    9 ^2 K  w! S/ t( t6 Q
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    
14.            "c"
    
15.   )
    ) Z; ~  Y* P- X  @" m6 Q# e
16.   (repeat nn
    6 {. c5 v  n. i0 M1 \5 {$ g9 v
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    
18.     (repeat nn2
    1 G/ ?2 }2 W+ \+ ~3 q
19.       (command "circle" bas rr)
    
20.       (setq bas (polar bas ang (* 2 rr)))
    
21.     )
    & R. g' H* q# f) T5 P8 _
22.     (setq nn2 (1- nn2))
    ! @5 ], ]1 Q5 p$ Q4 a( g
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    5 a  R4 S& F; J) _8 {; j" p' R! A
24.   )
      |9 S2 M2 N2 w6 C8 q
25.   (prin1)
    
26. )

复制代码

wyi

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