 Search the Knowledgebase |
 Browse by Category |
|
|
|
| How can I overlay maps and set new limits and scale? |
| User Opinions |
66%
33%
|
|
Thank you for rating this answer.
|
Set the OverlayMaps command to a new object, and then set the limits and scale of the new object.
For example:
Sub Main
Dim SurferApp, Plot, ContourMapFrame, ContourMap, _
ClassedPostMapFrame, ClassedPostMap, BaseMapFrame, BaseMap, _
Shapes As Object
Set SurferApp = CreateObject ("Surfer.Application")
SurferApp.Visible = True
Set Plot = SurferApp.Documents.Add(srfDocPlot)
Set ContourMapFrame = Plot.Shapes.AddContourMap (SurferApp.Path+"/samples/demogrid.grd")
Set ContourMap = ContourMapFrame.Overlays
Set BaseMapFrame = Plot.Shapes.AddBaseMap (SurferApp.Path+"/samples/demoslice.bln")
Set BaseMap = BaseMapFrame.Overlays
Set ImageMapFrame = Plot.Shapes.AddImageMap(SurferApp.Path+"/samples/demogrid.grd")
Set ImageMap = ImageMapFrame.Overlays
ContourMapFrame.Selected = True
BaseMapFrame.Selected = True
ImageMapFrame.Selected = True
Set NewMapFrame = Plot.Selection.OverlayMaps
NewMapFrame.SetLimits(4,7,3,6)
NewMapFrame.xMapPerPU=0.5
NewMapFrame.yMapPerPU=0.5
End Sub
|
| Visitor Comments |
|
No visitor comments posted. Post a comment
|
| Attachments |
|
No attachments were found.
|
Print this page
Email this page
Post a comment