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

leimc

2 Y4 |* [8 [7 c* c这是教程里的一道题
(defun c:lt()
* L6 T- y( [2 T/ d. ]. W5 [; C(setvar "cmdecho" 0)
(setq p1 (getpoint "\n插入点"))
4 a0 D' e; q( Z- g! M(setq w (getreal "\n梯宽"))
4 V+ s9 I+ X+ r& f; G+ _+ J( k(setq h (getreal "\n梯高"))
# `( O- q* y2 q% h% K+ b(setq n (getint "\n级数"))
(setq p2 (polar p1 0 w))
8 r) r$ i( s' h/ V( u: }(setq p3 (polar p2 (/ pi 2) h))

0 X( ]2 P  t0 ?& R- p$ y" J; C(command "line" p1 p2 p3 "")
" f' s6 x' d- D1 X5 n8 C
(setq w1 (/ w n))
5 @% C$ f% k! U; G: y(setq h1 (/ h n))
, u! p1 L. R0 w: M1 `(setq pa p1)
* g2 E) s) P3 B, x  }& T, ^1 ~(repeat n
(setq pb (polar pa (/ pi 2) h1))
* o' x7 d% A0 P3 f, L(setq pc (polar pb 0 w1))
  i8 u: ]6 z. ]0 ~(command "line" pa pb pc "")
: i) o3 D8 T6 j: x, ?(setq pa pc)
(prin1)))
(prompt "\n命令：lt")
6 e: }+ {4 W% @) r1 W8 Z4 ^1 W
, n: Q% J. w+ G: R9 p: o+ Q[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

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

[code]你编写的代码[/code]

这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt

6 d& H: V  v* s0 G0 N
    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
这还是简单演示
( d! f' y6 R- d8 B, C7 ?对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。