[求助]：编了个小程序，不知问题出在哪

c3a139

刚学lisp编个程序练习，提示有缺陷，不知问题出在哪，请各位老师指点
;;;已知三边及一点画三角
(defun c:sjx(/pa pb pc A a B C H S ang1)
   (setq pa (getpoint "请给出起始点："))
   (setq A (getreal "请给出第一边："))
   (setq B (getreal "请给出第二边："))
   (setq C (getreal "请给出第三边："))
   (setq S (/ (+ A B C) 2))
   (setq H (/ (* sqrt (* S (- S A) (- S B) (- S C)) 2) A)
   (setq pb (polar pa 0 A))
   (setq a (abs (sqrt (- (* B B) (* H H))))
   (setq ang1 (atan H a))
   (setq ang1 (* ang1 (/ 180 pi)))
   (setq pc (polar pb ang1 B))
          ;;;依据pa、pb、pc画出三角形
   (command "pline" pa pb pc "c")
   (princ "\n高度H=")(princ H)
   (princ "\na=")(princ a)
   (princ "\n角度ang1=")(princ ang1)
   (prin1)
)

xgwl

(setq H (/ (* (sqrt (* S (- S A) (- S B) (- S C))) 2) A))     少了两个刮号  我试着改了下。

(setq a (abs (sqrt (- (* B B) (* H H)))))  也少了个刮号   

(defun c:sjx (/ pa pb pc A a B C H S ang1)     ／  后空格

(sqrt (* S (- S A) (- S B) (- S C)))   再考虑一下，万一用户输入的值，出现负数怎么办？

c3a139

谢谢，修改后可以画了，输入6、8、10，画出一个近等腰的三角形，即第三边不等于10，不知什么原因？

zml84

2. 
   
3. (defun C:SJX (/ PA PB PC A B C H S L ANG)
   
4.     (if        (and (setq PA (getpoint "\n请给出起始点："))
   
5.              (setq A (getreal "\n请给出第一边："))
   
6.              (setq B (getreal "\n请给出第二边："))
   
7.              (setq C (getreal "\n请给出第三边："))
   
8.         )
   
9.         (progn
   
10.             (setq S  (/ (+ A B C) 2)
    
11.                   H  (/ (sqrt (* S (- S A) (- S B) (- S C))) A 0.5)
    
12.                   PB (polar PA 0 A)
    
13.             )
    
14.             (setq L   (sqrt (- (* C C) (* H H)))
    
15.                   ANG (atan H l)
    
16.                   PC  (polar PA ANG C)
    
17.             )
    
18.             (command "_.pline" "non" PA "non" PB "non" PC "c")
    
19.             (princ (strcat "\n高度H="
    
20.                            (rtos H 2 2)
    
21.                            "\n角度="
    
22.                            (angtos ANG 0 1)
    
23.                    )
    
24.             )
    
25.         )
    
26.     )
    
27.     (princ)
    
28. )
    

<br /> (defun C:SJX (/ PA PB PC A B C H S L ANG)<br />     (if        (and (setq PA (getpoint "\n请给出起始点："))<br />              (setq A (getreal "\n请给出第一边："))<br />              (setq B (getreal "\n请给出第二边："))<br />              (setq C (getreal "\n请给出第三边："))<br />         )<br />         (progn<br />             (setq S  (/ (+ A B C) 2)<br />                   H  (/ (sqrt (* S (- S A) (- S B) (- S C))) A 0.5)<br />                   PB (polar PA 0 A)<br />             )<br />             (setq L   (sqrt (- (* C C) (* H H)))<br />                   ANG (atan H l)<br />                   PC  (polar PA ANG C)<br />             )<br />             (command "_.pline" "non" PA "non" PB "non" PC "c")<br />             (princ (strcat "\n高度H="<br />                            (rtos H 2 2)<br />                            "\n角度="<br />                            (angtos ANG 0 1)<br />                    )<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br />