|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
3 x2 C- j9 Z7 R7 D+ [: o- (defun c:an ()
8 F% i& G! g& H) m& M. q, G0 [ - (setq aa (getpoint "选取左下角点:"))
# m8 L. g" U: F2 @: K - (setq la (getreal "输入底边A的长度:"))
0 S+ A9 I) P2 t: r/ L# p9 \ - (setq lb (getreal "\n 输入B的长度:"))
9 B# ?; B+ W6 [2 P - (setq lc (getreal "输入C的长度:")) w. J7 ?) w4 W8 l+ G
- 2 Z$ Y; X/ L2 Z% P$ l# Y8 A6 N7 L3 M8 {
- (setq sz (/ (+ la lb lc) 2)) 4 D* F$ y( S: i! t8 j( M( }, G
- (setq area (* (- sz la) (- sz lb) (- sz lc)))' s; m0 @ A8 g4 A2 v& C
- (setq lh (/ (* 2 area) a)
7 }0 R$ D# l' a! ^
4 D6 c+ [& {$ Q4 y) ?7 k- (setq bb (polar aa 0 la))
, q4 S0 A! k! V1 @. s - (setq ah (sqrt (- (* lc lc) (* lh lh))))
# _2 y, a, J$ F6 w' o( g$ \* |. Y - (setq ang1 (atan (/ lh ah))); x2 P# m( f; Q E
- (setq cc (polar aa ang1 lc))
7 E9 }8 k2 [; Y1 N( t+ E - (command "pline" aa bb cc "c")
1 }6 C3 Z5 q- r6 D1 F1 y% f" ^! K1 j - )
4 j$ l6 U7 ~) S0 U# I' x8 Q1 ? - (prin1)
复制代码
请问这个什么地方出问题了呢?谢谢高人指点一下。 |
|