[编程申请]：怎样在每个交点自动执行打断命令

clp001

紧急求助各位大哥:
在Autocad2000中,对图形进行编辑时,经常需要对当前图形中各线条之间的相交点执行打断命令.使用"对象捕捉 - 交点"和"打断"命令逐个进行,相当费时.如何使用VLISP编写一程序,使之能在当前图形的每个交点处自动连续执行"打断"命令?

XDSoft

最初由 clp001 发布
[B]紧急求助各位大哥:
在Autocad2000中,对图形进行编辑时,经常需要对当前图形中各线条之间的相交点执行打断命令.使用"对象捕捉 - 交点"和"打断"命令逐个进行,相当费时.如何使用VLISP编写一程序,使之能在当前图形的每个... [/B]

如果写程序,求得交点后,用(command ".break" (list e pt) @) 打断.

另: 晓东工具箱-曲线工具里面已经提供"交点打断"的工具.

另:如果你使用XDRX_API开发LISP程序,那么提供了现成的函数:

1. <normalfont>
   
2. 257. xdrx_curve_intersectbreak
   
3. 
   
4. 功能：将选择集中的曲线在所有交点处break
   
5. 
   
6. 调用格式：(xdrx_curve_intersectbreak <选择集> [误差距离] [自身打断标记] [进度条间隔])
   
7. 
   
8. 返回值：NIL
   
9. 
   
10. 说明：参数
    
11.         [误差距离]：整数或者实数，两个曲线顶点到另个曲线距离在误差内，算作相交
    
12.         [自身打断标记]：T,对于复杂实体如POLYLINE,SPLINE等自身相交也打断，NIL不处理自身相交
    
13.         [进度条间隔]：大于等于0的整数，为0，不显示进度条，大于0的值作为每处理这些实体后，进度条显示一次进度。
    
14.         
    
15.      不给这些参数，默认值是：误差100，自身打断T,无进度条0   
    
16. </normalfont>
    

复制代码

clp001

晓东就是晓东 ！......
感激晓东的同时,也感激那位给我推荐晓东的网友!