ptlyt 发表于 2009-8-10 15:59:00

求高人指点

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

phoenixdjq 发表于 2009-8-10 16:27:00

<p>(defun c:de(/ ss len n shuzhi ent dxf)<br/>(setq ss (ssget '((0 . "*TEXT"))))<br/>(setq len (sslength ss))<br/>(setq n 0)<br/>(command "undo" "begin")<br/>(repeat len<br/>(setq ent (ssname ss n))<br/>(setq dxf (entget ent))<br/>(setq shuzhi (atof (cdr (assoc 1 dxf))))<br/>(if (&lt;= shuzhi 2.5)<br/>(command "erase" ent "")<br/>)<br/>(setq n (1+ n))<br/>)<br/>(command "undo" "end")<br/>)</p><p>用这个试试</p>

ljttjl 发表于 2009-8-10 23:16:00

<p>autocad自带命令的即可实现，filter或qselect命令。</p>

tcy200489 发表于 2009-8-11 08:30:00

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

phoenixdjq 发表于 2009-8-11 08:31:00

<p>FILTER能实现吗？</p><p></p>

tcy200489 发表于 2009-8-11 08:48:00

我说的是 _qselect

phoenixdjq 发表于 2009-8-11 12:33:00

<p>楼主说的是数值，楼上说的是高度</p><p>如果是高度的话，用filter也能解决</p>

ptlyt 发表于 2009-8-13 09:07:00

<p>成功！谢谢。但如果有时间能把程序改为可以选择出（选出后删除、变色、改图层等）数值段（最小数值～最大数值）就更完美了。有时候选择后不一定是删除，可以是变色、改图层等。</p>
页: [1]
查看完整版本: 求高人指点