SSGET 图元在窗口外，看不到时候
(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 " ")) ;如果屏幕显示不到，则选择不到 如果图纸很大，用"X"会不会导致程序变慢呢 用C试下吧，不要用W
页:
[1]