实体太多时使用boundary命令的问题

ahooooo

boundary命令使用时，当图纸显示的实体超过1000时会问你“是否真的这样做？”


这个提问给LISP编程带来麻烦，请问有没系统变量去掉这个提问，以及如何判断当前屏幕显示的实体个数？

alin

要知道当前屏幕显示的实体个数好象可以的.

wjm3

是啊,我也有这个困扰,很想知道解决的办法。

alin

(defun C:ENUM(/ scrsize height width center llpt urpt enum ss)
(setq scrsize (getvar "SCREENSIZE"))
(setq height (getvar "VIEWSIZE")
width (* height (/ (car scrsize) (cadr scrsize))))
(setq center (getvar "VIEWCTR"))
(setq llpt (polar (polar center pi (/ width 2.0))
(* pi 1.5) (/ height 2.0))
urpt (polar (polar center 0 (/ width 2.0))
(* pi 0.5) (/ height 2.0))
)
(setq ss (ssget "w" llpt urpt))
(if ss
(setq enum (sslength ss))
(setq enum 0)
)
(princ "\nNumber of entities found in current view : ")
(princ enum)
(princ)
)

wjm3

有什么办法可以解决此问题?