[求助]：能不能改进xd工具箱【区域删除】命令

心竹

我需要的【区域删除】命令是能将与选框相交的线条先在交接处断开，然后将选框中所有线条删除，选框外的线条不受影响，或者有时我需要的图纸在选择框中，这时我需要这个命令能够将选择框外面的线条全部删除。下面是工具箱中的区域删除命令的简单演示，用起来好像效果不是很好，能不能修改一下，达到我想要的效果。

eachy

最初由 心竹 发布
[B]我需要的【区域删除】命令是能将与选框相交的线条先在交接处断开，然后将选框中所有线条删除，选框外的线条不受影响，或者有时我需要的图纸在选择框中，这时我需要这个命令能够将选择框外面的线条全部删除。下面是工... [/B]

先试试，还有待改进。
[program]
(defun c:XDTB_CrossBrk (/ p1 p2 ss ent mode pts v)
  (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push "osmode")
      (setvar "osmode" 0)
      (setq pts        (xdrx_drawing->lastpts)
            p1        (car pts)
            p2        (cadr pts)
      )
      (setq v (angle '(0. 0.) (mapcar '- p2 p1)))
      (if (> (cos v) 0.)
        (setq mode t)
        (setq mode nil)
      )
      (command ".pline"
               p1
               (list (car p1) (cadr p2) 0.)
               p2
               (list (car p2) (cadr p1) 0.)
               "c"
      )
      (setq ent (entlast))
      (xdrx_curve_intersectbreak (ssadd ent ss) 0 nil 0)
      (if mode
        (command ".erase"
                 "all"
                 "r"
                 "c"
                 (polar p1 (angle p1 p2) 1.)
                 (polar p2 (angle p2 p1) 1.)
                 ""
        )
        (command ".erase"
                 "w"
                 (polar p1 (angle p2 p1) 0.001)
                 (polar p2 (angle p1 p2) 0.001)
                 ""
        )
      )
      (xdrx_sysvar_pop)
      (xdrx_end)
    )
  )
  (princ)
)[/program]

*秋*

试了一下，是不是输入XDTB_CrossBrk 命令？
输入后提示选择物体，我选了一个矩形后图上所有东西都没了