[求助]用vba怎样实现像填充时点击一点拾取一个封闭区域的功能？

happymeson

请问，用vba怎样实现像填充时点击一点拾取一个封闭区域的功能？
我想测定封闭区域的面积，该如何实现？

选择该区域的思路或者关键语句能给个提示吗？
谢谢各位大大先~~~

night1001

好帖子不要沉啊，我先顶一个

但是我也不知道该怎么做，不能给楼主提供什么建设性的建议了

关注中。。。

happymeson

严重对这里的人的热心程度表示怀疑~~~

难道就没有人知道怎么样对内部孤岛进行分析吗？

tnt1095

提供个思想:

  用cad自己带的功能"_label"功能.先记录有多少个实体(n),如果"label"使用成功后,必然后(n+1)个实体,通过item(n+1)的方法得到这个实体，这时候你就可以得到它的面积了．

happymeson

完全没有不懂，cad 的label功能是什么功能阿？google 了 没有发现，只发现了label是form的属性阿

能详细解答一下吗？我新手，比较菜。先谢谢了

tnt1095

抱歉，说错了，是＂boundary＂功能

其他同上面我说的

happymeson

搞定，谢谢楼上的解答

代码如下：

n = ThisDrawing.ModelSpace.Count
ThisDrawing.SendCommand ("snap" & vbCr & "off" & vbCr)  '关闭捕捉功能
pt = ThisDrawing.Utility.GetPoint(, vbCr & "指定下一内部点：" & vbCr) '取得内部点
If Err Then
Err.Clear
Exit Function
End If
ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
If ThisDrawing.ModelSpace.Count > n Then
Set objPoly = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
Else
MsgBox "未发现有效的边界。"
Exit Function
End If

再次感谢楼上的高人

cqy

感谢happymeson！