pyqzww 发表于 2003-5-20 15:12:00

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

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

efan2000 发表于 2003-5-21 12:32:00

Inser Position指什么？

pyqzww 发表于 2003-5-21 14:23:00

是一点！

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

mccad 发表于 2003-5-21 17:48:00

呵呵，主要是跟你说Inser拼写有错，应该为Insert

efan2000 发表于 2003-5-21 21:01:00

主要是GetPoint的用法

本帖最后由 efan2000 于 2003-5-21 21:01:25 编辑

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
页: [1]
查看完整版本: efan版主，怎样获取点的坐标？