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