本帖最后由 leimc 于 2026-5-6 08:58 编辑
$ e/ G# j9 T8 E7 @) F& t M9 t5 ]$ V% D) a* V' E& g" S2 U3 W
8 z) ?! _) l9 a& M
这是教程里的一道题: O; C8 S2 w k3 m
- (defun c:lt()! H( U7 S+ ^1 F0 Y8 n e6 M
- (setvar "cmdecho" 0)8 ]1 v% P0 y- D: n! k4 k
- (setq p1 (getpoint "\n插入点")): ]* }- v& [8 W5 ?( R. b2 T
- (setq w (getreal "\n梯宽"))
0 |% x. j* f( D - (setq h (getreal "\n梯高"))5 e( L/ E \' M
- (setq n (getint "\n级数"))" u% W$ a. F3 G6 d
- (setq p2 (polar p1 0 w))
, _8 |/ `& N1 K4 A" \$ x7 I! ` - (setq p3 (polar p2 (/ pi 2) h))5 [. ?5 ^: F) y A* y9 R) n3 S
' V& `, i6 \8 m3 p1 V! b9 I- (command "line" p1 p2 p3 "")
6 y9 ]7 {1 Y. O" A3 T
9 Q2 f& | @) u& Y& {- (setq w1 (/ w n))
N2 ^( n! @' r: ?' d; _ - (setq h1 (/ h n))4 Z1 e1 x3 [9 i0 L% j& M
- (setq pa p1)
. H% V1 F2 k% ~8 C" @8 o% }. [& g/ t - (repeat n) O3 h9 ?% U' u# p! n
- (setq pb (polar pa (/ pi 2) h1))' k. p2 ]# Y! ?: ?* B. X' U
- (setq pc (polar pb 0 w1))
/ Q/ q' I+ i( M. K6 U - (command "line" pa pb pc "")$ Z" N# l; b. u, h
- (setq pa pc)" ^. W" @" F/ L7 T1 }
- (prin1)))
0 F5 e- l5 x5 {! ` - (prompt "\n命令：lt")
& E- s% k4 Y$ V6 m- ~. @
# a9 w+ g* C y. y" r0 @[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主