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

leimc

* t9 v4 n8 N. k  O这是教程里的一道题
+ ^! s% Z& U7 a- k1 v' O(defun c:lt()
7 I1 Q9 N4 r1 I; w(setvar "cmdecho" 0)
(setq p1 (getpoint "\n插入点"))
, _" a) n0 I, O4 n( K(setq w (getreal "\n梯宽"))
  ], L7 V; k' r* [/ ^(setq h (getreal "\n梯高"))
(setq n (getint "\n级数"))
3 u% S! w. {$ }6 T3 B(setq p2 (polar p1 0 w))
(setq p3 (polar p2 (/ pi 2) h))

. ]- t- J4 P- ^2 S(command "line" p1 p2 p3 "")
9 x! O( Y9 C# F/ i
(setq w1 (/ w n))
5 [* L4 O4 V0 |8 N4 c% G( ?(setq h1 (/ h n))
, o) H! v) t: Y( O+ K4 m(setq pa p1)
(repeat n
(setq pb (polar pa (/ pi 2) h1))
(setq pc (polar pb 0 w1))
; k7 V6 c" m; K(command "line" pa pb pc "")
(setq pa pc)
* l9 K' u6 [1 F! _* [(prin1)))
$ n# x1 G& j1 D! w. ~# H" H, }(prompt "\n命令：lt")

[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

不错，下次你可以将代码用这种形式发：

[code]你编写的代码[/code]
9 `8 L8 h2 R4 e: Z8 t) x& L" q& A
这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt


    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
+ ~9 t, O/ B0 y这还是简单演示
对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。