用vb求交点时如何定义extendoption?

fenny

用intersectwith方法求交点时，如何定义extendoption?


另外用此法取得点坐标，再用该坐标值继续绘图，会不会有因取舍精度引起的误差？


我在论坛找了半天没找到答案，才在此求助，谢谢帮忙。

雪山飞狐_lzh

[WEB]http://www.vba.cn/object/acad2004/idh_intersectwith.htm[/WEB]

fenny

斑竹先生，那是在vba中的，actextendnone等在vb中运行提示没有定义。

mccad

先做如下定义：

1. Const acExtendBoth = 3
2. Const acExtendNone = 0
3. Const acExtendOtherEntity = 2
4. Const acExtendThisEntity = 1

复制代码

fenny

谢谢


如果一条线段和一个圆有一个交点，可以直接取这点进行下一步操作，可是如果有两个交点，该如何操作？是不是应该有index或其他属性？


不想用坐标值另行赋值的做法。

雪山飞狐_lzh

你帮我想想办法：用AutoCad做VBA的二次开发又不想调用对象模型

fenny

我只是想实现如下功能： 如果只有一个交点： Intpoints = Circle.intersectwith(Line, 0)
Set IntCircle = AcadApp.addcircle(Intpoints, radius) 如果有两个交点，运行以上语句会提示出错，可能因为Intpoints返回的是两个点的数组值，我知道可以用提取该数组各值方法，确定两点的坐标值。但事实上我不想要坐标值，只想通过这两点进行下一步的操作。 如果有谁知道如何实现或者根本不能实现，请告诉我，谢谢。

fenny

问题已经解决了，谢谢各位。