【LISP程序】打断窗口内的十字，丁字，L型路口

XDSoft

                               
登录/注册后可看大图

;|
  命令：cross_brk
  功能：将十字交叉的LINE,*POLYLINE在交叉点断开
  
  要求4条LINE或者POLYLINE组成十字交叉或者丁字交叉、L形状交叉
  配合XDRX_API使用
  XDRX_API最新版本请到”晓东CAD空间“ ”CAD开发论坛“
  http://http://www.chat001.com/forum/xdapply/index.html下载。

|;
(defun c:cross_brk(/ intl p1 p2 ss e int_l)
  (xdrx_begin '("cmdecho" 0
          "blipmode" 0
          )
  )
  (xdrx_ucson)
  (while (and
      (setq p1 (getpoint "\n窗口第一点<退出>:"))
      (setq p2 (getcorner p1 "\n窗口第二点<退出>:"))
      (setq ss (ssget "c" p1 p2 '((0 . "line,*polyline,spline,arc"))))
      (= 4 (sslength ss))
     )
    (xdrx_curve_intersectbreak ss) ;;交点打断
    (command ".erase" (ssget "w" p1 p2) "" ;;删除窗口内打断后的曲线
    )
  )
  (xdrx_ucsoff)
  (xdrx_end)
  (princ)
)