[求助]复制生成直线部分不能打断这是怎么回事
<p>各位大侠好啊.我最近在试验晓东编的程序,但是有一个程序我发现,当我们直线画线时能够全部打断,而部分或全部通过复制生成时,有的就不能够打断,这是什么原因啊.我想全部打断,该怎么设置呢?????以下为程序源代码</p><p>.;;;一条线把通过的对象全部打断(break)<br/>(defun c:t267 ()<br/> (CMDLA0)<br/> (setq s0 (car (Uentsel '((0 . "LINE")) "源线")))<br/> (princ "\n选择目标线: ")<br/> (setq ss (ssget '((0 . "*LINE,ARC")))<br/> i -1<br/> )<br/> (command "select" ss "r" s0 "")<br/> (setq ss (ssget "P"))<br/> (while (setq s1 (ssname ss (setq i (1+ i))))<br/> (princ i)<br/> (if (setq ptlst (xyp-get-Inters s0 s1 0))<br/> (progn<br/> (foreach pt ptlst<br/> (setq ss1 (ssget pt))<br/> (command "select" ss1 "r" s0 "")<br/> (setq s1 (ssname (ssget"p") 0))<br/> (command "break" (list s1 pt) "f" pt pt)<br/> )<br/> )<br/> )<br/> )<br/> (CMDLA1)<br/>)</p><p></p>
页:
[1]