|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
8 R. G5 L3 N [2 \, R, q- (defun c:an ()
3 H+ C6 J8 j7 c- @# K - (setq aa (getpoint "选取左下角点:"))# e1 u! v& F+ d
- (setq la (getreal "输入底边A的长度:")); H# L5 `; X9 P/ C. p2 o( O: H* {
- (setq lb (getreal "\n 输入B的长度:"))
; p* o8 b0 x1 u7 [) T4 b - (setq lc (getreal "输入C的长度:"))( {* ~2 w8 q& k+ f9 Z1 f
- 3 c% I$ w, n1 I7 A; p
- (setq sz (/ (+ la lb lc) 2))
3 `* L, C Z) e$ p( C - (setq area (* (- sz la) (- sz lb) (- sz lc)))
5 r b( T0 b: S - (setq lh (/ (* 2 area) a)! O! K. D, e- E) ^3 }6 @. {
- % y9 p; Y5 v1 y+ b# M, H" m
- (setq bb (polar aa 0 la))0 [0 l0 D2 E' q3 ~8 y2 x
- (setq ah (sqrt (- (* lc lc) (* lh lh)))) , b& ]1 k/ j, K! E
- (setq ang1 (atan (/ lh ah))); ^3 V6 P, i+ D2 J0 s7 A
- (setq cc (polar aa ang1 lc))' v, ~! [8 [/ ] N! t/ J( z4 ?
- (command "pline" aa bb cc "c")
2 F! j7 r; @& ^) O4 Q( @7 T- ` - )
' I" g: I2 _3 t0 s t3 u - (prin1)
复制代码
请问这个什么地方出问题了呢?谢谢高人指点一下。 |
|