我的第一个lisp程序

xuehong51

看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
2 e) u  S' ^) ^! H2 E这是论坛上的一道题，试试用程序把他画出来
: u4 O' v0 W- \6 e
) a# e- e7 z1 o) ~3 L* |2 i钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。
* ^! T+ A% X# S5 C; x4 Q4 V4 O
+ R/ j3 h9 S1 @  n) g* `把代码贴出来，非常希望得到各位老师的批评指点。

;;;该程序用于绘制“转五边”图形
4 d6 a0 E- n. S1 l( [3 h+ A( u(prompt "\n 启动命令：r5")
% o- A5 t) {3 K+ k; L' G' i/ O(defun c:r5()
;;环境设置
9 {( B$ J# Y# _# `1 e   (setvar "cmdecho" 0)
5 l) X6 y- A$ m: @   (setvar "osmode" 0)
, y6 m) q" N# o3 j/ ]" l$ M
6 D. A& C$ J# G1 z6 v   (setq pc (getpoint "\n输入图形中心: ")
         ra (getdist "\n输入大圆半径: ")
* j- V" V3 t6 z, P' X0 R         rd (* pi -0.5)
         coun 1)
& T1 g" l) L( W2 z( O;;程序主体
  (command "circle" pc ra)
! P4 B7 t! r6 V  T, s  (r5b pc ra coun rd)
  (command "circle" pc rm )
# {6 B9 p) l4 e7 W;;恢复环境
   (setvar "cmdecho" 1)
   (setvar "osmode" 4337)
   (princ)
0 w# b/ z1 A! Z# D) a! X   );结束defun

;;;定义r5b函数
+ k0 h4 k# K- G. w! B3 ]1 v. i  d: `$ y(defun r5b(pc ra coun rd)
  [7 m: H% z( u" H4 N+ Q. E8 C  (setq p1 (polar pc (* pi 1.0) ra)
        p2 (polar pc (* pi 0.6) ra)
        p3 (polar pc (* pi 0.2) ra)
3 Q1 E; B: J6 q0 H! a        p4 (polar pc (* pi 1.8) ra)
        p5 (polar pc (* pi 1.4) ra))
- j5 |5 ~7 x2 k( L) K; b9 k) X! l  (command "pline" p1 p2 p3 p4 p5 "c")
  (command "rotate" "last"  "" pc rd)
! b7 P. j$ L/ e; u( p  (setq coun (1+ coun)  )
  (if (<= coun 4)
! W1 j1 {6 h7 T) q# y( o6 t6 k$ D: _              (progn
8 L: \# f! E$ I9 Y2 K) H- g        (setq ra (* ra ( / (sin(* pi 0.3)) (sin(* pi 0.6)))))
        (setq rd (- rd (* pi 0.5)))
        (setq rm ra)
               (r5b pc ra coun rd)
# z; o" m9 M" D" R         );结束progn函数
2 b& s# S- B" r  );结束if函数
5 |8 H4 F1 b& F! y/ X+ p6 t# a  (setq rm (* rm (cos(* pi 0.1))))
  );结束defun

baller

原帖由 xuehong51 于 2008-10-15 10:10 发表
看了yrgui老师的“一起学习lisp”第一辑，就想自己也练练。
这是论坛上的一道题，试试用程序把他画出来
42307
钻研了几天，过程非常枯燥，也非常有趣，现在总算是基本完成了。
9 F2 \; \" r& V1 y  P, B9 E42308
把代码贴出来，非常 ...

: _, d% [+ f9 o4 Y& [. S
5 j7 p" F. A1 k- u* Q思路清晰
' n3 K1 K5 _6 J1 ?  q提点建议：既然是减少重复工作，就得使其具有通用性

xuehong51

多亏你的指点阿
只是看第一集里的图和这个图有点像，那他练练手。
位置和半径可自定，哪里再增加些通用性？
  _; ?2 Z  T/ P' N& ?你可不知道，费死劲了

[ 本帖最后由 xuehong51 于 2008-10-15 11:12 编辑 ]

baller

原帖由 xuehong51 于 2008-10-15 10:35 发表
! @' e+ x6 p" U4 J多亏你的指点阿
只是看第一集里的图和这个图有点像，那他练练手。
位置和半径可自定，哪里再增加些通用性？
& R& Y7 f5 t; w+ `+ G& [# s: {你可不知道，费死劲了

- n0 Q( A% S% {, `& f; L' {
; g& Q# z% G- q% x. B4 f我还是泛泛地说下自己的看法吧
: N0 Q" B& _( n7 a; L8 B你给用户的可控参数越多，这个程序就能做更多的事

truezx

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

xuehong51

过程坎坷啊，简直是一步一个坎，一言难尽。
% M) I0 L# K( W/ G  o昨天的问题通过修改图形文件单位解决，现在也不知所以然

pandora宝贝

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

windy_wei

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