syau 发表于 2002-6-7 08:58:00

VBA中是否有关于外观交点的函数？

mccad 发表于 2002-6-7 21:02:00

你可以直接用interwith方法直接得到两对象的交点

syau 发表于 2002-6-8 08:42:00

是的，这样可以得到两个实体的交点，但我是要求地形图中等高线与任意一条直线的交点

是的，这样可以得到两个实体的交点，但我是要求地形图中等高线与任意一条直线的交点！是的，这样可以得到两个实体的交点，但我是要求地形图中等高线与任意一条直线的交点！也就是说两个实体相交的话可以用interwith方法返回其交点坐标，但是如果这两个实体不相交，只是在外观上相交，即把捕捉对象中外观交点选中才能捕捉到这个外观交点，这种情况我想只能用关于外观交点的函数解决了。我听说LISP中有关于外观交点的函数，但是本人才接触二次开发，不会LISP，想能不能在VBA中找到这个函数？

mccad 发表于 2002-6-9 23:10:00

仔细看看interwith方法的各个参数吧...

可以求两线的交点，可以求线与另一线延伸线的交点，可以求线的延伸线与另一线的交点，也可以求两条线的延伸线的交点。

syau 发表于 2002-6-10 20:55:00

Sorry,I see!Thanx!

syau 发表于 2002-6-11 10:51:00

Sorry, 我试了不行！

我将ExtendOption改为acExtendBoth 还是不行，后来考虑可能是这个原因:等高线与任意直线的外观交点就像是一个标高不等于0的多段线与一条z坐标为0的直线相交,而这个函数的延伸是在一个平面内进行的,如果它们不在一个平面况且延伸也是不可能相交的!不过听说LISP有关于外观交点的函数,可惜我不会!

mccad 发表于 2002-6-11 11:45:00

可能要找到投影线才行的

wxp20032003 发表于 2010-4-27 14:43:00

我也遇到这样的问题

<p>上面的那位兄弟说的很对和我遇到的问题一模一样</p><p>真的好像找到外观交点的函数</p><p>投影的话也不知道如何解决</p>

CAD学习开发 发表于 2010-4-27 18:20:00

<div style="LINE-HEIGHT: 22px; HEIGHT: 22px;"><div style="FLOAT: left;"><img alt="发贴心情" src="http://www.mjtd.com/bbs/skins/Default/topicface/face1.gif"/></div><b>Sorry, 我试了不行！</b></div><div style="MARGIN-TOP: 10px; FONT-SIZE: 12pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">我将ExtendOption改为acExtendBoth 还是不行，后来考虑可能是这个原因:等高线与任意直线的外观交点就像是一个标高不等于0的多段线与一条z坐标为0的直线相交,而这个函数的延伸是在一个平面内进行的,如果它们不在一个平面况且延伸也是不可能相交的!不过听说LISP有关于外观交点的函数,可惜我不会!</div><div style="MARGIN-TOP: 10px; FONT-SIZE: 12pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; WORD-WRAP: break-word;"></div><div style="MARGIN-TOP: 10px; FONT-SIZE: 12pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">其实可以把z坐标为0的直线标高改为与等高线相同的标高即可，求出交点坐标后再改回去即可。我就是这样做的。</div>

gdkiky 发表于 2010-5-19 16:16:00

<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;">我也很期待此问题的答复。。。。。。</p>
页: [1] 2
查看完整版本: VBA中是否有关于外观交点的函数？