Announcement

Collapse
No announcement yet.

How do i Group virtual devices?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    How do i Group virtual devices?

    Some of my devices have become separated from their original groups and i'd like to move a few around, but cant work out how to do this.

    Have searched the help file and googled but so far nothing.
    Any advice would be much appreciated.

    Cheers,
    Oli
    Attached Files

    #2
    "Google harder next time..."

    I guess its not easily done as Jon00 has a plugin...
    http://board.homeseer.com/showthread.php?t=173998

    Comment


      #3
      I use this script. Obviously you need to adapt it to what you need...

      Code:
      Sub Main(parms As Object)
      
      Dim refr As Integer = 1733
      Dim ref1 As Integer = 1724
      'Dim ref2 As Integer = 1727
      'Dim ref3 As Integer = 1728
      'Dim ref4 As Integer = 1731
      'Dim ref5 As Integer = 1730
      
      
      Dim root_dv As Scheduler.Classes.DeviceClass = Nothing
      Dim dv1 As      Scheduler.Classes.DeviceClass = Nothing
      'Dim dv2 As      Scheduler.Classes.DeviceClass = Nothing
      'Dim dv3 As      Scheduler.Classes.DeviceClass = Nothing
      'Dim dv4 As      Scheduler.Classes.DeviceClass = Nothing
      'Dim dv5 As      Scheduler.Classes.DeviceClass = Nothing
      
      
      root_dv = hs.GetDeviceByRef(refr)
      dv1 =     hs.GetDeviceByRef(ref1)
      'dv2 =     hs.GetDeviceByRef(ref2)
      'dv3 =     hs.GetDeviceByRef(ref3)
      'dv4 =     hs.GetDeviceByRef(ref4)
      'dv5 =     hs.GetDeviceByRef(ref5)
      
      
      root_dv.Relationship(hs) = 2
      dv1.Relationship(hs) = 4           
      dv1.AssociatedDevice_Add(hs, refr)
      root_dv.AssociatedDevice_Add(hs, ref1)
      'dv2.Relationship(hs) = 4           
      'dv2.AssociatedDevice_Add(hs, refr)
      'root_dv.AssociatedDevice_Add(hs, ref2)
      'dv3.Relationship(hs) = 4           
      'dv3.AssociatedDevice_Add(hs, refr)
      'root_dv.AssociatedDevice_Add(hs, ref3)
      'dv4.Relationship(hs) = 4           
      'dv4.AssociatedDevice_Add(hs, refr)
      'root_dv.AssociatedDevice_Add(hs, ref4)
      'dv5.Relationship(hs) = 4           
      'dv5.AssociatedDevice_Add(hs, refr)
      'root_dv.AssociatedDevice_Add(hs, ref5)
        
      hs.writelog("Grouper","Complete")  
      
      End Sub

      Comment


        #4
        i've asked before, but never seem to have gotten an answer, but why isn't this a default feature of HS3? It seems beyond logical that if you are going to have items displayed in groups that there is a native way to arrange those groups.

        Comment

        Working...
        X