请问 这打断命令可以改成选择多条线同时打断至点或多点吗?

hooboxu

(defun c:bv();打断于点
(while (and (setq ENT(car (entsel))) (setq PT(getpoint "\n指定一个打断点: ")))
    (command "._BREAK" ENT "_NON" PT "_NON" PT)
)
)



谢谢大家了

print1985

2. (vl-load-com)
   
3. (defun c:dd (/ e i obj p1 p2 pst s ss x)
   
4.   (princ "\n请选择需打断的所有直线")
   
5.   (if (setq ss (ssget '((0 . "*LINE"))))
   
6.     (progn
   
7.       (while (setq p1 (getpoint "\n指定打断点"))
   
8.                 (progn
   
9.                   (setq i 0)
   
10.                   (repeat (sslength ss)
    
11.                     (setq e (ssname ss i)
    
12.                           obj (vlax-ename->vla-object e)
    
13.                           p2 (vlax-curve-getclosestpointto obj p1 T)
    
14.                           pst (cons p2 pst)
    
15.                           i (1+ i)
    
16.                     )
    
17.                   )
    
18.                 )
    
19.       )
    
20.       (foreach x pst
    
21.                 (if (setq s (ssget "c" x x '((0 . "*LINE"))))
    
22.                   (command "break" (ssname s 0) x x)
    
23.                 )
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

(vl-load-com)<br /> (defun c:dd (/ e i obj p1 p2 pst s ss x)<br />   (princ "\n请选择需打断的所有直线")<br />   (if (setq ss (ssget '((0 . "*LINE"))))<br />     (progn<br />       (while (setq p1 (getpoint "\n指定打断点"))<br />                 (progn<br />                   (setq i 0)<br />                   (repeat (sslength ss)<br />                     (setq e (ssname ss i)<br />                           obj (vlax-ename->vla-object e)<br />                           p2 (vlax-curve-getclosestpointto obj p1 T)<br />                           pst (cons p2 pst)<br />                           i (1+ i)<br />                     )<br />                   )<br />                 )<br />       )<br />       (foreach x pst<br />                 (if (setq s (ssget "c" x x '((0 . "*LINE"))))<br />                   (command "break" (ssname s 0) x x)<br />                 )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

试试吧

自贡黄明儒

ent应该是个表，象entseLL的还回值

龙城飞将36

不清楚楼主什么意思，配个图

hooboxu

龙城飞将36 请看看

print1985

平行且等长的直线吗？
如果不平行 不等长 需要遵循什么规则？

hooboxu

如果是竖向的直接而有长短的话, 则以鼠标点击的X坐标打断.横向直线则以Y坐标打断

hooboxu

感谢print1985热心的帮忙谢谢你,,但还有BUG,意思是对了