关于多段线的打断与合并

柴月二号

请教如何将 打断与合并的lisp源码合在一起，使打断一条多段线的同时   将打断的多段线合并
打断可直接用(command "break" pause "f" pause "@")
合并可使用 “jion”
请老师教我

柴月二号

老师教我

xiaolong1487

2. (defun c:ts (/ e en p pt)
   
3.         (while (setq p (getpoint))
   
4.                 (progn
   
5.                         (cond
   
6.                                 ((null (setq e (nentselp p)))
   
7.                                         (princ "\nPoint does not lie on an LWPolyline.")
   
8.                                 )
   
9.                                 ((= 4 (length e))
   
10.                                         (princ "\nObject is Nested.")
    
11.                                         (setq e nil)
    
12.                                 )
    
13.                                 ((/= "LWPOLYLINE" (cdr (assoc 0 (entget (setq en (car e))))))
    
14.                                         (princ "\nObject is not an LWPolyline.")
    
15.                                         (setq e nil)
    
16.                                 )
    
17.                         )
    
18.                         (if (and e p en (setq pt (vlax-curve-getclosestpointto en (trans p 1 0))))
    
19.                                 (progn
    
20.                                         (command "_.BREAK" e "F" pt "@")
    
21.                                         (command "_.pedit" (entlast) "j" en "" "")                        
    
22.                                 )
    
23.                         )
    
24.                 )
    
25.         )
    
26. )

(defun c:ts (/ e en p pt)<br />         (while (setq p (getpoint))<br />                 (progn<br />                         (cond<br />                                 ((null (setq e (nentselp p)))<br />                                         (princ "\nPoint does not lie on an LWPolyline.")<br />                                 )<br />                                 ((= 4 (length e))<br />                                         (princ "\nObject is Nested.")<br />                                         (setq e nil)<br />                                 )<br />                                 ((/= "LWPOLYLINE" (cdr (assoc 0 (entget (setq en (car e))))))<br />                                         (princ "\nObject is not an LWPolyline.")<br />                                         (setq e nil)<br />                                 )<br />                         )<br />                         (if (and e p en (setq pt (vlax-curve-getclosestpointto en (trans p 1 0))))<br />                                 (progn<br />                                         (command "_.BREAK" e "F" pt "@")<br />                                         (command "_.pedit" (entlast) "j" en "" "")                        <br />                                 )<br />                         )<br />                 )<br />         )<br /> )

柴月二号

xiaolong1487 发表于 2016-7-1 00:16

谢谢老师，完美解决