ssget选择不灵的问题

ynhh

已知两对角点  p1 p2
判断此对角框内是否存在任何文字线条填充标注等图元
在明确此框内无任何内容的情况下：
当在屏幕上此两点显示很小时会误判断不为NIL
当在屏幕上此两点显示全屏或很大时则能正常判断为NIL
当此两点不在屏幕上显示范围时有图形也会判断为NIL
我只好用放大方法将屏幕显示此两点内容才能正常判断

帮助及有关介绍：
C 窗交
如果指定了该参数，则必须跟一对点创建一个矩形窗口，与矩形窗口相交的对象均被加入选择集。
注意：此模式仅选择绘图区域内的可见对象，而且线框选择模式均有这个限制。



请教各位大师，是不是我的认识有问题，还是那里不对？
谢谢！



以下两种方法都各有不足。

(setq ss (ssget "c" p1 p2))

;;;坐标范围选择，有点类似(ssget "c" p1 p2 filter),但本函数在屏幕外的也可选择
;;;测试测试 (tt (getpoint) (getpoint) '((0 . "*text,*LINE,CIRCLE,DIMENSION,insert")))
(defun tt (p1 p2 filter / minX minY maxX maxY)
  (setq        minX (min (car p1) (car p2))
        minY (min (cadr p1) (cadr p2))
        maxX (max (car p1) (car p2))
        maxY (max (cadr p1) (cadr p2))
  )
  (if filter
    (ssget "x"
           (append (list '(-4 . "<and")
                         '(-4 . ">=,>=,*")
                         (list 10 minX minY 0)
                         '(-4 . "<=,<=,*")
                         (list 10 maxX maxY 0)
                   )
                   (append filter '((-4 . "and>")))
           )
    )
    (ssget "X"
           (list '(-4 . "<and")
                 '(-4 . ">=,>=,*")
                 (list 10 minX minY 0)
                 '(-4 . "<=,<=,*")
                 (list 10 maxX maxY 0)
                 '(-4 . "and>")
           )
    )
  )
)

dnbcgrass

(defun tt (p1 p2 filter / minX minY maxX maxY)
  (setq        minX (min (car p1) (car p2))
        minY (min (cadr p1) (cadr p2))
        maxX (max (car p1) (car p2))
        maxY (max (cadr p1) (cadr p2))
  )
  (command "_zoom" "w" (list minX minY) (list maxX maxY))
  (if filter
    (setq ssa (ssget "x"
                     (append (list '(-4 . "<and")
                                   '(-4 . ">=,>=,*")
                                    (list 10 minX minY 0)
                                   '(-4 . "<=,<=,*")
                                    (list 10 maxX maxY 0)
                             )
                             (append filter '((-4 . "and>")))
                     )
             )
    )
    (setq ssa (ssget "X"
                     (list '(-4 . "<and")
                           '(-4 . ">=,>=,*")
                            (list 10 minX minY 0)
                           '(-4 . "<=,<=,*")
                            (list 10 maxX maxY 0)
                           '(-4 . "and>")
                     )
               )
    )
  )
  (command "_undo" "")
  (setq ssa ssa)
)

ynhh

dnbcgrass 发表于 2020-12-20 10:58
(defun tt (p1 p2 filter / minX minY maxX maxY)
  (setq        minX (min (car p1) (car p2))
        ...

谢谢您的回复
感觉增加了缩放后
问题还是存在的
我之前就是用缩放处理的
谢谢您

/db_自贡黄明儒_

好多函数都与象素有关。关键看你想干什么，可以采用计算法，但图形对象太多时可能效率较低。根据需要采取折中办法吧。

ynhh

/db_自贡黄明儒_ 发表于 2020-12-20 13:12
好多函数都与象素有关。关键看你想干什么，可以采用计算法，但图形对象太多时可能效率较低。根据需要采取折 ...

谢谢黄总的解说
我也就不纠结了
谢谢您

Lisphk

把点从用户坐标系，转成显示坐标系，试试
(trans pt 1 2)

ynhh

Lisphk 发表于 2020-12-20 19:59
把点从用户坐标系，转成显示坐标系，试试
(trans pt 1 2)

谢谢您
我也不知如何改显示坐标系
怕改了影响别的坐标问题
还是采用放大显示的方法，将就着用吧
谢谢

测完收工

谢谢各位的分享，学习了