efan版主，怎样获取点的坐标？

pyqzww

在AutoCAD中的图形，用鼠标点取一点，用VBA怎样获取这点的坐标？

efan2000

pyqzww

是图形上的一点，比如叫P1

mccad

efan2000

GetPoint 方法提示用户在 AutoCAD 命令提示下给出点的定义。该方法接收两个参数：可选的起始点和提示字符串。如果提供了起始点，AutoCAD 将从该点绘制一条拖引线。它的返回值是一个三维的Double型数组，要使用Variant型的变量来存放。
下面的样例提示用户输入两个点，然后以这两个点为起点和端点绘制一条直线。

Sub Ch3_GetPointsFromUser()
    Dim startPnt As Variant
    Dim endPnt As Variant
    Dim prompt1 As String
    Dim prompt2 As String
   
    prompt1 = vbCrLf & "Enter the start point of the line: "
    prompt2 = vbCrLf & "Enter the end point of the line: "
   
    ' 在不输入基点的情况下获取第一点
    startPnt = ThisDrawing.Utility.GetPoint(, prompt1)
   
    ' 使用上面输入的点作为基点
    endPnt = ThisDrawing.Utility.GetPoint(startPnt, prompt2)
   
    ' 使用输入的两个点创建一条直线
    ThisDrawing.ModelSpace.AddLine startPnt, endPnt
    ThisDrawing.Application.ZoomAll
End Sub