AutoCAD Map 3D Developer

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

vba - coordinate transformation

290 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

Welcome to the new Autodesk Community!
If this is your first visit, click here to get started and make the most of the Community. Let us know what you think of the new experience in the Community Feedback Forum.

Need installation help?

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

Ask the Community