[求助]：有没有其他的函数，有SSGET功能但不受视图放大缩小而受影响的函数。

hustluo93

(defun c:test ()
  (setq p1 (list 1924.0 401.0 0.0))
  (setq p2 (list 1944.0 406 0.0))
  (setq b (ssget "_w" p1 p2))
  (setq c (sslength b))
  (setq n 0)
  (while (< n c)
    (PROGN
      (setq e (ssname b n))
      (setq a (entget e))
;;;    (setq txt (ASSOC 1 a))
      (PRINC a)
      (PRINC "\n")
      (setq n (+ n 1))
    )
  )
)

上面的函数在P1 P2之间只有一个文字对象，旁边有其他的线文字等对象的时候。当图形视图放大到一定的倍数的时候可以只选择区域的文字。当图形视图缩小到一定程度后就会选择出来很多对象。根本不知道图形视图放大到什么程度才不会乱选择。

求求各位大侠，指点一下小弟，有没有其他的函数，有SSGET功能但没有受视图放大缩小而受影响的函数。

gysjy

在程序开头添加(setq os (getvar "osmode"))(setvar "osmode" 0)，在程序末尾添加(setvar "osmode" os)。

hustluo93

谢谢gysjy 提出来的宝贵意见！但是这个我很早就试过了，还是不行！加这几行代码如果是往CAD里面写东西还可以！读就不行了。
但还是很感谢gysjy

在程序开头添加(setq os (getvar "PICKBOX"))(setvar "PICKBOX" 0)，
在程序末尾添加(setvar "PICKBOX" os) 倒是会减少影响。

2. 
   
3. (defun list->variantArray (ptsList / ;|arraySpace sArray |;)
   
4.   ; 给以双精度实数表示的二维点数组分配空间
   
5.   (setq arraySpace (vlax-make-safearray ;创建 SafeArray
   
6.               vlax-vbdouble ; 元素类型
   
7.               (cons 0 (- (length ptsList) 1)) ; 数组维数
   
8.               )
   
9. )
   
10.   (setq sArray (vlax-safearray-fill arraySpace ptsList));在 SafeArray 的元素中存储数据
    
11.   ; 返回数组变体
    
12.   (vlax-make-variant sArray);创建变体数据类型
    
13.   )
    
14. 
    
15. (defun c:test ()
    
16.   (setq date (getvar "date"))
    
17.   (setq os (getvar "osmode"))
    
18.   (setvar "osmode" 0)
    
19.   (setq p1 (list 2070.5 -177.5 0.0))
    
20.   (setq p2 (list 2100.5 -172.5 0.0))
    
21.   
    
22.   (vl-load-com)
    
23.   (setq obj (vlax-get-acad-object))
    
24.   ;(vla-ZoomCenter (vlax-get-acad-object) (vlax-3d-point (getpoint))(getdist))
    
25.   (vla-ZoomCenter obj (list->variantArray p1) 2000 )  
    
26.   (setq date1 (getvar "date"))
    
27.   (setq sec1 (* 86400.0 (- date1 date)))
    
28.   (setq b (ssget "_w" p1 p2))  
    
29.   (setq date2 (getvar "date"))
    
30.   (setq sec2 (* 86400.0 (- date2 date1)))
    
31.   (vla-ZoomPrevious obj)
    
32.   (setq date3 (getvar "date"))
    
33.   (setq sec3 (* 86400.0 (- date3 date2)))
    
34.   (setq sec (* 86400.0 (- date3 date)))
    
35.   ;(setq b (ssget  p1 ))
    
36.   (setq c (sslength b))
    
37.   (setq n 0)
    
38.   (while (< n c)
    
39.     (PROGN
    
40.       (setq e (ssname b n))
    
41.       (setq a (entget e))
    
42. ;;;    (setq txt (ASSOC 1 a))
    
43.       (PRINC a)
    
44.       (PRINC "\n")
    
45.       (setq n (+ n 1))
    
46.     )
    
47.   )
    
48.   (setvar "osmode" os)
    
49. )
    

<br /> (defun list->variantArray (ptsList / ;|arraySpace sArray |;)<br />   ; 给以双精度实数表示的二维点数组分配空间<br />   (setq arraySpace (vlax-make-safearray ;创建 SafeArray<br />               vlax-vbdouble ; 元素类型<br />               (cons 0 (- (length ptsList) 1)) ; 数组维数<br />               )<br /> )<br />   (setq sArray (vlax-safearray-fill arraySpace ptsList));在 SafeArray 的元素中存储数据<br />   ; 返回数组变体<br />   (vlax-make-variant sArray);创建变体数据类型<br />   )<br /> <br /> (defun c:test ()<br />   (setq date (getvar "date"))<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq p1 (list 2070.5 -177.5 0.0))<br />   (setq p2 (list 2100.5 -172.5 0.0))<br />   <br />   (vl-load-com)<br />   (setq obj (vlax-get-acad-object))<br />   ;(vla-ZoomCenter (vlax-get-acad-object) (vlax-3d-point (getpoint))(getdist))<br />   (vla-ZoomCenter obj (list->variantArray p1) 2000 )  <br />   (setq date1 (getvar "date"))<br />   (setq sec1 (* 86400.0 (- date1 date)))<br />   (setq b (ssget "_w" p1 p2))  <br />   (setq date2 (getvar "date"))<br />   (setq sec2 (* 86400.0 (- date2 date1)))<br />   (vla-ZoomPrevious obj)<br />   (setq date3 (getvar "date"))<br />   (setq sec3 (* 86400.0 (- date3 date2)))<br />   (setq sec (* 86400.0 (- date3 date)))<br />   ;(setq b (ssget  p1 ))<br />   (setq c (sslength b))<br />   (setq n 0)<br />   (while (< n c)<br />     (PROGN<br />       (setq e (ssname b n))<br />       (setq a (entget e))<br /> ;;;    (setq txt (ASSOC 1 a))<br />       (PRINC a)<br />       (PRINC "\n")<br />       (setq n (+ n 1))<br />     )<br />   )<br />   (setvar "osmode" os)<br /> )<br />

这个好像是可以的了。但是比较耗时间，花了0.12993～0.15s

雄啸

加过滤

hustluo93

谢谢 雄啸
加过滤 ？怎么样加坐标在一定范围的过滤？小弟水平有限，加含有某列表就可以。但是这个坐标在一定范围的过滤，还请大侠指点指点