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

ahooooo · 发表于 2004-3-15 21:55:00

boundary命令使用时，当图纸显示的实体超过1000时会问你“是否真的这样做？”
这个提问给LISP编程带来麻烦，请问有没系统变量去掉这个提问，以及如何判断当前屏幕显示的实体个数？

alin · 发表于 2004-3-15 22:44:00

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

wjm3 · 发表于 2004-3-15 23:35:00

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

alin · 发表于 2004-3-16 09:20:00

(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 · 发表于 2004-3-16 12:23:00

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

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

发表回复

精选推荐

浏览过的版块