本帖最后由 leimc 于 2026-5-6 08:58 编辑
& g. [' J! s. G" l V4 z6 P" B7 ?* i* Y& E* r$ J% w
8 ^. ^: d2 v8 y9 P; k这是教程里的一道题
9 k# B# w [, E2 J# r: a$ W' d% M- (defun c:lt()% g3 k/ x* g6 [% d$ D6 f. `
- (setvar "cmdecho" 0)
; y4 t( f9 O" }1 [4 ~: x - (setq p1 (getpoint "\n插入点"))
* W2 g& |2 V+ P' F - (setq w (getreal "\n梯宽"))
A6 ~( F( g4 V0 w/ X5 r" L - (setq h (getreal "\n梯高"))
% C! y! Z. [9 O- V - (setq n (getint "\n级数"))
, L' P+ b6 A: t3 I E - (setq p2 (polar p1 0 w))
+ [' f4 [7 \. k" l - (setq p3 (polar p2 (/ pi 2) h)); r' ?/ P# W" y5 f2 ]
- ; P9 P% _' E- w! t( t& N
- (command "line" p1 p2 p3 "")
" O; Y2 N3 x0 R: d) @7 d6 A
7 N( I/ H) J( j6 m- (setq w1 (/ w n))0 m' A3 H$ H- T
- (setq h1 (/ h n))6 s* e0 p# i" ]( p8 [2 f
- (setq pa p1)) U- o! _& e X; {7 R
- (repeat n
% h) @$ c) h4 t) U9 |3 n( v - (setq pb (polar pa (/ pi 2) h1))$ b: E, M% _# r% I: I% u$ \
- (setq pc (polar pb 0 w1))( p# r0 C# ]3 J
- (command "line" pa pb pc ""). a5 x. j; _/ X! a
- (setq pa pc)
6 @4 o" g0 T: B- z: W: E - (prin1)))4 j4 w. q2 H4 m2 r6 R
- (prompt "\n命令：lt")
) L% p6 g* \" z, z/ W0 N[ 本帖最后由 leimc 于 2007-12-19 16:55 编辑 ] |
发表于 2007-12-19 16:39
发表于 2007-12-19 16:44
楼主