错误: 用于比较的参数类型不正确

行雲

各位老大，大家好，下面代码报错：用于比较的参数类型不正确: "5" 80.0   请问，这种类型的错误，问题出在哪里？
(setq zxjd (getpoint "\n左下角:"))
(setq ysjd (getcorner zxjd "\n右上角:"))
(setq yzfzx (/ (cadr (mapcar '- ysjd zxjd)) 2))；；；左下角 至 右上角 y轴坐标   分中值
，，，，，
，，，，，
    (repeat (sslength xunhxj)
      (setq sam (entget (ssname xunhxj m)))
      (setq yuanxi (cdr (assoc 10 sam)))
      (setq xzzba (rtos (- (car yuanxi) xzxjd) 2 2))
      (setq yzzba (rtos (- (cadr yuanxi) yzxjd) 2 2))
，，，，，
，，，，，
      (if (> yzzba yzfzx)；；；比对，，，yzzba相对yzfzx的位置
   (setq ttt (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd)))
      )

Lisphk

(setq yzfzx (/ (cadr (mapcar '- ysjd zxjd)) 2))   这个结果是实数
(setq yzzba (rtos (- (cadr yuanxi) yzxjd) 2 2))  这个结果是字符串

(if (> yzzba yzfzx)  你比较字符串和实数，肯定要出错了

行雲

Lisphk 发表于 2017-1-1 13:05

你好，多谢指教，曾多次受到你的帮助，，


(setq yzzba (rtos (- (cadr yuanxi) yzxjd) 2 2))  这个也是数值吧，可以用text打印出来的

想让yzzba的坐标，参照(setq yzfzx (/ (cadr (mapcar '- ysjd zxjd)) 2))做个比较，请问，yzzba如何转换一下，可以实现比较？

Lisphk

(rtos (- (cadr yuanxi) yzxjd) 2 2)) 不是实数， 你用了RTOS， 就是字符串了。

Lisphk

行雲 发表于 2017-1-1 13:31

你把他们变成类型一样，或者都是实数，或者都是字符串就能比较了

行雲

Lisphk 发表于 2017-1-1 13:34

一语点醒，谢谢你啊

行雲

Lisphk 发表于 2017-1-1 13:34

你好，有个不懂的想求教你，下面代码请你帮我看一下
      (if (> wykbj 30) (setq kwmzb yuanxi)) ；；；wykbj 大于 30 比对通过
      (if (< wykbj 30) (aaaaa)) ；；；wykbj 小于 30 再细分比对 （这里，变量aaaaa不知怎么定义）
      (if (and (= aaaaa) (> yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd)))) ；；；wykbj 小于 30 ， 执行(> yzzba yzfzx)比对
      (if (and (= aaaaa) (< yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 1.25 pi) (* 1.1 bjlscd)))) ；；；wykbj 小于 30 ， 执行(< yzzba yzfzx)比对

还这样写过，没起作用
      (if (> wykbj 30) (setq kwmzb yuanxi))；；；wykbj 大于 30 比对通过
      (if (and  (< wykbj 30) (> yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd))))；；；wykbj 小于 30 ， 执行(> yzzba yzfzx)比对
      (if (and  (< wykbj 30) (< yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 1.25 pi) (* 1.1 bjlscd))))；；；wykbj 小于 30 ， 执行(< yzzba yzfzx)比对

请问你，像这样一种递进式的比对该怎么写？

ll_j

行雲 发表于 2017-1-2 23:50

试试 cond 函数。
对多分枝判断，用 if 是比较麻烦的。

yjch

新的一年，好好学习天天向上

行雲

ll_j 发表于 2017-1-3 07:50

你好，请你帮我看看这些句式有什么问题
      (cond
      ((and (< wykbj 5) (> yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd))))；；；关于(yzzba yzfzx)比对，全被这句，即(> yzzba yzfzx)控制了
      ((and (< wykbj 5) (< yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.25 pi) (* 1.1 bjlscd))))；；；这句完全不起作用
      ((> wykbj 5) (setq kwmzb yuanxi))；；；这句部有时有用，有时又没用，不稳定，不知何故
      )

ll_j

行雲 发表于 2017-1-3 12:25

就句式而言，条件不封闭，判断不完全，大于小于之间还有等于，所以会常看到cond句法最后有(t nil)一行。
你这里的句式最好写成这样：

2. (cond
   
3.       ((>= wykbj 5) (setq kwmzb yuanxi))   ;重要的或简单明了的条件太前面
   
4.       ((and (< wykbj 5) (>= yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd))))
   
5.       ((and (< wykbj 5) (< yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.25 pi) (* 1.1 bjlscd))))       ((t nil)  ;虽然条件已经闭合，但为防止意外情况，可以加上这一行
   
6.     )
   

(cond<br />       ((>= wykbj 5) (setq kwmzb yuanxi))   ;重要的或简单明了的条件太前面<br />       ((and (< wykbj 5) (>= yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.75 pi) (* 1.1 bjlscd))))<br />       ((and (< wykbj 5) (< yzzba yzfzx)) (setq kwmzb (polar yuanxi (* 0.25 pi) (* 1.1 bjlscd))))       ((t nil)  ;虽然条件已经闭合，但为防止意外情况，可以加上这一行<br />     )<br />

行雲

ll_j 发表于 2017-1-3 13:17

比对关系，还是只有(>= yzzba yzfzx)起到了作用。 (< yzzba yzfzx)完全没动作，是不是被(>= yzzba yzfzx)完全控制了？

ll_j

行雲 发表于 2017-1-3 13:48

你能确定这两个值确实如你所想的那样关系？
试着用CAD自带的编辑器VLisp调试，跟踪一下这些值，或许在前面计算的时候哪里出错了，这些值并不如你所想的一样，自然比较的关系也就不是你所想的了。

/db_自贡黄明儒_

ll_j 发表于 2017-1-3 13:17

最后那一行加与不加，结果一样。

Lisphk

行雲 发表于 2017-1-3 13:48

在你进入分之前，你 (princ .....) 打印下你要判断的值分别是什么，看是你期望的结果不。