如何将所有线段在交点处打断?
如题, 想将图纸中所有的线段(包括直线, 圆弧, 多线)在有交点的地方将它们打断, 如何实现?举例如下图所示, 将图中直线段1, 圆弧2,圆弧3, 直线段4在与其他线段的交点处将它们打断.
功能很强大的交点打断源码。
;;;=======================[ 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
;;;
;;;Functionc:BreakAll - Break all objects selected
;;;Functionc:BreakwObjects - Break many objects with a single object
;;;Functionc:BreakObject - Break a single object with many objects
;;;Functionc:BreakWith - Break selected objects with other selected objects
;;;Functionc:BreakTouching - Break objects touching the single Break object
;;;Functionc:BreakSelected - Break selected objects with anyobjects that touch it
;;;
;;; Sub_Routines:
;;; break_with
;;; ssget->vla-list
;;; list->3pair
;;; onlockedlayer
;;; get_interpts Return a list of intersect points
;;; break_objBreak 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. ;
;;;=====================================================================
好东西就是可惜英文的， 没有中文注释 论坛上找找就有了
flyfox1047 发表于 2014-4-11 10:58 static/image/common/back.gif
论坛上找找就有了
嗯, 谢谢 . 搜了一下, 果然很多先例 下载了，谢谢楼主分享 恩，不知道运行速度怎么样，也正需要这个 flyfox1047 发表于 2014-4-11 10:58 static/image/common/back.gif
论坛上找找就有了
这个交点打断，好像经支持直线，不支持多段线，是vlx不是源码。没得意思。 谢谢楼主分享 确实很不错... 感谢分享！！！