本帖最后由 leimc 于 2026-5-6 08:58 编辑
0 P# Y- z4 U5 V. \. X' K9 T, H i
& y* g4 i& ?( `) p* [# N, Q/ K
这是教程里的一道题
! L9 x) Q: E. D, v/ \# f- (defun c:lt()
7 Y) M- u5 {( m3 H% w - (setvar "cmdecho" 0)
/ k+ y' Z# Y8 L8 Q% f6 k3 a - (setq p1 (getpoint "\n插入点"))* ?& P7 Z4 I6 j* v( O. Z
- (setq w (getreal "\n梯宽"))- G5 n% a) X7 W" E1 A/ n
- (setq h (getreal "\n梯高"))
0 O4 G, R/ Y% S: o9 S! z - (setq n (getint "\n级数"))
% D7 E0 @! e t( w, \3 r/ o8 X - (setq p2 (polar p1 0 w))- V) c0 W( I9 F' Z0 n9 t6 G2 }' T
- (setq p3 (polar p2 (/ pi 2) h))
( X& X+ _4 [; S* D; j k9 x, O H. K! x# ` - ) ]8 m( R2 s# z$ n) v) B U' R @
- (command "line" p1 p2 p3 "")
! @4 B0 K6 I' p* E2 _3 q; T
) s" W! U1 c' }; @8 n- (setq w1 (/ w n))/ ~9 w$ p5 o* t9 n3 @3 @
- (setq h1 (/ h n))
# @2 I. x+ e: G% O, d - (setq pa p1)
6 [; q' a9 S% O6 d - (repeat n
Y8 R N" t) L# z" `, q - (setq pb (polar pa (/ pi 2) h1))3 r$ C4 k N8 W! ?$ V/ j
- (setq pc (polar pb 0 w1))
' Y1 x/ B& ^- R5 g4 } - (command "line" pa pb pc "")
# b8 j% }; j& ]! \2 |4 p - (setq pa pc)
# I! ~6 |: ^' g( P0 {5 u - (prin1)))5 ~- { d' s$ e4 L. c
- (prompt "\n命令：lt")
! }; \$ |! x( b4 V
$ {! Q! u6 d# z7 H4 j4 b4 s* T: k[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主