|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑 : i) t" z) k: E& f) M
- (defun c:an ()) g6 q7 ^& y9 X0 O
- (setq aa (getpoint "选取左下角点:"))( _% v$ c$ o X2 c
- (setq la (getreal "输入底边A的长度:"))8 x: I5 p8 n( P' |; c
- (setq lb (getreal "\n 输入B的长度:"))
6 e% ~# E: M# W( ? y0 @8 l( I. T - (setq lc (getreal "输入C的长度:"))
0 I: L8 j* L. C* j! ~ -
9 o% ]1 K8 n/ e# q - (setq sz (/ (+ la lb lc) 2))
0 v. G3 I- r% ~5 n( K. W! O) M5 V - (setq area (* (- sz la) (- sz lb) (- sz lc))); v% ?; N/ {' n ~: r* z
- (setq lh (/ (* 2 area) a)
/ `+ V9 H6 q& Z$ o( r, e1 B - 8 n6 m: P, {" f/ N% i
- (setq bb (polar aa 0 la))
, R. F8 l2 v7 ~' ?1 I1 J - (setq ah (sqrt (- (* lc lc) (* lh lh)))) 8 W* v; t0 B5 s9 U3 D K: i. Y. E
- (setq ang1 (atan (/ lh ah))). U$ G: E6 a3 n1 r9 U$ J5 A
- (setq cc (polar aa ang1 lc))
# t6 Z3 w( Z* W - (command "pline" aa bb cc "c")
, Y0 [( E- C( O# D \5 M. ^ - )
6 y2 C) Q0 u% g! \% p - (prin1)
![2][OFRBE0YN]B[V6O3~U$)I.jpg](data/attachment/forum/month_1105/1105261733094b10532c04bdcb.jpg "2][OFRBE0YN]B[V6O3~U$)I.jpg")
请问这个什么地方出问题了呢？谢谢高人指点一下。 |
|
发表于 2011-5-26 17:33:01
楼主