我的第一个lisp程序

xuehong51

看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
这是论坛上的一道题，试试用程序把他画出来
& W( a% Y/ V$ b, p
. M& i4 L7 P8 I3 O( q; ]钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。

9 d2 A6 v2 u5 A. n1 ]* _  r) ^把代码贴出来，非常希望得到各位老师的批评指点。
/ ^) H+ x8 M6 C; v" P
;;;该程序用于绘制“转五边”图形
4 \0 f8 _5 L6 o(prompt "\n 启动命令：r5")
, D0 g, F. x6 Y# E) X(defun c:r5()
;;环境设置
5 c3 m$ F5 E4 x1 J) C' u9 H   (setvar "cmdecho" 0)
   (setvar "osmode" 0)

   (setq pc (getpoint "\n输入图形中心: ")
( ?% o% m; U) Z" h- l' _         ra (getdist "\n输入大圆半径: ")
' E" h0 [0 J0 w* P- z3 T3 ^  @         rd (* pi -0.5)
9 F( i) _# [. |" @         coun 1)
& d+ Z$ t; C  A% V# N5 _;;程序主体
# N) L8 b& h' w2 s, o: ~  (command "circle" pc ra)
% g7 J; e+ l8 G8 @) L  (r5b pc ra coun rd)
- V8 |! b6 g. ^4 \) O( g  (command "circle" pc rm )
;;恢复环境
3 Z- D( v0 [* s! r1 S   (setvar "cmdecho" 1)
   (setvar "osmode" 4337)
   (princ)
   );结束defun
9 B0 x3 ~% V/ N1 l* F# J8 Y  ~+ t
;;;定义r5b函数
(defun r5b(pc ra coun rd)
) T. x* V8 x- K' Q; Y  (setq p1 (polar pc (* pi 1.0) ra)
        p2 (polar pc (* pi 0.6) ra)
        p3 (polar pc (* pi 0.2) ra)
% y3 }6 f0 Z7 @9 |        p4 (polar pc (* pi 1.8) ra)
: E- Z( x/ s/ l! V% F" k( H        p5 (polar pc (* pi 1.4) ra))
/ G' l! e0 d) x0 x& R- N  (command "pline" p1 p2 p3 p4 p5 "c")
$ R& i) y2 T: ^* B4 g5 ~) }  (command "rotate" "last"  "" pc rd)
  (setq coun (1+ coun)  )
2 ?" a0 A6 N, b2 }5 J  (if (<= coun 4)
              (progn
        (setq ra (* ra ( / (sin(* pi 0.3)) (sin(* pi 0.6)))))
* f" A( t; r# K2 h" F        (setq rd (- rd (* pi 0.5)))
# E; w0 G6 m- \* S; ]        (setq rm ra)
               (r5b pc ra coun rd)
        );结束progn函数
4 M6 [* J8 R  @- B  );结束if函数
4 l8 S) m. |5 d  (setq rm (* rm (cos(* pi 0.1))))
  );结束defun

baller

原帖由 xuehong51 于 2008-10-15 10:10 发表
4 @( g6 y5 [4 ^看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
这是论坛上的一道题，试试用程序把他画出来
2 A+ g& @9 n* m# C3 S% W42307
钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。
42308
: [0 K/ z0 E! ^: B+ x. n把代码贴出来，非常 ...

思路清晰
0 q  ~3 b, ]: h7 c2 s+ U提点建议：既然是减少重复工作，就得使其具有通用性

xuehong51

多亏你的指点阿
只是看第一集里的图和这个图有点像，那他练练手。
位置和半径可自定，哪里再增加些通用性？
你可不知道，费死劲了
8 t* c& H# O% L1 Q+ c6 [
, }9 w- b9 ^, ?. \- E: S0 o[ 本帖最后由 xuehong51 于 2008-10-15 11:12 编辑 ]

baller

原帖由 xuehong51 于 2008-10-15 10:35 发表
: N1 m0 y! m: y# Y2 i多亏你的指点阿
; X8 W  A& G$ F3 ]* s4 j6 g只是看第一集里的图和这个图有点像，那他练练手。
1 |5 _6 Z7 P2 r" m  U! s# [3 Y4 N' _7 a位置和半径可自定，哪里再增加些通用性？
/ k  @$ g) u& f- K你可不知道，费死劲了

: S# H" A# e$ I4 }
+ p+ Q+ F9 w" ^7 ~! n9 a我还是泛泛地说下自己的看法吧
你给用户的可控参数越多，这个程序就能做更多的事

truezx

你也介绍一下过程啊，昨天还在第一辑里发帖提问，今天就钻研出来了，能否告知哪里出错了，你又是怎么发现并改过来的？

xuehong51

过程坎坷啊，简直是一步一个坎，一言难尽。
昨天的问题通过修改图形文件单位解决，现在也不知所以然

pandora宝贝

厉害了我对这部分一窍不通了

windy_wei

顶你们两位！！！！！！！！！！