从AcadPoint获取坐标，并

Jalen Weir · 发表于 2022-7-6 21:57:27

在VBA for AutoCAD 2016中工作，我似乎不知道如何从打开的活动图形中的点提取坐标。任何帮助都将不胜感激。

非常感谢。

BIGAL · 发表于 2022-7-6 22:11:37

没有太多时间，但你说的是“Autocad点”吗

其次，随着VBA逐渐被删除，您可以使用lisp吗。

获取选择集的示例

DDim objENT As AcadEntity
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("MYSS6")
ssetObj.Select acSelectionSetAll
For Each objENT In ssetObj
objENT.color = acByLayer
objENT.Linetype = "ByLayer"
Next objENT

还有几次可能在VBA呆了一段时间

copy

Dim pt1(0 To 2) As Double
pt1=ThisDrawing.Utility.Getpoint
'pt1(0) is X pt1(1) is Y 
If objENT.Name = "acpoint" Then

Jalen Weir · 发表于 2022-7-6 22:24:27

很接近。它给了我更多的想法。上面的线不会进入阵列。
“ssetObj.Select acSelectionSetAll”是我一直在寻找的东西之一。

非常感谢。
贾伦

Jalen Weir · 发表于 2022-7-6 22:35:40

我需要将其传递到一个集合中，但它在这里：

人们多久回一次自己的帖子？

BIGAL · 发表于 2022-7-6 22:49:53

就我个人而言，我会使用X Y Z，pt1（1）的意思？或水平
应该已经发布了这个只是搜索一个点的例子是块

copy

Jalen Weir · 发表于 2022-7-6 23:00:47

我需要的是坐标，而不是点本身。基本上，我将从调查中获得点数据作为一个整体。dxf和我将在点之间生成多段线，以显示起重机轨道的高程和跨度。我不知道我将收到多少数据点，所以我必须在每个数据点之间迭代。我还有很多路要走，但你给了我一些提示，我需要通过第一个障碍。

再次感谢！！

[编程交流] 从AcadPoint获取坐标，并

发表回复

精选推荐