[编程申请]：求：可将4根线相交部分一个命令剪切掉的lisp

xyp1964

局部处理：

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        pt1 (getpoint "\n起点: ")
   
5.         pt2 (getcorner pt1 "\n对角点: ")
   
6.         ss  (ssget "c" pt1 pt2)
   
7.         ss0 (ssget "p" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
   
8.   )
   
9.   (xyp-break ss0)
   
10.   (command "erase" "w" pt1 pt2 "")
    
11.   (CMDLA1)
    
12. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        pt1 (getpoint "\n起点: ")<br />         pt2 (getcorner pt1 "\n对角点: ")<br />         ss  (ssget "c" pt1 pt2)<br />         ss0 (ssget "p" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />   )<br />   (xyp-break ss0)<br />   (command "erase" "w" pt1 pt2 "")<br />   (CMDLA1)<br /> )[/FONT]