如何将所有线段在交点处打断?

CAD_lso

如题, 想将图纸中所有的线段(包括直线, 圆弧, 多线)在有交点的地方将它们打断, 如何实现?
举例如下图所示, 将图中直线段1, 圆弧2,  圆弧3, 直线段4在与其他线段的交点处将它们打断.

004

功能很强大的交点打断源码。
;;;=======================[ BreakObjects.lsp ]==============================
;;; Author: Copyright? 2006,2007 Charles Alan Butler
;;; Contact @  www.TheSwamp.org
;;; Version:  1.3 April 9,2007
;;; Purpose: Break All selected objects
;;;    permitted objects are lines, lwplines, plines, splines,
;;;    ellipse, circles & arcs
;;;                           
;;;  Function  c:BreakAll -      Break all objects selected
;;;  Function  c:BreakwObjects - Break many objects with a single object
;;;  Function  c:BreakObject -   Break a single object with many objects
;;;  Function  c:BreakWith -     Break selected objects with other selected objects
;;;  Function  c:BreakTouching - Break objects touching the single Break object
;;;  Function  c:BreakSelected - Break selected objects with any  objects that touch it
;;;                    
;;; Sub_Routines:      
;;;    break_with      
;;;    ssget->vla-list
;;;    list->3pair     
;;;    onlockedlayer   
;;;    get_interpts Return a list of intersect points
;;;    break_obj  Break entity at break points in list
;;; Requirements: objects must have the same z-value
;;; Restrictions: Does not Break objects on locked layers
;;; Returns:  none
;;;=====================================================================
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED     ;
;;;   WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR  ;
;;;   PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.            ;
;;;                                                                    ;
;;;  You are hereby granted permission to use, copy and modify this    ;
;;;  software without charge, provided you do so exclusively for       ;
;;;  your own use or for use by others in your organization in the     ;
;;;  performance of their normal duties, and provided further that     ;
;;;  the above copyright notice appears in all copies and both that    ;
;;;  copyright notice and the limited warranty and restricted rights   ;
;;;  notice below appear in all supporting documentation.              ;
;;;=====================================================================

taoyi0727

好东西  就是可惜英文的， 没有中文注释

flyfox1047

论坛上找找就有了

CAD_lso

flyfox1047 发表于 2014-4-11 10:58
论坛上找找就有了

嗯, 谢谢 . 搜了一下, 果然很多先例

狼魔

下载了，谢谢楼主分享

lidaxiu

恩，不知道运行速度怎么样，也正需要这个

004

flyfox1047 发表于 2014-4-11 10:58
论坛上找找就有了

这个交点打断，好像经支持直线，不支持多段线，是vlx不是源码。没得意思。

xuanhu103

谢谢楼主分享

photo_cup

确实很不错...

用户5419086408

感谢分享！！！