AutoCAD Map 3D Developer

Posts: 5
Registered: ‎10-25-2011
Message 1 of 1 (321 Views)

vba - coordinate transformation

321 Views, 0 Replies
12-19-2012 12:43 PM

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

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community