Plot channel within script

Question

Hi Guys,
I have been using Diadem only for 1 month and I got great answers from this forum previously. This question may sound trivial but could someone tell me how to plot a channel by writing a script. So far I have this:
Call View.LoadLayout("view3")
View.Sheets("Sheet 1").Areas("Area : 1").DisplayObjType = "CurveChart2D"
View.Sheets("Sheet 1").Cursor.Type = "Frame"
View.Sheets("Sheet 1").Cursor.Mode = "GraphPoints"
The only way I have found to import a channel to this area is to Call interactioOn(), import it manually then end the interaction. I would like to do this manually, I tried this but it would give errors:
View.Sheets("Sheet 1").Areas("Area : 1").DisplayObj.Curves.Add(1,3)
 Can anyone give me a hand?
Thanks
Solved!
Go to Solution.

Answer 1

Hi Brad,
If I define previously "Sheet", "Area", "Graph" and "Curve" it works but now the rest of the script doesn't. After adding the channel there is an interaction where the user selects the part of the graph he want to keep using a band cursor, now that section is not working as when I end the interaction I get an empty channel. Could you please have a look at the script and let me know if you see the problem? I guess I have to change the way R4, R5, R6 & R7 are defined but I don't know how to do it. This script has the changes you told me to do and I comented the 3 lines of code that your solution replaces.
Thanks,
Leo
Option Explicit 'Forces the explicit declaration of all the variables in a script.
Call Data.Root.Clear() 'Clear the dataroot
'--------------- Loads Dialog box to select TDM file ---------------------------
Dim MyFileNames, iCount, Sheet, Area, Graph, Curve
Call FileNameGet("ANY", "FileRead", DataReadPath, "TDM data (*.tdm),*.tdm", "All.lst", True, "Data selection")
MyFileNames = Split(FileDlgFileName,"|")
For iCount = 0 To Ubound(MyFileNames)
Call DataFileLoad(MyFileNames(iCount))
Next
Call View.LoadLayout("view3")
Set Sheet = View.Sheets(1)
Set Area = Sheet.Areas(1)
Area.DisplayObjType = "CurveChart2D"
Set Graph = Area.DisplayObj
Call Graph.Curves.RemoveAll
Set Curve = Graph.Curves.Add("time","velocity")
'View.Sheets("Sheet 1").Areas("Area : 1").DisplayObjType = "CurveChart2D"
'View.Sheets("Sheet 1").Cursor.Type = "Frame"
'View.Sheets("Sheet 1").Cursor.Mode = "GraphPoints"
' Shows View panel, allows customer interaction for choosing two Data channels -
'---------------- and selecting two Frame cursor positions ---------------------
WndShow "View"
'- End interaction with File > End iteraction or by , or the appropriate button-
'- on the toolbar to disable the interaction mode (hand with red stop button) --
call msgboxdisp("Select Channel data and drag it onto the View panel")
call msgboxdisp("Select 2 cursor position leaving between the cursors the desired part")
Call InteractionOn() 'Allows for customer interaction to load data & select two cursor positions
'------------------------- Calculates Cursor data ------------------------------
R4 = view.Sheets("Sheet 1").Cursor.X1 'Cursor 1 X position
R5 = view.Sheets("Sheet 1").Cursor.X2 'Cursor 2 X position
R6 = view.Sheets("Sheet 1").Cursor.Y1 'Cursor 1 Y position
R7 = view.Sheets("Sheet 1").Cursor.Y2 'Cursor 2 Y position
'--------------- Stores Cursor data into the new channel groups ----------------
Dim Chlength,Chnumb,i
Chlength=CL(1)'CL calculates the channel lenght
'call msgboxdisp(Chlength,"MB_OK", "MsgTypeWarning",, 4)
Chnumb= ChnNoMax'Calculates the number of channels
For i=1 to Chnumb
if R5>R4 then
Call DataBlDel(i,R5,Chlength)
Call DataBlDel(i,1,R4)
else
Call DataBlDel(i,R4,Chlength)
Call DataBlDel(i,1,R5)
end if
Next
'-------------- Loads Dialog box for saving TDM file ---------------------------
scriptInclude("Save_File")