Private Sub CommandButton1_Click() <y,c.\c!
Form1.Hide \kC'y9k
Dim a() #++D|oE
Dim txt As String w)"F=33}5
Dim point1 As Variant dp*E#XCr1
Dim point2 As Variant v)LSH;<
Dim gc As String DWk2=cO
Do B8?j"AF
point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "点的坐标:") E&> 2=$~
point2 = ThisDrawing.Utility.TranslateCoordinates(point1, acWorld, acUCS, False) P+Sgbtc
If point2(0) = "0" And point2(1) = "0" Then SBamgc
Exit Do LCok4N$o
End If jluv}*If
n = n + 1 $qM&iI-l0
ReDim Preserve a(1 To 4 * n) :Oi}X7\
If Check1.Value Then O5A]{W
txt = ThisDrawing.Utility.GetString(0, vbCrLf & "点号:") '$q3Ze
a(4 * n - 3) = txt (4FZK7Fm
Else =wFl(Q6J
a(4 * n - 3) = n 4+F@BxpB
End If G-Zn-I
F2dwT
If Check2.Value Then HnY.=_G
gc = ThisDrawing.Utility.GetString(0, vbCrLf & "点的高程:") ;H"OZRQ
a(4 * n) = gc hCB _g
Else 8,]wOxwqi
a(4 * n) = 0 H.)J?3
End If fq !CB]C
a(4 * n - 2) = point2(0) 6Q}>=R^h
a(4 * n - 1) = point2(1) N'I9J?e Q
Loop sxPvi0>
CommonDialog1.ShowSave d"}lh:L9
Open CommonDialog1.FileName For Output As #1 y+$a}=cb0
For i = 1 To n @4P_Yfn
a(4 * i - 2) = Format(a(4 * i - 2), "0.000") ,gIeQ!+vy
a(4 * i - 1) = Format(a(4 * i - 1), "0.000") XZj3x',;
Print #1, a(4 * i - 3) & "," & a(4 * i - 2) & "," & a(4 * i - 1) & "," & a(4 * i) ez[$;>
Next OTmr-l6
Close #1 -;GB Xq
)C$1))
8FgF6ip
F-2Q3+7$
End Sub