知道三角形的三边边长，然后画这个三角形，我写了代码，画出来不对，求大神解答！

312735894

如题，知道三角形的三边边长，然后自动画出三角形！下面是我写的代码，求大神帮着看看，哪里不对！

1. (defun c:tt()
   
2.   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
   
3.   (setq a (getreal "\n请输入三角形第一条边长："))
   
4.   (setq b (getreal "\n请输入三角形第二条边长："))
   
5.   (setq c (getreal "\n请输入三角形第三条边长："))
   
6.   (setq qq (/ (+ a b c) 2))
   
7.   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
   
8.   (setq h (/ (* s 2) c))
   
9.   (setq d (sqrt (- (* b b) (* h h))))
   
10.   (setq jj (atan (/ h d)))
    
11.   (setq pt2 (polar pt1 0 c))
    
12.   (setq pt3 (polar pt1 jj b))
    
13.   (command "pline" pt1 pt2 pt3 "")
    
14. )

(defun c:tt()<br />   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))<br />   (setq a (getreal "\n请输入三角形第一条边长："))<br />   (setq b (getreal "\n请输入三角形第二条边长："))<br />   (setq c (getreal "\n请输入三角形第三条边长："))<br />   (setq qq (/ (+ a b c) 2))<br />   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))<br />   (setq h (/ (* s 2) c))<br />   (setq d (sqrt (- (* b b) (* h h))))<br />   (setq jj (atan (/ h d)))<br />   (setq pt2 (polar pt1 0 c))<br />   (setq pt3 (polar pt1 jj b))<br />   (command "pline" pt1 pt2 pt3 "")<br /> )

Andyhon

Ref:
http://bbs.mjtd.com/thread-76229-1-1.html

more info:
http://bbs.mjtd.com/thread-100047-1-1.html

edata

1. (defun c:tt(/ pt1 a b c qq s h d jj pt2 pt3);局部变量要设置
   
2.   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
   
3.   (setq a (getreal "\n请输入三角形第一条边长："))
   
4.   (setq b (getreal "\n请输入三角形第二条边长："))
   
5.   (setq c (getreal "\n请输入三角形第三条边长："))
   
6.   (if (and pt1 a b c (> (+ a b ) c)(< (- a b) c))(princ "\n是三角形")(princ "\n不是三角形"));判断方式一
   
7.   (if (and pt1 a b c (> (+ b c) a)(> (+ a c) b)(> (+ a b) c) );判断方式二
   
8.     (progn
   
9.   (setq qq (/ (+ a b c) 2.0))
   
10.   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
    
11.   (setq h (/ (* s 2.0) c))
    
12.   (setq d (sqrt (- (* b b) (* h h))))
    
13.   (setq jj (atan (/ h d)))
    
14.   (setq pt2 (polar pt1 0.0 c))
    
15.   (setq pt3 (polar pt1 jj b))
    
16.   (command "pline" "non" pt1 "non" pt2 "non" pt3 "c" );指定点的时候加"non"是临时取消捕捉,避免因为捕捉造成绘图失败
    
17.   )
    
18.     (cond ;判断那一个输入值出错的一种方式
    
19.       ((null pt1)(princ "\n未指定点"))
    
20.       ((or (null a)(null b)(null c ))(princ "\n未输入边长"))
    
21.     (t (princ "\n不是三角形"))
    
22.     )
    
23.     )
    
24.   (princ)
    
25. )

(defun c:tt(/ pt1 a b c qq s h d jj pt2 pt3);局部变量要设置<br />   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))<br />   (setq a (getreal "\n请输入三角形第一条边长："))<br />   (setq b (getreal "\n请输入三角形第二条边长："))<br />   (setq c (getreal "\n请输入三角形第三条边长："))<br />   (if (and pt1 a b c (> (+ a b ) c)(< (- a b) c))(princ "\n是三角形")(princ "\n不是三角形"));判断方式一<br />   (if (and pt1 a b c (> (+ b c) a)(> (+ a c) b)(> (+ a b) c) );判断方式二<br />     (progn<br />   (setq qq (/ (+ a b c) 2.0))<br />   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))<br />   (setq h (/ (* s 2.0) c))<br />   (setq d (sqrt (- (* b b) (* h h))))<br />   (setq jj (atan (/ h d)))<br />   (setq pt2 (polar pt1 0.0 c))<br />   (setq pt3 (polar pt1 jj b))<br />   (command "pline" "non" pt1 "non" pt2 "non" pt3 "c" );指定点的时候加"non"是临时取消捕捉,避免因为捕捉造成绘图失败<br />   )<br />     (cond ;判断那一个输入值出错的一种方式<br />       ((null pt1)(princ "\n未指定点"))<br />       ((or (null a)(null b)(null c ))(princ "\n未输入边长"))<br />     (t (princ "\n不是三角形"))<br />     )<br />     )<br />   (princ)<br /> )

