好吧，看来我把VLA想得太简单了。
得完全按照VBA的方式来干活儿
那么问题来了，我的目的是想做一个小程序，画一条直线，这条直线可能会与直线、多段线（含Polyline）、圆、弧、椭圆对象相交，要求出这些交点。
有没有办法实现？
LISP只有inter，不满足要求
请各位高手赐教

选中的对象要转换一下

转成activex对象?variant成么?

大神有木有相关书籍资源啥的，求推荐。

转成vl对象

大佬，解决了吗？同求答案啊

acet-geom-intersectwith 用这个函数

我补一点内容：
一、获取内容之后，先转一下：
(vlax-ename->vla-object (car a1))
(vlax-ename->vla-object (car a2))
二、然后再求交点
(vla-intersectwith (vlax-ename->vla-object (car a1))(vlax-ename->vla-object (car a2))acextendboth)
三、然后再用下面这个命令返回一下变体的值
（vlax-variant-value (vla-intersectwith (vlax-ename->vla-object (car a1))(vlax-ename->vla-object (car a2))acextendboth)）
四、最后用vlax-safearray->list 这个命令
把值转换一下放到列表里
（vlax-safearray->list （vlax-variant-value (vla-intersectwith (vlax-ename->vla-object (car a1))(vlax-ename->vla-object (car a2))acextendboth)））
到了列表这一步，剩下的就应该好弄了

(setq &ent1 (vlax-ename->vla-object (car (entsel "extend object : ")))
&ent2 (vlax-ename->vla-object (car (entsel "bound object2: ")))
)
(setq &jiao_d (vlax-safearray->list
(vlax-variant-value
(vla-IntersectWith &ent1 &ent2 acExtendBoth))))
(princ &jiao_d )