vba - coordinate transformation

[bill.schooler]

Several question on coordinate transformation

Question 1.

I have three autocad map on my machine Autocad map 6, Autocad Map 3D 2012 and AutoCad Map 3D 2013 how do I tell which proper application name for Autocad Map 6? This line of code is failing Set oMap = Application.GetInterfaceObject("AutocadMap.Application")

Question 2 How do I set the source projection coordinates system to LL83?

Question 3 How do I set the destination projection coordinates system to UTM83-20F?

Question 4 How do I reproject some x,y from ll83 to UTM83-20F?

In lisp command look like these:

(ade_projsetsrc "LL83")
(ade_projsetdest "UTM83-20F")

Public Sub TEST()
Dim oMap As AcadMap
Dim oProj As Project
Dim oQuery As Query
Dim oRoot As QueryBranch
Dim oLeaf As QueryLeaf
Dim oAllBoundary As AllBound
Dim oRange As RangeTable
Dim oRangeLine As Range
Dim oAlteration As AlterLine '' handle exceptions inline

Set oMap = Application.GetInterfaceObject("AutocadMap.Application")
Set oProj = oMap.Projects(ThisDrawing) '' get and clear current query
Set TEMP = oProj.MapUtil.NewPoint3d(45, -90, 0)
End Sub