|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑 ( I+ B. C2 u- G( E8 Z* n% S
- (defun c:an ()2 p+ G7 z5 Z" F" k7 w) R
- (setq aa (getpoint "选取左下角点:"))
- F) o# i' k) A$ d2 m9 S - (setq la (getreal "输入底边A的长度:"))- c! j8 a# w, b
- (setq lb (getreal "\n 输入B的长度:"))* r- {% i, E9 w' z
- (setq lc (getreal "输入C的长度:"))
2 D! M6 C6 V9 _( y2 |! _ -
F2 m( T. @, q5 b - (setq sz (/ (+ la lb lc) 2))
9 q- |9 d9 N8 k9 J. ^7 F9 b4 r2 i - (setq area (* (- sz la) (- sz lb) (- sz lc)))
! N+ l! N/ t, p! T+ V; d. x# [3 m - (setq lh (/ (* 2 area) a)6 r# Y ^6 Z% f9 k" d
- . t6 J' \% l0 p& @
- (setq bb (polar aa 0 la))! s$ m2 P5 E, m4 a" V. n$ [7 k
- (setq ah (sqrt (- (* lc lc) (* lh lh))))
}/ i3 f1 r/ |" S8 X2 d5 d - (setq ang1 (atan (/ lh ah)))
1 u! f5 o# a5 ?: Z& B - (setq cc (polar aa ang1 lc))
' ?6 {* t u- x/ y3 W( k; C: U" a - (command "pline" aa bb cc "c")
" B& c3 w$ j. S- \ - )+ A/ h' x" t( l0 f! C' a
- (prin1)
复制代码
请问这个什么地方出问题了呢?谢谢高人指点一下。 |
|