аЯрЁБс>ўџ ўџџџ{яџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCommonDialogMod ,џџџџџџџџcR__SRP_6џџџџџџџџџџџџТV__SRP_7%)џџџџН(ProgressBarџџџџџџџџџџџџEя9__SRP_8џџџџџџџџџџџџЅњ__SRP_9(џџџџatLayerKeysModџџџџ-џџџџCA__SRP_cџџџџџџџџџџџџAJRoot Entryџџџџџџџџ`Тш50ФШ@IVBA_Projectџџџџ"p”Лѕ.ФШ`Тш50ФШVBAџџџџџџџџpОѕ.ФШ№ж{E/ФШUserForm1џџџџ `1Хѕ.ФШ`ЂЧѕ.ФШ§џџџ Ч У&ўџџџ !"#$%('М)ўџџџ+,-./0123456789:;<=>?@ўџџџBCDbFGHIJKLMNOPQRSTUVWXYZ[\]^_`aўџџџrdefghijklmnopqўџџџдtuvwxyz|§џџџ}~€PROJECTwmџџџџџџџџџџџџ цPROJECTџџџџfџџџџџџџџџџџџtoџџџџrd ўџџџўџџџ !"#$%&ўџџџ()*+,-./0123456789:;<=>ўџџџ@ўџџџBўџџџDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ўџџџbcdefghijlmnoўџџџqўџџџsўџџџuvwxўџџџzўџџџ|}~ўџџџ€ID="{E8F2F545-249B-473D-9706-6004F8B9B065}" Document=ThisDrawing/&H00000000 Class=cls_LayerKey Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Class=ProgressBar Module=CommonDialogMod Module=LayerKeysMod HelpFile="" Name="LayerKey08" HelpContextID="0" Description="Layer Key Compare and Copy between Layer Key Styles" VersionCompatible32="393222000" CMG="6B69D5D3CDD7CDD7CDD7CDD7" DPB="5F5DE1EF21171418141814" GC="5351EDFBE0FCE0FC1F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 22, 871, 388, cls_LayerKey=13, 57, 919, 473, UserForm1=0, 0, 847, 416, , 132, 174, 740, 590, Z ProgressBar=154, 203, 730, 619, CommonDialogMod=44, 58, 620, 474, LayerKeysMod=88, 116, 664, 532, ThisDrawingThisDrawingcls_LayerKeycls_LayerKeyUserForm1UserForm1ProgressBarProgressBarCommonDialogModCommonDialogModLayerKeysModLayerKeysModrU€€€~~~~~~~~~~~~~~~~_ aџџџџџџџџџџџџџџџџџџџџ  3Layer Key Compare and Copy between Layer Key Styles ™blnSafetycheck q a( 9Љ8 БH YX љh Yi21џџџџџџџџ n`єЮ›ЭЊ`Ž`ЂЧѕ.ФШ`ЂЧѕ.ФШi28  n`єЮ›ЭЊ`Ž`ЂЧѕ.ФШ`ЂЧѕ.ФШi37џџџџџџџџ n`єЮ›ЭЊ`Ž`ЂЧѕ.ФШ`ЂЧѕ.ФШi43  n`єЮ›ЭЊ`Ž`ЂЧѕ.ФШ`ЂЧѕ.ФШCompObjџџџџ џџџџpaVBFrameџџџџџџџџџџџџk8ThisDrawingџџџџџџџџыd__SRP_aџџџџџџџџџџџџр‚__SRP_b#$џџџџн†UserForm1џџџџ'џџџџгОЋ__SRP_20џџџџџџџџж~1__SRP_3џџџџа*cls_LayerKey*џџџџЗ‚__SRP_4џџџџџџџџџџџџsžfџџџџџџџџџџџџš€oџџџџ˜XxstrName Y9ˆcbox strFilePath startStrg delimiterCancel CloseMode 9˜ dwExStyle lpClassName lpWindowNamedwStylexynWidthnHeight hWndParenthMenu hInstancelpParamhwndnCmdShowlpRectX1Y1X2Y2hdcqrcedgegrfFlagsnIndexhBrushdwMillisecondsstrCapMaxCountlngIndexlngCntlngPause pOpenfilename lpszLongPath lpszShortPath cchBuffer бЈ yЩ*ИsNameRO !6ШLKName ! !иKeyStylem_objAECKeyStyle PЉш йQЉјDА\aР юЕ€0* pH‚dф LayerKey 083< Compare andpy between dDStyles@fpayer KyComTpr ndp- btwenL# ESt+"l#siZ=в   ŠгУI ‚<‚‚stdPole>‚ s€*dЃ€O+ h€^€*\G{0002`0430-C 0046}#2.0#0#C:\WINDOWS\system32\ƒ22.tlb#OLE Automation#0 €Scripting>Єci–ˆti…g Pj€ J420B28JE718-11CF-893DJA0C9054228}#1Jcrrun.dll#Micro soft Ц RРuntime€@MSFo@rms>ЈSF@KrРssŠoРТJD452EE1-E08F-@101A-8-02608C4D0BB4йJFM2`0.DLL%B €W Object Libraryш/__SRP_d+џџџџ?T_VBA_PROJECTџџџџџџџџџџџџ*Ї,dirџџџџџџџџџџџџ'ђ__SRP_0.џџџџП*__SRP_1џџџџџџџџџџџџyџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K*mџџџџrU€ €€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~ Сz ‚`2MыК’AыЦ  фџџџџƒ џџџџџџџџџџџџџџщƒџџџџџџџџџџџџt џџџџџџџџџџџџџџ)ˆa  /џџџџhџџџџi,a-1.џџQ€a ‘%џџџџБ™QСy 1!й!Б"i#y$љ ‘$Б$б$љ$)%a%џџyˆa Й%џџџџPџџџџџџ™ ™‘yYБ й !  LayerKey07 ThisDrawing UserForm1 cls_LayerKeyCommonDialogMod ProgressBar LayerKeysMod LayerKey08яРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA сџџџџ q№aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD йџџџџ0РFC:\WINDOWS\system32\stdole2.tlbstdole џџџџ1y0( BчЯ‰= ЩB(C:\WINDOWS\system32\scrrun.dll Scripting щџџџџY с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms ббљA0ЊБ`˜ZЫbL›Sі3o•* 2C:\DOCUME~1\rbinning\LOCALS~1\Temp\VBE\MSForms.exd БбйA@ м5љ№а­ЙРOеŠ Activate_IfOpenC:\WINDOWS\system32\wshom.ocxIWshRuntimeLibrary Ёџџџџ QPтКчiПC‘S№ојі=C:\Program Files\AutoCAD Architecture 2008\AecXUIArchBase.tlbAecXUIArchBase йџџџџ ‰ `фКчiПC‘S№ојі;C:\Program Files\AutoCAD Architecture 2008\AecXArchBase.tlb AecXArchBase џџџџ1 Б pсКчiПC‘S№ојі9C:\Program Files\AutoCAD Architecture 2008\AecXUIBase.tlb AecXUIBaseMax 1 џџџџY й €уКчiПC‘S№ојі7C:\Program Files\AutoCAD Architecture 2008\AecXBase.tlbAecXBase a џџџџ‰  YjЖє AЖ—ˆk,_ЮfЃњ%„JIˆm(‰й>г•ЛЋzОyL€$ыjђq#?њ'пяк~OДŸ„зŠтшKЦШKЇLIŽц#s\Ы AcadDocument showformnew DЙ[хЇ=YgNМ2zœЎ[ZЉФ]LŽŒ[щŸЈ‹<|яƒЛY J‚7œЎlЃѓЉ†<ш&B…CŸк&Э‡я‹wЛ]FfЌЪХI‰пUЋ5y†я"žŒ—АдЮП-Њ?@аLabel5!ш-ЌЂ6Я€SЊ` њGetLayersFolder БџџџџџџџџA 2в‹BьЮž Њ`ѓ ComboBox1Ш[qJ—І eР‹UserFormКА•'ЏZLq=ЉHЖ F3Dynamic ёџџџџ џџџџА ComboBox4 ”?ЯFѕЮ›ЮЊ`ŽFrame1 ComboBox6Label1Frame2Frame3С{lЏЮŸFЊWJOcmdCopySelected ComboBox5Label6Frame4"в‹BьЮž Њ`ѓListBox1Label7Bв‹BьЮž Њ`ѓ CheckBox1cmdCopySelected_ClickComboBox1_ChangeFillLayerKeystyles3в‹BьЮž Њ`ѓGetLayerStandardGetLayerKeyDefaultComboBox4_ClickComboBox5_ClickComboBox6_ChangeUserForm_Activate StripPathStripDelimitedItemUserForm_InitializeUserForm_QueryCloseCompareLayerKeysGetLayerKeyFolder | Error ИfФЄŸIЛxЊ8<Л  ( l) in procedure showformnew of VBA Document ThisDrawingVBE6.DLL  џџџџ­ Р  џџџџS рсКчiПC‘S№ојісКчiПC‘S№ојі 1џџџџсКчiПC‘S№ојі|Cћ.ФOˆюњPўqGсКчiПC‘S№ојіyуКчiПC‘S№ојіwуКчiПC‘S№ојіuуКчiПC‘S№ојіCв‹BьЮž Њ`ѓ+=ћќњ hЇ8+3qЕЦКЕЈjыъOЇ( †ў0у*=ћќњ hЇ8+3qЕ[ч„M,ŠЛE‰Љ>;Žgцž!=ћќњ hЇ8+3qЕClassP№gv№Э›3+3o VBInternalЩ3ЉџџџџЩ3Р yџџџџ џџџџЁ 00,$( CreateWindowEx user32 CreateWindowExA с ShowWindow ShowWindow сС0 DestroyWindow DestroyWindow сPSetRect SetRect с9pDrawEdge DrawEdge сщ FindWindow FindWindowA сЁ АGetDC GetDC сQ!аGetSysColorBrush GetSysColorBrush с"№FillRect FillRect сй"Sleep kernel32 Sleep DWG Files ‰#Б#0Caption FillColor BackColorClass_TerminateShowProgressWindowDestroyProgressWindowProgressMeterPos xh 00(    Copying #в‹BьЮž Њ`ѓ  Layer Keys...sуКчiПC‘S№ојі Updated  with new Layer Keys! Binning s LayerKey Tools l) in procedure cmdCopySelected_Click of Form UserForm1  џџџџV Ј  џџџџ Ш  џџџџ` шБ юр—Я— $cрoСBЦBс—Я— $cрoЁ*Щ*џџџџ Browse "s Layer Key Tools  *.dwg dwg ,,LL, $,0<HGetOpenFileName comdlg32 GetOpenFileNameA ™,С,GetSaveFileName GetSaveFileNameA ™,‘-(GetShortPathName GetShortPathNameA ‰#i.H ((Pi Dџџфќу\system3 , \ c:\ AecLayerStd.dwg &RLB Layer Key Tools  џџџџЧ   џџџџ, 0  џџџџ  P  џџџџh p  џџџџ тКчiПC‘S№ојітКчiПC‘S№ојі™2С2џџџџтКчiПC‘S№ојіbPbЉCмMŸЦ…;ЙIфКчiПC‘S№ојіkуКчiПC‘S№ојі™2А™ЊЗ(љРGL™^Šr–Ё Open Read Only? "s LayerKeys Tools мsCэ˜iK‘ЫЅ*eБ~ЉЧ”{ŒŠMПZШ жrClass_InitializeLayerStdFolderNameDocumentCleanupLayerKeysInStyleOpenDoc Initialize KeyStyles€gФЄŸIЛxЊ8<Л GetKeyStylesGetKeyStyleFromName LayerKeys GetLayerKeys 44h 48<@DHLPTX Error Opening: "Please try again!xуКчiПC‘S№ојі 8!џџџџ%уКчiПC‘S№ојіеMТr з‹CŠB˜BKˆЏИDAОгЂ‹KгP8Љ8џџџџ HLayer Standard 1 Selection Complete.   <Please Select Layer Standard 2 HAutoClosing this message (3 seconds)!м5љ№а­ЙРOеŠ ЦYl†ЯЋ|ЊРЯpjИ).ѕЮ›ЮЊ`Ž BProblem Retrieving Active Profile s Layer Key Tool  џџџџw а Save Drawing: ? $RLB LayerKey Tools  #32770  џџџџP №сКчiПC‘S№ојіQ>бџџџџ-уКчiПC‘S№ојі сКчiПC‘S№ојі x) in procedure Class_Initialize of Class Module cls_LayerKey ZHKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R T\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryЕG`ZшUkEЅбд,]Щ –р„:ыi5K…dbD[эЦ \Curver L\AEC\5.0\General\Tools\ToolContentRoot Layers\ h) in procedure Document of Class Module cls_LayerKey v) in procedure Class_Terminate of Class Module cls_LayerKey f) in procedure Cleanup of Class Module cls_LayerKey &Error Getting Style 2Please Reselect Layer Key x) in procedure LayerKeysInStyle of Class Module cls_LayerKeyŒёЭљ”I…mzХLъп f) in procedure OpenDoc of Class Module cls_LayerKeyO,”яHЈ’AЗТ”Ц€ТdЁ l) in procedure Initialize of Class Module cls_LayerKey j) in procedure KeyStyles of Class Module cls_LayerKeygФЄŸIЛxЊ8<ЛщJ!6џџџџ•іe—6JŠЂИёzЊиА_Бд7њ^лAЅœТ"`ю\я™ф9йFEЈй“Ь5T‡7)ОŒO’е "ASFNШЮЈ‘УоMЋ ЌNюcMP p) in procedure GetKeyStyles of Class ;1Cb iƒAi00}#0ТCŽ#Р €ž50Ѓ€ …Р69860B1AA-CB5A-4C62-9B53-F6336€F952A1Bˆ6DOCUME~1@\rbinnРu\@LOCALS@Temp\VBE\с„T.exd <Р!€с.E р….`ŒM Д…ѕ‚ŒIWshФm„H>$@ IWФs ZRuIСIЊm`gLРJb@La`:y€Kx RAF9€35DC20-РJ€1D0-ADB9€)C04FD58A0@—Kwshom.ocx#W@indows$K HostХ8Mod,el€@bJAecXUIArchЈBas r A cXUIЊA cрB`‚sрh Ё —`aE7BAE200-BF69-431B-91Р31FF0DEF8F61@3}#5.5ЃtProgram F i –\ArCAD iit€Lu€ 8F\‹bxAEC al   ApplМicТz%T @Т‹ЛсGрEЯš і`Ц4ппЮХя˜+n@@тФу"5Ў  54• ‹`§&1??4цu2. @ у>ЁdMЧк ƒ`Ц3пп/ЮAq/bѕ‚тs РThisDrawБ€ŒG di`~ZD fa щdЭ2GЯЦС7HРд1Btђ ’AЂ,ZŠ"+RB‚lUser1[1:GRIUpQ€еb1šk2o@e1 ‡шй†(zЁ~cls_еŒDG7clР_ЖG…ƒ‰:љ2џMР!r„ŒŸ ИmŸ boŸ p ”monDialogЅPPG@ Г‘m0u(nDАYaР ohgMd0dN2ŽП yП А„!њQ%RessшBarS%Pа$ Б›іs€q2r ЬS%Я“fп_/пЋXŸv2ѕsb1Нs1 љ3џŸ 3АЅн&tФyACrU€€€ џџџџџџџџ( Module cls_LayerKey! ~) in procedure GetKeyStyleFromName of Class Module cls_LayerKey j) in procedure LayerKeys of Class Module cls_LayerKey p) in procedure GetLayerKeys of Class Module cls_LayerKey йKџџџџ џџџџp L\AEC\5.5\General\Tools\ToolContentRootЗєъэ[”;KЗ ƒXж<Ї—ƒя’<œE… „ Тя„™ФъLЂк…№зЗzшrл”.СHІ&НNc9•Ѓœє1(…FЗЫ+н>а‡m БQџџџџ џџџџ:S<џџџџS<џџџџS<џџџџ<џџb<џџ”<џџ<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}џџџџP @”\џџџџџџџџLџџ@”^џџџџџџџџLџџ@”`џџџџџџџџLџџbџџџџџџџџџџџџ џџ`„dџџџџџџџџџџ`„<џџџџџџџџЬamџ  ф њ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationд*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtimeо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{9860B1AA-CB5A-4C62-9B53-F6336F952A1B}#2.0#0#C:\DOCUME~1\rbinning\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дм*\G{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}#1.0#0#C:\WINDOWS\system32\wshom.ocx#Windows Script Host Object Model.*\G{E7BAE200-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXUIArchBase.tlb#AEC Architectural 5.5 Application Library *\G{E7BAE400-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXArchBase.tlb#AEC Architectural 5.5 Object Library*\G{E7BAE100-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXUIBase.tlb#AEC Base 5.5 Application Library.*\G{E7BAE300-BF69-431B-9153-1FF0DEF8F613}#5.5#0#C:\Program Files\AutoCAD Architecture 2008\AecXBase.tlb#AEC Base 5.5 Object Library іџџfLayer Key Compare and Copy between Layer Key StylesџџџџŠгУI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsThisDrawing0u49c3d52bџџThisDrawingџџZŠђ џџUserForm10v49c3d52bџџ)UserForm1џџшй ‡cls_LayerKey0r49c3d52bџџ7cls_LayerKeyџџo0ИmџџCommonDialogMod0<49c3d38fџџCommonDialogModџџА„HyџџProgressBar0=49c3d38fџџProgressBarџџЋX`_/џџLayerKeysMod0>49c3d38fџџьLayerKeysModџџtФ`џџџџxџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ%†>šВcM–yД8Э.џџџџрЗ‰FОCмM”xЫCAb*fџџџџˆ5[jВJй@Кa/„dСПXџџџџj6з‹c G‰u АcЃ%‚џџџџm5“мK@Ў…Є tјHЧЎмрШч@ЧRНлШџџџџџџџџh€’”џєcmLeftAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# LayerKey07/œstdole“` ScriptingŠпMSFormsCIWshRuntimeLibraryИЬAecXUIArchBaseј] AecXArchBaseД AecXUIBase|AecXBaset• ThisDrawingЙ5 €џ_EvaluateйblnSafetycheckXH showformnewwƒshowformnew_ErroreЇ UserForm1)жShowѕMsgBox—RErroŠNumberЃ- DescriptionО cmdCopySelected_Click!+i`kbo_abAppiaAecBaseApplication№ o_abDocSource~іAecBaseDocument8к o_abDocTargetу†o_LKStyleSourceЂ™AecLayerKeyStyleЈv o_LKeysSourceбg AecLayerKeysёa o_LKeySource ы AecLayerKeyЩЋo_LKStyleTarget* o_LKeysTargetuј o_LKeyTarget|o_LKeyOREnableds… o_LKeyOverз@AecLayerOverrideSettingул o_LKeyOversXAecLayerOverrideSettings/ЙcmdCopySelected_Click_ErrorC—Init\[ ApplicationЅ*Activate_IfOpenx– ComboBox1'иActiveDocumentг\LayerKeyStylesmЪ ComboBox4*иKeysqИ ComboBox6,и ComboBox5+и CheckBox1‹УValueфKOverridesEnabled.е objProbar‰6 ProgressBar$ŠCaptionxListBox1›ы ListCount6MaxШВ BackColorоƒ FillColorњ>ShowProgressWindow ProgressMeterPosЂРSelectedYЃList*“AddїrColor2FLayerКЦUCase5 Linetype›ђ Lineweight­G PlotStyleName ю PlottableЫяDestroyProgressWindow@F vbInformationВnChrK~ComboBox1_ChangeasFiltersйf oFilesDic` DictionaryЛ intFilesCntЕvarProjectPath)| strInitPathPdposдФbuff~ sLongnameВЁ sShortnameТ sFileName—н sFileTitle&nDotstrPathlчlngCntgblnCode3 vbNullCharкYOFN)О nStructSize„J hWndOwnerЌўhwnd/СsFilter@е nFilterIndexcЅGetLayersFolderZSplit) vbTextCompare QIsArrayœ•sFile8aSpace юnMaxFile€ sDefFileExtPН nMaxTitle З sInitialDirИу sDialogTitle&ќflagsoOFS_FILE_OPEN_FLAGSGetOpenFileName]?Trim@яStripDelimitedItemЉПAddItem‡ Count0v ListIndexїQ vbNullStringЎТFillLayerKeystylesŽ clean_ExitRšoADTDocldAecArchBaseDocumentЊLAecArchBaseApplication1ioADTPrefe‡AecArchBaseDatabasePreferences‡rmsgQЕ Preferences– LayerFileч–strNameыZacdocšГ AcadDocumentZ DocumentsМFullNameаžActivate—|cboxzComboBoxЗ\varITMjcolKeysW CollectionщW myLKStyleвR blnActivepretvalЭ;vbYesNovbNoЇ% cls_LayerKeyc@OpenDocВЈ KeyStylesgЕGetLayerStandard2‹ LayerStandard@RGetLayerKeyDefault:TComboBox4_Click†E dicLKeys1s[LayerKeysInStyle,WshShell0PopupbХvbCrLfЏЌSetFocusёЦComboBox5_Click dicLKeys2t[CompareLayerKeysHeight|‹RepaintŒМComboBox6_ChangeЯTUserForm_ActivateZs strLKFoldercˆGetLayerKeyFolderЦ StripPath‘š strFilePath\ђxointcnt.- startStrg§? delimiter~UserForm_Initialize5cdicFilesOpened…pUserForm_QueryCloseјCancelё˜ CloseModeиŸvarFilesš7adoc€љReadOnly4<vbYesa? varMainKeys$U varCheckKeys>{ dicMissing8ClearуЭExistsƒ]o_AecDocИ­LayerStdFolderName Zm_objAECBaseApp*єm_objAECBaseDB‰AecBaseDatabase•ѕm_objAECBaseDocФm_objAECDocuments‰6 AecDocumentsћ,m_objAECLayKeyцm_objAECLayKeysџ=m_objAECKeyStyle•аm_objAECKeyStylesГСAecLayerKeyStyles›*m_dicAECLayKeys˜)m_dicAECKeyStylesЁЮClass_InitializenClass_Initialize_ErrorsЌ strAcProf^жstrAcRel7~strAcVERЁ“ strAcCurVerЫЫlsfRootŒlsfLimb'VProfiles#VersionЁХ ActiveProfile)uRegReadwЄDocumentjгDocument_Error‰1Class_TerminatePщClass_Terminate_Errorƒ8CleanupєŒ Cleanup_ErrorƒЋLayerKeysInStyle_Error o_KeyStyleсo_LKeyчaGetKeyStyleFromNamefЦ vbCritical+}sNamedROў^ OpenDoc_Errorд" ErrCatcher‡жRaiseєSourceGЖ InitializeгNInitialize_Errorќo RemoveAllЮHandle•KeyStyles_Error]= GetKeyStylesп KeyStylesListtGetKeyStyles_Errorф,LKNameGetKeyStyleFromName_ErrorЅˆ LayerKeys3_KeyStyleе‹LayerKeys_Error8Ч GetLayerKeysiИ LayerKeyListЪyGetLayerKeys_Error@ЦCommonDialogModyJOFN_ALLOWMULTISELECTЏOFN_CREATEPROMPT^9OFN_ENABLEHOOK‹фOFN_ENABLETEMPLATEOšOFN_ENABLETEMPLATEHANDLEѕ. OFN_EXPLORERLЊOFN_EXTENSIONDIFFERENTOFN_FILEMUSTEXISTйНOFN_HIDEREADONLY™З OFN_LONGNAMES=UOFN_NOCHANGEDIRЭ™OFN_NODEREFERENCELINKSv—OFN_NOLONGNAMESœїOFN_NONETWORKBUTTON‰№OFN_NOREADONLYRETURNМ—OFN_NOTESTFILECREATEDsOFN_NOVALIDATEOFN_OVERWRITEPROMPTёљOFN_PATHMUSTEXISTЅƒ OFN_READONLY!OFN_SHAREAWAREЊЩOFN_SHAREFALLTHROUGHу( OFN_SHAREWARNdOFN_SHARENOWARN4 OFN_SHOWHELP­ЇOFS_MAXPATHNAMESeOFS_FILE_SAVE_FLAGSФБ OPENFILENAME35 hInstance ќ sCustomFilterЊ‰nMaxCustFilterэ` nFileOffsetIŠnFileExtension9щ nCustDataющfnHooknх sTemplateNameч pOpenfilenamecˆcomdlg32FGetSaveFileNameŽWGetShortPathNameЛІ lpszLongPath№ lpszShortPathXч cchBuffer>јkernel32_Ѕ WS_THICKFRAMEыO WS_CAPTIONв  SW_NORMALЇi CREATESTRUCTЋlpCreateParams@ЩhMenuщn hWndParent7‡cyй\cxм\ylstyleХplpszName& lpszClass{ЪExStyleiчCreateWindowExє dwExStyle_ј lpClassName‚з lpWindowNameЈdwStyleэnWidthЬЕnHeightѕэlpParam5uuser32*Ю ShowWindowJknCmdShowŒС DestroyWindow9сSetRectUlpRectЫRECTiX1О_Y1O_X2П_Y2P_DrawEdge%Ыhdce˜qrcŒЪedgeвgrfFlags%h FindWindowKGetDC`ўGetSysColorBrushўэnIndex'FillRectыhBrush SleepэdwMillisecondsХЅBDR_SUNKENOUTER)BDR_RAISEDINNERwА EDGE_ETCHED˜ BF_BOTTOMŒcBF_LEFTПъBF_RIGHTЃTBF_TOP˜иBF_RECTCŒTop5кRight BottomH{lngHdcЧ€RCђ^FillRCОlngFill˜д lngBackColorbиlngMax*›lngHwnd›Ѕ strCaptionЮstrCap{юMaxCountЏзlngIndex дCSз\lngPauseC$lngPos6­ IsMissing˜э LayerKeysModZіLKFile1o^LKStyle1щLKFile2p^LKStyle2ъ LayerKey080œUserFormNFrame1ЙLabel1,Frame2ЙLabel5‘,Frame3ЙcmdCopySelected< Label6’,Label7“,Frame4Й€џClickŠу€џChangeЃЧ €џџџQueryCloseTєClassЛ €џTerminateyLItemзz _B_var_UCaseaЮ _B_var_Chr\; _B_str_Spaceу _B_str_LeftVƒ _B_str_TrimБі _B_str_MidўX€џџџ_B_var_Dictionary%№џџЬџџџџџџџџџџџџџџџџџџ)!7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэџџџџџџџџџџџџіџџџџџџџџџџџџџџџџџџџџџџџџ џџ "lJV"&8Аbb€ †џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэџџџџџџџџџџџџіџџџџџџџџџџџџџџџџџџџџџџџџ џџ "lJV"&8Аbb€ †џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ:џџџџџџџџџџЙ((Сh)џџџџџџџџџџЙ($`8џџџџџџџџ$A`-џџџџџџџџџџ$`1џџџџџџџџџџ,С`5џџџџџџџџџџйё(Јa‘nџџјh”rU€€€  ЉaБ=)сi!QA"љ" с= $Сщџџџџ™@l9сaџџџџџџџџџџџџџџџџ  W—зW—зџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD € §‘h $ @ € `$ @ € X$ @ € \$ X(ŠdѕЬ!Šd <($  …Lџџџѕѕѕѕ<ѕњѕdѕєѕРŠhDџ4lDџHџ4lHџѕ^0qџ<џLџ lDџhќXlџd2HџDџўіџѕŠd <Šd^qџ;Žgцžџџџџџџџџџџџџx[ч„M,ŠЛE‰Љ>;ŽgцžЦКЕЈjыъOЇ( †ў0уџџRHR00џџџџџџџџџџџџџџџџџџџџRиRџџџџџџџџџџџџџџџџџџџџME(џџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSџџџџS џџџџS”џџџџ@џџb@џџ”>"џџџџџџџџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}а`B˜`  Bџџџџџџџџџџџџџџ%џџџџмџџџџџџИbи`џџџџ h€dxџџh€<џџh€fЈџџh€hР џџh€jиџџh€l№џџh€nџџјh€f џџ''''h€p8 џџibuth€rP$$џџuse h€th((џџnh€vџџџџ,,џџ app+x@pџџџџџџџџџџџџРџџ iƒzџџџџџџџџџџр„ sitiƒ|џџџџџџџџџџ„iƒ~џџџџџџџџџџ „iƒ€џџџџџџџџџџ@„iƒfџџџџџџџџџџ`„iƒnџџџџџџџџџџ€„iƒ‚џџџџџџџџџџ „iƒ„џџџџџџџџџџР„iƒhџџџџџџџџџџр„iƒfџџџџџџџџџџ„iƒ<џџџџџџџџџџ „iƒ†џџџџџџџџџџџџџџ€+ŠР$pџџџџџџџџџџџџ€џџ$ iƒдџџџџџџџџџџ „iƒŒџџџџџџџџџџџџџџ„+Ž DpџџџџџџџџџџџџџџD iƒдџџџџџџџџџџџџџџ„+hpџџџџџџџџџџџџ`џџh )ƒ’џџџџџџџџ€ˆ€A%iƒ–џџџџџџџџџџЈ„iƒ˜џџџџџџџџџџШ„iƒšџџџџџџџџџџш„iƒœџџџџџџџџџџџџџџ„+žа„pџџџџџџџџџџџџHџџ„ iƒ џџџџџџџџџџh„)ƒЂџџџџџџџџˆ€A%iƒЄџџџџџџџџџџА„iƒІџџџџџџџџџџџџџџ„+ЈPЄpџџџџџџџџџџџџџџЄ iƒ|џџџџџџџџџџ0„iƒ~џџџџџџџџџџџџџџ„+ЊАФpџџџџџџџџџџџџџџФ iƒдџџџџџџџџџџџџџџ„+Ќрpџџџџџџџџџџџџ№џџр iƒЎџџџџџџџџџџџџџџ„+АИpџџџџџџџџџџџџPџџ iƒ џџџџџџџџџџp„)ƒ’џџџџџџџџ˜€A%iƒВџџџџџџџџџџџџџџ„ Д (pџџџџџџџџџџџџјџџџџ( !!iƒЖџџџџџџџџџџџџџџ„B˜М№ BџџџџџџџџџџџџџџB˜РhBџџџџџџџџџџџџџџB˜ТBџџџџџџџџџџџџџџB˜Ц@Bџџ џџџџџџџџџџџџџџџџи@„Цџџџџџџџџџџ”џџџџ№џџџџh€м џџh€Ш џџh€Ъ8 џџh€Ьџџџџ џџ"€вHџџ  @џџџџџџџџР %@%џџџџдџџџџ  @%b€ир`џџџџ@џџџџџџџџb€мџџџџhџџџџ@џџџџџџџџƒўџџџџџџџ(џџџџџџџџџџџџџџ A€€ hџџџџџџџџј|џ+` џџџџ N”iƒоџџџџ џџџџџџџџ€ A†р hџџџџџџџџ˜|џ+Р џџџџ W”iƒрџџџџ џџџџџџџџ€ AŠ@ hџџџџџџџџ8|џ+ џџџџ$ ^”iƒтџџџџ џџџџџџџџ€ Aˆ  hџџџџџџџџи|џ+€ џџџџ( e”iƒтџџџџ џџџџџџџџ€ Фр `џџџџџџџџ|џkџџџџџџџџ8i” Œ@ `џџџџџџџџHџkџџџџџџџџ,o” „фџџџџLџџџ8 @ % Є€ `џџџџџџџџ |џkџџџџџџџџ0 ~” Žџџџџ`џџџџџџџџXdџkР џџџџ4‡”iƒШџџџџ џџџџр €iƒцџџџџџџџџџџџџ€`„шџџџџxџџџџџ€ўџџџџџџџ@ џџ џџџџџџџџ%џџџџАB˜\x CџџџџџџџџџџџџџџB˜^РCџџџџџџџџџџџџџџB˜ИШ BџџџџџџџџџџџџџџB˜КBџџџџџџџџџџџџџџB˜О@BџџџџџџџџџџџџџџB˜ФBџџ џџџџџџџџџџџџb€Юh4џџџџ @џџџџџџџџ"€аP 8џџ€ @џџџџџџџџb€дИXџџџџ@џџџџџџџџb€жЈ \џџџџ@џџџџџџџџb€ка dџџџџ@џџџџџџџџа Hџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ@ џџџџр џџџџРр hЈ џџџџP   џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџ@Ииx АрШ џџџџџџџџP€ P €@ € @И  а № hєъЮџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџж<)ЯP)Яœ)ЯЯџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџкŽ0;ЯL;Яl;ЯЯџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџˆHџџџџ\м^xк`ŠЊЯ@ўџHџџџџџ |EЯ@ўџџџџџDџџџџџ $qЯўџџџџџџџџx uЯџџџџ0ЯдuЯ@ўџџџџџџџџџџ |vЯшЮажЌАИЦЯpžPxЯdxЯˆxЯЯџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџкŽЈ€Ям€Яќ€ЯЯџџџџџџџџџџџџр џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџР џџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџивЮдЌАъЯ@ўџџџџџtџџџџџ t‹Я@ўџџџџџdџџџ џџ аŒЯјДјŽЯ,ЯLЯЯџџџџ@€HP  џџџџџџџџ€ иа  џџџџџџџџџџџџџџџџј x<џџџџџџџџџџџџџџџџџџџџџџ@;ŠгУI $*\Rffff*0=49c3d38f(*\Rffff*0=49c3d38f\0(*\Rffff*0=49c3d38f\1*\R0*#13пџџџџlўЪ•€€ 0€ "8„`„p€ џџџџ„ €€ џџџџ€€˜€ €Ј€А€И€Р€Ш€а€и€р€ш€№€ј€ џџџџH€4€ џџџџH€ € џџџџH€0€ џџџџ€ 0@€ &pH€˜€ џџџџH€А€ џџџџH€Ш€ џџџџH€ рH€ш€ џџџџH€ј€ џџџџ€ 0€ >8€ &x(€  € 0Ј„ и€ ш„ € „0€ &H€ p„ „  „ А„ Р€ а„ ш€ &€ 0€H€P€X€`€h€p€ џџџџ€x€€€ˆ€€˜€ €Ј€А€ $И"Ё р ш№€ џџџџ€ 6ј€ 60€ 6h€ 6 € 6и"Ё   € 6(€ 6`€ 6˜€ 6а"Ё  € 6 € 6X€ 6€ 6Ш"Ё  € *"H P `px€ џџџџ"€€ˆ€ 6€ >Ш€ @ € :H € 6ˆ J…Р   "0 &P h € € ˆ "   Ј И € џџџџ€ :Р € : € :@ € :€ € :Р "  €  (  8 &X p  €  ˜   € џџџџ€ џџџџ€ џџџџџџџџА Эџџxр*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р This New Window procedures]DЏђP ]DЏРђx ]Ќђeser№H^ђ`^ђx^ђ^ђЈ^ђР^ђи^ђ№^ђ^ђ ^ђ8^ђP^ђhpџџІ"1@–€''І–@џџІ–Рџџр*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р Rectangle functions (the meter)џџІ– џџџџІ–zџџџџІ–а sit–PІ–АџџІ–р*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р7This next declare is used only to slow the loop down inр The procedure "ProgressMeterPos"–Ир*@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@]DЎђ  рWant a Raised look?]DЎђШ рHow about both?]D И Кђр@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@рYou have to have these]DЎђ№ ]DЎђ@]DЎђh]DЎђр To get this]D Р Ф Т Ођр@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@рThe Rectangle type№и^ђ№^ђ ^ђ ^ђ8 pџџˆ]@ђ@]@ђh]@ђP ]@ђ]@ђИ]ђЈ ]ђр]ђа рThe caption for the new windowш– о'мmџџр0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р/ | Max is the maximum number in your For Next |р/ | Loop, you must provide this value prior to |џџр/ | Calling ProgressMeterPos! |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–€ р'иmџџир0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р/ | This sets the color of the progress fill |џџр/ | value can be 0 to 24 |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@џџ–р т'дmџџрр0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@џџр/ | This sets the color of the progress |р/ | background value can be 0 to 24 |р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@–@ т'жmџџшр$Just to be sure, destroy the window!------–  кЌœ---- кA@Ž------kџџˆoџџ€–р ]ђ р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@р8Looks can be decieving, must of this call does not applyreр:to us! We are not going to use the window for anything butр3display! If you have trouble with #32770 try STATIC------р0@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@miІ  \Ж#32770 м ^ЌєЌdЌњЌ<­ЌЌ ф$x 'к L Bin к `A@Š P к$Њ'Юl аЌЌЌ№ЌA@ and e Ю а ж$ЌA@А Ю а И ЦA@ž--oџџxрGoodbye window!--–@ кA@Ž---Жoџџ@р4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@Жр3 | This is the procedure to position the progress |Moduleр3 | Rectangle (FillRC), the arguments are the for |------р3 |The current count, and a optional sleep interval|------р4@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ 8/3/2–€ ]ђ Ш иЌя'шicha шЌ œ(T вЌЌ шЌA@ut the Ю в д$ЌA@А ц$ъœ-- цA@Д------kџџhkџџ`oџџXџџџџPџџџџЈЖAttribute VB_Name = "ProgressBarˆ" ˆBasˆ0{FCFB3D2A-A0FA-1068-A738-08002B€3371B5} |@GlobalЮSpac’False dCreatablPredeШclaIdАC@ExposeTemplateDeriv–Cus tomiz EOp tion 0licit '@~$@ This New Window procˆeduИ PGK Const WS_THICK FRAME€s&H 40CAPT(ION‚C0  ƒ"SW_N ORMAL€1 2Type CREATESTRU CT lpТ_eParams As LongЩУhIР%an@n‹MenuL Wnd‘@entЫcyЬŽxЫŒLsty@…aЪlpszЎ@S‡Г…*СClasB0 ExSKEnd СBЩFDУ— Func‚{УDƒlEx Lib "user32" Alias "‹A" _ (ByVal dwL, ї[С( 0,AХƒ љCdwŠ2MЦU nWidth_СІHeighf6іh:ehЉ?†-EB lpЂJЁAny)УЅ:/Showƒ Ћ.9Ї+hw 8„BхnC @0 Then† є DOWJ$ DЬIfH€+ †s2Show€wgre ssƒ4Dim CSuCREAT€ESTRUCT''ЏЋ 'Loo@ks can€decievingH, m‹ofƒill does not app ly‚8€›us! @We are‚ gFo€ЇuseЁ for anyt"hbut‚di€splay! @O€you hav ro@{С^th #32770 try STATICТ 1:РƒBg= Cre€mУTEx(WS_THICKFR@AME, "ƒ", €Capti`on, _С@ CAPTION, @500, 12 5@6Р0&, },РgТ„pƒ…}, SW_NORMLALС$dc@ЇGpetDCСБ(УetRect RC“Р‚2425С АFillB,B РSysBФBrushFРТDra wEdgeB#dcƒ BDR_SUNKENOUTER€, BF_REA”СЇТЅ'Goodbўy‰УУуСЉ„З’ЊSОЦ o?9N…Р' |lрR@Сtproce†d wOposi6gЂO "h |€   С&angle (Ђ(C),argРuments"Y !VЃ`y currР count,A@Yd a oЂCal sleep interval?Ёфœс**Me€ PosС9Cntcaœ, O…€@PžaСmЩŸС„os%/N@ УЁ /AAMa€x * 239! qN@|D< 6(™ЮSdR'‚R6,!` , 24с ЂћAW`HЁLХTabS a€!IsMis.s „т)H ~SB-сaC!J!Љ > %с (aЊa!0Ж ( .a‰ ,n------------------------rU€€€€~| џџџџџџџџџџџџpanupfromр DateTime : 8/3/2005 21:rU€€€ џџџџџџџџh$`< џџџџџџџџ(Ahџџџџџџџџџџџџџџ0,h!џџџџџџџџџџџџџџ=Љ$С`@џџџџџџџџ(`%џџџџџџџџџџџџџџ’ vRџџџџg ssА„џџЖџџxNџџGetOpenFileNameAN<GetSaveFileNameAџџџZdџџ(GetShortPathNameAџџџџџџLџџџџџџџџџџџџџџxџџR RLLџџџџџџџџџџџџџџџџџџџџMEPџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(@џџ:> џџџџ< џџ<џџџџџџˆ0 ъ˜€ Cџџџџџџџџџџџџџџъ˜ P€Cџџџџџџџџџџџџџџъ˜ЈCџџџџџџџџџџџџџџъ˜аCџџџџџџџџџџџџџџъ˜Ш Cџџ џџџџџџџџџџџџъ˜јCџџ џџџџџџџџџџџџъ˜ Cџџ џџџџџџџџџџџџъ˜ @€Cџџџџџџџџџџџџџџъ˜"HCџџџџџџџџџџџџџџъ˜&pCџџџџџџџџџџџџџџъ˜*ИCџџџџџџџџџџџџџџъ˜,˜@Cџџџџџџџџџџџџџџъ˜0РCџџџџџџџџџџџџџџъ˜40Cџџџџџџџџџџџџџџъ˜6шCџџџџџџџџџџџџџџЪ˜8(Cџџџџџџџџџџџџџџ%˜џџџџџџ˜:џџџџИџџџџh€ааџџ№h€вшџџ@ђh€<џџXh€ж џџђh€>0џџџџџџh€@Hџџ h€и`џџИh€тxџџh€ц џџh€ТЈ$$џџsee h€ъР((џџh€ьи,,џџђh€ю№00џџ21:1h€№44џџјh€B 88џџh€D8::џџh€шP<<џџh€Fh@@џџh€H€DDџџh€JџџџџHHџџџџџџџџџџА@%+є pџџџџџџџџџџџџјџџ )ƒLџџџџџџџџџџџџ€A%+Pˆ(pџџџџџџџџџџџџ`џџ( )ƒLџџџџџџџџ€џџџџ€A%+RџџџџPpџџџџџџџџџџџџШџџP iƒTџџџџџџџџџџш„iƒVџџџџџџџџџџ„iƒXџџџџџџџџџџџџџџ„џџџџаъ˜XCџџџџџџџџџџџџџџъ˜ Cџџџџџџџџџџџџџџъ˜ (@Cџџџџџџџџџџџџџџъ˜xCџџџџџџџџџџџџџџъ˜ Cџџџџџџџџџџџџџџъ˜№Cџџ џџџџџџџџџџџџъ˜Cџџ џџџџџџџџџџџџъ˜$hCџџџџџџџџџџџџџџъ˜(Cџџџџџџџџџџџџџџъ˜.рCџџџџџџџџџџџџџџъ˜2CџџџџџџџџџџџџџџЪ˜ђX 8CџџџџџџџџџџџџџџЊ€ЮџџџџџџА@џџџџџџџџџџџџxа€pџџџџџџџџ@Xшџџџџџџџџџџџџ рџџџџ˜џџџџ џџџџИ( Шј0 ИџџџџˆЈhXџџџџ№Р0џџџџџџџџџџџџHPџџџџџџџџџџџџƒџџџџџџ€џџџџџџџџџџџџџџџџџџ0И 0џџџџџџџџџџџџˆ џџџџџџџџџџџџџџџџџџџџ Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџ28ŠгУI $*\Rffff*0<49c3d38f(*\Rffff*0<49c3d38f\0пFўЪN€€ F€ DP€ B˜€ Fр€ >(€ <h€ :Ј€ <ш€ >(€ Fh„ А„ Р„ а„ р„ №„„ „ „ 0„@„ P„`„p„€„ „А„ Р„ а„ р„ №„ „ „ „ 0„ @„ P€ џџџџ€ 8`€ 4˜€ а„ .№€ џџџџ„ . € џџџџ€P€ X€ h€ x€ ˆ€ ˜€ Ј€ И€ Ш€ и€ ш€ ј€ € € (€ 8€ H€ X€ h€ x€ ˆ€˜€ џџџџ€ € џџџџH€Ј€ џџџџH€Р€ џџџџH€,и€ ј€ џџџџ€ џџџџџџџџЭџџxр?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р> Copyright Љ1996-2003 VBnet, Randy Birch, All Rights Reserved. Dр< Some pages may also contain other copyrights by the author.$%р?'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџр7 Distribution: You can freely use this code in your ownр6 applications, but you may not reproduceр4 or publish this code on any web site,Ќџџџџр6 online service, or distribute as source р7 on any media without express permission. р?''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']$Ўђ0]$Ў ђX№]$Ў ђ ]$Ў@ђ€>]$Ў€ђ(X]$ЏђP]$ЎђЈ ]$Ўђxџџџџ]$Ўђа]$Џ ђ ]$ЎђШИ]$Џђј ]$Џђ№]$Џђ ]$Џ€ђр4 see comments]$Џђ@]$ЎђH€ ]$Ўђhie]$Ўђp21:1]$Ўђ A]$Ў@ђИ]$Ќђ˜]$Ќђр]$ЌђР]$Ўђ]$Ќђ0р1OFS_FILE_OPEN_FLAGS and OFS_FILE_SAVE_FLAGS belowр-are mine to save long statements; they're notрa standard Win32 type.І   ]$    ђшІ   ]$   & ђX№ ^ђDИ^ђDа^ђDш^ђD^ђD^ђD0^ђDH^ђD`^ђDx^ђD^ђDЈ^ђDР^ђDи^ђD№^ђD^ђD ^ђD8^ђDP^ђDh^ђD€pџџ`] ђІ–ИІ– І–ˆр--end block--'џџџџшџџџџеЕAttribute VB_Name = "CommonDialogMod" Option Explicit '<‚ Copyright Љ1996-2003†net, Randy Birch, All R(s Reserved.@SoЏpages may also contain o0ther bs by  author>@СDisŸŽ: You can free@ly use€8i"sBde Iyo@ur own] ) apЋaБs, Ч €‚inot reproduceor pu`blish5дany web site,nline Ѕice, €d…2e asL s€*вn m€edia wi€Rut express permi ssРBПW' P6c@‰nst OFN_ALLOWMULTISELECT As LШong€Ќ&H CREATEPR(OMPŽ 0а ENABLEHOOKƒ ж TEMPLР Ъ 4зХ HANDLEJ 8R XPLORERL 00 TENSIOND€IFFEREN =4 FILEMU@STEXISы1Г HID` ADO(NLYЪ4А$LO€NGNAMES*# 5s NOC #GEЬDI,P NOстРCELINKk Ё9NO“Р#єNETWORKBUTxTONr O"$RPETUR‹8`& 'see`ƒmmentsRTES>TЁ3ЃXъ‚’VA8LID RРOV`ERWRId№PјATH3E №E +бSHA`W€J 2ЕF THROшUGHh2е` i0S‘g‚NO,12 O WHELPŠ1o рS_MAX&`Љ†6` ВOFS_с;_OPEN_FLhAGSРЋd€фSAVEфbelo‚w`are mЗto save ‚l! stateIт;Сey' @Чс `ndard Win32 ty\peрГЌЋ=2WE‘хG_ *kOrђ—4X?2< ž n/  N_ U$ ]0O B YOш T=р ёqqnStructSizeФЄjСhWndИOwnа‰…ЩIаnhancu e#‘spFiltxТ ingтCustomH€чnMaxїxnSIndќexc Шq сР‹рНTitlцОкњInitqPЈDir3 СwsЊшЊflags?tcрё‚БёeO`ffset$РI@ntegerіEpxtenёŒ!ћsјDef1 ї(0DataФjfn№Hook–€А… РsTemplа<ТИ‡AР…End 'ј'€‘Q(Ц3DecBlCFuncМG`etOpeвLib "comd@lg32" Д/ATli@ "ЬAѕ(‚p1filenУ{ щ)ёу xSџаK!ugЙe__АQИпetSаР tPathgke№rnelяркїByVal lpМszqб1S,EGV_ Scch№BuffА>Р1H'--ep blo0ck--€ВdFolHderё…()1SS tr Dim  strAcfЯ1ФRelПДVE†RПДCurV 0T9Const €lsfRootа"HKEY_CURRENT_USER\Softw Œ\А@odeskС‚CAD\Rа“Ё!FLimbA\DPMogs\ADT_DEFAULT@FNAME\$BDdi/0Ah )џџџџџџџџџџљџџџџ=Щ0` -џџџџџџџџџџщџџџџ##(С`1џџџџџџџџџџџџџџ#,`5џџџџџџџџџџџџџџ=,A `Dџџџџџџџџџџџџџџ=0 `Hџџџџџџџџџџ1џџџџ=I8С `9џџџџџџџџџџiџџџџ=I=8  `Lџџџџџџџџџџ‰џџџџ=I= ninП`ЦЯЃЏ-ЮЃ;FrU€€ ` 8Yy>а y ЉбЁ>Щ>Ё)бљё>™‘AЙAЙ1б8 @сAљ:a/BСBёBй4 D1 Eё*1=щEЁ9IF18!б&Щ*СFЩGx HљY8щHIJK!6 LMNIљNБ4щй4џџџџ™@\9сaџџџџџџџџџџџџ Щ  W—W—зззW—ЌPKЮ§є[xџ§ˆ4xџ§є[xџ§ˆ<xџ$xџ$ tQxџ[tџX4 иtџ'xџX4 0lxџ=[tџ§ˆ<)xџtџ'xџX< xlxџ=[tџ§ˆ8)xџtџ'xџX4  lxџ= [tџ§ˆ@)xџtџKўџ~'ьў' џ',џѕ pџ xџxџ  lpџћў#lџ*#hџ *#`џdџ tџtџ , ldџ*#\џ*FLџ 2 lџhџ`џdџ\џ)xџtџ6Lџ,џ џьўP$  8 lџhџdџ`џ\џxџtџLџ,џ џьў”,џ- Š4ќјdџJTџXџ\џ`џdџ h`џ @\џ Xџ \ѕlTџ 1lџ/Tџ)`џ\џXџ0Tџ\џ`џdџ h`џ @\џ $>Tџ1pџ)`џ\џќcќјdџ §єPџ/<џllџ*#Tџ*#LџPџ 4<џ`1hџ2TџLџ5<џ!llџ*#Tџ*#Lџlhџ*1tџ2TџLџ1<џltџ*#TџPџ 4<џ:,џћяџ`1xџ/Tџ6<џџќcќјPџџ/ `,@(xџdџPџlџpџhџtџ(TџLџ`џ\џXџ<џџЈџ-K" Š<ќјxџKўџџ/ ~'шў'џ'(џѕ pџ tџtџ  lpџћў#lџ*#hџ *#\џ`џ dџdџ , l`џ*#Xџ*FHџ 2 lџhџ\џ`џXџ)tџdџ6Hџ(џџшўџ/ ”Ј(xџ8 lџhџ`џ\џXџtџdџHџ(џџшўќ K lџ$5lџKўџ~'ьў' џ',џѕ dџ hџhџ  ldџћў#`џ*#\џ *#PџTџ XџXџ , lTџ*#Lџ*Flџ 2 `џ\џPџTџLџ)hџXџ6lџ,џ џьў $ 8 `џ\џTџPџLџhџXџlџ,џ џьў8иџ.KRќc=[hџ§ˆ<hџќc=[hџ§ˆ8hџќc=[hџ§ˆ4hџKўџџ/ ~'мў'ќў'џѕ dџ hџhџ  ldџћў#`џ*#\џ *#PџTџ XџXџ , lTџ*#Lџ*F<џ 2 `џ\џPџTџLџ)hџXџ6<џџќўмўџ/  и(lџ8 `џ\џTџPџLџhџXџ<џџќўмў€ l Ctџџ-KŠTќcћвУ. ŠTќјxџphџltџHQhџpџKџџ§є[hџ§ˆThџ §oXџџ5XџН<'єў'џ:Dџ N4џ4џѕ!"*#Tџ#*FXџ /Tџ6Xџ4џџєў hџhџHhџ!hџpџ$$ l%Qhџ[№ўlџўˆьў&d ŠTќјшў(цўTџlџ ,&>TџFXџшў 0'kцўУ5XџM9Tџlџ ,&llџќјhџhџMDџ @>TџFXџшў ('lhџ=&lџhџ5Xџќcќјшў lџў‹ьў&р ŠTќјxџKўџџ/~'єў'џ'4џѕ рў hџhџ  lрўћў#Tџ*#мў *#аўдў иўиў , lдў*#Ьў(*FXџ 2 TџмўаўдўЬў)hџиў6Xџ4џџєўџ/ А@(xџ№ўьўшўpџlџtџ8 TџмўдўаўЬўhџиўXџ4џџєў\№l CtџKhKПŠ<ќcћв)џ/=Hџ'Lџ%§ј\џ%ltџlџX4  lџ 0)lHџ=pџ)lџHџ5\џFџtџM\џ@"*X 0'kFџУЂlMLџ @tџM\џ@"*X (' lpџ§ˆ<єџpzџџ/$@џ lџlџ  l@џѕЬlџYv@џ lџlџ  <џ HџHџ $ 4џ 8џ8џ , 'єў'џ>4џFџ><џF$џl@џ №ў№ў D )lџHџ8џ№ў6$џџџєўKўџџ/~'єў'џ'џѕ @џ lџlџ  l@џћў#<џ*#4џ *#шўьў HџHџ , lьў*#фў+*F$џ 2 <џ4џшўьўфў)lџHџ6$џџџєўџ/Ј№,tџpџ@ <џ4џьўшўфўlџHџ8џ№ў$џџџєўш„Kћ'tџX<  ltџ=,[pџ§ˆP)tџpџ§є[tџ§ˆXtџ XX D'ŠPLўˆlџ%ю ŠXќјhџ+RџdџXL X->dџFTџhџ 0'kRџУ5Tџд9dџXL X-LџXL .>LџF<џ>dџFTџhџ ('6Tџ<џќcќјhџLў‹lџ%dKўџџ/ ~'мў'ќў'<џѕ 8џ tџtџ  l8џћў#dџ*#Lџ *#0џ4џ pџpџ , l4џ*#,џ/*FTџ 2 dџLџ0џ4џ,џ)tџpџ6Tџ<џќўмўџ/  „,ўџџџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛЬНОПРСТЦФХШMЩЪЫAЭЮЯабвўџџџ№еKзийклмнопрстуфхцчшщъыьэюўџџџ§џџџёђѓєѕіїјљњћќ§ўџlџhџ8 dџLџ4џ0џ,џtџpџTџ<џќўмў Ќџ-K&tџDQtџxџKўџџ/ ~'шў'џ'(џѕ pџ tџtџ  lpџћў#lџ*#hџ *#\џ`џ dџdџ , l`џ*#Xџ0*FHџ 2 lџhџ\џ`џXџ)tџdџ6Hџ(џџшўџ/ ”Ќ(xџ8 lџhџ`џ\џXџtџdџHџ(џџшў„џ-K’'pџX<  lpџ=,[lџ§ˆP)pџlџ§є[pџ§ˆXpџ XX D'ŠPLўˆhџ%LKџџRdџXL X-'џ'$џ>dџFDџŠLќјpџpџMTџ @tџ$1 2lpџ=%§Lpџ6Dџ$џџKўџ ŠXќјџ+ўўdџXL X->dџFDџџ 0'kўўУ5Dџ29dџXL X-јўXL .>јўF$џ>dџFDџџ ('6Dџ$џќcќјџLў‹hџ%fєўtџ$1 $2lєўѕлw tџV1ќјxџƒ ќc=2xџKўџџ/ ~'иў'џ'$џѕ єў pџpџ  lєўћў#dџ*#јў *#ьў№ў lџlџ , l№ў*#шў3*FDџ 2 dџјўьў№ўшў)pџlџ6Dџ$џџиўџ/ Є4xџhџџtџ8 dџјў№ўьўшўpџlџDџ$џџиўˆ  l Ctџџ-'pџX<  lpџ=,[lџ§ˆP)pџlџŠPLўˆhџ%‹dџXL X-ldџltџћ0/dџy ŠLќјxџ§Эhџ‹Lў‹hџ%GKўџџ/~'рў'џ' џѕ `џ pџpџ  l`џћў#dџ*#\џ *#TџXџ lџlџ , lXџ*#Pџ4*F@џ 2 dџ\џTџXџPџ)pџlџ6@џ џџрўџ/ œ 0xџhџtџ8 dџ\џXџTџPџpџlџ@џ џџрўАџ-K)tџl LQtџxџKўџџ/~'шў'џ'(џѕ pџ tџtџ  lpџћў#lџ*#hџ *#\џ`џ dџdџ , l`џ*#Xџ5*FHџ 2 lџhџ\џ`џXџ)tџdџ6Hџ(џџшўџ/ ”А(xџ8 lџhџ`џ\џXџtџdџHџ(џџшўŒ џ-K™$pџH l%lpџ=6[lџ§ˆH)pџlџ§є[pџ§ˆTpџ XT D'ŠHDўˆhџ&SKџџRdџXD ,&'џ'$џ>dџFDџŠDќјpџpџMTџ @tџ$1 2lpџ=&§Dpџ6Dџ$џџKўџ ŠTќјџ+ўўdџXD ,&>dџFDџџ 0'kўўУ5Dџ9CdџXD ,&ŠDќјpџpџMTџ @>dџFDџџ ('lpџ=&§Dpџ5DџќcќјџDў‹hџ&cјўtџ$1 $2lјўѕл~ tџV1ќјxџŠ ќc=2xџKўџџ/~'иў'џ'$џѕ јў pџpџ  lјўћў#dџ*#єў *#ьў№ў lџlџ , l№ў*#шў7*FDџ 2 dџєўьў№ўшў)pџlџ6Dџ$џџиўџ/ Є 4xџhџџtџ8 dџєў№ўьўшўpџlџDџ$џџиў\\    w џџ€ ,<џџџџџџџџџџџџџџџџpџџџџџџ Мiƒўџџџџџџџџџџџџџ|3фА|4Š4Вmsoџџ€Жџџџџџџџџdџџ мsCэ˜iK‘ЫЅ*eБ~*=ћќњ hЇ8+3qЕЉЧ”{ŒŠMПZШ жrџџџџџџџџџџџџxЉЧ”{ŒŠMПZШ жr мsCэ˜iK‘ЫЅ*eБ~џџMEџџџџџџџџџџпџџШџџџџџџџџџџ@џџ <8џџџџџџџџџџџџџџџџ(џџ,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€SџџџџS џџџџS”џџџџ9”џџ1”џџ9”џџ1”џџ1”џџ 1”(1”01”џџ89”џџ@< H0”$F<0N<4@ 0”џџ*>"џџџџ<Ьџџ9X px €€ џџџџ  А ИР€ џџџџШа€ џџџџ€и€ џџџџj~рP€ ^X€ &И€ "р€ $€ 0€ ^H€ ЈB  А'ИШи ш ј  € џџџџ€(€ џџџџr~0Ј€ џџџџ€ џџџџB  А€ ^И€  € "8 € $` € Zˆ € `ш € `H!€ Ј!€ ^Ш!€ ("0"€ џџџџ8"€ џџџџH"P"€ џџџџ€X"€ џџџџh~`"Ш"€ џџџџB  а"€ ^и"€ 8#€ "X#€ $€#€ ^Ј#€ ^$€ h$€p$x$€ џџџџ$€$ $  $А$€ 4Р$ј$R%% % +(%€ >@%C€% ˜% % Ј%€ ,И%ш% ј%& &&€ џџџџ &(&€ џџџџ€0&€ џџџџj~8&Ј&€ џџџџџџџџИ&рW---------------------------------------------------------------------------------------р( Module : cls_LayerKey : Class Moduleр DateTime : 8/3/2005 21:11Bџџџџр Author : Richard L BinningшрO Purpose : To allow for automated copying and upgrading of LayerKey StandardsџџрW---------------------------------------------------------------------------------------џџЭџџ`]@ђˆ]@ђА]@ђи]@ђ ]@ђ( ]@ђP ]@ђx ]@ђ  ]@ђШ ]@ђ№ –@рW---------------------------------------------------------------------------------------р Sub : Class_Initializeр DateTime : 8/3/2005 21:08р Author : Richard L BinningрW Purpose : Initialize the class, by getting aecapplication, aecbasedoc and collectionр of aecdocumentsрW---------------------------------------------------------------------------------------рЩЊ@эЦ .ŽэЦ.” !d ŽB@bэ Ž!j.”э ”!X.э Ž!.–Ща|џџШЃЊРЖError .!0Ж ( .!2Ж<) in procedure Class_Initialize of Class Module cls_LayerKeyA@,oџџH–€]ђр]ђј]ђ]ђ(]Ж-HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\Rђ@]Ж*\Dialogs\ADT_DEFAULTFNAME\InitialDirectoryђXр– "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R16.2\ACAD-4004:409\Profiles\Architectural Desktop - Imperial\Dialogs\ADT_DEFAULTFNAME\InitialDirectory" Žѕ5!И!d!КЌ % м'А5!И!М'ЎqџџРЦ0ѕ Д АЖ\Curver7О'Вр?& "\Profiles\" Д АЖ\ В'Ќр; & strAcRel & lsfLimb ЌЖ&\AEC\5.5\General\Tools\ToolContentRoot7ОЖLayers\'Œqџџјmџџ№–pрW---------------------------------------------------------------------------------------р Property : Documentр DateTime : 8/3/2005 21:09р Author : Richard L BinningрE Purpose : Return an AECBaseDocument object for direct manipulationрW---------------------------------------------------------------------------------------рЩТXэ ”.Р’Щ@{џџ8ЃТ0ЖError .!0Ж ( .!2Ж4) in procedure Document of Class Module cls_LayerKeyA@,mџџР–ррW---------------------------------------------------------------------------------------р Sub : Class_Terminate р DateTime : 8/3/2005 21:09р Author : Richard L Binning wр5 Purpose : Call the Clean up for the class and exitЖрW---------------------------------------------------------------------------------------ЖрЩЦ8A@ШЩ(|џџ ЃЦЖError .!0Ж ( .!2Ж;) in procedure Class_Terminate of Class Module cls_LayerKeyA@,.oџџ – рW---------------------------------------------------------------------------------------р Function : Cleanupfromр DateTime : 8/3/2005 21:09Seр Author : Richard L Binning(Tр* Purpose : empty out the reserved memoryрW---------------------------------------------------------------------------------------nnрЩЪ(эА.”эА.эА.ŽЩzџџЃЪјЖError .!0Ж ( .!2Ж3) in procedure Cleanup of Class Module cls_LayerKeyA@,9iџџˆ–€рW---------------------------------------------------------------------------------------owр Property : LayerKeysInStyle initiр DateTime : 8/3/2005 21:10ult fiр Author : Richard L Binning*foрS Purpose : Return a dictionary containing all the keys contained in the submitted œрR layerkeystyle. The scripting dictionary allows for easy verification.рW---------------------------------------------------------------------------------------рЩЬ€ ЄАœэ Є.Fc:\dџџXрWith New WshShellр I.Popup "Accessing Layer Standards in 3 seconds.", 3, "RLB LayerKey Tools"рEnd With]ђ]ђ0э $в.Юрsimple check for valid styleЩэЦ,.Є .œІЖError Getting Style LЖPlease Reselect Layer Key дЖRLB LayerKey ToolsA@, .B@†kџџјџ аў Ю!p“ Єѕ а!7ˆœ а! аC@”kџџ qџџ˜џ аўШэ Є.FkџџpЩh{џџ`ЃЬXЖError .!0Ж ( .!2Ж<) in procedure LayerKeysInStyle of Class Module cls_LayerKeyA@,mџџр –PрW---------------------------------------------------------------------------------------р Function : OpenDocр DateTime : 8/3/2005 21:10р Author : Richard L Binningр[ Purpose : If the chosen drawing is not already open, open from the aecbaseapps documentsр collection.рW---------------------------------------------------------------------------------------р]ђ№Щк Щм ”А›Gzjэ ж и Ž!%.Š ж p%ˆœ ж и pB@”kџџ˜ э Š.”З'8zџџx Ѓмp рJust pass it back out .!0Ќœ .!0 .!р .!2 .B@оkџџ Щ zџџ Ѓкј ЖError .!0Ж ( .!2Ж3) in procedure OpenDoc of Class Module cls_LayerKeyA@,iџџˆ –рW---------------------------------------------------------------------------------------р Function : Initializeр DateTime : 8/3/2005 21:10р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩф( э ”!l. эЦ,.І ІB@цџ žў  “ Іѕ ž!7ˆœ ž! ž!шC@”kџџЈqџџ џ žўШЩˆzџџ€ЃфxЖError .!0Ж ( .!2Ж6) in procedure Initialize of Class Module cls_LayerKeyA@,iџџ–pрW---------------------------------------------------------------------------------------р Function : KeyStylesр DateTime : 8/3/2005 21:10р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------рЩъЈэ ь.:ЩzџџˆЃъ€ЖError .!0Ж ( .!2Ж5) in procedure KeyStyles of Class Module cls_LayerKeyA@,iџџ–ррW---------------------------------------------------------------------------------------р Function : GetKeyStylesр DateTime : 8/3/2005 21:10р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------р]ђPЩ№Јэ ”!l. эЦ,.І ІB@цџ žў  “р- Simple way to avoid duplicates in collectionЩ( ž ž! юB@”Щ Іѕ ž!7ˆœр8save names for search, add handle for retrieve from item ž! ž!шC@”kџџˆqџџ€џ žўШ ю!ќЌ œэ ю.ьdџџHэА.ьkџџ8Щ0zџџ(Ѓ№ ЖError .!0Ж ( .!2Ж8) in procedure GetKeyStyles of Class Module cls_LayerKeyA@,iџџЈрW---------------------------------------------------------------------------------------р Function : GetKeyStyleFromNameр DateTime : 7/27/2005 12:46р Author : Richard L Binningр Purpose :рW---------------------------------------------------------------------------------------р–pэ ”!l. џ žў  “ ž! ђœэ ž.вyџџkџџјџ žўШЩрzџџиЃєаЖError .!0Ж ( .!2Ж?) in procedure GetKeyStyleFromName of Class Module cls_LayerKeyA@,iџџP–рW---------------------------------------------------------------------------------------р Function : LayerKeysр DateTime : 8/3/2005 21:11р Author : Richard L BinningрS Purpose : Pass in a KeyStyle object and get the set of Layerkeys as a collectionрY of names (strings) in return. This is the function that is available to theрY calling routine from outside the class itself. It calls the private functionр below.рW---------------------------------------------------------------------------------------рЩњШэ ј$ќ.іЩАzџџЈЃњ ЖError .!0Ж ( .!2Ж5) in procedure LayerKeys of Class Module cls_LayerKeyA@,iџџ0–˜рW---------------------------------------------------------------------------------------р Function : GetLayerKeysр DateTime : 8/3/2005 21:11р Author : Richard L BinningрX Purpose : Pass in a layerkeystyle object and receive the collection of its key names.рW---------------------------------------------------------------------------------------р]ђ0Щ€э ž!p.œэЦ,.Є ЄB@цџ šў œ“р- Simple way to avoid duplicates in collectionЩ š š! ўB@”Щр Єѕ š!7ˆœр8save names for search, add object for retrieve from item š! šC@”kџџ`qџџXџ šўШр% Return list of Keys in this KeyStyle ў!ќЌ œэ ў.ќdџџ№эА.ќkџџрЩиzџџаЃШЖError .!0Ж ( .!2Ж8) in procedure GetLayerKeys of Class Module cls_LayerKeyA@,iџџPџџџџHџџџџhЖAttribute VB_Name = "cls_LayerKey" ŒBasŒ0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalаSpac’False dCreatablPredeclaIdБCExposeTemplate Deriv–Cu@stomiz E'-S ' Modu{ : ƒ УClasseD_Ti€и€ 8/3/2005 21:11Au0thor€#€Richard L €BinningPurBTo €allow f€ auР<Рd copy@ and @upgradAoФf ‡ StР€s@?ER Op tion tlicit P@m€( m_objAECAЅApp As AecXUКI.€a9SDB‰ РWab@Лд ocSDoc№umen€) )EР(џ)†РZ€с (E`е ?ЦE4 @jЭ%Р Stўy NЄ'M‚ ХV Чтр IdicР5€C Scriр;n g.DicA4aryj S‡Sub ‚e_Initi€alize()?TЋвOŸ- a:Ўѓ!еt08ЁпtШtЧ0 theрƒ‚, €by gettu ecapp…], haec!Xd`Uaxc№olle‚,Aaƒeџ`z`рBW`6œ#1)  Oрyrr™ Go€­5_Ea#}Set}= јNew}}‘ mЦ“Ѕp"M.Ё/ Th@isDraw -.OŽчŠw l”.A 0vnek M ’= Р.ї’ … s@Э fФ)…+/0ВExit!,!ПБ:д Ms@gBox " " & .NumberР" (15DesГ=А[& ") in pr€ocedureЎ2о (Ђ%pLˆE0h@6aPubp Property G№!тMStdFolHderё…()1SS tr Dim  strAcfЯ1ФRelПДVE†RПДCurV 0T9Const €lsfRootа"HKEY_CURRENT_USER\Softw Œ\А@odeskС‚CAD\Rа“Ё!FLimbA\DPMogs\ADT_DEFAULT@FNAME\$BDdir€>orс›' ‡16.2\A0-4004 :409\Ail‚e0rchitр ural Pkt€op - Imрp Я Я Ъ Withн6Ё = VBA.Left$(. ferenШcesАof‘ 9Š.АsPƒ, 4_чqЖ= А Д9Є3' гВ бCW€shShellcЦT №RegReшad(Е&Г'‘ а0Ђ\€verP1'бЦіOБ6\wЁ6ђd'Pђ1&пa'#' _2А.• ’! `z\5.5\Gene€\ToиolsRр(tŽ-ч№ Аbs\Д ‘п№R:; zЏ; J;џя›ѕ ce{зD: aп{CЖ09бп{OЖFЖRetшurnРД  1–… . 0Ќ1ТЗd‚; mрanipuЪ ,€џ В!+ae Ox Оiб0+Пe џ`ЛАeY ћeсfeeџСЂQ0ŒeF eZэЭ)UБSжЃTerminП`ЦЯЃЏ-ЮЃ;FР п'п'ЁB: 7/оРф)оCоRЃCleanрмт&t Жhe class and exi`t '-SВ On Error GoTo C}_Ter€minate_ )eanuVp 80"EВ XSub"J:< MsgBox "{" &….Number" (… Description ) in procedˆure X of @ ModulЇs_LayerKe`y" E€Ћ„OPublic Fu$nc‚-Cl‚n()кЙ‡7:T„Ї' DЖTime : 8/3/200€5 21:09@#` Auth@h@k: Richard L BinningPurpos@€empty@ out t€“reserved Рmemory П“?R@‚€Э“‚8Ы‘Set m_objAECBaseDoc = Noth+‚3€9 ŽB]Apўp‰а"ˆЈ}УЉˆ(џЇЮЇBсЅ %„SProhperР9G@&ХXsInStyle(ByVal strNa GAs Sdtr nrU€€€€~|  pџџMEџџџџџџџџџџпџџ џџџџџџ№ФдИџџџџ;{stФџџЖџџџџџџџџ$џџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(1”џџА"џџ~6 џџџџPџџџџџџА0€Њ€EPџџH@џџџџџџџџ%PџџџџH%pџџџџh%џџџџˆx%иџџџџЈˆ%Њ€|џџџџ џџј@џџџџџџџџџџџџh„|џџџџј џџ%ъ€ю(џџџџ@џџџџџџџџъ€№џџџџ@џџџџџџџџЊ€Sx џџh@џџџџџџџџЊ€… џџˆ@џџџџџџџџЊ€qШџџЈ@џџџџџџџџъ€ђ№џџџџ@џџџџџџџџъ€єАџџџџ@џџџџџџџџџџџџџџџџxPАџџџџ( №џџџџШџџџџƒьџџџџџџ(џџџџџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџP(џџџџџџџџџџџџџџџџџџџџџџџџџџџџŠгУI *\R3*#6$*\Rffff*0=49c3d38f$*\Rffff*0>49c3d38f*\R3*#5п ўЪ €€ џџџџ€€€€ €(€0€8€@€H€ џџџџ€ џџџџџџџџXЭџџx] ђ] ђ(] ђ] ђP] ђx] ђ ] ђШ] ђ№] ђАџџџџ(џџџџМАAttribute VB_Name = "LayerKeysMod" Option Explicit Pub, LKFile1 As S‰Žng2Sty40dicLИlcri^ng.DicБfaryD)2`)Missing!*ДsOpene>d.qƒ@q ob€jProbar/€gressBar cedure showformnew of VBA Document ThisDrawingA@,oџџXџrU€€€ џџџџџџџџx`)p0ўџџџџџџџџџџџ!Ai‘ЁЙбё )",с$pўџџџџџџџџџџџAY(ЉDpўџџџџџџџџџџџA@Qhpўџџџџџџџџџџџy‘ЁБС4џџџџ< „pўџџџџџџџџџџџбсё 4џџџџ,С Єpўџџџџџџџџџџџ!A(i!ФpўџџџџџџџџџџџA(A"рpўџџџџџџџџџџџ)8љ"p ўџџџџџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Binning's Layer Key Harvester" ClientHeight = 8700 ClientLeft = 45 ClientTop = 435 ClientWidth = 7080 StartUpPosition = 1 'CenterOwner TypeInfoVer = 72 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqD,€.€Copy Selected Keys into Target Layer Key Style‹ –u€ЅTahoma$  -H}Ш0ђ;д…$е€#Frame1Йю$е€#Frame2С $е€%#Frame3дn,х€(dcmdCopySelected%Я4$е€+#Frame4дCompObjџџџџџџџџџџџџ–pfџџџџџџџџџџџџ“Єoџџџџ‘`CompObjџџџџџџџџџџџџpfџџџџџџџџџџџџŠoџџџџ†ќCompObjџџџџџџџџџџџџ„pfџџџџџџџџџџџџo!џџџџ{ќCompObjџџџџџџџџџџџџypVBA_Project_Version(џџџџџџџџџџџџœ__SRP_5/&џџџџФь ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqA€H€,B,5€ЅTahoma$(€Source Drawing FileОs5€ЅTahomaA€H€,B,5€ЅTahoma((€Source Layer Key StyleОs5€ЅTahoma4H *Р€ }и‚ SourceД‚ƒўџџџ…ўџџџ‡ˆ‰ўџџџ‹ŒŽўџџџўџџџ’ўџџџ”•ўџџџ—ўџџџ™ўџџџ›ўџџџўџџџžŸ ЁЂЃЄўџџџІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМўџџџОПРСўџџџУўџџџХЦЧШЩЪЫЬЭЮЯўџџџбвгдежзийклмўџџџопўџџџстуфхцчшщъўџџџьэюя№ёђѓєѕіїјљњћќ§ўџ„(х €8ComboBox4i1т(ѕ€2DLabel1f-(х €8ComboBox1i1В(ѕ€*2HLabel7r ѓџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqA€H€,B,5€ЅTahoma$(€Target Drawing FileОs5€ЅTahomaA€H€,B,5€ЅTahoma((€Target Layer Key StyleОs5€ЅTahoma4H )Р€}и‚ TargetД„(х €8ComboBox5me.с(ѕ€2DLabel5K,(х € 8ComboBox6me.Б(ѕ€)2HLabel6# ѓџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqaЁ!€ €,і,$ 5€ЅTahoma‰ь ‰\H 'Р0€}ь.>#Comparison View (Layer Keys missing from Target),щ$х€'`ListBox1Йљ ѓџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq8FР€€€€€F0Enable OverRides5€ЅTahomaDH -€€}З.LayerKeyStyle Optionse0щ(х €,XCheckBox1erR$ acбyA4џџџџ( $(pўџџџџџџџџџџџY(hџџџџџџџџџџ0(Ah!џџџџџџџџџџ™((h%() Acfnаg.Diт[aŸ?ђ:—Ÿ €? f: -kС5\1Р2'?\)\Return a dF contaBiсa allB_kxeysх`Р†bsubmittedwAMelЁ„aa+.Ь T€gng) Р ows freasy verifшicaˆ.€ &??0 ЁU№Z­-‹mIf?!kрm€%рm€ Ёs ьIsn!nТ "!!o3- km_ъуElse''With New Wsh`ShellgA '.Popup "РAccess UEX StРн`šsAЛ3 se€9ds.", 3, "RLBJ ToolswрИB€'КсG Dрim o_€‚daaqAAecЅтэL?aшGa"H = CРq Fromсo(‡фpРЧ†simpaаheckFval№]uПpАuЬС›w t‘B!wvbCrLfЭv_ 5"P0r`fС€ electє гАit€0lOK5p .бvraIf…їFа5EachЉ’In8.sЗПб Ђ'?*… tД0.`Š@sts(o_Б. б)Ж.AddћtВ,Фс] 5џ *ё.ao7m;#eџвћv8nѕXQC#BЯnч‚ …—Я˜r.ߘ٘ п˜о˜i -™OpenР…n1:cn, RњOбB A0vRoД_XџUœ Qџmœџmœ ' љm`*‘jch n draw:is n„otаmreadžgА(P f Hoaecb№”apps docРDnt€2Ц'q(6colБ;рДппj-Г*џгXPUAžp‰$Ÿв /, 4[l[.DCatxcheD@=Ѕ Ц0lSбRai bw,’нSourceџГHDsMщMљБд їLOхOхrLKхЕяKgюKI эKIn№pze(пIO3ЈД-; ' Function : Initialize0Date Time 28/3/2005 21:10:Author : Richard L Binning Purpos=< :<Ј>Y €AOn Err€GPGoToˆc_‚   Set m_objAECKeyStyles =† BaseDoc.Layer#‰dicŒNew Script€{.Di‚Ѕary ƒm_Œ.Rem@oveAllFс€YEachŽKbŽ †sƒ€w WitŒ.ЧСIf Not .Exists(M>.NameР) ThenЫ СА.AddЮB ,рHandlРŒХРEnd IfСу-CNexb„iЫrї›€€0tFЊС ‡ЊƒxИCMsgBoxD "ƒƒ" &†.@Number"Ф (ХDesУmРО& ") in procedureШ of Class Modu€le cls_…ˆ8" A6б&Pu0blicЧе’() As CollžeB‰П՘Хч: HYќ' пz@R@.пzџѕџ§ Ђ9KAЦЏzF yјGetЦс1`_J „ѓ†?Jrr?J.Jц JЦdІ7Jriv`Б':)ŸJŸ0?!€2G:ў Ы,џJпХпХ;хJа DimЇbLРЃ!sџAЙЉsGIoP?Ы?ЫgDœ= ?ЫjбŸer ŸeoŸePpУS ' Simp`Nway to avoi`d dup@MP(s=aRc8L1166ReќsuPƒ!^W† СЯeџ` eтf'O<ЄПpрИraПpZ€ЂПp'@save nаrs fРQsearcаh, a rhЂob@retriefrom itemѓЗ ƒ Ÿ  Тя2.ou Сfouth?Ѓouр4Pаx+/.Count > 0?<€a’Љ.0UъГElюs(?Б‡hВ Сu чВŸ€ xi~Я6?~ч"Ÿѕ|?~r.?~9~Jџ_~_~ЄВ`DFя?VrЊF@%›1)|7/2 ЁЙ12ј:46сЏЙЏЙПVП  PЏkЦy (ByVaАl LKс qXSp4ФngТ’AecЪИЃ'џС&пVМЊAЗ„РoQџjQD-r;Р1” ДL1? ­s UBгЎorџWi?O>B>С5PОГџh/% /OД/`66њ+ЯпДйД0$ќДUsё€#RefFMЁ#§"Зџ+q7e №ђя6 qЗ„є1бп:п:Yе: PaШpЪaTзГle object and ge€t the s8of Layer@keys a collЄion0 ' Vnames (strings) in return.€ This СДfunct„Юat(availdabˆto| [callR routine fro„m side/ clas^tself. It 1sprivat3t [belo4w.€ -S€, ”On Erro@r GoToЋK%Ћ_ ‚ SК‚И = Ge t(€ Styl,e)„‹(0‚ Exit Fu 4:…4MsgBoˆx "ƒI" &A'€.Number" (ХDescˆripl& "‚uprocedur*e2 €C‚aMo„du€rcls_EА" EР– &PФeХЫ:ByRef Dm_ІAECE> РAs AecECC}C‰ЅџqRrFV :Š+D™Time Р8/3/2005 21:1Т1AAuthР~Р: Richard L BinnРЕPurpos @€PГn a lEпС}IщreceivП?С`itsњ Ры уџЕ–)€cVDimІ@Listсс1New i2ю_ [oO`х>=@?sa-A.суafm_dicE!SуVng.ФDiŽarycь.RemoveAllУF@5EacFhPу In,sуР ' SimBpр^way Иavoid dupиlic@C “nЊЇaCaІxResuРGN˜extЇ er`Ё+.Addь,ь<.N@АЇ1„тWitŠ&ЧAIf Not .ŠstЌs(+2Т )`КeРРc ˆ'saScСf)search,< a фЬС Уri†e ‚Йitem ?! 0BЭ+!Ifgс#с+Ќ&'ф R‚е lX ™AL§aиtAз€Тc #*3Count > ~0l"aSI] Yщƒ Exlse#aP1hџТ„сЅ" РAs AecECC}C‰ЅџqRrFV :Š+D™Time Р8/3/2005 21:1Т1AAuthР~Р: Richard L BinnРЕPurpos @€PГn a lEпС}IщreceivП?С`itsњ Ры уџЕ–)€cVDimІ@Listсс1New i2ю_ [oO`х>=@?sa-A.суafm_dicE!SуVng.ФDiŽarycь.RemoveAllУF@5EacFhPу In,sуР ' SimBpр^way Иavoid dupиlic@C “n>ф<=GЇ>‡sшйџџˆЖџџџџџџtџџџџƒя’<œE… „ Тшrл”.СHІ&НNc9•џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџќџџ8џџ<@DHLџџ(џџџџџџ,џџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџSPџџџџSџџџџSџџџџSџџџџ<џџ<<џџ@<F<џџJ<N<џџZ<$^<џF(џ%@џpџ   @џ d l$џ= hџ)Dџ@џ$џ5(џDџhџ l lDџ= dџDџ):џ<џDџ ЌDџ ”l<џф/<џDџDџtџ 0lDџ= lџDџJ$џ<џDџ ЄDџ ”><џF(џ%@џlџ   @џ d l$џ= \џ)Dџ@џ$џ5(џ*(џDџ ШDџ є (џcџ]ћ3Dџ5(џŸ єџ\џ x Dџ\џ l lDџ= XџDџ §є§ПDџDџ! ДDџ Дlџћў#<џ*#ќў*§Чјў"X 2<џќўјўDџ0џDџ! ДDџ ДlџѕЎYєў"X DџѕYџ"X (ѕYџ"X $ "X , ѕYєўѕYџ"X 4.єzџџDџ! ДDџ ДlџѕЎфDџўc№ўЄ*:џzџMџ@Dџ! ДDџ @k:џєџЦDџ| kxџєЉpxџG@џџ'(џzџMџ@Dџ! ДDџ 8ќэџdџ ( l@џ=`џ)Dџ@џ6(џџM@џџ'(џzџMџ@Dџ! ДDџ 8џ§ў<џXџ 0 l@џ=Tџ/<џ)Dџ@џ6(џџ lTџќјмўџ`џ 8lџмў <<џ`џ dl<џмў h/<џ4<џ`џ 0><џF(џџ џ§ўќўмў 4/ќў6(џџ<џ`џ @l<џмў D/<џџ`џ \lџмў `<џ`џ Hl<џмў L/<џ:џ`џ Pk:џмў Tќcќјмў ќc=`џ ќc=TџѕYєўkzџчYџ"X 4 zџd№ўС "X 0 ќc=§П<џDџ ЄDџ ”ѕД(џ 'tў'”ў:џ(џћяџ:рўћяФўѕ@l<џ*#ќў*#јўkxџћ§#иў*#дў*FДў 2 <џќўјўиўдўDџ6 (џџДўФў”ўtўKўџ~'Дў'Фў'џѕџ DџDџ  lџћў#<џ*#ќў!*#иўјў @џ@џ , lјў*#дў"*F(џ 2 <џќўиўјўдў)Dџ@џ6(џџФўДўџџдT< мў`џdџhџlџTџXџLџ\џHџtџpџD<џќўјўиўдўDџ@џ$џ(џџФўДў”ўtў  §є#tџ_t‰УЭ'0џ4џ! œ4џ ”l0џ$ћ0/0џ4џШ‰:џѕД џ  џћяџ:№ў%ћярў:аў&ћяРў:Аў'ћя ў:ў&ћя€ў:pў(ћя`ў:Pў&ћя@ў:0ў'ћя ў:ў&ћяў:№§&ћяр§`1xџ6 џџрўРў ў€ў`ў@ў ўўр§)qм§ ѕL™м§и§$ ll觙м§ lxџTм§ ѕ™м§0џЬ>0џF џќі`џ`џћы џ(џ]ћtK3ѕѕџџџџ:џ*N џ џ`џ§ў0џџ +џќі`џ/0џ5 џ `џ ,? `џќ5IєLфrџ`џќ5IєќЫфўcд§<krџpв§kв§`џќ5IєLфЦЩ(џ%`џўЎ џ`1\џ5 џ0kв§`џќ5IєќЫфЦ!rџ§“@`џўЎ џ`#0џTм§/0џ5 џ0-l\џ**F џrџ§“@`џўЎџћярў`1\џ6 џџрў rџd䧓I-C\џl\џC<џ”м§.ћ0Уž6”м§ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§20џЬ§Ш§Ф§д40ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§20џЬ§Ш§Ф§ ”м§J™м§ 1&*#0џ&*#Ь§Tм§<20џЬ§4&ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§$20џЬ§Ш§Ф§")Š$J™м§(l\џ&*#0џ&*#Ь§Tм§,20џЬ§ 2Tм§0 ѕ 8™м§4 ѕqм§.)x§3x§^4qи§<x§) 3lи§ќRўіx§3Ѕ(")ŠJѕЎ")Š 5#0џ 61Tџ/0џєprџlTџJѕлz2Ь§&C0џ0џTџќrџMџ@>Ь§F џtџ (7/0џ5 џ=Ь§&C0џ0џTџќ'џ>Ь§F џ4џ! œ4џ а/0џ4џ6 џџ єџ_tŽ krџєЉprџри§tџ ,7lи§фppџ6")ŠJѕЎ")Š 5#0џ 6#Ь§Jѕл20џЬ§ƒr")ŠJѕЎ")Š 5#0џ 61Ь§и§4џ! œ4џ єlи§ѕЎ§iџ>Ь§F џt§! œt§ а20џЬ§)4џt§6 џџ єџ_tŽ>и§4џ! œ4џ єlи§ѕЎ§i џt§! œt§ )4џt§5 џ ѕ4џ! œ4џ 4џЦ0џ4џ! œ4џ ”>0џ1<џ4џA0џ4џ! œ4џ ”t§ ”lt§=p§p§l0џш/0џ)4џt§p§ ќc=7tџ  x x§i0 џџфќуџџџџl\џ џџLџ x џџPџ 1џџtџ XЇџџDџ џџHџ џџ`џ џџxџ џџ<џ џџTџ иЇџџT0џЬ§Ш§Ф§4џt§p§ џџрўРў ў€ў`ў@ў ўўр§ ,Аhџ-pџ8$9 0lpџ=:tџpџpџtџ |;lpџ=<lџpџ`џlџ x=>`џ1xџ ќc=<lџ ќc=:tџџ/ h4xџhџlџtџ`џpџЈl Ctџ/hџlџ>$? ,lџ  Qhџ[dџpџlџўˆ`џž?\џpџ м>\џFLџ<џ <џtџM,џ@џ џћ36Lџ<џџ pџ @єџpzџ§Э`џž pџў‹`џ7џ/џџ pЈ4dџ`џpџtџ(\џlџhџLџ<џџ џ„ l CxџJџlxџфkJџp^џ k^џУрVѕД8џ '˜ў'Иў:(џ8џћяџ:џ@ћяјўѕ:шўANиўиў^§iˆўќіLџ6 8џџиўјўИў˜ўLџўС(џ]ћ3Ж §єB„ў‚ўє+Jџlxџ„ў ,Cќcќј„ўо §єB|ў‚ўєџ+Jџlxџ|ў ,Cќcќј|ўJџlxџфkJџУPWѕД8џ '˜ў'Иў:(џ8џћяџ:џ@ћяјўѕ@Dlxџ*#xўE*Fиў /xў6 8џџиўјўИў˜ў §єBtўpўtў 4CQpўdџќcќјtў ldџќcћвУ"(шўhџlўdџ $Fllў§iџўhLў8џhџdџ F8џ§ѓ `џ58џ8xў`џ$G XHhџ((џћœ8џќіјўјў>xўFџH д6џјў hџў~LўЅ 0 L4 „ў|ўtў\ўLўdџ`џxџLџhџ,xўpў8џџјўиўИў˜ўАhџ-pџ8$9 0lpџ=:tџpџpџtџ |;lpџ=<lџpџ`џlџ p=>`џ1xџ ќc=<lџ ќc=:tџџ/ h4xџhџlџtџ`џpџœXџ-pџ8$9 0lpџ=:tџpџpџtџ |;lpџ=<lџpџ ќc=<lџ ќc=:tџџ/ „X4xџhџlџtџpџЬd)tџxџ! ”xџ ”ltџJѕл/tџxџ^)tџxџ! œxџ ”ltџJѕл/tџxџ\-nџtџxџ! œxџ ”ltџфknџ/tџxџУ §єBhџ1dџtџxџ! ”xџ ”ltџhџ (CQdџ§ПI/tџxџќcќјhџ §єJ`џnѕДHџ Рў'Фў:8џHџћя(џ:џ@ћяџ(фўKL*#tџM*#\џL*#XџN*#џ`џ (O2tџ\џXџџ6 Hџ(џфўџФўќcќј`џxџ Ќxџ PxџџМd0hџ`џpџ8 tџ\џXџџxџdџHџ(џџфўФўєŒ)tџxџ! Єxџ ”ltџJѕл/tџxџ‡)tџxџ! Ќxџ ”ltџJѕл/tџxџ…-nџtџxџ! Ќxџ ”ltџфknџ/tџxџУ §єBhџ1dџtџxџ! Єxџ ”ltџhџ (CQdџ§ПQ/tџxџќcќјhџ §єJ`џnѕДHџ Рў'Фў:8џHџћя(џ:џ@ћяџ(фўKL*#tџM*#\џL*#XџN*#џ`џ (O2tџ\џXџџ6 Hџ(џфўџФўќcќј`џњА|@§j8џ%,€  8Rxџ Дxџ PxџМŒ0hџ`џpџ8 tџ\џXџџxџdџHџ(џџфўФў  §є#tџ_t‰УЭ'0џ4џ! Ќ4џ ”l0џ$ћ0/0џ4џШ‰:џѕД џ  џћяџ:№ў@ћярў:аў&ћяРў:Аў'ћя ў:ў&ћя€ў:pў(ћя`ў:Pў&ћя@ў:0ў'ћя ў:ў&ћяў:№§&ћяр§`1xџ6 џџрўРў ў€ў`ў@ў ўўр§)qм§ ѕL™м§и§$ ll觙м§ lxџTм§ ѕ™м§0џЬ>0џF џќі`џ`џћы џ(џ]ћtK3ѕѕџџџџ:џ*N џ џ`џ§ў0џџ +џќі`џ/0џ5 џ `џ ,? `џќ5IєLфrџ`џќ5IєќЫфўcд§<krџpв§kв§`џќ5IєLфЦЩ(џ%`џўЎ џ`1\џ5 џ0kв§`џќ5IєќЫфЦ!rџ§“@`џўЎ џ`#0џTм§/0џ5 џ0-l\џ**F џrџ§“@`џўЎџћярў`1\џ6 џџрў rџd䧓I-C\џl\џC<џ”м§.ћ0Уž6”м§ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§20џЬ§Ш§Ф§д40ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§20џЬ§Ш§Ф§ ”м§J™м§ 1&*#0џ&*#Ь§Tм§<20џЬ§4&ѕ /#0џ*#Ь§&*#Ш§&*#Ф§Tм§$20џЬ§Ш§Ф§")Š$J™м§(l\џ&*#0џ&*#Ь§Tм§,20џЬ§ 2Tм§0 ѕ 8™м§4 ѕqм§.)x§3x§^4qи§<x§) 3lи§ќRўіx§3Ѕ(")ŠJѕЎ")Š 5#0џ 61Tџ/0џєprџlTџJѕлz2Ь§&C0џ0џTџќrџMџ@>Ь§F џtџ (7/0џ5 џ=Ь§&C0џ0џTџќ'џ>Ь§F џ4џ! Ќ4џ а/0џ4џ6 џџ єџ_tŽ krџєЉprџри§tџ ,7lи§фppџ6")ŠJѕЎ")Š 5#0џ 6#Ь§Jѕл20џЬ§ƒr")ŠJѕЎ")Š 5#0џ 61Ь§и§4џ! Ќ4џ єlи§ѕЎ§iџ>Ь§F џt§! Ќt§ а20џЬ§)4џt§6 џџ єџ_tŽ>и§4џ! Ќ4џ єlи§ѕЎ§i џt§! Ќt§ )4џt§5 џ ѕ4џ! Ќ4џ 4џЦ0џ4џ! Ќ4џ ”>0џ1<џ4џA0џ4џ! Ќ4џ ”t§ Єlt§=p§p§l0џш/0џ)4џt§p§ ќc=7tџ  x x§i0џџфќу\џ џџLџ џџPџ џџtџ џџDџ џџHџ џџ`џ џџxџ џџ<џ џџTџ џџT0џЬ§Ш§Ф§4џt§p§ џџрўРў ў€ў`ў@ў ўўр§ ,€,tџ >tџ1xџlxџJѕлж.'@џtџ >tџF`џpџ! œpџ аpџ6`џ@џ+'@џ:Pџ$N`џ`џpџ! œpџ аpџ6`џ@џ.'@џtџ >tџF`џpџ! Ќpџ аpџ6`џ@џ+'@џ:Pџ$N`џ`џpџ! Ќpџ аpџ6`џ@џ&Nѕ'`џ 'Рў'рў:Pџ`џћя@џ:0џSћя џѕ@:џTNџџ 6 `џ@џџ џрўРўМ,(xџ,tџpџ`џ@џ џџрўРўрЄџ- § dџќ1xџ"ѕ§ Tџ:dџ*ѕўўDџUpvџ5Dџkvџlkvџptџ$ktџєЉч§ Tџ:dџ*ѕўўDџUpvџ5Dџ3 ktџєк›$'DџktџєЉч§ dџ§ў@џ U 1xџ/@џ5Dџџ/џ <Є(xџ@џDџЄlџ-ѕ€ €ѕў§qtџ ltџќRatџMdџ@ѕ€ U 1xџ"€ J§iTџltџѕЊ€ U §' 5Tџџ/(l(xџTџ\, §є#§ПVњ[@§jlџ%W$X,€ ,$  јTџ"VX <7Tџќіlџ lџќ5IєLфjџlџќ5IєќЫфўc@џŠ/8џ<џ>$? ,<џ  Q8џ[4џdџ<џўˆ0џ€ўС џќіDџ3џdџ м>џFTџjџ§“@lџўЎ џћ}ќўџ6Tџ џqњўdџ №kњўв'шў%ќf џ%dџ Do\џdџ м'Рў'ќў: џYN џ џѕZL*#фўlџ*#рў[*FTџ^§iАўќіDџ2фўџрў6Tџ џќўРўDџўС џ]ћ3X'шў%c џ%dџ Dm'шў%ќf џ%dџ D dџў‹0џh jџd@џ9l Ь8 4џ0џdџlџDџ0 џфўрў<џ8џTџ џќўРўєЈ §є#§П\Hџ"IX <7HџќіlџDџW$X ДDџ LDџ lџќ5IєLфZџlџќ5IєќЫфўc@џ! vQќј<џ,&џZџ§“@lџўђHџ(џ<џ 07-(џk&џУ5Hџ  v\ќј џ,&џZџ§“@lџўђHџ(џ џ 07-(џk&џУ5Hџ0Zџ§“@lџўђHџ(џq џXџMџ@l џ џ (7-(џ5Hџ kXџєЉpXџќcќј џќcќј<џ Zџd@џ^Hџ"\X <7Hџќі\џ \џќ5IєLфZџ\џќ5IєќЫфўcџЃAZџ§“@\џўђHџ(џq џZџMџ@l џDџW$X ДDџ H-(џDџ5Hџ ZџdџXtЈ4<џ џlџ\џ(џDџHџp0џ- §єBpџlџpџ C>lџ1xџќcќјpџџ/ 00xџpџtџlџX8@\ H <   <<W      !"#$%&'()*+,-./0123456789:;<=>?@ABCDўџџџFGHIJNLEўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~<џџ<џџ<4<џџ<џџ$<џџ*<џџ6< H<џџ