[编程交流] vlax调用与catc相交

;; Intersections  -  Lee Mac
;; Returns a list of all points of intersection between two objects
;; for the given intersection mode.
;; ob1,ob2 - [vla] VLA-Objects
;;     mod - [int] acextendoption enum of intersectwith method
(defun LM:intersections ( ob1 ob2 mod / lst rtn )
   (if (and (vlax-method-applicable-p ob1 'intersectwith)
            (vlax-method-applicable-p ob2 'intersectwith)
            (setq lst (vlax-invoke ob1 'intersectwith ob2 mod))
       )
       (repeat (/ (length lst) 3)
           (setq rtn (cons (list (car lst) (cadr lst) (caddr lst)) rtn)
                 lst (cdddr lst)
           )
       )
   )
   (reverse rtn)
)

(LM:intersections (vlax-Ename->Vla-Object (car (entsel))) (vlax-Ename->Vla-Object (car (entsel))) acextendnone)

LWPOLYLINE 1: ((-0.112 0.093) (0.296 0.085) (0.717 0.255))
LWPOLYLINE 2: ((-0.043 0.177) (0.08 0.003) (0.234 0.177) (0.323 -0.022) (0.373 0.227))

((0.0180291 0.090385 0.0) (0.155541 0.0875826 0.0) (0.275268 0.0851427 0.0) (0.34906 0.106104 0.0))

LWPOLYLINE 1: ((8405375.127 5679451.655) (8405375.535 5679451.647) (8405375.955 5679451.818))
LWPOLYLINE 2: ((8405375.195 5679451.739) (8405375.319 5679451.565) (8405375.473 5679451.739) (8405375.562 5679451.54) (8405375.612 5679451.789))

((8.40538e+006 5.67945e+006 0.0) (8.40538e+006 5.67945e+006 0.0) (8.40538e+006 5.67945e+006 0.0) (8.40538e+006 5.67945e+006 0.0) (8.40538e+006 5.67945e+006 0.0) (8.40538e+006 5.67945e+006 0.0))