我的第一个lisp程序

xuehong51

看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
1 U# A" r) I1 w+ i8 b这是论坛上的一道题，试试用程序把他画出来
8 J' X+ K1 T5 m2 A# e: p* Z
钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。

" ^* s# d% m9 o/ v6 V8 K把代码贴出来，非常希望得到各位老师的批评指点。

7 z/ \: b% q  s7 c;;;该程序用于绘制“转五边”图形
/ f; ]+ }' n& M8 k9 i(prompt "\n 启动命令：r5")
) V+ v. {4 m6 }2 f' N( n(defun c:r5()
. D+ {" {. J8 ]. \: _. D# C8 R;;环境设置
. B6 a0 i$ J) `8 N! W# U   (setvar "cmdecho" 0)
   (setvar "osmode" 0)
; _1 I  z% h2 V, H
   (setq pc (getpoint "\n输入图形中心: ")
         ra (getdist "\n输入大圆半径: ")
         rd (* pi -0.5)
& Y# p8 u* M6 S9 t- ?         coun 1)
7 \+ A5 T$ D5 f7 I' w# k# z! p2 ]2 w;;程序主体
  (command "circle" pc ra)
  (r5b pc ra coun rd)
# I* w( M* O/ [0 s) ?" {  (command "circle" pc rm )
: T  z* ]& |. b" d;;恢复环境
   (setvar "cmdecho" 1)
   (setvar "osmode" 4337)
   (princ)
   );结束defun

;;;定义r5b函数
) E+ [1 `8 E5 n  W# B(defun r5b(pc ra coun rd)
  (setq p1 (polar pc (* pi 1.0) ra)
        p2 (polar pc (* pi 0.6) ra)
        p3 (polar pc (* pi 0.2) ra)
2 J4 ]; D7 Y8 a; E) ?/ t( F, B  f        p4 (polar pc (* pi 1.8) ra)
) q: [4 ~0 w7 H# Q- S1 G3 ^9 q! V        p5 (polar pc (* pi 1.4) ra))
1 M: `% Z- f; A  (command "pline" p1 p2 p3 p4 p5 "c")
" z. x1 p0 C2 b  (command "rotate" "last"  "" pc rd)
& F" |% F8 w  o0 ]: M5 D+ g  (setq coun (1+ coun)  )
  (if (<= coun 4)
              (progn
        (setq ra (* ra ( / (sin(* pi 0.3)) (sin(* pi 0.6)))))
        (setq rd (- rd (* pi 0.5)))
        (setq rm ra)
5 f; F" u9 o7 u! Z  Y4 x( [               (r5b pc ra coun rd)
$ a( v* D1 P3 ^         );结束progn函数
  );结束if函数
  (setq rm (* rm (cos(* pi 0.1))))
  );结束defun

baller

原帖由 xuehong51 于 2008-10-15 10:10 发表
. \: m; E! X' |7 n' F看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
& W6 Y, O) _& e这是论坛上的一道题，试试用程序把他画出来
7 c1 N- f' I1 A9 I' {42307
钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。
9 s( @" c" ]- \6 S. {42308
) M# a' C( Y) \8 H把代码贴出来，非常 ...

5 _4 s, m: H: K- h) r. d. s思路清晰
) O  V1 r- X2 A: l提点建议：既然是减少重复工作，就得使其具有通用性

xuehong51

多亏你的指点阿
只是看第一集里的图和这个图有点像，那他练练手。
位置和半径可自定，哪里再增加些通用性？
你可不知道，费死劲了
  V5 {5 g8 b6 F9 h# u  w, `" K5 F
[ 本帖最后由 xuehong51 于 2008-10-15 11:12 编辑 ]

baller

原帖由 xuehong51 于 2008-10-15 10:35 发表
多亏你的指点阿
只是看第一集里的图和这个图有点像，那他练练手。
位置和半径可自定，哪里再增加些通用性？
! x/ R0 t3 Z6 C/ Q你可不知道，费死劲了

$ Z1 }. |  N. `- C# x: l7 X
我还是泛泛地说下自己的看法吧
你给用户的可控参数越多，这个程序就能做更多的事

truezx

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

xuehong51

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

pandora宝贝

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

windy_wei

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