求线与线的延伸点

skg123

请教个问题，如下图中


已知 线段AB，求延伸点P？我运行了代码，p点坐标值是出来了，但是变量Pt是nil。

如右图，但是值没有赋值给代码中的变量“Pt”。

本人现实现的效果是，下图中直线AB与弧线的 交点P，不相交的时候求延伸交点P，相交的时候求P'点，请大家帮忙修改一下代码。



(defun c:test(/ obj1 obj2 pts)
  (vl-load-com)
  ;求交点的对象
  (setq obj1 (vlax-ename->vla-object (car (entsel)))
        obj2 (vlax-ename->vla-object (car (entsel)))
)
  ;求交点，分四种情况
  ;acExtendNone 求实交点，也可以用0代替
  ;acExtendThisEntity 延伸obj1求交点,也可以用1代替
  ;acExtendOtherEntity 延伸obj2求交点,也可以用2代替
  ;acExtendBoth 同时延伸obj1和obj2求交点,也可以用3代替
  (setq pts (vlax-invoke obj1 'IntersectWith obj2 1))
         ;(setq pts2 (acet-geom-intersectwith (car (entsel)) (car (entsel)) 1))
  ;此外还可以用(vlax-variant-value (vla-intersectwith obj1 obj2 0))求
  ;用vlax-safearray-get-u-bound检索返回值的上标大于0就存在交点
  ;用vlax-safearray->list可以得到交点
  (setq pt (vlax-safearray->list pts))
  (if pts (alert "相交")(alert "不相交"))
  (princ)
  )

edata

(setq pts (vlax-invoke obj1 'IntersectWith obj2 1))
得到的点是list表，一个点就是3个元素，如果是两个点那么该表就有6个元素，三个点9个元素。

(setq pt (vlax-safearray->list pts))这句不需要了。

xyp1964

(defun c:tt ()
  (setq        obj1 (vlax-ename->vla-object (car (entsel "\n选直线: ")))
        obj2 (vlax-ename->vla-object (car (entsel "\n选圆弧: ")))
  )
  (if (vlax-invoke obj1 'IntersectWith obj2 1)
    (alert "相交")
    (alert "不相交")
  )
  (princ)
)