[编程交流] 为什么坐标重复？为什么？

(vl-load-com)
(setq myFilter (list (cons 0 "LINE") (cons 410 "model")))
(setq alllines (ssget "x" myfilter))
(setq myFilter2 (list (cons 0 "insert") (cons 410 "model")))
(setq alllitems (ssget "x" myfilter2))
(setq acadobj1 (vlax-ename->vla-object (ssname alllines 0)))
(setq acadobj2 (vlax-ename->vla-object (ssname alllitems 0)))
(setq iPts (vla-intersectwith acadobj1 acadobj2 0))
(setq iPts (vlax-variant-value iPts))
(setq iPts (vlax-safearray->list iPts))

(defun get_all_inters_in_SS (SS        / SSL        ;length of SS
                     PTS        ;returning list
                     aObj1        ;Object 1
                     aObj2        ;Object 2
                     N1                ;Loop counter
                     N2                ;Loop counter
                     iPts        ;intersects
)
 (setq        N1  0                                ;index for outer loop
SSL (sslength SS)
 )
                                ; Outer loop, first through second to last
 (while (< N1 (1- SSL))
                                ; Get object 1, convert to VLA object type
   (setq aObj1        (ssname SS N1)
  aObj1        (vlax-ename->vla-object aObj1)
  N2        (1+ N1)
   )                                        ;index for inner loop
                                ; Inner loop, go through remaining objects
   (while (< N2 SSL)
                                ; Get object 2, convert to VLA object
     (setq aObj2 (ssname SS N2))
    aObj2 (vlax-ename->vla-object aObj2)
                                ; Find intersections of Objects
    iPts  (vla-intersectwith
            aObj1
            aObj2
            0
          )
                                ; variant result
    iPts  (vlax-variant-value iPts)
     )
                                ; Variant array has values?
     (if (> (vlax-safearray-get-u-bound iPts 1)
     0
  )
(progn                                ;array holds values, convert it
  (setq        iPts                        ;to a list.
         (vlax-safearray->list iPts)
  )
                                ;Loop through list constructing points
  (while (> (length iPts) 0)
    (setq Pts  (cons (list (car iPts)
                           (cadr iPts)
                           (caddr iPts)
                     )
                     Pts
               )
          iPts (cdddr iPts)
    )
  )
)
     )
     (setq N2 (1+ N2))
   )                                        ;inner loop end
   (setq N1 (1+ N1))
                                         ;outer loop end
 Pts
)                                        ;return list of points found
(setq all (ssget "X"))
(get_all_inters_in_SS all)

(expt 10.0 -       ;will return 1.0e-008
(princ 0.00000001)   ;will return 1.0e-008

(expt 10.0         ;will return 1.0e+008

(defun get_all_inters_in_SS (SS / SSL ;length of SS
       PTS ;returning list
       aObj1 ;Object 1
       aObj2 ;Object 2
       N1  ;Loop counter
       N2  ;Loop counter
       iPts ;intersects
)
 (setq N1  0    ;index for outer loop
SSL (sslength SS)
 )
    ; Outer loop, first through second to last
 (while (< N1 (1- SSL))
    ; Get object 1, convert to VLA object type
   (setq aObj1 (ssname SS N1)
  aObj1 (vlax-ename->vla-object aObj1)
  N2 (1+ N1)
   )     ;index for inner loop
    ; Inner loop, go through remaining objects
   (while (< N2 SSL)
    ; Get object 2, convert to VLA object
     (setq aObj2 (ssname SS N2)
       aObj2 (vlax-ename->vla-object aObj2)
    ; Find intersections of Objects
    iPts  (vla-intersectwith
     aObj1
     aObj2
     0
   )
    ; variant result
    iPts  (vlax-variant-value iPts))
    ; Variant array has values?
     (if (> (vlax-safearray-get-u-bound iPts 1)
     0
  )
(progn    ;array holds values, convert it
  (setq iPts   ;to a list.
  (vlax-safearray->list iPts)
  )
    ;Loop through list constructing points
  (while (> (length iPts) 0)
    (setq Pts  (cons (list (car iPts)
      (cadr iPts)
      (caddr iPts)
       )
       Pts
        )
   iPts (cdddr iPts)
    )
  )
)
     )
     (setq N2 (1+ N2))
   )     ;inner loop end
   (setq N1 (1+ N1))
       )
      ;outer loop end
 Pts
)     ;return list of points found
(setq all (ssget "X" ))
(get_all_inters_in_SS all)