|
发表于 2005-9-21 21:20:00
|
显示全部楼层
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
谢谢版主,批评的是,主要是别人问我,着急了些,我写出来了 |
|