[求助]有关Visual LISP函数的问题

ljpnb

以下这段子程序是飞老师提供的，关于求两相交曲线交点的程序，由于我对V-lisp不熟，所以对这段程序不能理解，望各位老师们帮忙解答，先谢了！ (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
(setq ax_ent_1 (vlax-ename->vla-object ent1) ;;ent_1为曲线1的图元名
ax_ent_2 (vlax-ename->vla-object ent2) ;;ent_2为曲线2的图元名
)
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
(setq intpoints (vlax-variant-value intpoints))
(setq i 0)
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
(repeat (/ (+ 1
(- (vlax-safearray-get-u-bound intpoints 1)
(vlax-safearray-get-l-bound intpoints 1)
)
)
3
)
(setq points (append points (list (list
(vlax-safearray-get-element intpoints i)
(vlax-safearray-get-element intpoints (+ i 1))
(vlax-safearray-get-element intpoints (+ i 2))
)))
)
(setq i (+ 3 i))
)
)
points
) 以上程序红色部份的函数我在帮助文件中查不到，不知道为什么，能否解释一下 (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))这句起什么作用

lijiao

对两个图元求交点。

BDYCAD

(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))这句是找出ax_ent_1和 ax_ent_2对象的交点, 是采用acextendnone 有真正的交点的方式.

meflying

方法：intersectwith，查看帮助文件，怎么使用VLA函数，参考帮助文件中VLISP中的ActiveX部分

ljpnb

谢谢以上几位老师，参考帮助文件我一直在参考，可惜VLISP部份是英文的，英语水平不太好，所以看起来比较吃力。 另外我还想问个问题，这句话执行后返回一个这样的值，这个值代表什么，是不是VLA特定格式的一种数据形式？ (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone)) 返回：#<variant 8197 ...>

meflying

是一个VLA变量，你可以使用vlax-variant-value或获得其内容

ljpnb

谢谢飞老师指点!不过用vlax-variant-value获得内空也是看不懂,比如运行:


(setq intpoints (vlax-variant-value intpoints))                                 返回:                 #&lt;safearray...&gt;


嘿嘿，还是看不懂返回值，想学VLISP真是摸不到头脑。。。。。

meflying

如果返回的是#&lt;safearray...&gt;，说明是一个表，使用vlax-safearray-&gt;list就可以得到lisp的表了

ljpnb

我逐行运行，使用vlax-safearray-&gt;list确实得到一个交点的坐标，多谢飞老师指点！