本帖最后由 leimc 于 2026-5-6 08:58 编辑
4 L# h1 f" g% d+ h, R* k9 o& ~# P0 t! x$ M
- y q0 X9 `& e( u8 X* `% O" E& H
这是教程里的一道题
$ F: m/ ]. Q/ _" f" [& R* {& |- @: T- (defun c:lt()
0 \' [7 k4 r% |, u; d - (setvar "cmdecho" 0)
b3 s& n+ r$ ?% z, ] - (setq p1 (getpoint "\n插入点"))
8 G% d" ]9 L& I7 r - (setq w (getreal "\n梯宽"))
, k [4 u* j; j* M1 j - (setq h (getreal "\n梯高"))% ]' N4 `4 ^, D5 ], E. p! S+ ~4 c
- (setq n (getint "\n级数"))% F: K( t x. z* `
- (setq p2 (polar p1 0 w)), w9 e- Q! @" Y I" Y
- (setq p3 (polar p2 (/ pi 2) h))
, _% L+ j' m+ x4 k3 c. a1 ^ - & K# ]! ~, C; a
- (command "line" p1 p2 p3 "")$ h7 V ]( {5 v* C8 Y# D' I
- / {6 \+ u/ w3 B# s& D; |% |
- (setq w1 (/ w n))
) M5 J/ a: B3 X+ t A3 s1 e - (setq h1 (/ h n))" h$ e4 @3 ]( f, k6 Q$ S. d& A
- (setq pa p1)9 _5 L) l6 `% E( Q3 c
- (repeat n
% ?+ D$ X$ n! f3 f0 ] - (setq pb (polar pa (/ pi 2) h1))
1 J. g, f: _7 |% }/ @ - (setq pc (polar pb 0 w1))- A4 N+ r. a {5 s1 F
- (command "line" pa pb pc "")$ v' q/ f& m5 u; M
- (setq pa pc)
" \- O# G; k6 K! r" N- y - (prin1)))
$ G' |: ~$ h6 I) @4 d' F - (prompt "\n命令：lt")
/ g# S; h. {/ V" H6 o5 J5 @
) Y8 ?$ P' s2 u. f+ G% }[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主