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

leimc

* N7 s% Q2 p# V1 s/ e1 _' ~
& N( z: I/ B; j3 [4 y这是教程里的一道题
) x$ y! H% k% w) W2 l4 p8 r$ K

1. (defun c:lt()
   ; S$ E2 e2 @" v- J
2. (setvar "cmdecho" 0)
   2 q! ~' Y) m! C/ Z
3. (setq p1 (getpoint "\n插入点"))
   9 T9 [- b0 ?. A7 M+ H
4. (setq w (getreal "\n梯宽"))
   
5. (setq h (getreal "\n梯高"))
   - c( _- p7 r0 Y0 u. G
6. (setq n (getint "\n级数"))
   
7. (setq p2 (polar p1 0 w))
   $ R% H/ t4 F+ T1 \" M, ^% V  ?* }
8. (setq p3 (polar p2 (/ pi 2) h))
   ( Y, K% W& T6 i' w: S9 ^8 k+ u0 r
9. 
   % L  e0 v" D* r8 j- M$ j9 c( y
10. (command "line" p1 p2 p3 "")
    % L2 S8 P- s& F" }+ U
11. 
    ' A5 H; f* F4 d; w
12. (setq w1 (/ w n))
    
13. (setq h1 (/ h n))
    
14. (setq pa p1)
    5 P, k6 }7 R) Q0 I# D
15. (repeat n
    
16. (setq pb (polar pa (/ pi 2) h1))
    
17. (setq pc (polar pb 0 w1))
    " X& x) i7 v* d+ f
18. (command "line" pa pb pc "")
    / d6 d! s' ]8 B5 T0 q
19. (setq pa pc)
    8 H/ b, j* E9 S! k4 D: z8 D
20. (prin1)))
    
21. (prompt "\n命令：lt")

复制代码

/ G: U7 A# }4 q- F& @
[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

不错，下次你可以将代码用这种形式发：
5 I* @" }; t4 c7 k& @
1 E# G; I+ Q8 O7 s0 u6 `9 i[code]你编写的代码[/code]

% J' m2 L! z; {9 n8 H- ?; l这样代码就会进入一个专用文本框中，不会出现头像....等问题

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt
! @' j% c% Q4 y& f+ K3 d/ [: N8 X
- l( u: ?4 Y# ]+ S) s7 B: O
    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
/ }1 }- Z: g- r* ^4 D  b这还是简单演示
对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。