关于vla-intersectwith求交点的一点疑惑

changyiran

用vla-intersectwith求交点，在不延伸情况下，无论有没有交点都返回#<variant 8197 ..，那该怎么判断到底有没有交点呢？

Gu_xl

changyiran 发表于 2012-6-6 16:18
非常感谢，刚才我用VLAX-SAFEARRAY-GET-l-BOUND 试的，但没加后面的维数1，结果返回了错误信息，原来1是必 ...

用如下方法就无需转换数据
(vlax-invoke (vlax-ename->vla-object (car(entsel))) 'IntersectWith (vlax-ename->vla-object (car(entsel))) acExtendNone)

caddog

用VLAX-VARIANT-VALUE函数返回变体的值（设为ver-interse），再用(VLAX-SAFEARRAY-GET-U-BOUND ver-interse 1)返回变体数组的上界，若没有交点，应为－1
若有的话，用(VLAX-SAFEARRAY->LIST ver-interse)将之转换为表就好操作了。
关键的语句如下：

1. 
   
2. (setq obj1 (vlax-ename->vla-object (car(entsel)))
   
3.       obj2(vlax-ename->vla-object (car(entsel))))
   
4. (setq ver-interse
   
5.        (VLAX-VARIANT-VALUE
   
6.          (VLA-INTERSECTWITH obj1 obj2 2)
   
7.          )
   
8.       )
   
9. (VLAX-SAFEARRAY-GET-U-BOUND ver-interse 1)
   
10. (VLAX-SAFEARRAY->LIST ver-interse)
    

<br /> (setq obj1 (vlax-ename->vla-object (car(entsel)))<br />       obj2(vlax-ename->vla-object (car(entsel))))<br /> (setq ver-interse<br />        (VLAX-VARIANT-VALUE<br />          (VLA-INTERSECTWITH obj1 obj2 2)<br />          )<br />       )<br /> (VLAX-SAFEARRAY-GET-U-BOUND ver-interse 1)<br /> (VLAX-SAFEARRAY->LIST ver-interse)<br />

wide

Gu_xl 发表于 2012-6-6 16:40
用如下方法就无需转换数据
(vlax-invoke (vlax-ename->vla-object (car(entsel))) 'IntersectWith (vlax ...

这个方法的确好。

changyiran

caddog 发表于 2012-6-6 16:11
用VLAX-VARIANT-VALUE函数返回变体的值（设为ver-interse），再用(VLAX-SAFEARRAY-GET-U-BOUND ver-interse ...

非常感谢，刚才我用VLAX-SAFEARRAY-GET-l-BOUND 试的，但没加后面的维数1，结果返回了错误信息，原来1是必须的啊，求下标为0.

Andyhon

acet-geom-intersectwith
(acet-geom-intersectwith (car (entsel)) (car (entsel)) 3)

changyiran

Gu_xl 发表于 2012-6-6 16:40
用如下方法就无需转换数据
(vlax-invoke (vlax-ename->vla-object (car(entsel))) 'IntersectWith (vlax ...

版主这个牛逼，佩服！

changyiran

Andyhon 发表于 2012-6-6 16:42
acet-geom-intersectwith
(acet-geom-intersectwith (car (entsel)) (car (entsel)) 3)

运行时提示没有acet-geom-intersectwith这个函数，不知为何。

Andyhon

Acet-* 需要 Express Tools 支持

smartstar

好好学习。

changyiran

Andyhon 发表于 2012-6-6 18:08
Acet-* 需要 Express Tools 支持

哦，谢谢，学习了。