[求助]复制生成直线部分不能打断这是怎么回事

timmy521

各位大侠好啊.我最近在试验晓东编的程序,但是有一个程序我发现,当我们直线画线时能够全部打断,而部分或全部通过复制生成时,有的就不能够打断,这是什么原因啊.我想全部打断,该怎么设置呢?????以下为程序源代码

.;;;一条线把通过的对象全部打断(break)
(defun c:t267 ()
  (CMDLA0)
  (setq s0 (car (Uentsel '((0 . "LINE")) "源线")))
  (princ "\n选择目标线: ")
  (setq ss (ssget '((0 . "*LINE,ARC")))
 i  -1
  )
  (command "select" ss "r" s0 "")
  (setq ss (ssget "P"))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (princ i)
    (if (setq ptlst (xyp-get-Inters s0 s1 0))
      (progn
 (foreach pt ptlst
   (setq ss1 (ssget pt))
   (command "select" ss1 "r" s0 "")
   (setq s1 (ssname (ssget"p") 0))
   (command "break" (list s1 pt) "f" pt pt)
 )
      )
    )
  )
  (CMDLA1)
)