[试用]：下午看到电小弟画图

cy956

下午看到电小弟画图，一段一段的打断交叉的电路线，问他为什么没有工具？应该很多吧，平时没注意收集；正好有点空，试着自己写一个，可以打断与多条线（*line、arc、circle等）相交的一条线。
胡乱写的，还是用break简单些，不过为了保险b了两次。看看

cy956

源码。
小弟画图的断点间距取两侧各100，我也按照这样默认，做演示时输了200是为了看得清。
未加undo_bigin和end等。程序应该用循环，断点距离值在开始设，才算方便。
只是写着玩，建筑专业用不上，水电专业的兄弟应该已经写过无数版本了。以前也见过画圆再trim的作法。
以前也写过断点表排序的函数，这次用vlax的param来排序，函数也是临时凑的。
--不过这个函数看上去繁了，不紧凑，算法思路比较乱。
这个应该才是程序的要点,希望弟兄们讨论。
  
晚上网络似乎有问题，贴附件改了一下就有点不正常了。

cy956

希望弟兄们讨论断点表排序的问题：

(setq ddb'((1 4) (2.5 4) (3 6) (10 7) (20 30))
      ddb1(cy_ddb_hb ddb))
_$

((1 6.0) (7 10) (20 30))
_$

cy956

改完方便些了。编译为fas了，供使用的兄弟们下载。
  
发现批量选线，自己会剪自己，改了这个bug。
小兄弟试用发现漏了内部函数，现完全调好。
  
变成两个命令，加载时会提示命令名。

雨箭风刀

用'> 对距离排序即可

2. 
   
3. (defun c:xtr (/ A DTS E I INTS O OMS P1 P2 PTS SS X)
   
4.   (princ "\n 退距打断---by lxx. 用 setxtr 改变打断距离")
   
5.   (defun c:setxtr() ;; *xtr 全局
   
6.     (setq *xtr (getdist "\n 打断距离<100>："))
   
7.     (if        (not *xtr)(setq *xtr 100))
   
8.     *xtr
   
9.   )
   
10.   (if (not *xtr)(c:setxtr))
    
11.   (princ "\n 当前打断距离：")(princ *xtr)
    
12.   (if (and (setq e (car (entsel "\n 要打断的线：")))
    
13.            (setq ss (ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))
    
14.       )
    
15.     (progn
    
16.       (command ".undo" "be")
    
17.       (setq oms (getvar "osmode"))
    
18.       (setvar "osmode" 512)
    
19.       (setq i -1
    
20.             o (vlax-ename->vla-object e))
    
21.       (while (setq a (ssname ss (setq i (1+ i))))
    
22.         (if (eq a e)
    
23.           nil
    
24.           (progn
    
25.             (setq ints (vlax-invoke o 'intersectwith (vlax-ename->vla-object a) acExtendNone))
    
26.             (while ints
    
27.                (setq pts  (cons (list (car ints) (cadr ints) (caddr ints)) pts)
    
28.                      ints (cdddr ints)
    
29.                )
    
30.             )
    
31.           )
    
32.         )
    
33.       )
    
34.       (if pts
    
35.         (progn
    
36.          (setq dts (mapcar '(lambda (x) (vlax-curve-getdistatpoint o x)) pts))
    
37.          (setq dts (vl-sort dts '>))
    
38.          (mapcar '(lambda (x)
    
39.                  (setq p1 (vlax-curve-getpointatdist e (- x *xtr))
    
40.                        p2 (vlax-curve-getpointatdist e (+ x *xtr)))
    
41.                  (if (not p1)(setq p2 (vlax-curve-getstartpoint e)))
    
42.                  (if (not p2)(setq p2 (vlax-curve-getendpoint e)))
    
43.                  (command ".break" (list e p1) p2)
    
44.                )
    
45.               dts
    
46.          )
    
47.         )
    
48.       )
    
49.       (setvar "osmode" oms)
    
50.       (command ".undo" "e")
    
51.     )
    
52.   )
    
53.   (princ)
    
54. )

<br /> (defun c:xtr (/ A DTS E I INTS O OMS P1 P2 PTS SS X)<br />   (princ "\n 退距打断---by lxx. 用 setxtr 改变打断距离")<br />   (defun c:setxtr() ;; *xtr 全局<br />     (setq *xtr (getdist "\n 打断距离<100>："))<br />     (if        (not *xtr)(setq *xtr 100))<br />     *xtr<br />   )<br />   (if (not *xtr)(c:setxtr))<br />   (princ "\n 当前打断距离：")(princ *xtr)<br />   (if (and (setq e (car (entsel "\n 要打断的线：")))<br />            (setq ss (ssget '((0 . "*LINE,ARC,ELLIPSE,CIRCLE"))))<br />       )<br />     (progn<br />       (command ".undo" "be")<br />       (setq oms (getvar "osmode"))<br />       (setvar "osmode" 512)<br />       (setq i -1<br />             o (vlax-ename->vla-object e))<br />       (while (setq a (ssname ss (setq i (1+ i))))<br />         (if (eq a e)<br />           nil<br />           (progn<br />             (setq ints (vlax-invoke o 'intersectwith (vlax-ename->vla-object a) acExtendNone))<br />             (while ints<br />                (setq pts  (cons (list (car ints) (cadr ints) (caddr ints)) pts)<br />                      ints (cdddr ints)<br />                )<br />             )<br />           )<br />         )<br />       )<br />       (if pts<br />         (progn<br />          (setq dts (mapcar '(lambda (x) (vlax-curve-getdistatpoint o x)) pts))<br />          (setq dts (vl-sort dts '>))<br />          (mapcar '(lambda (x)<br />                  (setq p1 (vlax-curve-getpointatdist e (- x *xtr))<br />                        p2 (vlax-curve-getpointatdist e (+ x *xtr)))<br />                  (if (not p1)(setq p2 (vlax-curve-getstartpoint e)))<br />                  (if (not p2)(setq p2 (vlax-curve-getendpoint e)))<br />                  (command ".break" (list e p1) p2)<br />                )<br />               dts<br />          )<br />         )<br />       )<br />       (setvar "osmode" oms)<br />       (command ".undo" "e")<br />     )<br />   )<br />   (princ)<br /> )

dhxf

看起来不错,如果有需要其实在开始画线的时候可以自动断线的,

abcabcxyz

我的学习深度还不够,这段程序还不能完全理解,今后还要向各位老大多多请教

cy956

箭刀兄弟，在我的程序中用了vlax-curve-getClosestPointTo保证点在线上 ,也许是cad的计算精度误差，不用的话有时会发生错误。我想你的也差不多。

cy956

在明经上的已更新，这里也发上

我们——

我的学习深度还不

bendoumr

哎 下不了