两次TRIM不够,把IF 的代码段改一下看看
(if(and ent
(=(cdr(assoc 0(entget ent)))"CIRCLE")
)
(progn
(setq f_pts(circ_pts ent))
(if(setq x(ssget "wp" f_pts))
(command "erase" x "")
)
(while (> (sslength (ssget "f" f_pts)) 1)
(command "trim" ent "" "f")
(foreach x f_pts(command x))
(command "" "")
)
)
)
yjr111 发表于 2011-12-6 18:23 static/image/common/back.gif
修剪多段线出了点故障,请完善一下
试试这个界线剪切,不是很完善。
现支持"LINE CIRCLE LWPOLYLINE"
xiaxiang 发表于 2011-12-7 08:30 static/image/common/back.gif
试试这个界线剪切,不是很完善。
现支持"LINE CIRCLE LWPOLYLINE"
谢谢啦!
可以批量选就好了
把文字也给 删掉了。。。。
xiaxiang 发表于 2011-11-16 16:41 static/image/common/back.gif
大侠,能不能放过“圆内”的引线呢?就是不希望剪掉LEADER,否则LEADER就不见了~~
谢谢!我也需要呢.
有办法弄成框选范围删除选择的圆以外的线条,不过是要框选的,不然圆以外的图纸就没了
能支持圆内,可以改成支持所有图形么
xiaxiang 发表于 2011-11-16 16:41
你好前辈,用了你的方法很实用。非常感谢。但是现实中节点编号都在圆圈里面,能不能只修剪园内的线段,文字保留。非常期待您的指点