本帖最后由 leimc 于 2026-5-6 08:58 编辑 ! y! d% m# m K, |4 L3 s9 ]
+ Q: Z' F7 U! B+ S d, ?! c+ ~! ?" O& l- @( ]+ _' d5 b4 m# t
这是教程里的一道题3 y* M: H7 c& L0 D/ E5 X0 W
- (defun c:lt()
: B) v' A% j! h0 I* V - (setvar "cmdecho" 0)
0 t* R7 F( Z: s/ S/ ^ - (setq p1 (getpoint "\n插入点"))( L( w) B; h: ~5 H) w4 g
- (setq w (getreal "\n梯宽"))
& `9 U y# C2 i. w, e* H - (setq h (getreal "\n梯高"))
( j5 a ^3 P* G' L% E% f9 f& E; W - (setq n (getint "\n级数"))% I& H* c" {( s- C/ G+ s
- (setq p2 (polar p1 0 w))9 \. K7 C) W. d9 J8 _4 {" v
- (setq p3 (polar p2 (/ pi 2) h))% C4 z& ]: {+ c
# \" V2 S3 R) y2 Y6 x# T- (command "line" p1 p2 p3 "")
( L7 o1 ?: W; }1 J) H - & O: g# T* S V" K- K
- (setq w1 (/ w n)). s1 G: C3 f" ~) Z# ^
- (setq h1 (/ h n))' E; I+ n8 l. L* z
- (setq pa p1): N3 B. i i% T! D, B
- (repeat n+ v6 s1 }+ }- G5 w2 t v$ }
- (setq pb (polar pa (/ pi 2) h1))
& B/ Y1 o) i6 W; \) s) {. N* ?9 E - (setq pc (polar pb 0 w1))
i" D* X8 {; M- L3 ^ - (command "line" pa pb pc "")! O0 j& Q! q+ O
- (setq pa pc) |- ^' j+ J; }7 u; j
- (prin1)))) @0 `: h0 K$ E) h& s9 H4 W3 y- L& Y
- (prompt "\n命令：lt")
0 V/ J2 T* V& V3 r5 U( c2 K9 B8 ^* E! _; a* G6 o/ b& J
[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主