'////////////////////////////////////////////////////////////////////////////////
'//        Author:   Zrs (QQ:214849790)
'//          Date:   23-05-2019 02:37 PM
'//     File Name:   0Batch_Arc_Color_Set.vbs
'//   Description:   Batch setting arc color
'//      Comments:   <insert comments here> 
'////////////////////////////////////////////////////////////////////////////////


'///////////////// My Constants /////////////////
Const dblDiameter1=2.5
Const lngColour1=9
Const dblDiameter2=3.3
Const lngColour2=10
Const dblDiameter3=4.2
Const lngColour3=11
Const dblDiameter4=5.0
Const lngColour4=62
Const dblDiameter5=6.8
Const lngColour5=95


'///////////////// My Global Variables //////////

' -- Start Script
Call Main()


' ////////////////////
' Sub Declaration
' ////////////////////
Sub Main()
    
    Call ChangeColer(dblDiameter1,lngColour1)
    Call ChangeColer(dblDiameter2,lngColour2)
    Call ChangeColer(dblDiameter3,lngColour3)
    Call ChangeColer(dblDiameter4,lngColour4)
    Call ChangeColer(dblDiameter5,lngColour5)


End Sub


' ////////////////////
' Function Declaration
' ////////////////////

Function ChangeColer(setDia,setColor)
   Dim bRet,bOk
   Dim CArc,dblArcDia
   
   bRet = StartDBSearch(mc_alive, mc_arctype)    ' -- Select all arcs
   Do                               ' -- Start cycle
     Set CArc = New McAr            ' -- Instantiate a new Arc class object
     bOk = GetArcData(-1, CArc)     ' -- See if we returned a valid object
     If bOk Then                    ' -- Success ?                
         dblArcDia = (CArc.R * 2)   ' -- Get this arcs diameter
         If dblArcDia=setDia And CArc.SW = 360 Then     ' -- Arc diameter same and Full circle
            Call SetEntityColor(setColor)               ' -- Set Color
         End If
     End If
     Set CArc = Nothing             ' -- Restore
     bRet = NextDBSearch()          ' -- Get the next entity
   Loop While bRet
   Call RepaintScreen(False)
End Function