本帖最后由 leimc 于 2026-5-6 08:58 编辑 + q4 }3 P6 `' A6 S( C
5 x9 T! R1 W2 i* G" M$ y/ Y6 l- t" c- E1 V0 ]9 l! ~
这是教程里的一道题0 p6 E7 `$ q( w. M {+ W- i4 X: o3 V
- (defun c:lt()0 d# P4 d( A, N4 L& S
- (setvar "cmdecho" 0)1 q6 r) ^$ @+ ]
- (setq p1 (getpoint "\n插入点"))
9 g! p. V; q2 @- j! n8 `# t! z - (setq w (getreal "\n梯宽"))
d3 B( Z3 W) y - (setq h (getreal "\n梯高"))
; s0 I6 t% j+ } - (setq n (getint "\n级数"))0 |/ `5 Z+ P1 j$ \! n* b
- (setq p2 (polar p1 0 w)) X9 W1 k- E8 W0 z: b
- (setq p3 (polar p2 (/ pi 2) h))* N% Z+ F* q* Q
- h4 |( X* b. C8 e2 u( K
- (command "line" p1 p2 p3 "")
h# L) `2 N$ s$ t" J$ d - 1 Z9 ^% \! L3 }2 B2 \
- (setq w1 (/ w n))% m: a2 V4 | m. ]* f/ C) f
- (setq h1 (/ h n))* T6 ]! ^' O4 F' A/ I- I. F
- (setq pa p1)
: `9 c4 R( L3 |* k) s1 K4 i/ u - (repeat n
9 v: a* B; M, Q+ i1 _% s( f# K - (setq pb (polar pa (/ pi 2) h1))
" j! G9 @' b3 {" ~" W6 R- W! K - (setq pc (polar pb 0 w1))7 J, ^; c8 X9 G: {* e$ l% b
- (command "line" pa pb pc "")
# G, s7 G" r) R0 V+ ^/ q1 M/ H - (setq pa pc)+ S' _$ f/ z, v$ I8 t+ s% A5 e
- (prin1)))
9 }4 n: T, s6 G1 {& e$ M - (prompt "\n命令：lt")
8 r, u b+ @) n, d/ o7 `# \ z' L4 n
[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主