返回值“输入斜边长度参数类型错误”，请问大神这个代码哪里出错了？

swamii

(defun c:443 ()
(setq pp1 (getpoint "输入左下角一点"))
(setq ww (getdist pp1 "\n 输入底边长度"))
(setq pp2 (polar pp1 0 ww))
(setq ww2 (getdist pp2 "\n 输入斜边长度"))
(setq ww3(sqrt (- (* ww2 ww2) (* ww1 ww1))))
(setq pp3 (polar pp1 (/ pi 2) ww3))
(command "line" pp1 pp2 pp3 "c")
(prin1)

tigcat

(defun c:443 ()
  (setq pp1 (getpoint "输入左下角一点"))
  (setq ww1 (getdist pp1 "\n 输入底边长度"))
  (setq pp2 (polar pp1 0 ww))
  (setq ww2 (getdist pp2 "\n 输入斜边长度"))
  (setq ww3 (sqrt (- (* ww2 ww2) (* ww1 ww1))));注意不要是负数
  (setq pp3 (polar pp1 (/ pi 2) ww3))
  (command "line" pp1 pp2 pp3 "c")
  (prin1)
)

at1636

三角函数问题，要控制斜边ww2大于底边ww长度，加个判断语句

swamii

tigcat 发表于 2022-5-27 23:55
(defun c:443 ()
  (setq pp1 (getpoint "输入左下角一点"))
  (setq ww1 (getdist pp1 "\n 输入底边长度 ...

谢谢    ，，，，，

xyp1964

1. (defun c:tt ()
   
2. (defun Udist (bit kwd msg def bpt / inp)
   
3.   (if def
   
4.     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")bit (* 2 (fix (/ bit 2))))
   
5.     (setq msg (strcat "\n" msg ": "))
   
6.   )
   
7.   (initget bit kwd)
   
8.   (setq inp (if bpt(getdist msg bpt)(getdist msg)))
   
9.   (if inp inp def)
   
10. )
    
11.   (setq w1(Udist 7 "" "底边长度<输入或鼠标直接量取>" w1 nil))
    
12.   (setq w2(Udist 7 "" "斜边长度<输入或鼠标直接量取>" w2 nil))
    
13.    (while (setq p1 (getpoint "\n输入左下角<退出>: "))
    
14.      (setq p2 (polar p1 0 ww))
    
15.      (setq w3 (sqrt (- (* w2 w2) (* w1 w1))))
    
16.      (setq p3 (polar p2 (/ pi 2) w3))
    
17.      (command "pline" p1 p2 p3 "c")
    
18.    )
    
19.   (princ)
    
20. )

(defun c:tt ()<br /> (defun Udist (bit kwd msg def bpt / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def) ">: ")bit (* 2 (fix (/ bit 2))))<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (if bpt(getdist msg bpt)(getdist msg)))<br />   (if inp inp def)<br /> )<br />   (setq w1(Udist 7 "" "底边长度<输入或鼠标直接量取>" w1 nil))<br />   (setq w2(Udist 7 "" "斜边长度<输入或鼠标直接量取>" w2 nil))<br />    (while (setq p1 (getpoint "\n输入左下角<退出>: "))<br />      (setq p2 (polar p1 0 ww))<br />      (setq w3 (sqrt (- (* w2 w2) (* w1 w1))))<br />      (setq p3 (polar p2 (/ pi 2) w3))<br />      (command "pline" p1 p2 p3 "c")<br />    )<br />   (princ)<br /> )