本帖最后由 leimc 于 2026-5-6 08:58 编辑 " w0 m9 R' z, D2 k- I
7 w# V" O4 F' E! i r
; w$ N& Y/ G' `5 H* ?* O6 q0 k: j# W3 l这是教程里的一道题7 v, W2 u2 D4 j; {4 D2 z$ X
- (defun c:lt(): l2 q7 j8 `6 V: M( y& Y
- (setvar "cmdecho" 0)
" E) \1 k$ e) I* g, C5 @2 z4 w - (setq p1 (getpoint "\n插入点"))& V; m( Q/ G' m* s- F
- (setq w (getreal "\n梯宽"))- g+ L6 U3 a1 o
- (setq h (getreal "\n梯高"))6 E1 Y0 l: e4 t; ~, ] ?6 Q$ K
- (setq n (getint "\n级数"))4 d' \: F& H& R$ L, s% u
- (setq p2 (polar p1 0 w))
T( J7 N. E' {+ A o, v - (setq p3 (polar p2 (/ pi 2) h))
& ~ ~( d; `& c! T0 M1 Z - g# k3 s6 I- U% u
- (command "line" p1 p2 p3 "")
8 P( Q% f( P* L" v$ m3 O - / U/ s+ m1 @) j! S; U" B3 G
- (setq w1 (/ w n))
* w0 T- Q8 a% A" K5 t3 B - (setq h1 (/ h n))& z( y1 |% b: ]
- (setq pa p1)
8 ^% z3 h, W) B( J$ J - (repeat n
) x0 `+ {0 r( V" l1 H# g- d, t. L( T - (setq pb (polar pa (/ pi 2) h1))
6 s2 e/ x W8 e0 l - (setq pc (polar pb 0 w1))' C ] A; F6 N) r) p
- (command "line" pa pb pc "")6 f3 W4 ^. y c( ^
- (setq pa pc)
* p4 _8 ^; ~. y. R$ y6 N - (prin1)))
6 B2 C8 a* F+ O; `6 E4 t - (prompt "\n命令：lt")
/ g1 T0 E* J o/ T5 U) o; `! v9 B. E0 t4 i3 F' W
[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主