hrbustmqc 发表于 2015-5-29 16:23:23

线与块 交点问题

本帖最后由 highflybir 于 2016-5-9 14:52 编辑


[*](setq en1 (car(entsel)));线
[*](setq obj1 (vlax-ename->vla-object en1))
[*](setq en2 (car(entsel)));块
[*](setq obj2 (vlax-ename->vla-object en2))
[*](setq intvar (vla-IntersectWith obj1 obj2 acExtendNone ));线块交点
[*](setq listpp (vlax-safearray->list (vlax-variant-value intvar)));交点列表
请问这个为什么求线与块交点时候会出错active 服务器返回错误，无效索引。

434939575 发表于 2015-5-30 09:46:52

可以用啊，添加(vl-load-com)
页: [1]
查看完整版本: 线与块 交点问题