|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
. S }- H1 @2 n0 d* E- (defun c:an ()( y+ A% H/ P( O* P, V+ B9 q+ y1 t: R. [# ]
- (setq aa (getpoint "选取左下角点:")); W( |3 K1 n1 E9 X
- (setq la (getreal "输入底边A的长度:"))
2 @) C7 Z! }4 B: y. T - (setq lb (getreal "\n 输入B的长度:"))" r( y( U" n: R) P4 H0 `, N
- (setq lc (getreal "输入C的长度:"))
3 p0 _ H- X% g9 U2 _6 g, G - & Y) G0 W$ f4 h
- (setq sz (/ (+ la lb lc) 2)) 1 `; D& i( J0 n$ q7 e
- (setq area (* (- sz la) (- sz lb) (- sz lc)))* H3 h- }& A. p5 N
- (setq lh (/ (* 2 area) a)
3 t i& `# W& Z' |1 c- H% k - * d" K% I8 f7 R4 o \3 K/ i: x
- (setq bb (polar aa 0 la))
* g$ U# n& }# p1 K* b! F - (setq ah (sqrt (- (* lc lc) (* lh lh))))
5 X3 L5 A9 G3 v8 j0 w5 p$ W - (setq ang1 (atan (/ lh ah)))# S. M0 Q; n% |' M$ E8 m
- (setq cc (polar aa ang1 lc))
, H4 H/ m; m" ^7 a7 I0 K! b H - (command "pline" aa bb cc "c")% n+ T: L8 @2 I) A {% u+ e/ Q; _
- )
8 G7 B5 c7 U! d4 n3 z7 x- A% j - (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
楼主