VBA：单击选择两条多段线

n.yuan · 发表于 2014-1-1 11:36:59

&nbsp&nbsp；我有两条具有公共线段的多段线。使用VBA，我打算单击公共段并选择两者，并将其分配给两个变量，即tri1和tri2&nbsp；两者的Getentity都需要单击两次
&nbsp；我尝试了getentity后跟selectatpoint，但selectatpoint并不总是成功的
&nbsp；有人能给我一套可以做到这一点的命令吗
&nbsp；也发布在：
http://www.experts-exchange.com/Software/Photos_Graphics/CAD_Architecture/Q_28317360.htmlhttp://forums.augi.com/showthread.php?153750-VBA通过单击选择两条多段线

Cathy · 发表于 2014-1-2 11:22:02

对于VBA代码，有两种方法可以做到这一点，正如我所想的那样：
1。使用您可能已经使用的GetEntity（）。获取第一条多段线后，将其与图形中的所有其他多段线进行比较（当然，可以通过创建一个选择集来缩小要比较的多段线的范围，该选择集带有一个围绕拾取点进行选择的小窗口）。由于两条多段线共享一个公共线段，因此两条多线段必须有两个相等的顶点。使用GetPoint（）拾取捕捉到公共线段的点。然后创建一个临时AcadPoint对象，并使用IntersectWith（）查找2条多段线
为了让事情变得更简单，你能用AcadSelectionSet吗。选择屏幕（）？

Cathy · 发表于 2014-1-2 15:43:52

我使用了AcadSelectionSet。选择Atpoint可执行类似操作&nbsp；没有理由先执行GetEntity&nbsp；本人&#039；我不知道为什么你的SelectAtPoint并不总是成功&nbsp；也许您需要将osnap设置设置为SelectAtPoint之前的最近值？

VBA：单击选择两条多段线

发表回复

精选推荐