|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
& J$ Y# O& b; j, s$ J7 i0 m- (defun c:an ()
' J4 j: q$ D: n: e: J9 U0 V - (setq aa (getpoint "选取左下角点:")); m: n* z T T2 P+ H C/ d3 n
- (setq la (getreal "输入底边A的长度:"))2 g0 s# C- ^' t* D! w% d
- (setq lb (getreal "\n 输入B的长度:"))% m$ W3 R% C+ b; ^
- (setq lc (getreal "输入C的长度:"))
9 d; P+ k1 z. K6 u1 U3 m1 S -
. Y2 S3 Z5 p# |+ [! o3 v - (setq sz (/ (+ la lb lc) 2))
7 d! a" N- }+ k# h5 T0 W# G# y# ^ - (setq area (* (- sz la) (- sz lb) (- sz lc)))/ p2 x5 U. B, J5 Z7 g+ I
- (setq lh (/ (* 2 area) a)
& y! v+ c2 g( A* ]& I4 Q - : m: w) g6 Y' X1 b
- (setq bb (polar aa 0 la)): x) Y# l/ T- l! z9 Z5 q' i3 Z. G
- (setq ah (sqrt (- (* lc lc) (* lh lh)))) ' Y8 Q5 f3 d$ d% e0 E
- (setq ang1 (atan (/ lh ah)))9 Y1 D' V$ S( A9 A
- (setq cc (polar aa ang1 lc))+ S! f$ |( K2 |/ ?4 A* a
- (command "pline" aa bb cc "c")
~% B; b; c. D* | - )
" x7 U8 @# `* ~9 @, m8 j - (prin1)
复制代码
请问这个什么地方出问题了呢?谢谢高人指点一下。 |
|