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

wyi

# o$ E. M( b. o* L# B  d$ {0 R我在书上抄了一段小程序,可是不能用,说是语句错误,如图
由于我没接触过,想请哪位老师帮助给改一下,先谢谢了,
下面是程序.附件中是源文件:哪位老师辛苦了.
$ X- ]# P4 Z% C& b3 M0 w(defun c:test()
/ }7 b. K( e6 n. `(setvar"cmdecho:0)
(setq pt1(getpoint"\n 起始点:"))
(setq pt2(getpoint pt1"\n 边长A:"))
(setp nn(getint "\n 堆叠层数:"))
' d9 n% X' `  a* v, }- B1 S! Z(if(null nn)(setq nn4))
1 k$ N' s9 W4 f) T" }5 Z0 q: {% f(setp rr(/(distance pt1 pt2)(1-(+nn(sqrt3)))2))
, i8 R4 B0 ^& {. f* [' n9 I. }, ]$ ?(setq ang(angle pt1 pt2))
(setq nn2 nn)
(command"line" pt1 pt2(polar pt1(+ ang(/ pi3))(dis-
- T7 I  k2 J( p% d. i/ c3 l+ Jtance pt1 pt2))"c")
" |) `) D( V5 @' x6 q" L" x(repeat nn
    (setq bas(polar pt1(+ ang(/pi6))(*2rr)))
     (repeat nn2
) a; h, V3 h6 g         (command"circle"bas rr)
         (setq bas (polar bas ang(*2rr)))
)
     (setq nn2(1-nn2))
5 `! Y; s* z, E8 X! `1 x  [. {( M7 E    (setq pt1(polar pt1(+ ang(/(*60 pi)180))(*rr
     2)))
)
(prin1)
8 V: q* ^& `$ _)
9 P) {6 q; J! G7 m 堆叠.rar (411 Bytes, 下载次数: 3)

2008-2-17 13:46 上传

点击文件名下载附件
' [6 r( [3 V. s5 w( H8 I+ Z# `8 e
[ 本帖最后由 wyi 于 2008-2-17 19:45 编辑 ]

SunVei

少了一些空格....
+ k. Y0 H- t& d9 t* m其餘未試

1. (defun c:test ()
   & Y9 h( Z! [7 |, M0 D" _
2.   (setvar "cmdecho" 0)
   
3.   (setq pt1 (getpoint "\n 起始点:"))
   
4.   (setq pt2 (getpoint pt1 "\n 边长A:"))
   
5.   (setp nn (getint "\n 堆叠层数:"))
   
6.   (if (null nn)
   
7.     (setq nn 4)
   4 y' p- a8 R& z5 A0 I' z
8.   )
   
9.   (setp rr (/ (distance pt1 pt2) (1- (+ nn (sqrt 3))) 2))
   ( _) m9 \+ s/ D* B
10.   (setq ang (angle pt1 pt2))
    / X1 n& |4 d) d0 _
11.   (setq nn2 nn)
    
12.   (command "line" pt1 pt2
    3 Z. v2 J# |/ y: f2 Q+ a% P  J# P
13.            (polar pt1  (+ ang (/ pi 3)) (distance pt1 pt2))
    
14.            "c"
    
15.   )
    8 P+ A2 [6 E: ^' J
16.   (repeat nn
    
17.     (setq bas (polar pt1 (+ ang (/ pi 6)) (* 2 rr)))
    8 g6 n4 R, [" X8 T, m
18.     (repeat nn2
    
19.       (command "circle" bas rr)
    
20.       (setq bas (polar bas ang (* 2 rr)))
    
21.     )
    9 i' M/ g, R: A' d0 ~
22.     (setq nn2 (1- nn2))
    ( u+ e* _) r4 q( a0 T4 @  k
23.     (setq pt1 (polar pt1  (+ ang (/ (* 60 pi) 180))     (* rr 2)  ))
    % m$ b* p) N% I4 F8 h8 f
24.   )
    
25.   (prin1)
    
26. )

复制代码

wyi

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