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

wyi

; U$ ]5 S) [- `我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
下面是程序.附件中是源文件:哪位老师辛苦了.
2 n8 u4 }) {$ W7 Z' }(defun c:test()
* L' J3 i! }; ?1 @2 E" Q1 W(setvar"cmdecho:0)
) t. C) A9 b/ ~' e% e; a(setq pt1(getpoint"\n 起始点:"))
* ]" M% S2 t6 Q# t, I; d(setq pt2(getpoint pt1"\n 边长A:"))
(setp nn(getint "\n 堆叠层数:"))
( A& f" N' `, @) n9 o(if(null nn)(setq nn4))
(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
1 O" X+ T/ `+ i2 z% _(setq ang(angle pt1 pt2))
(setq nn2 nn)
# j+ u7 o4 M7 p, H/ P$ U7 D, y4 z+ }(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
tance pt1 pt2))"c")
(repeat nn
    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
     (repeat nn2
2 f! Q- H. ?& L: S6 ^         (command"circle"bas rr)
+ i& N/ y# l7 r) Z! O  l         (setq bas (polar bas ang(*2rr)))
)
     (setq nn2(1-nn2))
% {9 B1 }1 [* `9 b    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
     2)))
7 y; H, t/ X( x7 x; w7 a+ ?)
; Y; T: }: B; f+ n(prin1)
)
3 u+ q5 i( k6 v1 }1 h3 @ 堆叠.rar (411 Bytes, 下载次数: 2)

2008-2-17 13:46 上传

点击文件名下载附件

$ V9 H5 s! a" O  i- Y: I[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

少了一些空格....
5 a% n$ X3 i, `) H% Y$ ~其餘未試

1. (defun c:test ()
   
2.   (setvar "cmdecho" 0)
   - t) ?4 c4 {0 k2 ]
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   
5.   (setp nn (getint "\n 堆叠层数:"))
   & v  a) a2 X, H  o
6.   (if (null nn)
   
7.     (setq nn 4)
   
8.   )
   
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   3 X4 ~. @+ q" U: G8 ^; B
10.   (setq ang (angle pt1 pt2))
    
11.   (setq nn2 nn)
    
12.   (command "line" pt1 pt2
    
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    4 H+ x2 S2 s/ z5 ~$ ^# ~  m* ]0 j; ?( X
14.            "c"
    
15.   )
    
16.   (repeat nn
    
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)))
    ! I# ~9 o* ]1 h( w! X
21.     )
    ( V2 V8 q0 ~' x- h
22.     (setq nn2 (1- nn2))
    
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    
24.   )
    3 `/ N! N4 f& l, {& ^
25.   (prin1)
    - J& h( l. ?+ S* k- U
26. )

复制代码

wyi

感谢楼上老师的帮助,终于做出了这张图.
! ^# v% V8 Q. f; [4 ~. A