How to programatically cut data in view

Question

Hi There,
I have a requirement to programatically load data and display the 2-DAxis curve in view. Once the curve is displayed, the user can toggle a band cursor and with its help cut/tuncate data. All this needs to be achieved programatically. I am able to achive until setting the band cursor but could not find a means where to cut the data programatically. Can someone please help me out with the same.
Thanks in advance
Priya

Answer 1

Hi Priya,
I believe this is what you're describing.
OPTION EXPLICIT
Dim Sheet, Cursor, Area, Curve, Xch, Ych, Xmin, Xmax, TempCh, Start, Delta
Set Sheet = View.ActiveSheet
Set Cursor = Sheet.Cursor
Set Area = Sheet.Areas(1)
IF Area.DisplayObjType <> "CurveChart2D" THEN Call AutoQuit("Region clearing only works on 2D graph VIEW Areas")
IF Cursor.Type <> "Band" THEN Call AutoQuit("Region clearing only works with the VIEW band cursor")
IF NOT Area.DisplayObj.Curves.Count > 0 THEN Call AutoQuit("Your 2D graph in VIEW has no curves configured")
Set Curve = Area.DisplayObj.LeadingCurve
Xch = Curve.XChannelName : L1 = CNo(Xch)
Ych = Curve.YChannelName : L2 = CNo(Ych)
Xmin = MinV(Cursor.X1, Cursor.X2) : R1 = Xmin
Xmax = MaxV(Cursor.X1, Cursor.X2) : R2 = Xmax
TempCh = CNo("/TempIndexChannel")
IF TempCh > 0 THEN Call ChnDel(TempCh)
IF Xch = "" THEN
IF ChnPropValGet(Ych, "waveform") = "Yes" THEN
Start = ChnPropValGet(Ych, "wf_start_offset")
Delta = ChnPropValGet(Ych, "wf_increment")
ELSE
Start = 1
Delta = 1
END IF
TempCh = ChnLinGenImp("TempIndexChannel", ChnLength(L2), Start, Delta)
Xch = CStr(TempCh)
TempCh = "\Delete/"
L1 = CNo(Xch)
END IF
Call FormulaCalc("Ch(L2):= Ch(L2) + NoValue*((Ch(L1)>=R1) AND (Ch(L1)<=R2))")
IF TempCh = "\Delete/" THEN Call ChnDel(Xch)
Call WndShow("VIEW")
Brad Turpin
DIAdem Product Support Engineer
National Instruments