y1982_0 发表于 2005-9-21 19:55:00

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

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

y1982_0 发表于 2005-9-21 21:12:00

<P>终于自己找到了,不易啊</P>
<P>&nbsp;</P>

mccad 发表于 2005-9-21 21:18:00

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

y1982_0 发表于 2005-9-21 21:20:00

<P>Sub test()</P>
<P>Dim ptPick As Variant<BR>Dim string1(100) As String<BR>Dim string2(100) As String<BR>Dim i As Integer<BR>For i = 1 To 5<BR>ptPick = ThisDrawing.Utility.GetPoint(, "pick")<BR>string1(i) = Left(ptPick(0), 8)<BR>string2(i) = Left(ptPick(1), 8)<BR>Next<BR>'MsgBox string1 + " " + string2</P>
<P>Open "f:\ordinate.txt" For Output As #1<BR>For i = 1 To 5<BR>Print #1, string1(i), string2(i)</P>
<P>'Write #1, string1(i), string2(i)<BR>Next<BR>Close 1</P>
<P>End Sub</P>
<P>谢谢版主,批评的是,主要是别人问我,着急了些,我写出来了</P>
页: [1]
查看完整版本: 救急！！！！！！！！！！！！！！！十万火急