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

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

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)<BR>       (setq scrsize (getvar "SCREENSIZE"))<BR>       (setq height (getvar "VIEWSIZE")<BR>        width (* height (/ (car scrsize) (cadr scrsize))))<BR>       (setq center (getvar "VIEWCTR"))<BR>       (setq llpt (polar (polar center pi (/ width 2.0))<BR>                                       (* pi 1.5) (/ height 2.0))<BR>        urpt (polar (polar center 0 (/ width 2.0))<BR>                                       (* pi 0.5) (/ height 2.0))<BR>       )<BR>       (setq ss (ssget "w" llpt urpt))<BR>       (if ss <BR>                               (setq enum (sslength ss))<BR>                               (setq enum 0)<BR>       )<BR>       (princ "\nNumber of entities found in current view : ")<BR>       (princ enum)<BR>       (princ)<BR>)

wjm3 发表于 2004-3-16 12:23:00

有什么办法可以解决此问题?
页: [1]
查看完整版本: 实体太多时使用boundary命令的问题