范围选数：

按一定数值范围选择数字 carrot1983 2009-02-19
输入下限: 0
输入上限: 300
选择对象:

谢谢。非常感谢。。很能解决问题。

需要注册吗

这个是个好东西，对于画板来说，是快点，但是我一般只用在校对上，

小萝卜头就是厉害！

;; 需要工具箱xcad.vlx的支持，下载： http://xyp1964.ys168.com
(defun c:tt ()
(CMDLA0)
(xyp-initSet '(no1) '(100.))
(SETQ NO1 (UREAL 1 "" "基准数" NO1))
(princ "\n选择操作范围: ")
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (< (distof (xyp-get-dxf 1 s1)) no1)
(entdel s1)
)
)
(CMDLA1)
)

谢谢提供，这是个好东西啊
一直想用CAD的快速选择，搞半天不行，有了这个就方便多了

谢谢楼主，辛苦了！这么好的资料对画图加快了速度，下载下，好好研究下，不懂的楼主多指导哦， 顶起来啊

(defun c:f2 (/ f2-layer-0 f2-layer ss i n f2-ss f2-ir)
(setq f2-layer-0 (car (entsel "\n请选择对象图层：")))
(setq f2-layer (cdr (assoc 8 (entget f2-layer-0))))
(princ "\n请选择对象:")
(setq ss (ssget (list '(0 . "text") (cons 8 f2-layer))))
(setq i 0
n (sslength ss)
f2-ss (ssadd)
)
(setq f2-ir (getreal "请输入小于的数值："))
(while (< i n)
(setq f2-real (cdr (assoc 1 (entget (ssname ss i)))))
(if (< (atof f2-real) f2-ir)
(setq f2-ss (ssadd (ssname ss i) f2-ss))
)
(setq i (1+ i))
)
(command "erase" f2-ss "")
)

(defun c:f22 (/ f2-layer-0 f2-layer ss i n f2-ss f2-ir)
(setq f2-layer-0 (car (entsel "\n请选择对象图层：")))
(setq f2-layer (cdr (assoc 8 (entget f2-layer-0))))
(princ "\n请选择对象:")
(setq ss (ssget (list '(0 . "text") (cons 8 f2-layer))))
(setq i 0
n (sslength ss)
f2-ss (ssadd)
)
(setq f2-ir (getreal "请输入大于的数值："))
(while (< i n)
(setq f2-real (cdr (assoc 1 (entget (ssname ss i)))))
(if (> (atof f2-real) f2-ir)
(setq f2-ss (ssadd (ssname ss i) f2-ss))
)
(setq i (1+ i))
)
(command "erase" f2-ss "")
)

不错的东西。对筏板配筋也有用