[编程交流] 检索选择时拾取的边

;;;++++++++++ 3D Is Point On Line ++++++++++++++++++++++++++++++++++++++
;;;ARG -> TestPt LinePt1 LinePt2 Fuzz
;;;RET T nil
(defun is_pt_online (pt l1 l2 fz)
 (and (numberp fz)
      (equal (distance l1 l2)
             (+ (distance l1 pt)
                (distance l2 pt)) fz)))

[b][color=BLACK]([/color][/b]defun c:fedge [b][color=FUCHSIA]([/color][/b]/ in en ed sp el[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]defun is_pt_online [b][color=NAVY]([/color][/b]pt l1 l2 fz[b][color=NAVY])[/color][/b]
 [b][color=NAVY]([/color][/b]and [b][color=MAROON]([/color][/b]numberp fz[b][color=MAROON])[/color][/b]
      [b][color=MAROON]([/color][/b]equal [b][color=GREEN]([/color][/b]distance l1 l2[b][color=GREEN])[/color][/b]
             [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]distance l1 pt[b][color=BLUE])[/color][/b]
                [b][color=BLUE]([/color][/b]distance l2 pt[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] fz[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]or [b][color=MAROON]([/color][/b]not en[b][color=MAROON])[/color][/b]
            [b][color=MAROON]([/color][/b]/= [color=#2f4f4f]"3DFACE"[/color] [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 0 [b][color=RED]([/color][/b]entget en[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=NAVY]([/color][/b]setq in [b][color=MAROON]([/color][/b]entsel [color=#2f4f4f]"\nSelect 1 3DFACE:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]car in[b][color=MAROON])[/color][/b]
              sp [b][color=MAROON]([/color][/b]osnap [b][color=GREEN]([/color][/b]cadr in[b][color=GREEN])[/color][/b] [color=#2f4f4f]"NEA"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]setq ed [b][color=NAVY]([/color][/b]entget en[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]foreach e '[b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]1 2[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]2 3[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]3 4[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]4 1[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]is_pt_online sp [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc [b][color=RED]([/color][/b]+ [b][color=PURPLE]([/color][/b]car e[b][color=PURPLE])[/color][/b] 9[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc [b][color=RED]([/color][/b]+ [b][color=PURPLE]([/color][/b]cadr e[b][color=PURPLE])[/color][/b] 9[b][color=RED])[/color][/b] ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]  1e-8[b][color=MAROON])[/color][/b]
       [b][color=MAROON]([/color][/b]setq el [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]car e[b][color=BLUE])[/color][/b] el[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]if el
   [b][color=NAVY]([/color][/b]progn
     [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nPoint "[/color][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]prin1 sp[b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]" Resides on Edge[b][color=GREEN]([/color][/b]s[b][color=GREEN])[/color][/b] "[/color][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]foreach p el
       [b][color=GREEN]([/color][/b]prin1 p[b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]" "[/color][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]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

(getpoint)
[i](6304.12 7135.41 1130.54)[/i]
(cadr (entsel))
[i](7434.68 8265.98 0.0)[/i]
(osnap (cadr (entsel)) "NEA")
[i](6304.12 7135.31 1130.54)[/i]
(cadr (cadddr (car (ssnamex (ssget "_:S") 0))))
[i](2201.07 3032.5 5233.57)[/i]
(osnap (cadr (cadddr (car (ssnamex (ssget "_:S") 0)))) "NEA")
[i](6304.12 7135.53 1130.54)[/i]

(setq ss (ssget))
(command "_.VPOINT" '(1 1 1))
(ssnamex ss 0)