求修剪圆内直线和多段线！

byghbcx · 发表于 2011-12-7 08:20

两次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 "" "")
   )
  )
)

xiaxiang · 发表于 2011-12-7 08:30

yjr111 发表于 2011-12-6 18:23
修剪多段线出了点故障，请完善一下

试试这个界线剪切，不是很完善。
现支持"LINE CIRCLE LWPOLYLINE"

669423907 · 发表于 2011-12-7 19:19

xiaxiang 发表于 2011-12-7 08:30
试试这个界线剪切，不是很完善。
现支持"LINE CIRCLE LWPOLYLINE"

谢谢啦！

lichunyu · 发表于 2011-12-25 21:13

可以批量选就好了

weiqi · 发表于 2013-4-5 13:35

把文字也给删掉了。。。。

theisland · 发表于 2013-11-8 22:27

xiaxiang 发表于 2011-11-16 16:41

大侠，能不能放过“圆内”的引线呢？就是不希望剪掉LEADER，否则LEADER就不见了~~

chenbh2 · 发表于 2014-8-18 18:45

谢谢!我也需要呢.

wang8091 · 发表于 2015-9-4 23:40

有办法弄成框选范围删除选择的圆以外的线条，不过是要框选的，不然圆以外的图纸就没了

hehoubin · 发表于 2016-10-20 17:29

能支持圆内，可以改成支持所有图形么

yxh1202 · 发表于 2018-3-26 10:03

xiaxiang 发表于 2011-11-16 16:41

你好前辈，用了你的方法很实用。非常感谢。但是现实中节点编号都在圆圈里面，能不能只修剪园内的线段，文字保留。非常期待您的指点

账号		自动登录	找回密码
密码			注册

求修剪圆内直线和多段线！

评分