救急！！！！！！！！！！！！！！！十万火急

y1982_0

得到鼠标点选得点坐标 ！！！！！！！！！！！！1111

y1982_0

终于自己找到了,不易啊

 

mccad

看你的发帖数了也不少了，这样的问题应该可以自己解决。所以有问题自己要先想办法解决，不要一碰到问题就拿上来问，这样对自己没有多大的提高。

y1982_0

Sub test()

Dim ptPick As Variant
Dim string1(100) As String
Dim string2(100) As String
Dim i As Integer
For i = 1 To 5
ptPick = ThisDrawing.Utility.GetPoint(, "pick")
string1(i) = Left(ptPick(0), 8)
string2(i) = Left(ptPick(1), 8)
Next
'MsgBox string1 + " " + string2

Open "f:\ordinate.txt" For Output As #1
For i = 1 To 5
Print #1, string1(i), string2(i)

'Write #1, string1(i), string2(i)
Next
Close 1

End Sub

谢谢版主,批评的是,主要是别人问我,着急了些,我写出来了