用LISP二次开发来绘制一个楼梯

leimc

这是教程里的一道题
(defun c:lt()
8 s% n4 p( D: R. C) U(setvar "cmdecho" 0)
" r( Q: l) Y+ J. W5 V+ q(setq p1 (getpoint "\n插入点"))
(setq w (getreal "\n梯宽"))
# B+ a' O) Z! |; Y5 N* T  ~(setq h (getreal "\n梯高"))
(setq n (getint "\n级数"))
8 h. P; R5 H0 S4 W(setq p2 (polar p1 0 w))
$ y+ Y& s' G) G(setq p3 (polar p2 (/ pi 2) h))

2 Q# u, F4 u* k. I) v8 c(command "line" p1 p2 p3 "")

8 [% v+ ~* f' ^(setq w1 (/ w n))
(setq h1 (/ h n))
) ?- ^7 Y. _7 H( Z(setq pa p1)
3 ]# [4 P, j* q7 G, ](repeat n
(setq pb (polar pa (/ pi 2) h1))
1 \2 s' |' x& p0 x4 M8 T7 w(setq pc (polar pb 0 w1))
- p0 O: s- _5 |# J# l& Q% a9 m(command "line" pa pb pc "")
$ [; t( A( ^1 F0 x& E+ q$ C- p(setq pa pc)
(prin1)))
(prompt "\n命令：lt")

: H% s9 [4 k) T( d( S& M9 m[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

不错，下次你可以将代码用这种形式发：
$ _- H9 `8 p/ s
[code]你编写的代码[/code]
3 J- j( v! N+ Y# x
这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc

好的！我下次就这样做。

fffttt

我总觉得直接画，要来得快些哦！

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt
! P/ ~) ?- U  E& ?

    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
这还是简单演示
, s3 n3 q) C6 S  ]: n1 ?, t! o对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。