|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 janekou 于 2011-5-26 18:35 编辑
! N+ y+ J! E5 k$ K% P- (defun c:an ()
7 u; I P4 O" K - (setq aa (getpoint "选取左下角点:"))" V, v, L" b. C
- (setq la (getreal "输入底边A的长度:")); ]3 K% o" S- V6 _' e t7 a$ p
- (setq lb (getreal "\n 输入B的长度:"))) r( n3 P, z. m; t5 |5 r p
- (setq lc (getreal "输入C的长度:"))
' g5 D" P% a% q% m, H -
$ H0 K& i* Z- j3 @# n6 L - (setq sz (/ (+ la lb lc) 2)) $ Y4 F# X9 K1 }& j$ g
- (setq area (* (- sz la) (- sz lb) (- sz lc)))
2 h* y; Z! Q A* ^/ o+ b" \ - (setq lh (/ (* 2 area) a)
' D) S6 e. d# l6 L# t# W
# {& V3 u9 n( G0 y5 L- (setq bb (polar aa 0 la))
. B; p3 g* J/ _- m4 [' O1 P - (setq ah (sqrt (- (* lc lc) (* lh lh))))
* h6 x4 X3 }+ M! c - (setq ang1 (atan (/ lh ah)))
; b! ] F; N5 @) B w9 J, J! C; f - (setq cc (polar aa ang1 lc))3 ^$ A, `" _& a3 I0 R
- (command "pline" aa bb cc "c")
) M5 U" J: ?+ D1 k( I; {, _ - )4 c2 ?2 ?; M* c- t4 l
- (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
楼主