画线时检查是否和已有的线相交，并自动断开

tlstar

我遇到了困难：如题所述，

   希望能够把交点生成出来，在交点处分为两段。谢谢排忧！

tlstar

捕捉对象中设置交点,可以自动相交

zhongguola

转贴一个程序，但是不知道是不是你想要的：

(DEFUN C:bb1 ()
 (SETvar "CMDECHO" 0)
 (SETQ OLDOS (GETvar "OSMODE"))
 (SETvar "OSMODE" 0)
 (IF (SETQ S1 (ENTSEL "\nSelect first Line : ")) (PROGN
  (REDRAW (CAR S1) 3)
  (IF (SETQ S2 (ENTSEL "\nSelect second Line : ")) (PROGN
   (REDRAW (CAR S2) 3)
   (SETQ EN1 (ENTGET (CAR S1))         EN2 (ENTGET (CAR S2))
         P1 (CDR (ASSOC 10 EN1)) P2 (CDR (ASSOC 11 EN1))
         P3 (CDR (ASSOC 10 EN2)) P4 (CDR (ASSOC 11 EN2))
         P5 (INTERS P1 P2 P3 P4 T))
   (COMMAND ".BREAK" (CADR S1) "F" P5 P5)
   (COMMAND ".BREAK" (CADR S2) "F" P5 P5)
  ))
 ))
 (SETvar "OSMODE" OLDOS)
 (SETvar "CMDECHO" 1)
 (PRINC)
)

maomao2004

搂主的程序是想在画线时候自动判断呢，还是画完以后判断呢

如果是画完后判断，那么3楼的程序应该够用了

 

tlstar

挺好用的，谢谢了。我的本意是打算在画的时候就在交点处断开原来的线。

上面的程序对多线段行吗？

ZZXXQQ

tlstar发表于2005-9-16 10:28:00挺好用的，谢谢了。我的本意是打算在画的时候就在交点处断开原来的线。 上面的程序对多线段行吗？