三角形问题求助

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

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

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

x

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

(defun c:an (): O4 [2 j0 Y3 c
(setq aa (getpoint "选取左下角点:"))
& x" s% ?5 u4 ^5 r2 A8 f- y0 x+ m; q
(setq la (getreal "输入底边A的长度:"))# s' d7 S2 q% s- r. k3 Z4 Q- ]' A
(setq lb (getreal "\n 输入B的长度:"))
6 n/ `1 E$ k# C
(setq lc (getreal "输入C的长度:")), D2 Y0 _5 m# d
: p" c& w$ B3 d# r6 ~0 A
(setq sz (/ (+ la lb lc) 2))
5 [0 O8 _% Z V; |6 J
(setq area (* (- sz la) (- sz lb) (- sz lc)))" q9 ]# ~- r- x: T3 W. u
(setq lh (/ (* 2 area) a)
9 H* M H" s; Z1 {% j: S5 a b
+ t$ v* F% A9 ]( E9 H+ [
(setq bb (polar aa 0 la))7 f" U2 }: Y" _" N
(setq ah (sqrt (- (* lc lc) (* lh lh)))) ( Z8 J/ X1 G1 R- B) b, c2 L
(setq ang1 (atan (/ lh ah)))5 E9 z; K/ f/ h
(setq cc (polar aa ang1 lc))
; c; p% H# g' T# {; U/ b9 n
(command "pline" aa bb cc "c")
Q% z. z7 n0 {9 |
)
( b0 u" r; T# G, O
(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
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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

评分