#include #include #include #include #include #include #include #include #include #include #include #include #include "GUIScrollbars_Ex.au3" Global $PoleCreationTab = "" Global $PoleCreationTabNum = "" Global $test = "" Opt("GUIOnEventMode", 1) ; $ASEStandardPrintTabGUI = GUICreate("",965,745,15,35) $child_tab = GUICtrlCreateTab(10,10,950,3000) $ASECommonSymbolsSubTab = GUICtrlCreateTabItem("Common Symbols") GUICtrlCreateLabel("Note/Symbol:",30,75) GUICtrlCreateLabel("# Instances:",250,75) GUICtrlCreateLabel("Note/Symbol:",380,75) GUICtrlCreateLabel("# Instances:",600,75) GUICtrlCreateLabel("To Print #",700,75) Global $APEveryPrintNotesCheckBox = GUICtrlCreateCheckbox("Every Print Notes",30,90) Global $APBoldCOArrowCheckBox = GUICtrlCreateCheckbox("CO Arrow(Bold)",30,120) Global $APBoldCOArrowInput = GUICtrlCreateInput("0",250,120,50,20) Global $APTGBCheckBox = GUICtrlCreateCheckbox("TGB",30,150) Global $APTGBInput = GUICtrlCreateInput("0",250,150,50,20) Global $APBLDGCheckBox = GUICtrlCreateCheckbox("BLDG Ground",30,180) Global $APBLDGInput = GUICtrlCreateInput("0",250,180,50,20) Global $APOverlashCheckBox = GUICtrlCreateCheckbox("Overlash Symbol",30,210) Global $APOverlashInput = GUICtrlCreateInput("0",250,210,50,20) Global $APCMPHDetailCheckBox = GUICtrlCreateCheckbox("CMPH Pull Through Detail",30,240) Global $APCMPHDetailInput = GUICtrlCreateInput("0",250,240,50,20) Global $APRoadCheckBox = GUICtrlCreateCheckbox("Road Lines + Text",30,270) Global $APRoadInput = GUICtrlCreateInput("0",250,270,50,20) Global $APFiberPlacedOneStepCheckBox = GUICtrlCreateCheckbox("Fiber Placed One Step Note",30,300) Global $APFiberPlacedOneStepInput = GUICtrlCreateInput("0",250,300,50,20) Global $APAggrStepsCheckBox = GUICtrlCreateCheckbox("Aggregate Steps Note",30,330) Global $APAggrStepsInput = GUICtrlCreateInput("0",250,330,50,20) Global $APTraceSafeCheckBox = GUICtrlCreateCheckbox("Trace Safe Note",30,360) Global $APTraceSafeInput = GUICtrlCreateInput("0",250,360,50,20) Global $APHHDetailCheckBox = GUICtrlCreateCheckbox("HH Pull Through Detail",380,90) Global $APHHDetailInput = GUICtrlCreateInput("0",600,90,50,20) Global $AP100ExistLoopCheckBox = GUICtrlCreateCheckbox("100' Existing Loop",380,120) Global $AP100ExistLoopInput = GUICtrlCreateInput("0",600,120,50,20) Global $AP6MLashCheckBox = GUICtrlCreateCheckbox("6M Lash Text",380,150) ;Global $AP6MLashInput = GUICtrlCreateInput("0",600,150,50,20) Global $AP66MLashCheckBox = GUICtrlCreateCheckbox("6.6M Lash Text",380,180) ;Global $AP66MLashInput = GUICtrlCreateInput("0",600,180,50,20) Global $AP10MLashCheckBox = GUICtrlCreateCheckbox("10M Lash Text",380,210) ;Global $AP10MLashInput = GUICtrlCreateInput("0",600,210,50,20) Global $AP6MNewStrandCheckBox = GUICtrlCreateCheckbox("6M New Strand Text",380,240) ;Global $AP6MNewStrandInput = GUICtrlCreateInput("0",600,240,50,20) Global $AP66MNewStrandCheckBox = GUICtrlCreateCheckbox("6.6M New Strand Text",380,270) ;Global $AP66MNewStrandInput = GUICtrlCreateInput("0",600,270,50,20) Global $AP10MNewStrandCheckBox = GUICtrlCreateCheckbox("10M New Strand Text",380,300) ;Global $AP10MNewStrandInput = GUICtrlCreateInput("0",600,300,50,20) Global $APTieInLineCheckBox = GUICtrlCreateCheckbox("Tie-In Line",380,330) Global $APTieInLineInput = GUICtrlCreateInput("0",600,330,50,20) Global $APToPrint1Input = GUICtrlCreateInput("",700,90,50,20) Global $APToPrintAuot1Checkbox = GUICtrlCreateCheckbox("Auto-Through?",770,90) Global $APToPrint2Input = GUICtrlCreateInput("",700,120,50,20) Global $APToPrintAuot2Checkbox = GUICtrlCreateCheckbox("Auto-Through?",770,120) Global $APToPrint3Input = GUICtrlCreateInput("",700,150,50,20) Global $APToPrintAuot3Checkbox = GUICtrlCreateCheckbox("Auto-Through?",770,150) Global $APToPrint4Input = GUICtrlCreateInput("",700,180,50,20) Global $APToPrintAuot4Checkbox = GUICtrlCreateCheckbox("Auto-Through?",770,180) GUICtrlCreateLabel("Lets do some basic prints. This will do every non-final PFP or ASE Print.",30,600) GUICtrlCreateLabel("Fill out every tab under Standard Prints Tab before hitting the big button.",30,630,450,30) Global $StandardPrintButton = GUICtrlCreateButton("Create Standard Print", 170,660,180,60) ;GUICtrlSetOnEvent($StandardPrintButton, "StandardPrint") $ASETaskingSubTab = GUICtrlCreateTabItem("Tasking") $ASEUGBuriedSubTab = GUICtrlCreateTabItem("UG/Buried") $ASEAerialSubTab = GUICtrlCreateTabItem("Aerial") $ASEPolesSubTab = GUICtrlCreateTabItem("Poles(Lots of em)") $PoleCreationTab = "AP" $PoleCreationTabNum = 10 CreatPoleGUI() GUICtrlCreateTabItem("") GUISetState() _GUIScrollbars_Generate($ASEStandardPrintTabGUI, 0, 3000) GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEButton") GUISetState(@SW_SHOW, $ASEStandardPrintTabGUI) Func CreatPoleGUI() Local $arrPoleGUICreate[5][38] = _ ;Following should write all the pole inputs for 10 poles [ _ ["PoleNum","Tag","Tag","Class","Class","LabelOrient","LabelOrient","MGNVPole","MGNVPole","ExistGuy","NewGuy","RemoveGuy","GuyOrient","GuyClass","GuyClass","GuyPull","GuyPull","AncDist","GuyHeight","AncDistFt","AncDistIn","GuyHeightFt","GuyHeightIn","P2P","P2P","P2POrient","TreeTrim","TreeTrim","TreeTrim","RdClr","RdClrFt","RdClrIn","Transf","Riser","RiserDir","RiserOrient","RiserOrient","AttachZ"], _ ["Label","Label","Input","Label","Input","Label","Combo","Checkbox","Combo","Checkbox","Checkbox","Checkbox","Combo","Label","Combo","Label","Input","Label","Label","Input","Input","Input","Input","Label","Input","Combo","Label","Input","Combo","Label","Input","Input","Checkbox","Input","Combo","Label","Combo","Label"], _ ["Pole #","Pole Tag","","Pole Class","","Pole Label Orient","N","MGNV","N","Exist DG","New DG","Remove DG","N","New Guy Class","1-6M","New Guy Pull","","Anc Dist (Ft,Inch):","New Guy Height (Ft,Inch)","","","","","P2P Distance","","N","Twee Twim","","U","Rd Clr (Ft,Inch):","","","Transfer?","","U","Riser Orient","N",""], _ ["0","0","80","180","280","0","80","180","280","0","80","180","280","0","80","180","280","0","180","0","80","180","280","0","80","180","230","290","350","0","80","180","280","0","80","180","280","0"], _ ["0","30","30","30","30","60","60","60","60","90","90","90","90","120","120","120","120","150","150","180","180","180","180","210","210","210","210","210","210","240","240","240","270","270","270","270","270"] _ ] For $i = 1 to $PoleCreationTabNum Local $x = "" Switch $i Case 1,3,5,7,9 $x = 30 Case Else $x = 420 EndSwitch Local $y = "" Switch $i Case 1 To 2 $y = 100 Case 3 To 4 $y = 680 Case 5 To 6 $y = 1260 Case 7 To 8 $y = 1840 Case 9 To 10 $y = 2420 EndSwitch For $j = 0 to UBound($arrPoleGUICreate, 2)-1 Local $GUIType1 = $arrPoleGUICreate[0][$j] Local $GUIType2 = $arrPoleGUICreate[1][$j] Assign($PoleCreationTab & $i & $GUIType1 & $GUIType2,"",2) Switch $GUIType2 Case "Label" Local $GUIType1 = $arrPoleGUICreate[0][$j] Switch $GUIType2 Case "PoleNum" GUICtrlCreateLabel($arrPoleGUICreate[2][$j] & $i,$arrPoleGUICreate[3][$j]+$x,$arrPoleGUICreate[4][$j]+$y) Case Else GUICtrlCreateLabel($arrPoleGUICreate[2][$j],$arrPoleGUICreate[3][$j]+$x,$arrPoleGUICreate[4][$j]+$y) EndSwitch Case "Input" Switch $GUIType1 Case "Tree Trim" Assign($PoleCreationTab & $i & $GUIType1 & $GUIType2,"") = GUICtrlCreateInput($arrPoleGUICreate[2][$j],$arrPoleGUICreate[3][$j]+$x,$arrPoleGUICreate[4][$j]+$y,40) Case Else GUICtrlCreateInput($arrPoleGUICreate[2][$j],$arrPoleGUICreate[3][$j]+$x,$arrPoleGUICreate[4][$j]+$y,50,20) EndSwitch Case Else GUICtrlCreateLabel($arrPoleGUICreate[2][$j],$arrPoleGUICreate[3][$j]+$x,$arrPoleGUICreate[4][$j]+$y) EndSwitch Next Next EndFunc While 1 Sleep(10) WEnd Func CLOSEButton() Exit EndFunc ;==>CLOSEButton