[讨论]：如何把穿过圆的线一次剪断

txzjtxzj

如何把穿过圆圈的线一次剪断


(defun c:xtr (/ ll le ss i e ptc)
(princ "\nxtr====剪除圆，椭圆中的线段对所有线有效-----------lxx.2003.5")
(Command ".undo" "be")
(princ "\n选择剪切边界")
(setq  ss (ssget  '((0 . "CIRCLE,ELLIPSE")) )
           ll (car (entsel "\n 选择要剪切的线条:"))
           lss (cons ll lss)                                                              ;;要剪切的实体组表
           laste (entlast)
           i 0)
(repeat (sslength ss)
   (setq e (ssname ss i)
            ptc (cdr (assoc 10 (entget e)))
            i (1+ i)
   )
   (mapcar '( lambda(x)  (Command "_.trim" e "" (list x ptc) ^c )) lss)    ;;对表中每个实体trim
   (while  (setq nexte (entnext laste))
               (setq  lss (cons nexte lss)
                         laste nexte
               )
   )
)
(Command ".undo" "e")
(princ)
)


但是如果这些圆是是块应该怎么做呢？上面的程序就不能用了
比如图上有十个块(都是同一个圆做的块)，有一条线依次穿过这些现在要一次就把线和圆交叉的地方剪断 ，而不是一次一次去trim这些交叉的地方

请高手编个程序

kohi

搜索论坛, 以前曾有讨论.

heliangdong

有必要编吗？AUTOCAD中有此功能，低版可加“F”栏选功能，2006还更强了，直接多选。
程序完全多余
哦，我记得2000版本的EXPRESS有这功能
包括多物体拉伸等