[LISP函数]：求高手改一程序

86878897

(defun c:cc ()
(setq cm (getvar "cmdecho") om (getvar "osmode"))
(setvar "osmode" 0)
(command "_undo" "be")
(setq dd (getdist (strcat "\n请输入要断开的长度<"
(rtos (getvar "userr1")) ">:"
)
)
)
(if dd (setvar "userr1" dd)(setq dd (getvar "userr1")))
(while (setq ent (car (entsel "\n请选择置上的管线:")))
(setq dxf (entget ent)
p1 (cdr (assoc 10 dxf))
p2 (cdr (assoc 11 dxf))
)
(if (setq ssa (ssdel ent (ssget "f" (list p1 p2) '((0 . "LINE")))))
(progn
(setq i 0 n (sslength ssa))
(repeat n
(setq en2 (ssname ssa i)
dxf (entget en2)
p3 (cdr (assoc 10 dxf))
p4 (cdr (assoc 11 dxf))
pt (inters p1 p2 p3 p4)
)
(command "_circle" pt (/ dd 2.0))(setq en1 (entlast))
(command "_trim" (entlast) "" (list en2 pt) "")
(entdel en1)
(setq i (1+ i))
)
)
)
)
(command "_undo" "e")
(setvar "osmode" om)(setvar "cmdecho" cm)(princ)
)

此段lisp程序可以使交叉的线在交点处断开，但是仅支持直线，不支持pline线，而且在选择的时候不能框选，只能点选，求高手帮忙修改一下程序~不甚感激！另外如果能够使程序可以实现再选择哪些与已选对象在交点处断开~就更好了啊！