关于直线打断交点的问题

yigexinren

求大神帮助啊！！！有没有办法选择红色的那条直线，然后只把红色直线按照所有交点断开，白色的直线不断开。就是只打断选择的直线，别的不打断

yigexinren

yigexinren 发表于 2018-6-28 09:23
相当于白色的直线把红色的直线切割成了四段，在操作的时候，我选中红色的直线，然后自动检测出它上面所有的 ...

小弟通过自己尝试，写出来了，献上代码，跟我一样的新人们一起互相学习

2. (defun c:bkl()
   
3.    (setq breakl (car(entsel)))
   
4.    (Setq p1 (Vlax-Get (Vlax-Ename->Vla-Object breakl) 'EndPoint ))
   
5.    (Setq p2 (Vlax-Get (Vlax-Ename->Vla-Object breakl) 'StartPoint ))
   
6.    (setq brkptss (ssget "F" (list p1 p2)))
   
7.    (setq brkptlen (sslength brkptss))
   
8.    (setq j 0)
   
9.         (repeat brkptlen
   
10.             (setq interl (ssname brkptss j))
    
11.             (Setq pa (Vlax-Get (Vlax-Ename->Vla-Object interl) 'EndPoint ))
    
12.             (Setq pb (Vlax-Get (Vlax-Ename->Vla-Object interl) 'StartPoint ))
    
13.             (setq interp (inters p1 p2 pa pb))
    
14.             (command "_.break" breakl interp "@")
    
15.             (setq lastl (entlast))
    
16.             (Setq pa  (Vlax-Get (Vlax-Ename->Vla-Object lastl) 'EndPoint ))
    
17.             (Setq pb  (Vlax-Get (Vlax-Ename->Vla-Object lastl) 'StartPoint ))
    
18.           (setq j (+ j 1))
    
19.         )
    
20. )
    

(defun c:bkl()<br />    (setq breakl (car(entsel)))<br />    (Setq p1 (Vlax-Get (Vlax-Ename->Vla-Object breakl) 'EndPoint ))<br />    (Setq p2 (Vlax-Get (Vlax-Ename->Vla-Object breakl) 'StartPoint ))<br />    (setq brkptss (ssget "F" (list p1 p2)))<br />    (setq brkptlen (sslength brkptss))<br />    (setq j 0)<br />         (repeat brkptlen<br />             (setq interl (ssname brkptss j))<br />             (Setq pa (Vlax-Get (Vlax-Ename->Vla-Object interl) 'EndPoint ))<br />             (Setq pb (Vlax-Get (Vlax-Ename->Vla-Object interl) 'StartPoint ))<br />             (setq interp (inters p1 p2 pa pb))<br />             (command "_.break" breakl interp "@")<br />             (setq lastl (entlast))<br />             (Setq pa  (Vlax-Get (Vlax-Ename->Vla-Object lastl) 'EndPoint ))<br />             (Setq pb  (Vlax-Get (Vlax-Ename->Vla-Object lastl) 'StartPoint ))<br />           (setq j (+ j 1))<br />         )<br /> )<br />

yigexinren

相当于白色的直线把红色的直线切割成了四段，在操作的时候，我选中红色的直线，然后自动检测出它上面所有的交点，然后在交点处断开

tigcat

yigexinren 发表于 2018-6-28 09:47
小弟通过自己尝试，写出来了，献上代码，跟我一样的新人们一起互相学习

谢谢分享代码

baitang36

谢谢分享源码

前生

计算交点。
按线的起点排序。
(entdel 那条线）
（entmake  生成线）