[编程申请]：请高手编一个只要单击一条线就可自动断开设定距离的程序

chenxifanren

多线相交，请高手编一个只程序，选择其中所有要打断的交点的交线，设定被打断线交点两侧距离，单击被打断线就可自动断开，这样打断线的距离都相等

zxq0220

给个示意图先。

cgh93001

楼主说的话让我不明不白呢？请说仔细点赛

xyp1964

;;; 网络U盘下载和加载通用函数xyplib.vlx

2. [FONT=courier new];;; 曲线交点处自动断开设定距离
   
3. (defun c:test527 ()
   
4.   (CMDLA0)
   
5.   (setvar "osmode" 0)
   
6.   (setq        DIST  (UDIST 7 "" "距离<输入或鼠标直接量取>" DIST nil)
   
7.         dist1 (/ dist 2.0)
   
8.   )
   
9.   (while (setq s1 (car (entsel "\n选择曲线: ")))
   
10.     (if        (and (xyp-Curve-Check s1)
    
11.              (setq ptn (xyp-get-CurveIntersLeng s1 3))
    
12.         )
    
13.       (progn
    
14.         (setq ptn (xyp-Curve-PtsLengSort s1 ptn t))
    
15.         (foreach pt ptn
    
16.           (setq        leng (xyp-get-LengthAtPoint s1 pt)
    
17.                 l1   (- leng dist1)
    
18.                 l2   (+ leng dist1)
    
19.           )
    
20.           (if (and (> l1 0.0) (> l2 0.0))
    
21.             (command "break"
    
22.                      (list s1 pt)
    
23.                      "f"
    
24.                      (xyp-get-CurvePointAtDist s1 l1)
    
25.                      (xyp-get-CurvePointAtDist s1 l2)
    
26.             )
    
27.           )
    
28.         )
    
29.       )
    
30.     )
    
31.   )
    
32.   (CMDLA1)
    
33. )
    
34. [/FONT]

[FONT=courier new];;; 曲线交点处自动断开设定距离<br /> (defun c:test527 ()<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (setq        DIST  (UDIST 7 "" "距离<输入或鼠标直接量取>" DIST nil)<br />         dist1 (/ dist 2.0)<br />   )<br />   (while (setq s1 (car (entsel "\n选择曲线: ")))<br />     (if        (and (xyp-Curve-Check s1)<br />              (setq ptn (xyp-get-CurveIntersLeng s1 3))<br />         )<br />       (progn<br />         (setq ptn (xyp-Curve-PtsLengSort s1 ptn t))<br />         (foreach pt ptn<br />           (setq        leng (xyp-get-LengthAtPoint s1 pt)<br />                 l1   (- leng dist1)<br />                 l2   (+ leng dist1)<br />           )<br />           (if (and (> l1 0.0) (> l2 0.0))<br />             (command "break"<br />                      (list s1 pt)<br />                      "f"<br />                      (xyp-get-CurvePointAtDist s1 l1)<br />                      (xyp-get-CurvePointAtDist s1 l2)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

海豚

请问通用函数如何加载，是否需要在ATUOCAD启动的时候自动加载。由于加载的东西已经很多了，能否在这个打断程序前自动加载。

测试过，对线和PLINE都没有动作的，能用在什么线上吗。而且点击一次就退出，好像比BREAK命令没有多少优势。是否我用得不对。

chenxifanren

四楼的高手,我对编程一点也不懂,能教我如何使用吗?