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

leimc

# m" u7 c# e" M8 r  o# Q% ]这是教程里的一道题
(defun c:lt()
# s3 y; T) [( g5 F(setvar "cmdecho" 0)
1 Q2 x7 |4 z) D; \, [. S(setq p1 (getpoint "\n插入点"))
* h+ h/ H& t5 x2 O6 s& f(setq w (getreal "\n梯宽"))
4 h/ b; w2 F+ o- P* _(setq h (getreal "\n梯高"))
(setq n (getint "\n级数"))
) @6 P" o/ D/ J2 K- N. u(setq p2 (polar p1 0 w))
" l, q- [3 Z0 \(setq p3 (polar p2 (/ pi 2) h))
  t* c) ~2 ?' j5 s% O% Q) m
8 X) {9 a/ q* V. B! x( y(command "line" p1 p2 p3 "")

(setq w1 (/ w n))
/ ?  g0 m7 y" n2 W% L- a2 l& {. j. o(setq h1 (/ h n))
% \( K) i0 u/ X$ M  l(setq pa p1)
(repeat n
+ a4 h0 K3 v/ n9 m+ j- h% N3 ^(setq pb (polar pa (/ pi 2) h1))
(setq pc (polar pb 0 w1))
(command "line" pa pb pc "")
( M) {3 G; \, Z3 Q$ s(setq pa pc)
; N1 s2 [) `7 M2 j9 X' m(prin1)))
(prompt "\n命令：lt")
+ J# t) Y# e( [8 \* E; W2 m# t
$ u9 l; ~! t' G( [; h[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ]

cad

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

9 ^! Z  F0 y0 o; [[code]你编写的代码[/code]

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

leimc

好的！我下次就这样做。

fffttt

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

leimc

ziheshi

学习中,谢谢楼主了.

leimc

回复 4# fffttt

9 {% W" z& r5 ?! n% ?
- X" V& `. n1 I4 y  l  o    如果你一生中只绘制一次的图形，那自然是了
但如果你工作经常都要用到的模块,你就知道有多方便了。
这还是简单演示
对于常用的图形，我们会先绘制成块或者属性保存，而这却又比属性块还更强大、更方便。