急死了，ssget函数，找不到问题所在

Humanway

2. (defun getlabel (pt / i pt1 pt2 ss_l x y)
   
3.   (setq x (car pt)
   
4.     y (last pt)
   
5.     pt1 (list (+ 100 x) (- y 100))
   
6.     pt2 (list (- x 100) (+ y 100))
   
7.     ss_l (ssget "c" pt1 pt2 '((0 . "insert") (66 . 1))) i 0
   
8.   )
   
9. )

(defun getlabel (pt / i pt1 pt2 ss_l x y)<br />   (setq x (car pt)<br />     y (last pt)<br />     pt1 (list (+ 100 x) (- y 100))<br />     pt2 (list (- x 100) (+ y 100))<br />     ss_l (ssget "c" pt1 pt2 '((0 . "insert") (66 . 1))) i 0<br />   )<br /> )

如上述代码，反选指定点上下左右100单位的属性块。如果在COMMAND命令行中执行：(ssget ss_l (ssget "C" (getpoint) (getpoint) '((0 . "insert") (66 . 1)))) ,可以正常选取块，但通过调用getlabel函数时，当执行到ssget时，不正常，有时候可以选取，大部分时间不能选取，这种情况，可能是因为什么原因，与系统变量有关吗？还是其他什么原因，谢谢。

Bao_lai

1. 缩放一下视口，屏幕外的get不到

Bao_lai

2.  (ssget "c" pt1 pt2 (list '((0 . "insert") (cons 66 1))))

Humanway

2. (defun getlabel (pt / filter pt1 pt2 ss_l x y)
   
3.   (setq        x     (car pt)
   
4.                 y     (last pt)
   
5.                 pt1   (list (- x 100) (- y 100))
   
6.                 pt2   (list (+ x 100) (+ y 100))
   
7.                 filter (list '(-4 . "<AND") '(0 . "INSERT") '(66 . 1) '(-4 . ">,>,*") (cons 10 pt1) '(-4 . "<,<,*") (cons 10 pt2) '(-4 . "AND>"))
   
8.                 ss_l (ssget "x" filter)
   
9.         )
   
10. )

(defun getlabel (pt / filter pt1 pt2 ss_l x y)<br />   (setq        x     (car pt)<br />                 y     (last pt)<br />                 pt1   (list (- x 100) (- y 100))<br />                 pt2   (list (+ x 100) (+ y 100))<br />                 filter (list '(-4 . "<AND") '(0 . "INSERT") '(66 . 1) '(-4 . ">,>,*") (cons 10 pt1) '(-4 . "<,<,*") (cons 10 pt2) '(-4 . "AND>"))<br />                 ss_l (ssget "x" filter)<br />         )<br /> )

谢谢大家，找到方法了