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

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

用intersectwith方法求交点时，如何定义extendoption?
另外用此法取得点坐标，再用该坐标值继续绘图，会不会有因取舍精度引起的误差？
我在论坛找了半天没找到答案，才在此求助，谢谢帮忙。

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

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

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

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

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

先做如下定义：复制代码

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

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

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

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

发表回复

精选推荐