VBA to Reference Files and Set Geographic Coordinates.

Re: VBA to Reference Files and Set Geographic Coordinates.

mphill — Fri, 16 Aug 2013 22:32:57 GMT

There are different options for the attachments. Have you tried something like this? Note the AddCoincident1 which allows for several mdsAdd options which the AddCoincident does not.

Set att = ActiveModelReference.Attachments.AddCoincident1(MapRefName, "Project MAP", _

"map", "True Scale World", msdAddAttachmentFlagCoincidentWorld)

Re: VBA to Reference Files and Set Geographic Coordinates.

Rob Golding — Wed, 31 Jul 2013 10:17:18 GMT

Further to this...

If i open the GIS File i want to import and set the Coordinates to MGA94-50 the Google Earth file is correct... so i know its in the right coordinates.

I'm not an expert but the only thing i can think of is the code to attach the reference... is there another way to do this through code?

Re: VBA to Reference Files and Set Geographic Coordinates.

Rob Golding — Tue, 30 Jul 2013 19:31:05 GMT

Thanks Dan,

Have tried the SendSyncKeyin and unfortunately it's the same result... the coordinate system is off and the Extract file covers the entire globe!!

Re: VBA to Reference Files and Set Geographic Coordinates.

DanPaul — Tue, 30 Jul 2013 14:03:51 GMT

Perhaps it is just a synchronization problem where you are attaching reference file earlier then it has chosen correct coordinate system. You are using SendKeyin function which just adds keyin at the end of input queue, but does not wait until it is executed. Unfortunately, VBA does not have a function to send synchronized keyin, however it can use MDL to do it.

Please, try to call ALL keyins using following SendSyncKeyin routine and let us know whether it works:

Option Explicit 
 
Declare Sub mdlInput_sendSynchronizedKeyin Lib "stdmdlbltin.dll" ( _ 
 ByVal stringP As String, ByVal literal As Long, _ 
 ByVal position As Long, ByVal taskIdP As String) 
 
Sub SendSyncKeyin(expr As String) 
  mdlInput_sendSynchronizedKeyin expr, 0, -1, vbNullString 
End Sub