|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
4 o- p- L! N3 H$ E' M) H# \- (defun c:an ()
$ R2 \/ f6 I4 Q. o; M# h7 G - (setq aa (getpoint "选取左下角点:"))9 r! ]6 c3 V3 H3 i2 ~
- (setq la (getreal "输入底边A的长度:"))
6 H, X0 f1 j% T) q - (setq lb (getreal "\n 输入B的长度:"))* _% g0 G6 h! R' C9 v
- (setq lc (getreal "输入C的长度:"))
& p, ?* y6 b3 Q5 g, F1 Z( Z2 i -
% E6 X# l/ ?. t) f8 g. U' t2 Z4 Y8 ] - (setq sz (/ (+ la lb lc) 2)) ) d$ @2 a$ L: B$ u! t3 g3 A
- (setq area (* (- sz la) (- sz lb) (- sz lc)))9 R3 x& T7 V& T7 _2 b3 r
- (setq lh (/ (* 2 area) a)6 I( \9 R; e! ~, }- i& g1 L
- , r# @# @: n5 ]/ T2 {$ [/ P
- (setq bb (polar aa 0 la))) j$ p. p" O; J' Q
- (setq ah (sqrt (- (* lc lc) (* lh lh))))
- H7 y' {7 Q- N - (setq ang1 (atan (/ lh ah)))- x. C9 k$ L1 V
- (setq cc (polar aa ang1 lc))0 ?; w! _# N& \/ c4 H3 G- [
- (command "pline" aa bb cc "c")
6 Y3 l* J- _3 D% v; K% N - )
- v* _: b: H3 C - (prin1)
复制代码
请问这个什么地方出问题了呢?谢谢高人指点一下。 |
|