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

leimc

这是教程里的一道题
(defun c:lt()
* A! [) G& G; y(setvar "cmdecho" 0)
4 T: `1 h# O7 e0 ^(setq p1 (getpoint "\n插入点"))
" V3 i1 l+ n8 P/ m1 Q, F(setq w (getreal "\n梯宽"))
(setq h (getreal "\n梯高"))
(setq n (getint "\n级数"))
* Q" N3 o8 s- G1 J1 b4 O+ L" m(setq p2 (polar p1 0 w))
3 w- T* f+ }; Q8 V" N(setq p3 (polar p2 (/ pi 2) h))
# {# E8 x- x  V# G; `1 Q
(command "line" p1 p2 p3 "")

3 b1 X: y* q* w1 M% N(setq w1 (/ w n))
(setq h1 (/ h n))
& T: ]  ~/ o6 C(setq pa p1)
3 s0 t  N  b; v. y' M$ w! B; g(repeat n
(setq pb (polar pa (/ pi 2) h1))
(setq pc (polar pb 0 w1))
% b! `" A  R) j# k# |! G- [(command "line" pa pb pc "")
5 Y, z7 X! g+ G0 f2 d6 O- u8 L(setq pa pc)
(prin1)))
(prompt "\n命令：lt")
* E7 o3 O* v4 q# F
' {) p; W: k1 e* ?! Z5 ]6 {[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

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

[code]你编写的代码[/code]
( C; o: _+ ?' A' [: w5 R
* H( h6 ]1 U! d' c" N这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt

4 F, m/ Q& i' D; e3 z
    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
这还是简单演示
7 C) ~5 {! a- q% Y! _2 T" M; {: n# g对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。