Set ActiveWobj in VB.net

RobotStudio
1

Thanks to per svenson for greate help with CRobt() in vb.net but how do i set activeWobj to Wobj0 or another in VB.net

2

Hi Klaus
Here is a simple example where the name of the workobject is “myWobj”

Public Sub Macro_SetWobjAsActive()

Dim stn As Station = Project.ActiveProject

If stn Is Nothing Then Exit Sub

Dim dds As RsWorkObject = stn.ActiveTask.DataDeclarations(“myWobj”)

stn.ActiveTask.ActiveWorkObject = dds

End Sub

There is also a method FindDataDeclarationsByType so that you can find for example all RsWorkObject by this doesn’t seam to work in VSTA (works if you write an addin in VisulaStudio) have to do some communication with ABB about this :stuck_out_tongue_winking_eye:

3

And for C# programmers as myself

public void Macro_SetWobjAsActive()

{

Station stn = Project.ActiveProject as Station;

if (stn == null) return;

RsWorkObject wobj = (RsWorkObject)stn.ActiveTask.DataDeclarations[“myWobj”];

stn.ActiveTask.ActiveWorkObject = wobj;

}