使用 VBA 在 autocad 中自动化数据

问题描述

我有一个 autocad dwg 格式的绘图文件，它以文本形式显示树及其树编号。现在我想创建一个包含树号及其坐标详细信息的excel文件。到目前为止，我已经实现了遍历树对象，然后用户必须输入树号。这个过程可以使用邻近度计算自动化，即代码搜索最近的文本，然后将文本中的树号附加到 Excel 表上的树上。

解决方法

您可以使用 SelectionSet 来选择树内的文本。更多您可以在此处查看示例。

https://www.engram9.info/autocad-2006-vba/selecting-entities.html

应该是这样的：

Dim p1 As Variant
Dim p2 As Variant

tree.GetBoundingBox p1,p2

Set objSS = ThisDrawing.SelectionSets.Add("TestSelectSS")
objSS.Select acSelectionSetWindow,p1,p2 

请小心。只是手写的，不知道会不会跑，只是想给你指点方向。 然后你需要遍历 objSS ，并获得你想要的文本。您也可以使用 SelectionSet 过滤器，因此 objSS.Select 将只返回文本。