从AcadPoint获取坐标，并
在VBA for AutoCAD 2016中工作，我似乎不知道如何从打开的活动图形中的点提取坐标。任何帮助都将不胜感激。非常感谢。 没有太多时间，但你说的是“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呆了一段时间
Dim pt1(0 To 2) As Double
pt1=ThisDrawing.Utility.Getpoint
'pt1(0) is X pt1(1) is Y
If objENT.Name = "acpoint" Then
很接近。它给了我更多的想法。上面的线不会进入阵列。
“ssetObj.Select acSelectionSetAll”是我一直在寻找的东西之一。
非常感谢。
贾伦 我需要将其传递到一个集合中，但它在这里：
人们多久回一次自己的帖子？ 就我个人而言，我会使用X Y Z，pt1（1）的意思？或水平
应该已经发布了这个只是搜索一个点的例子是块
3 我需要的是坐标，而不是点本身。基本上，我将从调查中获得点数据作为一个整体。dxf和我将在点之间生成多段线，以显示起重机轨道的高程和跨度。我不知道我将收到多少数据点，所以我必须在每个数据点之间迭代。我还有很多路要走，但你给了我一些提示，我需要通过第一个障碍。
再次感谢！！
页:
[1]