How to get coordinates!

[gilseorin]

Hi, all!
Any help, I would be happy and appreciated.
First, I pick a point on the Model Space of the CAD.
Second, I want to get the point's coordinates in my text file named 'Test.txt ' .

Sub CoordinatesToText()
Dim AutoCADObject As AcadApplication = GetObject(, "AutoCAD.Application")
Dim Thisdrawing As Object = AutoCADObject.ActiveDocument

Dim OpenFile As String
OpenFile = "C:\Test.txt"
Dim filenumber As Integer
filenumber = 1
Dim varPnt As Object
varPnt = Thisdrawing.Utility.GetPoint(, vbCrLf & "Pick a point to export to the Text.txt file:")
OpenWrite(OpenFile)
Print(filenumber, varPnt)
End Sub

[Anonymous]

Dim varPnt As Object

varPnt = Thisdrawing.Utility.GetPoint(, vbCrLf & "Pick a point to export to
the Text.txt file:")

MsgBox "x=" & varPnt(0) & vbcr & "y=" & varPnt(1) & "z=" & varPnt(2)

...



wrote in message news:5421196@discussion.autodesk.com...
Hi, all!
Any help, I would be happy and appreciated.
First, I pick a point on the Model Space of the CAD.
Second, I want to get the point's coordinates in my text file named
'Test.txt ' .

Sub CoordinatesToText()
Dim AutoCADObject As AcadApplication = GetObject(,
"AutoCAD.Application")
Dim Thisdrawing As Object = AutoCADObject.ActiveDocument

Dim OpenFile As String
OpenFile = "C:\Test.txt"
Dim filenumber As Integer
filenumber = 1
Dim varPnt As Object
varPnt = Thisdrawing.Utility.GetPoint(, vbCrLf & "Pick a point
to export to the Text.txt file:")
OpenWrite(OpenFile)
Print(filenumber, varPnt)
End Sub

[gilseorin]

Sorry,but I want to confirm the information of the coordinates in the text file named 'Test.txt".
Plz, help me.

[NathTay]

Dim objFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("C:\Test.txt"
, False)
objFile.WriteLine(varPnt.ToString)
objFile.Close()

[NathTay]

Sorry replace varPnt.ToString with what Norman posted for his msgbox.

Regards - Nathan

[gilseorin]

Thank you very much.
I corrected your code a bit.
objFile.WriteLine(varPnt(0).ToString & vbTab & varPnt(1).ToString & vbTab & varPnt(2) & vbCrLf)

It does a good job.
May happy day!