[编程申请]：相交线截断

zhuhh2000

我在电气画图时，经常遇到需要把电气的两根相交的导线的其中一根线在相交处截断。
希望的功能是这样的：
1、交线的任意一根线截断。
2、截断线的宽度可以设定。
3、一次可选择多根线。
谢谢

f5612140

請問樓主
兩條相交的線是依何種條件判斷誰被截斷,圖層.線型.顏色或其他

zhuhh2000

对，我忘了提一下：在电气设计时，两条相交的线应该有上下之分的。但实际画图时可不考虑这点。可以指定任何一条线。

hrbpkf

这个好像不用什么程序就可以解决吧？输入trim后单击一下空格（或鼠标右键），不就可以了吗？不知道我理解的对不对？

f5612140

最初由 hrbpkf 发布
[B]这个好像不用什么程序就可以解决吧？输入trim后单击一下空格（或鼠标右键），不就可以了吗？不知道我理解的对不对？ [/B]

樓主說"一次可選擇多根線"
您的做法沒錯,只是沒效率而已

wanyuan03

是呀，我也是搞电的

zhuhh2000

对，是一次选择许多线截断

f5612140

符合樓主三條件

2. 
   
3. 
   
4. (defun c:test()
   
5.     (setvar "blipmode" 0)
   
6.     (setvar "cmdecho" 0)
   
7.     (setq selnum (getvar "osmode"))
   
8.     (setvar "osmode" 0)
   
9.     (setq width (getreal "\nInput trim width <10> :"))
   
10.     (if (= width nil)(setq width 10))
    
11.     (setq ss (ssget))
    
12.       
    
13.     (setq kk 0)
    
14.     (setq j 0)
    
15.     (repeat (- (sslength ss) 1)
    
16.        (setq sname1 (ssname ss j))
    
17.        (setq endata1 (entget sname1))
    
18.        (setq p1s (cdr (assoc 10 endata1)))
    
19.        (setq p1e (cdr (assoc 11 endata1)))
    
20.        (setq i (- (sslength ss) j 1))
    
21.        (setq jj (+ j 1))
    
22.        (repeat i
    
23.           (setq sname2 (ssname ss jj))
    
24.           (setq endata2 (entget sname2))
    
25.           (setq p2s (cdr (assoc 10 endata2)))
    
26.           (setq p2e (cdr (assoc 11 endata2)))
    
27.           (setq ang1 (angle p2s p2e))
    
28.           (setq ang2 (angle p2e p2s))
    
29.                
    
30.           (setq jj (+ jj 1))
    
31.           (setq pk (inters p1s p1e p2s p2e))
    
32.           (if (/= pk nil)
    
33.               (progn
    
34.                  (setq pp1 (polar pk ang2 width))
    
35.                  (setq pp2 (polar pk (- ang2 pi) width))
    
36.                  (command "break" sname2 pp1 pp2)
    
37.                  (setq kk (+ kk 1))
    
38.               )
    
39.            )
    
40.        )
    
41. 
    
42.        (setq j (+ j 1))
    
43.     )
    
44. 
    
45.      
    
46.     (setvar "osmode" selnum)
    
47. 
    
48. (prin1)
    
49. )
    
50. (prin1)
    

<br /> <br /> (defun c:test()<br />     (setvar "blipmode" 0)<br />     (setvar "cmdecho" 0)<br />     (setq selnum (getvar "osmode"))<br />     (setvar "osmode" 0)<br />     (setq width (getreal "\nInput trim width <10> :"))<br />     (if (= width nil)(setq width 10))<br />     (setq ss (ssget))<br />       <br />     (setq kk 0)<br />     (setq j 0)<br />     (repeat (- (sslength ss) 1)<br />        (setq sname1 (ssname ss j))<br />        (setq endata1 (entget sname1))<br />        (setq p1s (cdr (assoc 10 endata1)))<br />        (setq p1e (cdr (assoc 11 endata1)))<br />        (setq i (- (sslength ss) j 1))<br />        (setq jj (+ j 1))<br />        (repeat i<br />           (setq sname2 (ssname ss jj))<br />           (setq endata2 (entget sname2))<br />           (setq p2s (cdr (assoc 10 endata2)))<br />           (setq p2e (cdr (assoc 11 endata2)))<br />           (setq ang1 (angle p2s p2e))<br />           (setq ang2 (angle p2e p2s))<br />                 <br />           (setq jj (+ jj 1))<br />           (setq pk (inters p1s p1e p2s p2e))<br />           (if (/= pk nil)<br />               (progn<br />                  (setq pp1 (polar pk ang2 width))<br />                  (setq pp2 (polar pk (- ang2 pi) width))<br />                  (command "break" sname2 pp1 pp2) <br />                  (setq kk (+ kk 1))<br />               )<br />            )<br />        )<br /> <br />        (setq j (+ j 1))<br />     )<br /> <br />      <br />     (setvar "osmode" selnum)<br /> <br /> (prin1)<br /> )<br /> (prin1)<br />

ghyszs

哦？可不可以整理出一个LISP

zhuhh2000

谢谢f5612140，已经试了。但有的线没有打断， 需要多次用这个命令去操作。

f5612140

最初由 zhuhh2000 发布
[B]谢谢f5612140，已经试了。但有的线没有打断， 需要多次用这个命令去操作。 [/B]

不客氣
小弟對自己程序設計的要求是很嚴謹的,可否提供部份圖面
告訴我問題出在那,因為該程序是我修改自己其他程序的一部份而來的,自己在運用上沒有這樣的問題,謝謝

eachy

这样断开不是最佳方法, 天正电气中好像用的是遮盖

f5612140

截斷與遮蓋性質不同,應考慮樓主的需求

ydf7332462

可依條件:圖層.線型.顏色或标高

baihc798

为什么宽度不能自动保存呢，能不能改一下呢，我不会用lisp.谢谢