也许是Distance的一点BUG

434939575

我想过滤800长度的线。但是用DISTANCE 水平。垂直线能过滤。长度相等的斜线不能过滤；用(  equal b-x 800   0.000000000001)这个设置一点误差就行！

2. (defun c:tt ()
   
3.   (setq ssad (ssadd))
   
4.   (setq ss (ssget))
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq SSB-en (ssname ss i)
   
8.     i   (1+ i)
   
9.     )
   
10.     (setq b-ent (entget SSB-en))
    
11.     (setq pt10 (cdr (assoc 10 b-ent)))
    
12.     (setq pt11 (cdr (assoc 11 b-ent)))
    
13.    (setq b-x (distance pt10 pt11))  
    
14.         (if
    
15.     ;(  = b-x 800   );不行
    
16.     ;(  equal b-x 800   0.000000000001);行
    
17.       (progn
    
18.   (ssadd SSB-en ssad)
    
19.   (setq ent1 (ssname ssad 0))
    
20.   (command "chprop" ent1 "" "c" 1 "")
    
21.       )    ;progn
    
22.     );if
    
23.   );repeat
    
24. (princ)
    
25. )

(defun c:tt ()<br />   (setq ssad (ssadd))<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq SSB-en (ssname ss i)<br />     i   (1+ i)<br />     ) <br />     (setq b-ent (entget SSB-en))<br />     (setq pt10 (cdr (assoc 10 b-ent)))<br />     (setq pt11 (cdr (assoc 11 b-ent)))<br />    (setq b-x (distance pt10 pt11))  <br />         (if<br />     ;(  = b-x 800   );不行<br />     ;(  equal b-x 800   0.000000000001);行<br />       (progn<br />   (ssadd SSB-en ssad)<br />   (setq ent1 (ssname ssad 0))<br />   (command "chprop" ent1 "" "c" 1 "")<br />       )    ;progn<br />     );if<br />   );repeat<br /> (princ)<br /> )

自贡黄明儒

= 和equal本来是有区别的，两个函数就有两个的用法

434939575

自贡黄明儒 发表于 2014-10-22 15:03
= 和equal本来是有区别的，两个函数就有两个的用法

谢谢指导。我的意思同样长度的线,不是水平，或垂直，就不能生效。用IF  =  判断。

firstinti

一般我也都是用equa来判断l的，点坐标计算估计只会无限接近，不会完全相等，精度满足即可。

ll_j

你试试降低精度看看，比如1e-6。

434939575

谢谢