[编程交流] 相交线

[b][color=BLACK]([/color][/b]defun c:bil [b][color=FUCHSIA]([/color][/b]/ ss l1 l1d l2 l2d p10 p11 p20 p21 ip[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not ss[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]/= [b][color=GREEN]([/color][/b]sslength ss[b][color=GREEN])[/color][/b] 2[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect 2 LINEs that Intersect"[/color][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b]
                              [b][color=BLUE]([/color][/b]if [b][color=RED]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=RED])[/color][/b]
                                  [b][color=RED]([/color][/b]cons 410 [b][color=PURPLE]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                  [b][color=RED]([/color][/b]cons 67 [b][color=PURPLE]([/color][/b]- 1 [b][color=TEAL]([/color][/b]getvar [color=#2f4f4f]"TILEMODE"[/color][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq l1 [b][color=NAVY]([/color][/b]ssname ss 0[b][color=NAVY])[/color][/b] l1d [b][color=NAVY]([/color][/b]entget l1[b][color=NAVY])[/color][/b]
       l2 [b][color=NAVY]([/color][/b]ssname ss 1[b][color=NAVY])[/color][/b] l2d [b][color=NAVY]([/color][/b]entget l2[b][color=NAVY])[/color][/b]
       p10 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 10 l1d[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] p11 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 11 l1d[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       p20 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 10 l2d[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] p21 [b][color=NAVY]([/color][/b]cdr [b][color=MAROON]([/color][/b]assoc 11 l2d[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       ip [b][color=NAVY]([/color][/b]inters p10 p11 p20 p21[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]cond [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]not ip[b][color=MAROON])[/color][/b]
        [b][color=MAROON]([/color][/b]alert [color=#2f4f4f]"Lines Do Not Intersect"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]T
        [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_.BREAK"[/color] l1 ip ip
                 [color=#2f4f4f]"_.BREAK"[/color] l2 ip ip[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

(defun c:brk (/ ss i y Obj1 Obj2 Ent1 Ent2 iLst ip)
 (vl-load-com)
 (if (setq ss (ssget "_:L" '((0 . "~VIEWPORT"))))
   (progn
     
     (setq i (sslength ss))
     (while (not (minusp (setq y (1- i) i (1- i))))
       (setq Obj1 (vlax-ename->vla-object (setq Ent1 (ssname ss i))))
       (while (not (minusp (setq y (1- y))))
         (setq Obj2 (vlax-ename->vla-object (setq Ent2 (ssname ss y))))
         (if (setq iLst (vlax-invoke Obj1 'IntersectWith Obj2 acExtendNone))
           (command "_.break" Ent1 "_non" (setq ip (list (car iLst) (cadr iLst) (caddr iLst)))
                     ip "_.break" (list Ent2 ip) "_non" ip ip))))))
 (princ))