求曲线交点

qxlonmsn

(defun CurveInters (en1 en2 cs / pl pts)
  (vl-load-com)
  (if (and
        (curvep en1)
        (curvep en2)
        (or
          (= cs 0);都不延伸
          (= cs 1);延伸第一条曲线
          (= cs 2);延伸第二条曲线
          (= cs 3);都延伸
        );end or
      );end and
      (progn
        (setq pl (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) cs));求交点
        (while pl
               (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
                     pl (cdr (cdr (cdr pl)))
               );end setq
       );end while
       pts
      (if (> (length pts) 1);交点数>1,返回点表
          pts
          (if (= (length pts) 1);交点数=1,返回点
              (car pts)
          );end if
      );end if
      );end progn
  );end if
)