这个问题该怎么解决呢？

275437962

1. (defun myss (minl maxl / e len n obj ss)
   
2.   (if (setq ss (ssget '((0 . "LINE"))))
   
3.     (repeat (setq n (sslength ss))
   
4.       (setq e (ssname ss (setq n (1- n))))
   
5.       (setq obj (vlax-ename->vla-object e))
   
6.       (setq len (vlax-get obj 'length))
   
7.       (if (or
   
8.             (< len minl)
   
9.             (> len maxl)
   
10.           )
    
11.         (ssdel e ss)
    
12.       )
    
13.     )
    
14.   )
    
15.   ss
    
16. )
    
17. 
    
18. (defun c:sss (/ a b ss)
    
19.   (if (not (setq a (getdist "\n请指定最小长度<0.01>:")))
    
20.     (setq a 0.5)
    
21.   )
    
22.   (if (not (setq b (getdist "\n请指定最大长度<0.08>:")))
    
23.     (setq b 2.5)
    
24.   )
    
25.   (if (and
    
26.         a
    
27.         b
    
28.       )
    
29.     (if (setq ss (myss a b))
    
30.       (command "._select" ss "" "._pselect" ss "")
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    

(defun myss (minl maxl / e len n obj ss)<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (repeat (setq n (sslength ss))<br />       (setq e (ssname ss (setq n (1- n))))<br />       (setq obj (vlax-ename->vla-object e))<br />       (setq len (vlax-get obj 'length))<br />       (if (or<br />             (< len minl)<br />             (> len maxl)<br />           )<br />         (ssdel e ss)<br />       )<br />     )<br />   )<br />   ss<br /> )<br /> <br /> (defun c:sss (/ a b ss)<br />   (if (not (setq a (getdist "\n请指定最小长度<0.01>:")))<br />     (setq a 0.5)<br />   )<br />   (if (not (setq b (getdist "\n请指定最大长度<0.08>:")))<br />     (setq b 2.5)<br />   )<br />   (if (and<br />         a<br />         b<br />       )<br />     (if (setq ss (myss a b))<br />       (command "._select" ss "" "._pselect" ss "")<br />     )<br />   )<br />   (princ)<br /> )<br />

如何提高这个程序快速选择的精度，如我要选择的直线是0.0798，那么按上面程序的最小长度和最大长度，这条线不能被选中！！能否让这个选择的精度，精确到小数点后四位！！

275437962

怎么回事！！

twsyzx

不明白楼主说的什么情况.
最小长度输入0.0001不就可以了吗,或者输入0