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

leimc

2 i' Y3 H  f2 y% A! n" [+ h/ e+ C( i. z
( P/ A; G8 H8 T* h* P% w( Z
这是教程里的一道题

1. (defun c:lt()
   
2. (setvar "cmdecho" 0)
     o, w- ~) n) N$ |/ V8 n
3. (setq p1 (getpoint "\n插入点"))
   6 i" s. f6 X$ d. ~; _
4. (setq w (getreal "\n梯宽"))
   4 ~! y& D2 ^$ Q  t; I' ^/ J( s
5. (setq h (getreal "\n梯高"))
   
6. (setq n (getint "\n级数"))
   - k! @" w, g. W* U; z$ d9 N
7. (setq p2 (polar p1 0 w))
   
8. (setq p3 (polar p2 (/ pi 2) h))
   " }& I) W7 I+ P( F" V' u) O# u
9. 
   
10. (command "line" p1 p2 p3 "")
    7 v- N  K& l" ~# [- l" g
11. 
    ' ~9 C7 e( m) N# f9 W
12. (setq w1 (/ w n))
    
13. (setq h1 (/ h n))
    ; l' D. {" T; n( ?8 M1 }
14. (setq pa p1)
      q* M$ w. _& L5 s
15. (repeat n
    - c$ l6 G1 S. D4 ^3 `! x
16. (setq pb (polar pa (/ pi 2) h1))
    
17. (setq pc (polar pb 0 w1))
    6 G. A. U5 Y* q$ z
18. (command "line" pa pb pc "")
      e' b- D) y/ B& h  N9 \
19. (setq pa pc)
    
20. (prin1)))
    $ _/ F) M# n2 E( ?# r) c( ^
21. (prompt "\n命令：lt")

复制代码

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

cad

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

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

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

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt
/ u' k0 Y) w2 b$ V
! `/ Z& V9 o6 s. t# w( y, {9 n
    如果你一生中只绘制一次的图形，那自然是了
: @7 e% p" z* S( P: q8 F  }但如果你工作经常都要用到的模块,你就知道有多方便了。
8 q4 P  d9 N4 k这还是简单演示
对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。