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

李钊伟2012

(defun c:sS()
(setq rec_p1 '(0 0))                ;窗口左下角点
(setq rec_p2 '(1000 1000))         ;窗口右上角点
(setq filter_list
   (list
      '(0  . "TEXT,insert")
      '(-4 . "<and")
         '(-4 . ">,>,*") (cons 10 rec_p1)
         '(-4 . "<,<,*") (cons 10 rec_p2)
      '(-4 . "and>")
   )
)
(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 " ")) ;如果屏幕显示不到，则选择不到

烟盒迷唇

如果图纸很大，用"X"会不会导致程序变慢呢

evayleung

用C试下吧，不要用W