三角形问题求助

janekou · 发表于 2011-5-26 17:33:01

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 janekou 于 2011-5-26 18:35 编辑

(defun c:an ()8 g# V9 ]$ C, z
(setq aa (getpoint "选取左下角点:")); f1 U% u F; H1 V! |
(setq la (getreal "输入底边A的长度:"))
3 ]# \3 h6 i) t) s
(setq lb (getreal "\n 输入B的长度:"))* r- h8 V4 }$ W& I6 [( \8 c& Q
(setq lc (getreal "输入C的长度:"))- A4 A' U. P- n" \# Q9 m' a
1 Y1 ]+ F4 w) w0 j2 ^
(setq sz (/ (+ la lb lc) 2))
2 S% a' L/ I$ R" s, I/ e5 [- a
(setq area (* (- sz la) (- sz lb) (- sz lc))) a; y( q* c( H6 ~- N
(setq lh (/ (* 2 area) a)
/ F' ]' c# S# _1 l
/ m5 h" T; j9 A! ?% G
(setq bb (polar aa 0 la))" V; |, g( G+ m9 d: N9 E! E
(setq ah (sqrt (- (* lc lc) (* lh lh))))
4 D5 B3 m t$ t# U+ Z6 m: n, ?
(setq ang1 (atan (/ lh ah)))' y4 |! ?6 k( X" i: Y3 H
(setq cc (polar aa ang1 lc))
. N" c! Z9 c' }9 `/ q5 b
(command "pline" aa bb cc "c"): M: \: d7 M) i, D% A3 K7 y7 c" [
). A! N2 i7 }- ^5 ~1 m W; M5 R. l
(prin1)

复制代码

请问这个什么地方出问题了呢？谢谢高人指点一下。

SunVei · 发表于 2011-5-26 18:10:27

(setq area (* (- sz la) (- sz lb) (- sz lc)))
(setq lh (/ (* 2 area) a)
===>
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
(setq lh (/ (* 2 area) la))

janekou · 发表于 2011-5-26 18:30:49

2# SunVei
感谢高人多次指点，哈哈，我真粗心啊~~

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

[已解决] 三角形问题求助

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分