SSGET 图元在窗口外，看不到时候

李钊伟2012 · 发表于 2022-7-29 11:30:00

(defun c:sS()
(setq rec_p1 '(0 0))             ;窗口左下角点
(setq rec_p2 '(1000 1000))       ;窗口右上角点
(setq filter_list
(list
   '(0  . "TEXT,insert")
   '(-4 . ",>,*") (cons 10 rec_p1)
      '(-4 . "")
)
)
(SETQ SST(ssget "x" filter_list))
(PRINC(SSLENGTH SST)) (PRINC " ")
(SETQ A(cdr (assoc 0 (ENTGET (ssname sst 0))))  )
(PRINC A)(PRINC " "));显示是否有块、或者文字完全在框内。
；--------------------------------
(defun c:ssA()
(setq rec_p1 '(0 0))             ;窗口左下角点
(setq rec_p2 '(1000 1000))       ;窗口右上角点
(SETQ SST (ssget "W" rec_p1 rec_p2 '((0 . "TEXT,,insert") )))
(PRINC(SSLENGTH SST)) (PRINC " ")
(SETQ A(cdr (assoc 0 (ENTGET (ssname sst 0))))  )
(PRINC A)(PRINC " ")) ;如果屏幕显示不到，则选择不到