edata

再加一种算法，还有一种可以用圆的交点来求三点，平时画图就是用圆交点来画的,有空再弄。

2. (defun c:tt(/ pt1 a b c qq s h d jj pt2 pt3 xd xh ptx1 ptx2 ptxd);局部变量要设置
   
3.   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))
   
4.   (setq a (getreal "\n请输入三角形第一条边长："))
   
5.   (setq b (getreal "\n请输入三角形第二条边长："))
   
6.   (setq c (getreal "\n请输入三角形第三条边长："))
   
7.   (if (and pt1 a b c (> (+ a b ) c)(< (- a b) c))(princ "\n是三角形")(princ "\n不是三角形"));判断方式一
   
8.   (if (and pt1 a b c (> (+ b c) a)(> (+ a c) b)(> (+ a b) c) );判断方式二
   
9.     (progn
   
10.       (setq xd(/ (- (+ (* a a) (* c c))  (* b b) ) (* a 2.0)));三角形算法二开始
    
11.       (setq xh(sqrt (- (* c c) (* xd xd))))
    
12.       (princ xd )(princ "\n")(princ xh)
    
13.       (setq ptx1(polar pt1 0 a)
    
14.             ptxd(polar pt1 0 xd)
    
15.             ptx2 (polar ptxd (* pi 0.5) xh));三角形算法二结束
    
16.       (command "line" "non" pt1 "non" ptx1 "non" ptx2 "c")
    
17.   (setq qq (/ (+ a b c) 2.0))
    
18.   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))
    
19.   (setq h (/ (* s 2.0) c))
    
20.   (setq d (sqrt (- (* b b) (* h h))))
    
21.   (setq jj (atan (/ h d)))
    
22.   (setq pt2 (polar pt1 0.0 c))
    
23.   (setq pt3 (polar pt1 jj b))
    
24.   (command "pline" "non" pt1 "non" pt2 "non" pt3 "c" );指定点的时候加"non"是临时取消捕捉,避免因为捕捉造成绘图失败
    
25.   )
    
26.     (cond ;判断那一个输入值出错的一种方式
    
27.       ((null pt1)(princ "\n未指定点"))
    
28.       ((or (null a)(null b)(null c ))(princ "\n未输入边长"))
    
29.     (t (princ "\n不是三角形"))
    
30.     )
    
31.     )
    
32.   (princ)
    
33. )

(defun c:tt(/ pt1 a b c qq s h d jj pt2 pt3 xd xh ptx1 ptx2 ptxd);局部变量要设置<br />   (setq pt1 (getpoint "\n请指定三角形在屏幕中的位置："))<br />   (setq a (getreal "\n请输入三角形第一条边长："))<br />   (setq b (getreal "\n请输入三角形第二条边长："))<br />   (setq c (getreal "\n请输入三角形第三条边长："))<br />   (if (and pt1 a b c (> (+ a b ) c)(< (- a b) c))(princ "\n是三角形")(princ "\n不是三角形"));判断方式一<br />   (if (and pt1 a b c (> (+ b c) a)(> (+ a c) b)(> (+ a b) c) );判断方式二<br />     (progn<br />       (setq xd(/ (- (+ (* a a) (* c c))  (* b b) ) (* a 2.0)));三角形算法二开始<br />       (setq xh(sqrt (- (* c c) (* xd xd))))<br />       (princ xd )(princ "\n")(princ xh)<br />       (setq ptx1(polar pt1 0 a)<br />             ptxd(polar pt1 0 xd)<br />             ptx2 (polar ptxd (* pi 0.5) xh));三角形算法二结束<br />       (command "line" "non" pt1 "non" ptx1 "non" ptx2 "c")<br />   (setq qq (/ (+ a b c) 2.0))<br />   (setq s (sqrt (* qq (- qq a) (- qq b) (- qq c))))<br />   (setq h (/ (* s 2.0) c))<br />   (setq d (sqrt (- (* b b) (* h h))))<br />   (setq jj (atan (/ h d)))<br />   (setq pt2 (polar pt1 0.0 c))<br />   (setq pt3 (polar pt1 jj b))<br />   (command "pline" "non" pt1 "non" pt2 "non" pt3 "c" );指定点的时候加"non"是临时取消捕捉,避免因为捕捉造成绘图失败<br />   )<br />     (cond ;判断那一个输入值出错的一种方式<br />       ((null pt1)(princ "\n未指定点"))<br />       ((or (null a)(null b)(null c ))(princ "\n未输入边长"))<br />     (t (princ "\n不是三角形"))<br />     )<br />     )<br />   (princ)<br /> )

312735894

呵呵 谢谢大大帮助！