Hi, all
I'm troubling with the subjected api macro.
I want to create a XY-plot with known node ID.
Can anybody advise me which part is incorrect?
============================================================================
SetLocale("en-us")
Set Synergy = CreateObject("synergy.Synergy")
Synergy.SetUnits "Metric"
Set PlotManager = Synergy.PlotManager()
Set Plot = PlotManager.CreatePlotByDsID(1180, True)
Plot.SetXYPlotShowLegend True
Set Viewer = Synergy.Viewer()
Viewer.ShowPlot Plot
Set PlotManager = Synergy.PlotManager()
Set Plot = Viewer.ActivePlot()
Set Plot = EntList.SelectFromString "N20258"
Plot.SaveXYPlotCurveData "%MY_DOCUMENTS%\My ASMI 2013 Projects\test\output.txt"
Set PlotManager = Synergy.PlotManager()
Set Plot = PlotManager.FindPlotByName2("Pressure:XY Plot", "Pressure")
Set Viewer = Synergy.Viewer()
Viewer.HidePlot Plot
============================================================================
Best Regards,
Solved! Go to Solution.
Solved by nordhb. Go to Solution.
Hi,
please, see below.
Regards,
Berndt
'==============================================================
SetLocale("en-us")
Set Synergy = CreateObject("synergy.Synergy")
Synergy.SetUnits "Metric"
Set StudyDoc = Synergy.StudyDoc()
Set EntList = StudyDoc.CreateEntityList() '* create an empty entity list
Set PlotManager = Synergy.PlotManager()
Set Plot = PlotManager.CreatePlotByDsID(1180, True)
Plot.SetXYPlotShowLegend True
Set Viewer = Synergy.Viewer()
Set PlotManager = Synergy.PlotManager()
Set Plot = Viewer.ActivePlot()
Set PlotManager = Synergy.PlotManager()
Set Plot = PlotManager.FindPlotByName2("Pressure:XY Plot", "Pressure")
Set Viewer = Synergy.Viewer()
EntList.SelectFromString "N20258" '* popoulate the entity list
Plot.AddXYPlotCurve(EntList) '* plot the curve of entity
Viewer.ShowPlot Plot
'==============================================================