fenny 发表于 2005-1-12 14:27:00

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

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


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


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

雪山飞狐_lzh 发表于 2005-1-12 15:16:00

<A href="http://www.vba.cn/object/acad2004/idh_intersectwith.htm" target="_blank" ></A>       

http://www.vba.cn/object/acad2004/idh_intersectwith.htm

fenny 发表于 2005-1-12 15:46:00

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

mccad 发表于 2005-1-12 18:46:00

先做如下定义：Const acExtendBoth = 3
Const acExtendNone = 0
Const acExtendOtherEntity = 2
Const acExtendThisEntity = 1

fenny 发表于 2005-1-13 09:15:00

谢谢


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


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

雪山飞狐_lzh 发表于 2005-1-13 13:23:00

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

fenny 发表于 2005-1-14 10:15:00

我只是想实现如下功能：


如果只有一个交点：


                              Intpoints = Circle.intersectwith(Line, 0)<BR>                                       Set IntCircle = AcadApp.addcircle(Intpoints, radius)


如果有两个交点，运行以上语句会提示出错，可能因为Intpoints返回的是两个点的数组值，我知道可以用提取该数组各值方法，确定两点的坐标值。但事实上我不想要坐标值，只想通过这两点进行下一步的操作。


如果有谁知道如何实现或者根本不能实现，请告诉我，谢谢。

fenny 发表于 2005-1-14 11:26:00

问题已经解决了，谢谢各位。
页: [1]
查看完整版本: 用vb求交点时如何定义extendoption?