求交点, (vla-intersectwith VLA对象 VLA对象 延伸模式) 延伸模式为 0~3 的整型(0--不延伸,1--延伸基本对象,2--延伸参数传递的对象,3--延伸) 返回 ActiveX 点 或用 vlax-invoke 调用 (setq e1 (vlax-ename->vla-object(car(entsel))) e2 (vlax-ename->vla-object(car(entsel))) ) (vlax-invoke e1 'intersectwith e2 3) |