[求助]怎样从图形中用鼠标获得点击点的坐标输出到一个文件中?

lzj511

用鼠标在屏幕上连续点击,使点击点的坐标输入到一个文本文件中?怎样实现?请高手帮忙!!!小弟先谢了!

tcsl9621

太简单了。先将你选择的点存到一个变量中。再将这个变量输出到一个文件就好了。

gdzhou

Dim pt As Variant
Dim n As Integer
On Error Resume Next

Open "c:\coordinates.txt" For Append As #1

pt = ThisDrawing.Utility.GetPoint(, "指定第 " & n & " 个点" & vbCrLf)

While Not IsNull(pt)

n = n + 1

Print #1, Format(pt(0), "0.000") & Chr(9) & Format(pt(1), "0.000")

pt = Null
pt = ThisDrawing.Utility.GetPoint(, "指定第 " & n & " 个点" & vbCrLf)

Wend

Close #1