求高人指点

ptlyt

我的一个CAD文件中有很多数字，我想删掉数值小于等于2.5的文字。该如何操作？请赐教！

phoenixdjq

(defun c:de(/ ss len n shuzhi ent dxf)
(setq ss (ssget '((0 . "*TEXT"))))
(setq len (sslength ss))
(setq n 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq shuzhi (atof (cdr (assoc 1 dxf))))
(if (<= shuzhi 2.5)
(command "erase" ent "")
)
(setq n (1+ n))
)
(command "undo" "end")
)

用这个试试

ljttjl

autocad自带命令的即可实现，filter或qselect命令。

tcy200489

用快速选择----选择高度少于或等于2.5的文字----删除即可.

phoenixdjq

FILTER能实现吗？

tcy200489

我说的是 _qselect

phoenixdjq

楼主说的是数值，楼上说的是高度

如果是高度的话，用filter也能解决

ptlyt

成功！谢谢。但如果有时间能把程序改为可以选择出（选出后删除、变色、改图层等）数值段（最小数值～最大数值）就更完美了。有时候选择后不一定是删除，可以是变色、改图层等。