аЯрЁБс>ўџ @ўџџџJ ѕіџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ@ЃmЕћЧ €:The VBA Project џџџџџџџџ0QŸлjСС@ЃmЕћЧ_VBA_Projectџџџџџџџџ0QŸлjСС@ЃmЕћЧVBA Project Data"џџџџ„ §џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџE!?‘;ўџџџ§џџџ§џџџџџџџ§џџџўџџџ "#$%'()*+,-./02џџџџўџџџ456789:<ўџџџ=>ўџџџACџџџџOџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSџџџџџџџџTUVXџџџџўџџџZ[\]^gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџiџџџџrџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџstuўџџџw|џџџџџџџџџџџџџџџџ„џџџџџџџџџџџџRoot EntryџџџџџџџџАˆ•лѓШ€2The VBA Project џџџџџџџџ0QŸлjССАˆ•лѓШ_VBA_Projectџџџџџџџџ0QŸлjССАˆ•лѓШVBA Project Data"џџџџ„џџџџџџџџ§џџџ DџџџџB1§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;џџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџKџџџџRџџџџbH‹Ю§џџџQNўџџџMџџџџџџџџ Wџџџџџџџџџџџџџџџџ_џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`aFGdefhџџџџjџџџџklmnopўџџџxџџџџџџџџџџџџџџџџџџџџџџџџyz{}џџџџ~€ўџџџўџџџўџџџ <ўџџџ !"#$%&'()*+,-./0123456789:ўџџџ?=>J@ABCDEFGHIQKўџџџMNOўџџџўџџџRSўџџџUVўџџџXўџџџZ[ўџџџ]ўџџџ_`abcdefghijklmnopqrstuvwxyz{|}~€Host Project Items&џџџџџџџџ Host Project Item Names0џџџџ0QŸлjССР\ŽлѓШVBA Project Signature,џџџџџџџџџџџџ Project_Data_CurVer(џџџџџџџџ„ ЭєšЄ&ЎL{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ИЬC#AДID="{00000000-0000-0000-0000-000000000000}" Module=modTextCase Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmTextCase Class=clsTextCase Module=modFenceFunctions Module=modSўџџџўџџџўџџџ <ўџџџ !"#$%&'()*+ўџџџ-./0123456789:ўџџџ?=>J@ўџџџBўџџџDEўџџџGўџџџIQKўџџџMNOўџџџўџџџRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}ўџџџ€‚ƒ…ўџџџ†‡ˆ‰Š‹ŒŽўџџџ’“”ўџџџ–ўџџџ˜™š›œўџџџžўџџџ ЁЂЃЄЙІўџџџЈЉЊЋЌ­ЎЏўџџџБВГДЕЖЗИЩўџџџЛМНОПўџџџСўџџџУФХЦЧШўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item List Data8џџџџџџџџџџџџPVBAџџџџџџџџ0QŸлjССРЭлѓШPROJECTwmџџџџџџџџLђPROJECTџџџџџџџџџџџџ`frmTEG №i*ЦмЮž˜ЊWJO[cиѓШАˆ•лѓШfџџџџџџџџџџџџТЗoџџџџї‚CompObjџџџџџџџџРnџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџ0QŸлjСС@,ЁmЕћЧVBA Project Signature,џџџџџџџџџџџџ Project_Data_CurVer(џџџџџџџџщ ЭєšЄ&ЎL{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ИЬC#AДID="{00000000-0000-0000-0000-000000000000}" Module=modTextCase Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmTextCase Class=clsTextCase Module=modFenceFunctions Module=modSHost Project Item List Data8џџџџџџџџџџџџPVBAџџџџџџџџ0QŸлjСС@,ЁmЕћЧPROJECTwm џџџџџџџџLђPROJECTџџџџџџџџџџџџUmodTextCaseџџџџ&џџџџЃЮ7__SRP_2џџџџџџџџџџџџ‚r__SRP_3%џџџџ~№frmTextCaseџџџџняkСС0pЊ7ЉћЧfrmTEG №i*ЦмЮž˜ЊWJO`Sн~ЈћЧ0pЊ7ЉћЧfџџџџџџџџџџџџсƒoџџџџ жCompObjџџџџџџџџпntringFunctions BaseClass=frmTEG HelpFile="" Name="TextCase" HelpContextID="0" Description="Change the case of text strings in a dgn file" VersionCompatible32="393222000" CMG="787AD422D822D826DC26DC" DPB="A8AA044B214B21B4DE4D22D915D81AE2C5D655BA940357A7E95741ABC22E879E379D680A" GC="D8DA748775877587" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};rU€€€€~} aџџџџџџџџ џџџџџџџџ  џџџџ -Change the case of texСr modFenceFuncЁpsGUСm ld ne€ŽcQ 8Fu"toЁ sв2п“Тяшя<ˆ+;Е@ SbЋH$!BShЅ‘32?лУяј`”-R>ьЁЋ1LEGGЂЋхKE6G)Ї2Ўя е)я$КoN`" UserForm_rU€€€ џџџџџџџџ(VBE;&H00000000 [Workspace] modTextCase=61, 9, 800, 644, frmTextCase=66, 87, 802, 722, C, 48, 92, 1047, 520, C clsTextCase=88, 116, 866, 631, C modFenceFunctions=132, 174, 1082, 572, C `§џџџџџџџџџџџA0(Љ`§џџџџџџџџџџџ№шдLџџџџя[ вŠЩŠџџˆЖџџџџџџџџџџџџ modStringFunctions=80, 52, 1030, 450, C frmTEG=0, 0, 0, 0, C, 22, 29, 983, 487, C xtCasefrmTextCasefrmTextCmodTextCasemodTextCasefrmTextCasefrmTextCaseclsTextCaseclsTextCasemodFenceFunctionsmodFenceFunctionsmodStringFunctionsmodStringFunctionsfrmTEGfrmTEGџџџџџџџџ(6@2.0#0#C:\WINNT\System32\ƒ12.tlb#OLE AutџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SPџџџџSџџџџSџџџџSџџџџџџš0{53BCDDD8-FCFE-4CD2-A9FB-D8A9FF8C287E}{4E8932DC-8D9B-4CD1-BE46-324AFC3ўџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџІўџџџЈЉЊЋЌ­ЎЏўџџџБВГДЕЖЗИшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЫЬЭЮЯўџџџбўџџџгдежзиўџџџклмноўџџџрўџџџтуфхцчўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџionSReverseџџO,ўџџџ џџџџ   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€џџџџџџџџџџџџџџџџ…†‡ˆ‰ŠŽџџџџџџџџџџџџўџџџ’“ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁЂПЄИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЙКЛШџџџџџџџџџџџџРСТЬФХяџџџџџџџџЩЪЫЬаџџџџџџџџџџџџбвгдоџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпрЯџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђѓєѕіїјљњћќ§ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџйўџџџђмнопрстуфхцчшщъыьэюя№ёўџџџКєЙ§џџџ§џџџјљњћќ§ўџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫўџџџЮџџџџУабвгдежзўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_0џџџџџџџџџџџџq__SRP_1( џџџџќџџџџџџџџџџџџўџџџs џџџџџџџџџџџџўџџџfrmTextCase$џџџџH„ clsTextCaseџџџџџџџџџџџџvвmodFenceFunctions$ !џџџџYB__SRP_4џџџџџџџџџџџџF^__SRP_7#џџџџ;žfrmTEG')џџџџ3a_VBA_PROJECTџџџџџџџџџџџџ&єdirџџџџџџџџџџџџ,œVBFrameџџџџџџџџџџџџйM__SRP_5џџџџC•fџџџџџџџџџџџџАUo џџџџЇCompObjџџџџџџџџџџџџЅpmodStringFunctions&џџџџџџџџџџџџ@i13џџџџ n`єЮ›ЭЊ`Ž WjѓЃУ`t.ЉћЧ__SRP_6џџџџџџџџџџџџA^t strings in a dgn file ‰щelText textString fenceLockinStringT“K*mџџџџrU€€€~~~~~~~~~g ЩŠееўЭNЂЅБЧm”_  фџџџџˆ 1џџџџ€џџџџЩ™Щџџщџџџџџџџџџџџџ џџџџџџџџџџџџ)ˆ 1џџџџ˜џџџџQyџџIˆ 1џџџџАџџџџЁЙџџyџџџџџџџџџџџџЉa‰iITextCase modTextCase frmTextCase clsTextCasemodFenceFunctionsmodStringFunctionsfrmTEGяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Сџџџџ щQ0П—ŸЯђ9ŽKƒ\‹щщЏ[:C:\Program Files\Bentley\Program\MicroStation\USTATION.EXEMicroStationDGN Йџџџџсa@0РFC:\WINNT\System32\stdole2.tlbstdole сџџџџ QPс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms ССщ1`CE€6ыC›ЊB+‚щ№5C:\DOCUME~1\WINGR~1.ENV\LOCALS~1\Temp\VBE\MSForms.exd ЁСЩ1pProcessSelection processTextЌјЩвOkIЙ№эзZQР modifyCase  setFenceLock getFenceLockRCaseFCasestem32\FM20.DLL˜Г€0* pH‚dфTextCase-4Change the cA( of t@ strings in a dgn file@Zdhan€ge tcsofex sбri1s Ђ - dCn*fl;]Z=О   ЖfNH %%<st`dole>‚ 9d(o* €G\€*\G{00€020430-C 0046}#2.0#0#C:\WINNT\System32\ƒ12.tlb#OLE Automation!DMSForms>!SFErJm…3€DD452EE1-E08F-101A-8-02608C4D0BB4 DDOWS\sEFM20.DLL#Microso(ft B Р. Object Library/;§"1РD@:H@СH@ 00}#0B@#Р Ѓ€ž50І€ ˆРA809743-EB36-431D-9BAA-42812B82E 9F@ЦXDOCUME~1[GR~1.ENV\LOCALSTem@p\VBE\DU.8exdр<€"€с.E р….@`ŒM ДШ‚УТвŠD @ modEЦGе€q@koЈT€ЅБЊC„З 2 Р(HB1ТЎУ*XB,B д4Š!B+BC#frђmK#fСS# Ѓ“Џa ЏЩŠ"т(ЂiclskђcРkssˆc“ЉocoЬ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{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files\Bentley\Program\MicroStation\USTATION.EXE#Bentley MicroStation DGN 8.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{809D4543-EB36-431D-9BAA-42812B82E9F0}#2.0#0#C:\DOCUME~1\WINGR~1.ENV\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџZChange the case of text strings in a dgn fileџџЖfNHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвŠmodTextCase0F486cd564џџmodTextCaseџџдŠУ*џџfrmTextCase0A486cd564џџfrmTextCaseџџЩŠa џџclsTextCase0B486cd564џџ[clsTextCaseџџСŠ0cџџ"modFenceFunctions0G486cd564џџф"modFenceFunctionsџџ<ˆHшџџ$modStringFunctions0H486cd564џџє$modStringFunctionsџџ>ˆ`јџџ frmTEG0E486cd564џџ­ frmTEGџџКxеџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!c&\IьяAЕƒ}}мЄзџџџџОмМтRI„•МƒVNЖџџџџІ%жд QBП›ю1ЉОџџџџФдL/lOДŠ=хHЋ 6џџџџ;Ы1ЎыЪyHŒ+Т њџџџџЁыwБЮE “5/Щqџџџџџџџџh€˜šџФ<a „ џImplements MicroStationDGN8Б VBAїтWin16С~Win32MacГВVBA6­#Ќ(TextCaseЮstdole“`MSFormsC modTextCase _Evaluateй CadInputQueueжl SendCommandcњ frmTextCaseŽq checkAllText yValueфKEnabledлЊActiveDesignFileяMFenceL IsDefined}T checkUseFenceљ comboFenceъAddItem‡  Ќ(getFenceLockV9ActiveModelReference‰ЮAnyElementsSelectedнЈShowѕЌ(ProcessSelectionФXrStatus}elEnumKUElementEnumeratorz<elScan5чElementScanCriteriaђ Ќ(setFenceLockžю GetContentsO0MsgBox—R vbExclamation…ШExcludeAllTypesyѓ IncludeTypeRбmsdElementTypeTextndmsdElementTypeTextNode>cScanDиGetSelectedElementsЦ CommandStateЙš StartLocateoŒ clsTextCaseхMoveNextL! Ќ(processTextŸxCurrenteБ ShowStatusхИelTextоКElement[oTextEl TextElementЛ1 oTextNodeEl^TextNodeElementч=oTagEl‰ TagElementыWi`RedrawжЫmsdDrawingModeEraseбb Ќ(modifyCase†iTextLinesCount5GTextLineыmsdElementTypeTag_fmsdDrawingModeNormalŠDRewrite'I textString  tempStringSˆ optionLowerкrLCase:щ optionUpperœ9UCase5  optionMixedYmStrConvx' vbProperCaseшї optionFirstњQЌ(FCaseЉ}optionCReverseќАЌ(RCaseŒToptionSReversezœ StrReverseŸbtnApply_Click;ЇbtnCancel_Clickeу btnOK_Clickа" imgTEG_ClickГ_ frmTEG"UserForm_ClickлјILocateCommandEvents„‘m_oStartElementѕ? m_tStartPoint’ДPoint3d‰rILocateCommandEvents_AcceptrЄPointєžViewаIILocateCommandEvents_CleanupŸILocateCommandEvents_DynamicsFѕDrawModeИ2MsdDrawingMode3œ!ILocateCommandEvents_LocateFailedёs!ILocateCommandEvents_LocateFilter Accepted†t IsTagElement_­ IsTextElement\€IsTextNodeElementD ILocateCommandEvents_LocateReset…ъStartDefaultCommandТяILocateCommandEvents_StartиЦlc^LocateCriteria–ˆCreateLocateCriteria+>SetLocateCriterianj ShowCommand7Ў ShowPromptaњ modFenceFunctionsСC fenceLockоаtempLockWШjaActiveSettingsђс FenceClipЊЮ FenceOverlap'й FenceVoid_Š modStringFunctionsюinStringсY outStringArtempChar™ЏIsNullЏФAsc!uSW_SHOWMAXIMIZEDœwSW_SHOWMINIMIZEDtџSW_SHOWDEFAULTJSW_SHOWMINNOACTIVEф_ SW_SHOWNORMAL„ ShellExecute˜"hWnd/С lpOperation8˜lpFile‡х lpParametersZ lpDirectoryЕenShowCmdžЗ shell32.dll+ˆUserForm_Initialize5cLabel1,Captionx cmdOK_ClickИ OpenLocationwa lblURL_ClickёЛURLљп WindowState|юlHWndу4lAnsЈg vbNullStringЎТ €џџџOnProjectLoadфaџџ„џџVBFrameџџџџџџџџџџџџКM__SRP_5џџџџY•fџџџџџџџџџџџџАUo џџџџЇџџџџџџџџџџџџѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ­џџџџџџџџ[џџџџџџџџхџџџџџџ џџџџџџ lA€@@‡ 2a-z 970-122K‚65С­! ) g& LЭс$5‚ El!{i U С2#$#NŸр‚#ЃЅ;& AџЅS?œaaoF]…š@??a ­?ЌЇSetЅe first }щ| to u№pper!ƒ~`сИРremainсКшƒ€are setaрlowerТ‰?…['ќ -…Т'azc?…џу#>СˆПх‘­b a~"ПЁCЩVDUlz1?az$vЉgІf,2)dЃѕ †§,0HlјpџџџџsЯвŠКџџˆЖџџ$0џџShellExecuteAџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SPџџџџSџџџџSџџџџSџџџџџџš0{6DF59730-1A15-4721-9121-376F05DDE75F}{DFCA0D8B-C577-4B3A-946F-858D2F15D12C}PpBјџџџџLџџџџџџџџџџџџџџBџџџџџџџџLџџџџџџџџџџџџџџџџџџ @„џџџџLџџ+ xџџџџџџџџџџџџџџџџИџџџџ iƒ џџџџџџџџџџи„џџџџiƒџџџџџџџџџџј„iƒџџџџџџџџџџ„iƒџџџџџџџџџџ8„iƒџџџџџџџџџџX„iƒџџџџџџџџџџџџџџ„ Иџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”  јџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Њ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” $xџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”,"џџџџџџџџџџџџџџџџџџџџИ џџџџџџМiƒ&џџџџџџџџџџи€iƒ(џџџџџџџџџџј€iƒўџџџџџџџџџ џџџџџџ `„*џџџџџџџџџџ`„,џџџџџџџџџџ€ўџxџџpџџHџџџџџџџџ%ўџџџџџџџџџ џџxџџџџџџџџ %BаџџџџLџџџџџџџџџџџџџџBџџџџLџџџџџџџџџџџџџџB(џџџџLџџџџџџџџџџџџџџxИј8Јј(џџџџџџџџџџџџџџџџџџџџxаџџџџxџџџџxџџџџЈHџџџџџџџџxџџџџ(xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЖfNHп ўЪ<€ џџџџ€€ џџџџ„ „ „ („ 8„ H€ џџџџH€,X€ џџџџ"xЬ€P€ џџџџ"X `p€ џџџџ"x.€А€ џџџџ€ џџџџ"И.Р№€ џџџџ€ ј€ € 6 € X€ 4`€ џџџџ€ 8˜€ .а€ џџџџ€ 6€ 8€ џџџџ€ <X€ :˜€ Bи€ џџџџB € џџџџ€0€8€ џџџџ.@€ џџџџ€ p€ џџџџ€ >€ >а€ € џџџџ 0€ џџџџ8@Эџџx]ЌђЈ'''']Ќђа'''']Ќ ђ'''']Ќђј'''']Ќђ( MІ"–x–xЖПThe Envision Group is an independent firm that provides MicroStation and InRoads training, plus consulting, visualization, and programming services for both government agencies and AEC firms. (oџџH–И џџA@roџџ(–јЖhttp://www.theenvisiongroup.net A@"oџџш–8Жhttp://www.theenvisiongroup.net A@"oџџЈрр From freevbcode.comр/ http://www.freevbcode.com/ShowCode.Asp?ID=12рр-PURPOSE: Opens default browser to display URLр1RETURNS: module handle to executed application orр'Error Code ( < 32) if there is an errorр/Use one of the constants in the declarations asрthe window state parameterр5can also be used to open any document associated withр4an application on the system (e.g., passing the nameр<of a file with a .doc extension will open that file in Word)І–x]ђ]ђ0І  *Жopen & . . ($ ',р OpenLocation = lAnsр8ALTERNATIVE: if not interested in module handle or errorр8code change return value to boolean; then the above lineрbecomes: ,Ќ '"iџџџџџџџџџџˆЕAttribute VB_Name = "frm@TEG" шBasџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџt0{6DF59730-1A15-4721-91376F05DDE75F}{DFCA0D8B-C577-4B3A-946F-858D2F1@5D12C} ШG lobalˆSpacoFalse ŠCreatablPredec$laIdбTru BExpose0Templa€teDeriv–Customiz‹D Option 1licit Const SW_SHOWMAXIMIZ”EDM3 IN† 2Œ DEFAULT€10NOA CTIVE7ŒРNORMALE&P€i€m D‘ Func,Shel lExecСƒLib "sA32.@dll" _@al ias " A" (ByVal hWnd As `Long,A ƒlРpOperaB@ЮSœСFi€qШ#@…Par@Єte rs Dire`ctory Fn@ShowCm$)#A A& EASub UserForm_Initialize() Label01.CaУt@ЧTh€e EnvisСxGroup is an indepent firm that provides MicroStBa€JInRoads trainiСDplus cБ€Šult@u#U ,dСg€EmEР €-vicРfor both governme€ agenci‘СAECТ$s.@мE€=QBcmdO(K_CрVk% UnrlР M hЫ'imgр…Ћ`>nLocЃ"http://www.theeЄ'g'.ne˜t",Ec#U ( k lblURL  Wp ' ' From freevbcode.ШcomС ЈЫ/‚MaAsp?ID=1@wa PUR@POSE: С!s defa@; brow`7 to Шdis y €as'RETURNS@: modu ch 7Р esd aLppр3#+or@Errр?Cр ( < 32) ifб OereDSe!т @] one oС‚Mtants W!o@сІ‚ €Zs  6 Bw`[ow s Wel pХr c _@Дo` be u!Њ@oР`€Uy docuAƒQssoci ŽdЙ` thР С nТsystem ( e.g., ssЛс\An@Ррa Y‰@"wiр]a .` @ extenrwАill тЂofЁ‹€in Word zЗgI†ž U( 0с„Sd”m ‰W"Сve!!ˆ)BooleanA с‰Dim lHч ƒkТAnт—ƒуRla= щЈ(Т, "b@, vрbNullШa ‹џC–€$Ёщ П!…'ALTERNAХЁХ:Ё"not№€VњeаdЁ л'а%$‘'Q1 c)ge return vPalueё,bs;б#ab0I li&nDтbe5esж:хœ (Т>a,s@Ѕё  i > 0#iрdInР^(1€Qd2,'РЃIf`= ^0С– _!a'Ђ рInsidСQіVA*E†H СCЫ g0E—IfƒЃЋu2"Є:jTc /џe€%$0ЃЧ4їh`@ jс0S A@ћ џ„D!С"хЄŸм}КСІЎ аA0nTextCase-4Change the crU€€€€~| џџџџџџџџfЂ - dCn*fl;]Z=О rU€€€ џџџџџџџџ(`§џџџџџџџџџџџ!0$Љ`§џџџџџџџџџџџnrms>!SFErJm…3€DD452EE1-E08F-rU€€€€~| џџџџџџџџfH@ 00}#0B@#Р Ѓ€ž50І€ ˆРA809№МдАџџџџъђвŠ>ˆџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџ€+žЈ`џџџџџџџџџџџџ@џџџџ((Œiƒіџџџџџџџџџџџџџџ€`„јџџџџџџџџџџ`„њџџџџџџџџџџ `„tџџџџџџџџџџsion+šџџџџ`џџџџџџџџџџџџшџџџџŒiƒіџџџџџџџџџџџџџџ€ј`„јџџџџџџџџџџeric`„tџџџџџџџџџџmodiЈџџџџџџџџƒєџџџџџџpџџџџџџџџџџџџџџ%џџџџ€џџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8ЖfNH$*\Rffff*0H486cd564пmodTextCaseџџџџ&џџџџеЮ7__SRP_2џџџџџџџџџџџџ•r__SRP_3%џџџџ‘№frmTextCase џџџџняkССАˆ•лѓШўЪS€€ џџџџ€ B€ P€ p€ x€ &ˆ€ А€ И€ а€ р€ №€ ј€ 8€ BH€ џџџџ€ џџџџ€ B€ и€ №€ € € "0€ X€ h€ €€ ˆ€ @ € BрB (€0€8€@€ џџџџ HX`h€ џџџџtringFunctions BaseClass=frmTEG HelpFile="" Name="TextCase" HelpContextID="0" Description="Change the case of text strings in a dgn file" VersionCompatible32="393222000" CMG="F8FA54A258A258A65CA65C" DPB="4F4DE3AE6D52D96FD96F2690DB704FA752E86CF76C8700A2454561DB1D7F950044D98061FB4268" GC="A6A40A0736098C0A8C0A8C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00rU€€€€~~~~~u aџџџџџџџџ џџџџџџџџ  џџџџ -ChangefџџџџџџџџџџџџвŠo"џџџџё,CompObjџџџџџџџџаaVBFrameџџџџџџџџџџџџЪP a ‰ UserForm_Initialize cmdOK_Click imgTEG_Click lblURL_Click OpenLocation \TUserForm_–Г€0* pH‚dфTextCase-4Change the cA0C911005A};VBE;&H00000000 [Workspace] modTextCase=61, 9, 800, 644, frmTextCase=66, 87, 802, 722, , 48, 92, 1047, 520, clsTextCase=88, 116, 866, 631, C modFenceFunctions=132, 174, 108A( of t@ strings in a dgn file@Zdhan€ge tcmodEЦGе€q@koЈT€ЅБЊC„З 2 Р(HB1ТЎУ*XB,B д4Š!B+BC#frђmK#fСS# Ѓ“ЏI ЏЩŠ"т(ЂiclskђcРkssˆc“Љoco2, 572, C modStringFunctions=80, 52, 1030, 450, C frmTEG=0, 0, 0, 0, C, 66, 87, 1027, 545, C efrmTextCasefrmTextCmodTextCasemodTextCasefrmTextCasefrmTextCaseclsTextCaseclsTextCasemodFenceFunctionsmodFenceFunctionsmodStringFunctionsmodStringFunctionsfrmTEGfrmTEGџџџџџџџџ(6@2.0#0#C:\WINNT\System32\ƒ12.tlb#OLE AutСr modFenceFuncЁpsGUСm ld ne€ŽcQ 8Fu"toЁ sв2п“Тяшя<ˆ+;Е@ SbЋH$!BShЅ‘32?лУяј`”-R>ьЁЋ1LEGGЂЋхKE6G)Ї2Ўя e9я$^oNР "џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ(`§џџџџџџџџџџџA0(Љ`§џџџџџџџџџџџA0n9FB-D8A9FF8C287E}rU€€€€~| р Referenced by:р - Subroutine TextCaseenр - Function processSelection@рр Description:џџџџр3 Gathers user selections for TextCase processing.џџxрL''''''''''''''''''''''''''''''''''''''''''''''''''''''',џџџџџџџџџџџџиџџ”€ўџHџџ@џџ'''''''''''''''''''''џџЭџџ0]@ђИ– 6'8oџџ–X џџA@rWWјoџџ№–˜ 6'8 џџA@reWoџџШ–oџџ˜–рoџџˆ ЌB@4џџ sЦџџџџ‚ƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџО”џџџџџџџџџџџџџџџџџџџџџџџџ•–—˜™š›ўџџџžŸЅџџџџџџџџџџџџџџџџџџџџІЇЈЉЊЋЌўџџџЎЏАБВГДЕЖЗМџџџџџџџџџџџџџџџџНўџџџЦџџџџџџџџџџџџџџџџџџџџџџџџџџџџЧЭџџџџџџџџџџџџџџџџџџџџIЯкџџџџџџџџџџџџџџџџџџџџжзийклмнсџџџџџџџџџџџџтуфхцчшщъыьэю№џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfџџџџџџџџџџџџŸŠo"џџџџлN,CompObjџџџџџџџџaVBFrameџџџџџџџџџџџџ—PCompObjџџџџџџџџџџџџЅpmodStringFunctions&џџџџџџџџџџџџŒi13џџџџ n`єЮ›ЭЊ`Ž WjѓЃУАˆ•лѓШ__SRP_6џџџџџџџџџџџџW^__SRP_0џџџџџџџџџџџџ% __SRP_1( џџџџўџџџџџџџџџџџџўџџџs џџџџџџџџџџџџўџџџ__SRP_7#џџџџTžfrmTEG')џџџџqЂ_VBA_PROJECTџџџџџџџџџџџџcБdirџџџџџџџџџџџџ;šp€ џџџџx Ј€ "И€ "р  08PX€ џџџџ`h€ џџџџ€ Bp€ И€ а€ р€ ј€ "€ 8€ H€ `€ h€ <€€ 8Р€ BјB @€H€P€ џџџџ Xhpx€ џџџџ€ € џџџџРШџџџџиЭџџxр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%р Module modStringFunctionsрр By:xр Rod Wing - The Envision Groupрр Functions:р RCaseр FCaseрр Description: Dр1 Generic VBA utilities that modify text stringsр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџр FunctiofrmTextCase$џџџџ^o clsTextCaseџџџџџџџџџџџџ­вmodFenceFunctions$ !џџџџœB__SRP_4џџџџџџџџџџџџ\^ the case of text strings in a dgn file ‰щelText textString fenceLockinString  Љ  i (  Љ 8 С 1 HhWnd lpOperationlpFile lpParameters lpDirectorynShowCmdURL WindowState'“K*mџџџџrU€€€~n RCaseр Scopeр - Publicр Argumentsр - inString as Stringр Returnsр - Stringрр Description:р: Reverses the case of all of the characters in a string.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–]ђ`]ђx]ђ і$ќœЖ'žzџџ˜kџџЖ'јџ tўЌ і’ і tЌ$ њ'њ њ$ўър ASCII codes for A-Z = 65-90р ASCII codes for a-z = 97-122јЌAЌZLT ј њ$ Œ'јSџџШ ј њ$ 'јnџџЈџЧ  ј'žiџџр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Function FCaseр Scopeр - Publicр Argumentsр - inString as Stringр Returnsр - Stringрр Description:р5 Sets the first character in a string to uppercase.р2 The remaining characters are set to lower case.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–Ј]ђ]ђ  і$ќœЖ'šzџџˆkџџ€ іЌЌ$ њ$ 'ј ј іЌ$ њ$ Œ'ј ј'šiџџ0џџџџ(џџџџГAttribute VB_Name = "modSАngFunctions" Op$ Explicit '9| Modu8le oBy: Rod Wing - The Envis— Group"‡%Ќ3Case F  DescriЬ(Generic€€A utilities thatLify text s=‰s€!;{Тœv RЁ‡rScopx `- Pub€еz ArgumenNt_inƒѓ as C RetxurnŠ †AЯPR evers‚Me c^ of al lt@lcharactР in КaS.;Sƒ8 ‹CJ(Ц5AХ5) †  С?Dim outƒ5tempC @-бiIntegerƒCIf @IsNullF )§СЋnC‚kСи@дСaСExitF0ƒ Eрnd IfУCЧ*шCFor i€1 To LenЧУ3= Mid$†, i, 1)Sele˜ct J`c(Hс 'ASCIIP cod@>fA-Z@65-90#‡ 2a-z 970-122K‚65С­! ) g& LЭс$5‚ El!{i U С2#$#NŸр‚#ЃЅ;& AџЅS?œaaoF]…š@??a ­?ЌЇSetЅe first }щ| to u№pper!ƒ~`сИРremainсКшƒ€are setaрlowerТ‰?…['ќ -…Т'azc?…џу#>СˆПх‘­b a~"ПЁCЩVDUlz1?az$~~~~~~~~~~~~Y Щ>Ь(Ї>AД€€ПщtЮю  фџџџџˆ 1џџџџ€џџџџЩ™Щџџщџџџџџџџџџџџџ џџџџџџџџџџџџ)ˆ 1џџџџ˜џџџџQyџџIˆ 1џџџџАџџџџЁЙџџyџџџџџџџџџџџџџџЉa‰iIvЉgІf,2)dЃѕ †§,required to have the userџџџџџџр select an elementCaseenрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ЭџџРŸ]@ђј]@ђ рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''рA The user accepted the element, call process text, the prompt forр another element.рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''І –p]ђ( f$^'8 џџ VB@Xoџ№„дАџџџџВтвŠ<ˆџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџH+BЈ`џџџџџџџџџџџџ@ џџџџ11Œiƒцџџџџџџџџџџџџџџ€ cls`„шџџџџџџџџџџ`„tџџџџџџџџџџ `„ъџџџџџџџџџџsion+.џџџџ`џџџџџџџџџџџџџџџџџџџџŒ`„цџџџџџџџџџџkџџџџџџџџЈƒфџџџџџџ8џџџџџџџџџџџџџџ%џџџџИџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЖfNH$*\Rffff*0G486cd564пўЪm€€ џџџџ€ B€ P€ p€ x€ &ˆ€ А€ И€ а€ ш€ € € B € $h€ B€ џџџџ€ Dи€  € @€ P€ h€ "€€ Ј€ И€ а€ и€ @№€ B0€ 2x€ DАB ј€€€€ џџџџ€ @Xh€ џџџџ€ <p А Р€ џџџџ€ *а€ џџџџ € ( @P€ X hx€ џџџџ€  И€ Ш р №€   € џџџџ(€ џџџџ€ D0€ x€ ˜€ Ј€ Р€ и€ №€ € €  € >8€ x€ D˜Bр€ш€ џџџџ № € & 8€ .P €   И Раи р€ &№  € .(  X  h  x ˆ     Ј € џџџџА И џџџџШ Эџџxр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%р Module modFenceFunctionsрр By:џџxр Rod Wing - The Envision Groupрр Functions: р setFenceLockр getFenceLockрр Description:''''р; Generic Microstation VBA utilities that will get and setџџр fence locks in a dgn file.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџр='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Function setFenceLockр Scopeр - Publicр Argumentsр - fenceLock as Stringр Returnsр - Booleanрр DescripTextCase modTextCase frmTextCase clsTextCasemodFenceFunctionsmodStringFunctionsfrmTEGяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Сџџџџ щQ0П—ŸЯђ9ŽKƒ\‹щщЏ[:C:\Program Files\Bentley\Program\MicroStation\USTATION.EXEMicroStationDGN Йџџџџсa@0РFC:\WINNT\System32\stdole2.tlbstdole сџџџџ QPс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms ССщ1`CE€6ыC›ЊB+‚щ№5C:\DOCUME~1\WINGR~1.ENV\LOCALS~1\Temp\VBE\MSForms.exd ЁСЩ1pProcessSelection processTextЌјЩвOkIЙ№эзZQР modifyCase  setFenceLock getFenceLockRCaseFCasea т ˆoLžЉГРкszudЈюvI?N‘~‹„ŸЅШtXЙЂ=D Юо/Єеœ>ЏoS“•˜AЛ№ЙвЏбъ(кўhM№ћIИљ6<єњС{lЏЮŸFЊWJOcmdOK!ш-ЌЂ6Я€SЊ` њ щџџџџџџџџ1јЅ’YL&i™’ eЦљimgTEG"žŒ—АдЮП-Њ?@аLabel3Label2lblURLLabel5Ш[qJ—І eР‹UserFormqАЄVзА<@…Шр‰К›x F3Dynamic y џџџџ џџџџЁ Label1 ShellExecute shell32.dll ShellExecuteA sofex sбri1s Ђ - dCn*fl;]Z=О   PwH %%<st`dole>‚ 9d(o* €G\€*\G{00€020430-C 0046}#2.0#0#C:\WINNT\System32\ƒ12.tlb#OLE Automation!DMSForms>!SFErJm…3€DD452EE1-E08F-101A-8-02608C4D0BB4 DDOWS\sEFM20.DLL#Microso(ft B Р. Object Library/;§"1РD@:H@СH@ 00}#0B@#Р Ѓ€ž50І€ ˆРA809743-EB36-431D-9BAA-42812B82E 9F@ЦXDOCUME~1[GR~1.ENV\LOCALSTem@p\VBE\DU.8exdр<€"€с.E р….@`ŒM ДШ‚УТвŠ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{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Program Files\Bentley\Program\MicroStation\USTATION.EXE#Bentley MicroStation DGN 8.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{809D4543-EB36-431D-9BAA-42812B82E9F0}#2.0#0#C:\DOCUME~1\WINGR~1.ENV\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџZChange the case of text strings in a dgn fileџџџџPwHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвŠmodTextCase1v48774f96џџmodTextCaseџџдŠУ*џџfrmTextCase2I48774fe2џџfrmTextCaseџџЩŠI џџclsTextCase1r48774f96џџ[clsTextCaseџџСŠ0cџџ"modFenceFunctions1w48774f96џџф"modFenceFunctionsџџ<ˆHшџџ$modStringFunctions1x48774f96tion:р9 Given a string containing the desired fence lock, thisр; function will reset the current fence lock. Returns Trueр, if setting the fence lock was successful.р='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–]ђ`]ђx]ђр9convert the input string to lower case to minimize checks ц$ Œ'шЗ'Bр6turn off the clip and overlap locks to avoid conflictsЗ ь(юЗ ь(№р#if the string coџџє$modStringFunctionsџџ>ˆ`јџџ frmTEG2K48775003џџ­ frmTEGџџ^xeџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџntains "void" i > 0Ќ шЖvoid…'t tЌœр Fence InsideЗ ь(ђdџџЈр Fence VoidЗ ь(ђkџџ€Ќ шЖoverlap…'tЌ шЖclip…'ъ tЌ œр Fence OverlapЗ ь(№ ъЌ eр Fence ClipЗ ь(юkџџиiџџар='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Function getFenceLockр Scopeр - Publicр Argumentsр -џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџЭПюŽђИ`BЌg1,н ЉџџџџOИИДD"CДQџГР­ќuџџџџѓСЭ€Ё@М›';ЦђpџџџџќЅРіIћ@ЏQЫŒ5еJФџџџџ2^ˆXOšIiˆˆ…ЩQџџџџjЧ“ВЯKЅ7RіуЅёеџџџџџџџџh€ЉЋџH?a „ џImplementsMicroStationDGN8БVBAїтWin16С~Win32MacГВVBA6­#TextCaseЮstdole“`MSFormsC modTextCase _Evaluateй CadInputQueueжl SendCommandcњ frmTextCaseŽq checkAllText yValueфKEnabledлЊActiveDesignFileяMFenceL IsDefined}T checkUseFenceљ comboFenceъAddItem‡  getFenceLockV9ActiveModelReference‰ЮAnyElementsSelectedнЈShowѕProcessSelectionФXrStatus}elEnumKUElementEnumeratorz<elScan5чElementScanCriteriaђ setFenceLockžю GetContentsO0MsgBox—R vbExclamation…ШExcludeAllTypesyѓ IncludeTypeRбmsdElementTypeTextndmsdElementTypeTextNode>cScanDиGetSelectedElementsЦ CommandStateЙš StartLocateoŒ clsTextCaseхMoveNextL! processTextŸxCurrenteБ ShowStatusхИelTextоКElement[oTextEl TextElementЛ1 oTextNodeEl^TextNodeElementч=oTagEl‰ TagElementыWi`RedrawжЫmsdDrawingModeEraseбb modifyCase†iTextLinesCount5GTextLineыmsdElementTypeTag_fmsdDrawingModeNormalŠDRewrite'I textString  tempStringSˆ optionLowerкrLCase:щ optionUpperœ9UCase5  optionMixedYmStrConvx' vbProperCaseшї optionFirstњQFCaseЉ}optionCReverseќАRCaseŒToptionSReversezœ StrReverseŸbtnApply_Click;ЇbtnCancel_Clickeу btnOK_Clickа" imgTEG_ClickГ_frmTEG"UserForm_ClickлјILocateCommandEvents„‘m_oStartElementѕ? m_tStartPoint’ДPoint3d‰rILocateCommandEvents_AcceptrЄPointєžViewаIILocateCommandEvents_CleanupŸILocateCommandEvents_DynamicsFѕDrawModeИ2MsdDrawingMode3œ!ILocateCommandEvents_LocateFailedёs!ILocateCommandEvents_LocateFilter Accepted†t IsTagElement_­ IsTextElement\€IsTextNodeElementD ILocateCommandEvents_LocateReset…ъStartDefaultCommandТяILocateCommandEvents_StartиЦlc^LocateCriteria–ˆCreateLocateCriteria+>SetLocateCriterianj ShowCommand7Ў ShowPromptaњmodFenceFunctionsСC fenceLockоаtempLockWШjaActiveSettingsђс FenceClipЊЮ FenceOverlap'й FenceVoid_ŠmodStringFunctionsюinStringсY outStringArtempChar™ЏIsNullЏФAsc!uSW_SHOWMAXIMIZEDœwSW_SHOWMINIMIZEDtџSW_SHOWDEFAULTJSW_SHOWMINNOACTIVEф_ SW_SHOWNORMAL„ ShellExecute˜"hWnd/С lpOperation8˜lpFile‡х lpParametersZ lpDirectoryЕenShowCmdžЗ shell32.dll+ˆUserForm_Initialize5cLabel1,Captionx cmdOK_ClickИ OpenLocationwa lblURL_ClickёЛURLљп WindowState|юlHWndу4lAnsЈg vbNullStringЎТ €џџџOnProjectLoadфaUserFormN btnCancelIVbtnOKd›btnApplyе'Frame1ЙcmdTEGЯ cmdTEG_Click- €џClickŠуcmdOK'imgTEG,ыLabel3,Label2Ž,lblURLЭЭLabel5‘, €џџџInitializeгNlblTEGŽЦ lblDisclaimermџџ„џџџџџџџџџџџџџџѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ­џџџџџџџџ[џџџџџџџџхџџџџџџ џџџџџџ lA€@@SPџџџџSџџџџSџџџџSџџџџ6"џџџџ<џџ<џџ<џџџџЌјpџџџџГ_вŠ^џџˆЖџџ$џџShellExecuteAџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(S<џџџџS<џџџџS<џџџџS<џџџџџџš0{116B35BA-3F4F-4291- Noneр Returnsр - Stringрр Description:р8 This function returns a string containing the currentр fence lock setting.р='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–Ј]ђш ь!ђœ ь!юœ%x%р Clip lock overrides Overlap lockЖ Void-Clip'цр 'set overlap to false to avoid confusionЗ ь(№ ь!№eЖ Void-Overlap'цdџџ@ЖVoid'цkџџ(dџџ  ь!юœр Clip lock overrides Overlap lockЖClip'цр 'set overlap to false to avoid confusionЗ ь(№ ь!№eЖOverlap'цdџџpЖInside'цkџџXkџџP ц'.iџџ@џџџџ8џџџџVДAttribute VB_Name = "modFenceFunctions"  Op$ Explicit '9| Modpule nBy: Rod Wing - The Envis– Group"%Ћ3setУLock g Descri‚lGeneric MicrostazVBA utilities that will( and K€51fš l9s in a dg€n file.€ыЛ–< '€ …‘X Ž ScopeС `- PubzCArguments Т:AW as S @‘ngƒReturnЪ BooleanРP]iveKs‚ cont(ainA|tР{de@sired GW,5aiDfЉƒdrec@e currР,H . „& Trвu;ifCt…‡ w€5succeрssful=pР_CT-a(BSAES) €FNeDim tHempЫ ХiA Integer-GjNУ'€YvertЂ%input ф/to`Xwer@ case  m€1miz€*heck/!&= LCѕ$‡)# @1ЦLрŠЃ.AсD offQу5lipЂio€l apФh avoiКdBf RPAA “ veSeta7s.т CA= FalіsР;ЕOф $РA#!NыPs "!"  i > 0#iрdInР^(1€Qd2,'РЃIf`= ^0С– _!a'Ђ рInsidСQіVA*E†H СCЫ g0E—IfƒЃЋu2"Є:jTc /џe€%$0ЃЧ4їh`@ jс0S A@ћ џ„D!С"хЄŸм}КСІЎ аПЎ­ЎNon F'`аЌІАГЌThiєs ЦЅrУД@jл.ЅPћєSЁ HTхRQПй Qљ(вO §р СO_R0gС# !љ?4ce24€ƒ8ŸD[›б'2#a} Б0rљP;s ѕ)a'сW {А”С-ё0”С5'wqj”5!VfAKзNuчAŽЋя ce‡2ˆOaџ‘B‚5ПЯ Дј џ+HЁ^йˆF›Я _џб3_И… _* ў РEH#aџђxСб?Az џП3eп"/_)7`]Ж {P% „lџџџџџџџџx - f% „pџџџџџџџџ˜ %`„tџџџџџџџџџџ +zџџџџ`џџџџџџџџџџџџјџџџџŒiƒ†џџџџџџџџџџџџџџ€ - f`„№”дxџџџџЁ]вŠСŠџџ€ЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ<џџА<џџf< Ж<џџМ<џџФ<џџк<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0 %*€БџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџH%џџџџџџџџh% И@џџџџџџџџџџџџџџџџАџџџџџџџџ ”)ƒfџџџџџџџџаи„ %)ƒКџџџџџџџџј€file%)ƒМџџџџџџџџ џџџџ„''''%`„8џџџџџџџџ џџР О€џџџџџџџџџџџџџџџџџџџџџџџџџџџџBCDB-F0E68AE05598}{6EB2F864-C725-4619-8A25-83426731BB09}џџџџА€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %@”џџџџџџџџLџџ.d@”џџџџџџџџLџџas@”џџџџџџџџLџџ.c@”џџџџџџџџLџџle@”џџџџџџџџLџџ+ иџџџџџџџџџџџџџџџџџџџџ iƒ џџџџџџџџџџ8„ctiƒџџџџџџџџџџX„huiƒџџџџџџџџџџx„\Eiƒџџџџџџџџџџ˜„atiƒџџџџџџџџџџИ„iƒџџџџџџџџџџџџџџ„џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ”  Xџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Њ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” $иџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”,"џџџџџџџџџџџџџџџџџџџџ џџџџџџМiƒ&џџџџџџџџџџ8€iƒ(џџџџџџџџџџX€iƒўџџџџџџџџџ џџџџџџ `„*џџџџџџџџџџ`„,џџџџџџџџџџџџџџPџџиџџџџџџџџџџџџџџџџиџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп ўЪ>€ џџџџ€€ џџџџ€ € € (€ 8€ H€ џџџџH€,X€ џџџџ"xЬ€8P€ џџџџˆ€ џџџџ" ˜Ј€ џџџџ"А.Иш€ џџџџ€ џџџџ"№.ј(€ џџџџ€ 0€ 8€ 6X€ € 4˜€ џџџџ€ 8а€ .€ џџџџ€ 68€ p€ џџџџ€ <€ :а€ B€ џџџџBX€ џџџџ€h€p€ џџџџ.x€ џџџџ€ Ј€ џџџџ€ >Ш€ >€ H€ џџџџXh€ џџџџџџџџxЭџџx]Ќђ`Ct]” Р8џџџџџџџџџџџџџџџџРџџџџџџџџ”)ƒКџџџџџџџџрш€ext,%)ƒМџџџџџџџџ„ј%)ƒТџџџџџџџџ0џџџџ„% Цxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Ш(џџџџџџџџџџџџџџџџИџџџџџџџџ ”)ƒfџџџџџџџџир„%)ƒКџџџџџџџџ€%iƒЪџџџџџџџџ џџџџџџ€ вhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” жџџџџџџџџџџЌђxCt]Ќ ђCt]ЌђЈCt]ЌђРCtІ"–и–иЖПThe Envision Group is an independent firm that provides MicroStation and InRoads training, plus consulting, visualization, and programming services for both government agencies and AEC firms. P(fЖ,This example application is freeware provided for the benefit of the MicroStation user community. The Envision Group does not provide any support or maintenance for this application. Use at your own risk. The Envision Group is not liable for any damages that may result from use of this application. R(oџџ– џџA@rRN˜oџџ–XЖhttp://www.theenvisiongroup.net A@"2)oџџP–˜Жhttp://www.theenvisiongroup.net A@"deoџџрр From freevbcode.comameterр/ http://www.freevbcode.com/ShowCode.Asp?ID=12 wрр-PURPOSE: Opens default browser to display URLe naр1RETURNS: module handle to executed application orр'Error Code ( < 32) if there is an errorр/Use one of the constants in the declarations asџџрthe window state parameterр5can also be used to open any document associated withorр4an application on the system (e.g., passing the namelineр<of a file with a .doc extension will open that file in Word)e€бeІ–иe]ђx]ђІ  *Жopen & . . ($ ',eр OpenLocation = lAnseр8ALTERNATIVE: if not interested in module handle or erroreр8code change return value to boolean; then the above lineeрbecomes:e ,Ќ '"iџџџџџџџџџџ9ЖAttribute VB_Name = "frm@TEG" шBast0{116B35BA-3F4F-4291-BCDB-F0E68AE05598}{6EB2F864-C725-4619-8A8342673@1BB09} ШG lobalˆSpacoFalse ŠCreatablPredec$laIdбTru BExpose0Templa€teDeriv–Customiz‹D Option 1licit Const SW_SHOWMAXIMIZ”EDM3 IN† 2Œ DEFAULT€10NOA CTIVE7ŒРNORMALE&P€i€m D‘ Func,Shel lExecСƒLib "sA32.@dll" _@al ias " A" (ByVal hWnd As `Long,A ƒlРpOperaB@ЮSœСFi€qШ#@…Par@Єte rs Dire`ctory Fn@ShowCm$)#A A& EASub UserForm_InitializeD() lblРТ. CaУt@ЧThe EnvisСxGroup is an indepent firm that provides M@icroStBa€JInRoads€ trainiСD@plus c€Šullt@u# ,UdСg€EmР €-vicРfor both go@vernme€ a`genciСAфECТ$s.@м@Р5DisРШimer#Ы exa`e 8app@XCРfr˜eew j…d t"benefiPt of eku#Р mmu +y.’ (doрnoІ% y suppo"r` r m $texnan@‚C ˆ.A8  -your own riskќ. q ! YˆЁ €any dam&€1a6may res 0 from  #Ќd) EР9IqKcmdOK_ŠCР(keJUnl? M`’ Rimg‡ NЋ hnLocƒ1"http://Pwww.р/eфQgСQ.net",…cHI€_ AURL   Wp ' ' F(Gvbco@de.comС 6 ЈЫ/ТwaAsРp?ID=1€Ёa PURPOSE: С!s defa!С4browСLto dis`Зy €A'RETURN€S: modu`ЎhрaР eCdЪ\Dor@Err jCр ( < 32H) i"[re„}e‡!т €‡ oneE_ССwtantsрbaЗ#бТ6Р„s  fw …ow sрe p c`‰€оo bвe!Od @o‹‚bdocuУ{ssociрИd wit>hР Сшu а system (e.Шg., ss!‡!юn€ЋР ;aАA q a .0 exƒ№6"Nwill ђђLfёZin WoМrd0Rw+fd‰*(P­ќYW’Pe5Y)€Boolean!JDim lHWЯ€5Рa‡[bAnaSStZ1= ™i(т, "С 1 , vРbNullSDhрbџБK C`@Qy АtlХ 'ALTEhRNAёw:Ё"Fiъn keаdЁ л'а%K$‘'Q1 c)ge€Gturn vPalueЁbs;%С$n%abP^ lLinDтbe5e,s:хœ (Ё >a,s@Ѕё$Љ`§џџџџџџџџџџџnџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<q rU€€€€~| џџџџџџџџfџџџџ@a ‰ аф„ўД вŠЩŠџџˆЖџџџџџџџџxџџг“I^ишЌOКMѓ•аЦK`к­ь,wNЏ† gхA'FSX<Ѕиj{Eƒ`ОуЛџџџџџџџџџџџџџџџџџџџџџџ ” „иџџџџџџџџР %€ўџџџџџџџ№џџШџџџџџџџџ%"€В џџџџHџџџџџџџџџџџџ"€Дџџџџџџџџhџџџџџџџџџџџџџџџџ8p (€јhџџџџџџџџџџџџџџџџxџџџџ@џџџџppџџџџјШџџџџhџџџџ ШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHЖfNHпўЪP€ J€ P€ h€ p€ :ˆ€ Ш€ Jш€ џџџџ€8€ џџџџ€@€ џџџџ€H€P€ џџџџ€ JX€ HЈ€ №€ J"X€hp€€ џџџџ€ J˜€ $ш€ J"`€ џџџџh€ џџџџ€ Jp€ .Р€ J№"@€ џџџџP€ џџџџ€ JX€ 2Ј€ Jр"08H€ џџџџ€ JP€ , € Jа" € џџџџ0PX`hp€ џџџџ€ Jx€ *Ш€ Jј"H P`€ џџџџ€ Jh€ И€ Jи"(€0€ џџџџ8P€ џџџџ`(x € џџџџ€ џџџџ€ џџџџџџџџАрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Class clsTextCaseрр Description:xр4 This class structure is required to have the userџџџџџџр select an elementCaseenрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ЭџџРŸ]@ђј]@ђ рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''рA The user accepted the element, call process text, the prompt forр another element.рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''І –p]ђ( f$^'8 џџ VB@XoџџhрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Do any cleanup prior to exitрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–@oџџрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р' Do any processing for dynamic draggingрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''І–€oџџЈрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р, Did not find an element, restart the locateрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–8 џџ VB@XoџџАрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р& Allow only selection of text elementsрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''І –x f!Ь f!Ю f!аœЗ'Ъdџџ З'ЪkџџoџџˆрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р# User hit the reset button, so exitрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–( VB@дoџџ˜рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Start the element locateрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–h]ђЈэЗ V%м.и иџџџџџџџџfџџџџ џџ ЄXџџџџrU€€€ џџџџџџџџ(`§џџџџџџџџџџџ!0$Љ`§џџџџџџџџџџџnџџџџџџџџџџџџџ” ЊџџџџrU€€€€~| џџџџџџџџfџџџџџџџџ”€ўџˆџџ€аф„џџџџзC вŠЩŠџџˆЖџџџџџџџџџџџџ…’\а:iB d#ў…&Pи У€UšФ'KЙEœљRЙк7ЪЄ/Œ LGŸm“ЉІ№МдАџџџџъђвŠ>ˆџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџ€+žЈ`џџџџџџџџџџџџ@џџџџ((Œiƒіџџџџџџџџџџџџџџ€џџџџ`„јџџџџџџџџџџџџџџ`„њџџџџџџџџџџ `„tџџџџџџџџџџsion+šџџџџ`џџџџџџџџџџџџшџџџџŒiƒіџџџџџџџџџџџџџџ€ј`„јџџџџџџџџџџeric`„tџџџџџџџџџџmodiЈџџџџџџџџƒєџџџџџџpџџџџџџџџџџџџџџ%џџџџ€џџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8PwH$*\Rffff*1x48774f96п VB@оЖ Text CaseA@рЖSelect text element to changeA@тoџџXџџџџPџџџџkДAttribute VB_Name = "clsTextCaseh" ˆBLˆ0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalЮSpacиFalse dCreatablPredecdlaIdCE xposeTemplateDeriv–CustPomiz E'A ' Class Ж  Description:С Thistructure requi€‚ to have the userselec t an meŒnt C^ OТ'B €Ylici@  IРTes ILoc€WComm andEvРs 0 P€[Р m_oStartEТl As „Щ‚tТPointAy3dС1@ITL accept€‚P„K, cal€l proce@jtРФ,‚X@mptˆ foZano :rY.Y‚7GBSubRT_A-(ByValPШR, _˜ S, УАViewaс)У Dim r`0tus!BooleaЖncх=Х#!†(„8'фФ?!e. rt УB M ~End ŸП9‚!ŸЁ9Do€]&y@jРup iorracex!T?'‰П2_CЁ$up(  | пŸ)ШфRing!Q dynamic drag>g€ _ ?_Dy#s(oKPЯLEOD€rawModeLјMsdСр!IAX_)+B)id Рw fiРQЅ, rьes”Т}l‚™џ) џ)_ЃdFailœedЁHСiubi?‘AllowР only sdрh№ of QPЅN0]??Эc5ilјterOtG OЯ(уRŸ0^рfФL2:ёIfT@.IsTag |Ory`€N?,Х`etRБv= иTruАOAEr‘Ÿ1(дŒQСCIfŸ/_ёU`‚ hit.а.et p ton, soў SџЯЯA6Resetџ.tДcDefaultџ„0OЯABjћ$€ П??ŸЏЎExlcaQ‘#ACriр/ia#xЭSS€0= B"Дњe[(С'UЪ ›ˆ lc*howД "q~ ЄС1*SРШProё"SPЇƒ)BсwchangЁФШpБJЖ Void-Overlap !*B@,Ж Void-Clip !*B@,р4set the default fencelock to the current active lock . !*(ddџџ`р(no fence, disable fence controls on formЗ !(( З !*( р<if no selection set is defined, enable all elements controls1C23A}џџџџџџџџ џџ ЄXџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” І˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Јиџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Њџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџˆџџ€џџXџџџџџџџџ%ўџџџџџџџџџАџџˆџџџџџџџџ %b€8џџџџџџџџ џџџџџџџџџџџџџџџџџџ˜XИџџџџџџџџџџџџиџџџџ№џџџџИXџџџџџџџџџџџџИˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ рЖfNHпўЪ$€ R€ X€ p€ x€ € Ј€ А€ Ш€ $ш€ € € :0€ Rp€Ш€а€ џџџџ"ирш€ џџџџ"№ ј€ џџџџ" 0€ џџџџ"8 @P€ џџџџ"X€ џџџџ`џџџџpрL'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Tр Form: frmTextCaseрр Required Modules:р - modTextCaseрр Referenced by:р - Subroutine TextCaseenр - Function processSelection@рр Description:џџџџр3 Gathers user selections for ўЪS€€ џџџџ€ B€ P€ p€ x€ &ˆ€ А€ И€ а€ р€ №€ ј€ 8€ BH€ џџџџ€ џџџџ€ B€ и€ №€ € € "0€ X€ h€ €€ ˆ€ @ € BрB (€0€8€@€ џџџџ HX`h€ џџџџp€ џџџџx Ј€ "И€ "р  08PX€ џџџџ`h€ џџџџ€ Bp€ И€ а€ р€ ј€ "€ 8€ H€ `€ h€ <€€ 8Р€ BјB @€H€P€ џџџџ Xhpx€ џџџџ€ € џџџџРШџџџџиЭџџxр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%р Module modStringFunctionsрр By:rxр Rod Wing - The Envision Grouplрр Functions:lacр RCasevр FCasedрр Description: Dр1 Generic VBA utilities that modify text stringsр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџр Function RCaseр Scopeuр - Public''р Argumentsction р - inString as String р Returnsр - Stringрр Description:Striр: Reverses the case of all of the characters in a string.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ce loc–]ђ`]ђx]ђ і$ќœrentЖ'žzџџ˜kџџЖ'јџ tўЌ і’the і tЌ$ њ'њfu њ$ўъ=''р ASCII codes for A-Z = 65-90''''''р ASCII codes for a-z = 97-122ђјЌAЌZLT ј њ$ Œ'јput SџџШ ј њ$ 'јmizenџџЈџЧ  ј'žiџџр<'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ь(р Function FCaset р Scopetrр - Public> р Argumentsvoidр - inString as Stringe Insiр Returnsр - StringFeрр Description:€р5 Sets the first character in a string to uppercase.Ќр2 The remaining characters are set to lower case.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–Ј]ђ]ђ  і$ќœ''''Ж'šzџџˆkџџ€ іЌЌ$ њ$ 'ј ј іЌ$ њ$ Œ'ј'' ј'šiџџ0џџџџ(џџџџГAttribute VB_Name = "modSАngFunctions" Op$ Explicit '9| Modu8le oBy: Rod Wing - The Envis— Group"‡%Ќ3Case F  DescriЬ(Generic€€A utilities thatLify text s=‰s€!;{Тœv RЁ‡rScopx `- Pub€еz ArgumenNt_inƒѓ as C RetxurnŠ †AЯPR evers‚Me c^ of al lt@lcharactР in КaS.;Sƒ8 ‹CJ(Ц5AХ5) †  С?Dim outƒ5tempC @-бiIntegerƒCIf @IsNullF )§СЋnC‚kСи@дСaСExitF0ƒ Eрnd IfУCЧ*шCFor i€1 To LenЧУ3= Mid$†, i, 1)Sele˜ct J`c(Hс 'ASCIIP cod@>fA-Z@65-90#‡ 2a-z 970-122K‚65С­! ) g& LЭс$5‚ El!{i U С2#$#NŸр‚#ЃЅ;& AџЅS?œaaoF]…š@??a ­?ЌЇSetЅe first }щ| to u№pper!ƒ~`сИРremainсКшƒ€are setaрlowerТ‰?…['ќ -…Т'azc?…џу#>СˆПх‘­b a~"ПЁCЩVDUlz1?az$vЉgІf,2)dЃѕ †§,џџџВтвŠ<ˆџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџH+BЈ`џџџџџџџџџџџџ@ џџџџ11Œiƒ№„дАџџџџВтвŠ<ˆџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџH+BЈ`џџџџџџџџџџџџ@ џџџџ11Œiƒцџџџџџџџџџџџџџџ€ cls`„шџџџџџџџџџџ`„tџџџџџџџџџџ `„ъџџџџџџџџџџsion+.џџџџ`џџџџџџџџџџџџџџџџџџџџŒ`„цџџџџџџџџџџkџџџџџџџџЈƒфџџџџџџ8џџџџџџџџџџџџџџ%џџџџИџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPwH$*\Rffff*1w48774f96пўЪm€€ џџџџ€ B€ P€ p€ x€ &ˆ€ А€ И€ а€ ш€ € € B € $h€ B€ џџџџ€ Dи€  € @€ P€ h€ "€€ Ј€ И€ а€ и€ @№€ B0€ 2x€ DАB ј€€€€ џџџџ€ @Xh€ џџџџ€ <p А Р€ џџџџ€ *а€ џџџџ € ( @P€ X hx€ џџџџ€  И€ Ш р №€   € џџџџ(€ џџџџ€ D0€ x€ ˜€ Ј€ Р€ и€ №€ € €  € >8€ x€ D˜Bр€ш€ џџџџ № € & TextCase processing.џџxрL''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџЭџџ0]@ђИ– 6'8oџџ–X џџA@rјoџџ№–˜ 6'8 џџA@roџџШ–и ЌB@4oџџЈ–oџџ˜џџџџџџџџВAttribute VB_Name = "frmTextCaseh" ˆBLˆ0{53BCDDD8-FCFE-4CD2-A9FB-D8 F8C287E}{4E8932DC-8D9BJ1-BE46-324AFC€31C23A} d@GlobalSpac’False ŠCreatablPredeHclaIdГTru BExpose0TemplateDeriv–Customi z‹D'I ' РForm: ˆЬ A Requiq Modules: - modт  ReferHenceby†Subroutine Ш Function processSeleDescr ip„Gathers user s… s forУFEing.?JQG OB# vl€icit PРnРp rStatus As BooРlean GA btnApply_C€k() F AЦ = PAE˜nd @Ca€YlKUnloadЬ MЁOKЇ'imgTEGK‘EG.Showє ”U@8N'Hџџ<џџ<џџџџџџš0{04ADDA01-rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ,б`§џџџџџџџџџџџщ=Щ(љ`§џџџџџџџџџџџ0n`џџџџџџrU€€€€~| џџџџџџџџџџџџџџџџ\`џџџџџџџџџџџџџџџџџџџџиџџ”€ўџHџџ@џџџџџџџџџџ%ўџџџџџџџџџpџџHџџџџџџџџ %b€8џџџџ4џџ џџ@џџџџџџџџ "и`џџџџџџџџџџџџ|џџџџџeдџџœiƒўџџџџџџџџџџџ№ьдиџџџџ5Н*вŠдŠџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<<џџ@<џџZ0џџf<џџj<n<џџr6 џџџџџџџџџџˆ  @`џџџџџџџџџџџџџџџџџџџџџџFF„+6и`џџџџџџџџџџџџџџџџ џџџџDDŒ`„8џџџџџџџџ џџsion „:џџџџџџџџА D% Є>џџџџџџџџаnges%+^И`џџџџџџџџџџџџ џџџџ@@Œ)ƒeџџџџџџџџ8џџџџ€ower % „hџџџџџџџџX (or% „lџџџџџџџџx - f% „pџџџџџџџџ˜ %`„tџџџџџџџџџџ +zџџџџ`џџџџџџџџџџџџјџџџџŒiƒ†џџџџџџџџџџџџџџ€ - f`„8€ .P €   И Раи р€ &№  € .(  X  h  x ˆ     Ј € џџџџА И џџџџШ Эџџxр<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%р Module modFenceFunctionsрр By:џџxр Rod Wing - The Envision Groupрр Functions: р setFenceLockр getFenceLockрр Description:''''р; Generic Microstation VBA utilities that will get and setџџр fence locks in a dgn file.р<''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџр='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџр Function setFenceLockressр ScopeyAр - PublicWWр ArgumentsWWр - fenceLock as StringttonWWр Returnsр - Booleanusрр Description:lWWWр9 Given a string containing the desired fence lock, thisр; function will reset the current fence lock. Returns Trueџџџџџџр, if setting the fence lock was successful.џџџџр='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–]ђ`]ђx]ђр9convert the input string to lower case to minimize checks ц$ Œ'ш''З'Bр6turn off the clip and overlap locks to avoid conflicts, DЗ ь(юd an eЗ ь(№start р#if the string contains "void" i > 0''''''Ќ шЖvoid…'t'' tЌœ''''р Fence Insideџџ VЗ ь(ђџџАdџџЈр Fence VoidЗ ь(ђ''''''kџџ€Ќ шЖoverlap…'tble prЌ шЖclip…'ъct tЌ œelemр Fence Overlap''''З ь(№'''''' ъЌ e''''р Fence ClipЗ ь(юle thekџџиiџџар='''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ˆр Function getFenceLock''''р Scope''р - Public''р Argumentsr hit р - None exiр Returnsр - String''рр Description:''''р8 This function returns a string containing the current''р fence lock setting.''''р=''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' –Ј]ђш ь!ђœ ь!юœџџџџџџр Clip lock overrides Overlap lockџџЖ Void-Clip'цџџџџр 'set overlap to false to avoid confusionџџЗ ь(№џџџџџџ ь!№eџџџџџџЖ Void-Overlap'цџџџџdџџ@ЖVoid'цџџџџkџџ(dџџ  ь!юœџџџџџџр Clip lock overrides Overlap lockЖClip'цр 'set overlap to false to avoid confusionЗ ь(№ ь!№eЖOverlap'цdџџpЖInside'цkџџXkџџP ц'.iџџ@џџџџ8џџџџVДAttribute VB_Name = "modFenceFunctions"  Op$ Explicit '9| Modpule nBy: Rod Wing - The Envis– Group"%Ћ3setУLock g Descri‚lGeneric MicrostazVBA utilities that will( and K€51fš l9s in a dg€n file.€ыЛ–< '€ …‘X Ž ScopeС `- PubzCArguments Т:AW as S @‘ngƒReturnЪ BooleanРP]iveKs‚ cont(ainA|tР{de@sired GW,5aiDfЉƒdrec@e currР,H . „& Trвu;ifCt…‡ w€5succeрssful=pР_CT-a(BSAES) €FNeDim tHempЫ ХiA Integer-GjNУ'€YvertЂ%input ф/to`Xwer@ case  m€1miz€*heck/!&= LCѕ$‡)# @1ЦLрŠЃ.AсD offQу5lipЂio€l apФh avoiКdBf RPAA “ veSeta7s.т CA= FalіsР;ЕOф $РA#!NыPs "!"  i > 0#iрdInР^(1€Qd2,'РЃIf`= ^0С– _!a'Ђ рInsidСQіVA*E†H СCЫ g0E—IfƒЃЋu2"Є:jTc /џe€%$0ЃЧ4їh`@ jс0S A@ћ џ„D!С"хЄŸм}КСІЎ аПЎ­ЎNon F'`аЌІАГЌThiєs ЦЅrУД@jл.ЅPћєSЁ HTхRQПй Qљ(вO §р СO_R0gС# !љ?4ce24€ƒ8ŸD[›б'2#a} Б0rљP;s ѕ)a'сW {А”С-ё0”С5'wqj”5!VfAKзNuчAŽЋя ce‡2ˆOaџ‘B‚5ПЯ Дј џ+HЁ^йˆF›Я _џб3_И… _* ў РEH#aџђxСб?Az џП3eп"/_)7`]Ж {Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ<џџЌ<џџf<џџВ<џџИ<џџР<џџж<(џџ<,џџ<0џџ<4џџ№”дxџџџџЁ]вŠСŠџџ€ЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ<џџА<џџf< Ж<џџМ<џџФ<џџк<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}0 %*€БџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџH%џџџџџџџџh% И@џџџџџџџџџџџџџџџџАџџџџџџџџ ”)ƒfџџџџџџџџаи„ %)ƒКџџџџџџџџј€file%)ƒМџџџџџџџџ џџџџ„''''%`„8џџџџџџџџ џџР О€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Р8џџџџџџџџџџџџџџџџРџџџџџџџџ”)ƒКџџџџџџџџрш€ext,%)ƒМџџџџџџџџ„ј%)ƒТџџџџџџџџ0џџџџ„''''% Цxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” Ш(џџџџџџџџџџџџџџџџИџџџџџџџџ ”)ƒfџџџџџџџџир„''''%)ƒКџџџџџџџџ€p pr%iƒЪџџџџџџџџ џџџџџџ€'''' вhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” жџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ” „иџџџџџџџџР% %€ўџџџџџџџ№џџШџџџџџџџџ%"€В џџџџHџџџџџџџџџџџџ"€Дџџџџџџџџhџџџџџџџџџџџџџџџџ8p (€јhџџџџџџџџџџџџџџџџxџџџџ@џџџџppџџџџјШџџџџhџџџџ ШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHPwHпўЪP€ J€ P€ h€ p€ :ˆ€ Ш€ Jш€ џџџџ€8€ џџџџ€@€ џџџџ€H€P€ џџџџ€ JX€ HЈ€ №€ J"X€hp€€ џџџџ€ J˜€ $ш€ J"`€ џџџџh€ џџџџ€ Jp€ .Р€ J№"@€ џџџџP€ џџџџ€ JX€ 2Ј€ Jр"08H€ џџџџ€ JP€ , € Jа" € џџџџ0PX`hp€ џџџџ€ Jx€ *Ш€ Jј"H P`€ џџџџ€ Jh€ И€ Jи"(€0€ џџџџ8P€ џџџџ`(x € џџџџ€ џџџџ€ џџџџџџџџАрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџџџр Class clsTextCaseрр Description:xр4 This class structure is required to have the userџџџџџџр select an elementCaseenрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''e˜ДeЭџџРŸ]@ђј]@ђ рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''exЕeрA The user accepted the element, call process text, the prompt forр another element.рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''eІ –p]ђ( f$^'8џџ џџ VB@XџџoџџhрD'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Bhмр Do any cleanup prior to exitџџџџрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Дџџџџ–@oџџрD'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %р' Do any processing for dynamic draggingрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''unctioІ–€џџoџџЈрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''for anр, Did not find an element, restart the locatetting рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–8 џџ VB@X''oџџАрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ble prр& Allow only selection of text elementsрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''le theІ –x c f!Ь f!Ю f!аœ!З'Ъdџџ З'ЪkџџoџџˆрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''p р# User hit the reset button, so exitVoidрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–( VB@дult feoџџ˜рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''sable р Start the element locateрD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''lement–h]ђЈэЗ V%м.и ! и VB@о!Ж Text CaseA@рˆЖSelect text element to changeA@тoџџXџџџџPџџџџkДAttribute VB_Name = "clsTextCaseh" ˆBLˆ0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalЮSpacиFalse dCreatablPredecdlaIdCE xposeTemplateDeriv–CustPomiz E'A ' Class Ж  Description:С Thistructure requi€‚ to have the userselec t an meŒnt C^ OТ'B €Ylici@  IРTes ILoc€WComm andEvРs 0 P€[Р m_oStartEТl As „Щ‚tТPointAy3dС1@ITL accept€‚ˆџџџџџџџџџџ - sџџџџИ@иџџџџџџџџ - sƒџџџџџџxџџџџџџџџџџџџџџ%џџџџxџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0ЖfNH*\R1*#120$*\Rffff*0F486cd564п-ўЪ € J€ P€ `€ h€ &x€  € Ј€ <Р€ €  € &@€ "h€ € "А€ и€ $р€ €  € @€ `€ J€€ џџџџ€а€ џџџџ€ Jи€ (€ H€ X€ p€ ˆ€  € Ј€ Р€ и€ р€ ј€ €  € 0€ P€ X€ Jp€ HР€ € J "px€ џџџџ€ ,Ра€ џџџџ€ р€ 4HXh€ џџџџ€ (x Ии№(€ џџџџ€ :Hˆ˜€ . ар€ џџџџ€ B№ 8 H Xhp€ џџџџ€ x  € џџџџ€ JЈ€ ј€  € ( € @ € X € p € € € ˜ €   € А € а € № € ј €  € ( € 0 € H € h € p € ˆ €   € Ј € DР € J € FX € 0  € Fа € 0 € JH B˜ €  €Ј €А € џџџџИ € џџџџ€ &Р ш € & 0  @ X  p x  F€  Ш а € џџџџ€ *и  (8HP„K, cal€l proce@jtРФ,‚X@mptˆ foZano :rY.Y‚7GBSubRT_A-(ByValPШR, _˜ S, УАViewaс)У Dim r`0tus!BooleaЖncх=Х#!†(„8'фФ?!e. rt УB M ~End ŸП9‚!ŸЁ9Do€]&y@jРup iorracex!T?'‰П2_CЁ$up(  | пŸ)ШфRing!Q dynamic drag>g€ _ ?_Dy#s(oKPЯLEOD€rawModeLјMsdСр!IAX_)+B)id Рw fiРQЅ, rьes”Т}l‚™џ) џ)_ЃdFailœedЁHСiubi?‘AllowР only sdрh№ of QPЅN0]??Эc5ilјterOtG OЯ(уRŸ0^рfФL2:ёIfT@.IsTag |Ory`€N?,Х`etRБv= иTruАOAEr‘Ÿ1(дŒQСCIfŸ/_ёU`‚ hit.а.et p ton, soў SџЯЯA6Resetџ.tДcDefaultџ„0OЯABjћ$€ П??ŸЏЎExlcaQ‘#ACriр/ia#xЭSS€0= B"Дњe[(С'UЪ ›ˆ lc*howД "q~ ЄС1*SРШProё"SPЇƒ)BсwchangЁФШpБJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<џџ<џџ<џџџџџџš0{04ADDA01-2CEC-4E77-AF86-0B67E5412746}{A53C5853-6AD8-457B-8360-BEE3BB1551EHq‘YyxБфBeJЋp`џџџџџџџџџџџџ|џџџџџeиџџœiƒўџџџџџџџџџџџџџџџџџ ressџџџџ ˜XИџџџџџџџџџџџџиƒўџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџўџџџџџџџџџџџџџџџ@џџџџџџџџXџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџh|рШџџџџџџџџџџџџџџџџџџџџџџ џџџџпўЪ$€ R€ X€ p€ x€ € Ј€ А€ Ш€ $X€ џџџџ€ 0p  А€ џџџџ€ 4Рј € џџџџ(€ џџџџ€ 08 hx€ џџџџ˜€ џџџџИР€ џџџџ€ JШ€ € 8€ H€ `€ x€ ˜€ Ј€ Р€ Ш€ "р€ € €  € @€ H€ H`€ JЈ€ JјB H€P€X€`€h€ џџџџpx€ џџџџ ˆ€ &˜Р Ши€ џџџџ€ "№ € џџџџ€ *0` "x € џџџџ€ ЈШ ар€ џџџџј€ џџџџ€ DH Xhp€ џџџџ€ Jx€ Ш€ ш€ ј€ € $(€ P€ `€ x€ €€ ˜€ А€ И€ а€ №€ ј€ € 0€ 8€ H€ `€ x€ €€ L˜€ Jш€ 68€ JpB Р€Ш€ џџџџ ар №   8H Xh xˆ˜€ џџџџ Ј€ џџџџџџџџИрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Text Caseрр By:р Rod Wing - The Envision Groupџџрр Description:џџџџр5 Changes the case of text elements in a dgn file toџџџџр - all upper caseџџр - all lower caseџџр - mixed (or proper) caseџџр - first letter upperџџџџџџр - reverse the caseр - reverse the stringџџџџџџрр Will accept processing via:јр - fenceр - selection setр - single elementр - entire fileрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Эџџ(рC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Subroutine: TextCaseр Scopeр - Publicр Argumentsр - noneрр Required Forms:р frmTextCaseрр Required Modules:рш€ € € :0€ Rp€Ш€а€ џџџџ"ирш€ џџџџ"№ ј€ џџџџ" 0€ џџџџ"H XP€ џџџџ"8€ џџџџ@џџџџpрL'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Tр Form: frmTextCaseрр Required Modules:р - modTextCaseрџџџџ"ВAttribute VB_Name = "frmTextCaseh" ˆBLˆ0{5580C30D-C49A-4B27-B945-9CF952B9DA07}{2FA4CA37-A08C-474C-9F6D-93A9A6487191} dGlobalSpacA’False ŠC€reatablPredecla‰IdГTru BРExpose0Template Deriv–Cu@stomiz‹D'I ' For8m: ˆЬ  Requiq Mod ules: р- modт  Referenc eby†Subr€outine Ш  Function proceРssSele€Descrip„Gathers€ user s… `s forFEi8ng.?JG OB# vlici0t PРnРp rStatus As Boolean GA btnApply_CС€k() AЦ = PAEnd S@Ca€YlKU€nload MЁ9OKЇ'cm0dTEGK‘EG€.Show ”U@8N'HprU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ,б`§џџџџџџџџџџџщ=Щ(љ`§џџџџџџџџџџџ0nџџџџ"иrU€€€€~| џџџџџџџџџџџџџџџџ\ VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTe modFenceFunctionsрр Calls:р Function getFenceLockрр Description:рD Starts the text case program by checking for an existing fence orрA selection set, setting the proper form controls, then displaysр the form.рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–Жnull B@р%disable process all elements controlsЗ !(З !( рcheck if fence is drawn "!$!&œр-enable the fence related controls on the formЗ !(( З !((З !*( р"populate the fence lock selectionsЖInside !*B@,ЖOverlap !*B@,ЖClip !*B@,ЖVoid !*B@,Ж Void-Overlap !*B@,Ж Void-Clip !*B@,р4set the default fencelock to the current active lock . !*(ddџџ`р(no fence, disable fence controls on formЗ !(( З !*( р<if no selection set is defined, enable all elements controls 0!2œЗ !(З !( kџџkџџˆрdisplay the form B@4oџџXрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Function processSelectionр Scopeр - Publicр Argumentsр - Noneр Returnsр - Booleanрр Calls:р Function processTextр Function setFenceLockрр Required Forms:р frmTextCaseрр Required Modules:р modFenceFunctionsрр Required Classes:р clsTextCaseрр Description:р= Called by OK and Apply button click events on frmTextCase.рD This function will build an element enumeration set from a fence,р? selection set, or all text elements and process all elementsр* within the set if selected by the user.р? Will also prompt for selection of a text element if the userр) has opted for single element selectionрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–@]ђ€]ђ˜]ђИЗ'6р process text as defined by fence !(! !(! œрmake sure text is still defined "!$!&œ !*!d$Bœэ "!$!D.:kџџˆdџџ€ЖNo active fence - please redraw HЖCannot process textA@Fzџџ0kџџ(р$process all text in the activ№ьдиџџџџ5Н*вŠдŠџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<<џџ@<џџZ0џџf<џџj<n<џџr6 џџџџџџџџџџˆ  @`џџџџџџџџџџџџџџџџџџџџџџFF„+6и`џџџџџџџџџџџџџџџџ џџџџDDŒ`„8џџџџџџџџ џџsion „:џџџџџџџџА D% Є>џџџџџџџџаnges%+^И`џџџџџџџџџџџџ џџџџ@@Œ)ƒeџџџџџџџџ8џџџџ€ower % „hџџџџџџџџX (or% „lџџџџџџџџx - f% „pџџџџџџџџ˜ %`„tџџџџџџџџџџ +zџџџџ`џџџџџџџџџџџџјџџџџŒiƒ†џџџџџџџџџџџџџџ€ - f`„ˆџџџџџџџџџџ - sџџџџИ@иџџџџџџџџ - sƒџџџџџџxџџџџџџџџџџџџџџ%џџџџxџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0PwH*\R1*#120$*\Rffff*1v48774f96п-ўЪ € J€ P€ `€ h€ &x€  € Ј€ <Р€ €  € &@€ "h€ € "А€ и€ $р€ €  € @€ `€ J€€ џџџџ€а€ џџџџ€ Jи€ (€ H€ X€ p€ ˆ€  € Ј€ Р€ и€ р€ ј€ €  € 0€ P€ X€ Jp€ HР€ € J "px€ џџџџ€ ,Ра€ џџџџ€ р€ 4HXh€ џџџџ€ (x Ии№(€ џџџџ€ :Hˆ˜€ . ар€ џџџџ€ B№ 8 H Xhp€ џџџџ€ x  € џџџџ€ JЈ€ ј€  € ( € @ € X € p € € € ˜ €   € А € а € № € ј €  € ( € 0 € H € h € p € ˆ €   € Ј € DР € J € FX € 0  € Fа € 0 € JH B˜ €  €Ј €А € џџџџИ € џџџџ€ &Р ш € & 0  @ X  p x  F€  Ш а € џџџџ€ *и  (8HX€ џџџџ€ 0p  А€ џџџџ€ 4Рј € џџџџ(€ џџџџ€ 08 hx€ џџџџ˜€ џџџџИР€ џџџџ€ JШ€ € 8€ H€ `€ x€ ˜€ Ј€ Р€ Ш€ "р€ € €  € @€ H€ H`€ JЈ€ JјB H€P€X€`€h€ џџџџpx€ џџџџ ˆ€ &˜Р Ши€ џџџџ€ "№ € џџџџ€ *0` "x € џџџџ€ ЈШ ар€ џџџџј€ џџџџ€ DH Xhp€ џџџџ€ Jx€ Ш€ ш€ ј€ € $(€ P€ `€ x€ €€ ˜€ А€ И€ а€ №€ ј€ € 0€ 8€ H€ `€ x€ €€ L˜€ Jш€ 68€ JpB Р€Ш€ џџџџ ар №   8H Xh xˆ˜€ џџџџ Ј€ џџџџџџџџe model !! !! e >B@J N >B@L P >B@Lэ > 0%R.:р)process all text within the selection set 0!2eэ 0!T.:р-prompt the user to select the text to processdџџЦ VB@XЗ'6zџџрkџџи :А›Gzjр)process all text with the enumeration set :!\b :!`$^'8ЙџџhЖTextCase completedA@bЗ'6iџџ8рC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Function processTextр Scopeр - Publicр Argumentsр - elText as Elementр Returnsр - Booleanрр Called by:р Function processSelectionрр Callsр Function modifyCaseрр Description:рA Given an element, this function will determine if it is a textрD element, modify the string appropriately, and update the dgn fileрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–и]ђ@]ђ`]ђ€]ђ З'^ x dB@v d!lър simple text elements - type=17 NKTэ d.h h!d$z h(dр text node elements - type 7 PKTэ d.lр$change case of individual text linesџ tўЌ l!|’ t l%~$z t l,~џЧX р tag elements - type 37 €KTэ d.p p!$z p(nџИрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Text Caseрр By:др Rod Wing - The Envision Groupрр Description:р5 Changes the case of text elements in a dgn file toр - all upper caseџџр - all lower caseџџр - mixed (or proper) caseџџр - first letter upperџџџџџџр - reverse the caseр - reverse the stringџџџџџџрр Will accept processing via:јр - fenceр - selection setр - single elementр - entire fileрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџџџЭџџ(рC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''р Subroutine: TextCaseџџџџр Scopeр - Publicр Argumentsр - noneрр Required Forms:р frmTextCaseрр Required Modules:р modFenceFunctionstivateрр Calls:WWр Function getFenceLockџџрр Description:рD Starts the text case program by checking for an existing fence orрA selection set, setting the proper form controls, then displaysр the form.рD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''–Жnull B@р%disable process all elements controlsЗ !(З !( рcheck if fence is drawn "!$!&œр-enable the fence related controls on the formЗ !(( З !((З !*( р"populate the fence lock selectionsЖInside !*B@,ЖOverlap !*B@,ЖClip !*B@,ЖVoid !*B@,џЖ Void-Overlap !*B@,Ж Void-Clip !*B@,р4set the default fencelock to the current active lock . !*(ddџџ`р(no fence, disable fence controls on formЗ !(( З !*( р<if no selection set is defined, enable all elements controls` 0!2œmTЗ !(6З !(  kџџkџџˆрdisplay the form B@4џџџџџџoџџXрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџџџр Function processSelectionр Scopeџџр - Publicџџр Argumentsџџџџџџр - Noneџџџџр Returnsр - Booleanџџрр Calls:џџр Function processTextџџр Function setFenceLockџџрр Required Forms:џџр frmTextCaseџџџџрр Required Modules:р modFenceFunctionsџџџџџџрр Required Classes:р clsTextCaseЕƒ}}рр Description:џџџџр= Called by OK and Apply button click events on frmTextCase.џџџџрD This function will build an element enumeration set from a fence, Micrр? selection set, or all text elements and process all elementsр* within the set if selected by the user.р? Will also prompt for selection of a text element if the usereŽр) has opted for single element selectionрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ceъ–@]ђ€]ђ˜]ђИЗ'6р process text as defined by fencele !(! !(! œocesрmake sure text is still defined "!$!&œat !*!d$BœElemэ "!$!D.: Ќ(kџџˆdџџ€ЖNo active fence - please redraw HЖCannot process textA@Fzџџ0kџџ(р$process all text in the active modelextNod !! !! eElem >B@JComman N >B@Lar P >B@Llsэ > 0%R.:xtL!р)process all text within the selection set 0!2eTextоКэ 0!T.:р-prompt the user to select the text to processNodedџџЦ VB@X З'6zџџрkџџи :А›Gzjр)process all text with the enumeration set :!\bGT :!`$^'8ementTЙџџhЖTextCase completedA@bReЗ'6iџџ8рC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџџџр Function processTextџџџџр Scopeџџр - Publicџџр Argumentsџџџџџџр - elText as Elementр Returnsр - Booleanџџрр Called by:џџџџџџр Function processSelectionџџџџџџрр Callsџџџџр Function modifyCaseNЦЦЦрр Description:џџџџрA Given an element, this function will determine if it is a textрD element, modify the string appropriately, and update the dgn fileџџџџџџрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џџџџџџ–и]ђ@]ђ`]ђ€]ђ З'^ x dB@vџџ d!lъџџџџџџр simple text elements - type=17џџ NKTэ d.hџџџџџџ h!d$z h(dџџр text node elements - type 7џџџџџџ PKTэ d.lџџџџџџр$change case of individual text linesџџџџџџџ tўЌ l!|’џџ t l%~$z t l,~@ААА§§џЧX р tag elements - type 37џџ €KTэ d.pџџџџџџ p!$z p(џџnџџ р=reset the drawing mode to normal and rewrite the text elementџџџџ ‚ dB@vџџ dB@„џџџџџџЗ'^iџџˆ рC''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''':р Function modifyCaseџџџџџџр Scopeџџр - Publicр Argumentsџџџџџџр - textString as Stringџџџџр Returnsр - Stringџџрр Required Forms:џџр frmTextCaseџџџџрр Required Modules:р modStringFunctionsрр Called by:џџџџџџр Function processTextџџрр Calls:џџр Function RCaseр Function FCaseрр Description:'JJJрF Given a string this function will check the form for the processingџџџџрC option selected, then perform that operation on the text string.џџџџџџр0 The function will return the modified string.џџрC'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''џўўўЖЖ–И]ђ !Šœџџџџџџ †$ Œ'ˆџџ !Žeџџџџџџ †$ 'ˆџџ !’eџџџџЕЕ † –$”X 'ˆттџџ !˜eDDD †$š'ˆ(ƒ !œeџџџџџџ †$ž'ˆџџ ! eџџџџџџ †$Ђ'ˆџџkџџ` ˆ'ziџџPџџџџHџџџџПЖAttribute VB_Name = "modTextCaseА" '@Š ЄŽ ІBy: Rod Wing - The Envisio€n Group"%Descript5ChangPes t2cЉ of tЕ elements in a dgn €file toG - all Рupper  low mixed (or pr o)ŽfirsРt lett/‰,revers€DЫ„X• sЩng€Wi€UaccepBt>>ЕЕЕххх>>>kkk222NNNьььџџџџџџооо!!!ЛЛЛЊЊЊgggГГГœœœ???QQQhhhХХХEEE)))```ччч•••@@@лллmmmUUUЭЭЭ>>>ccc---hhhіііџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўўўaaaUUUлллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџОООeee§§§џџџџџџџџџџџџџџџџџџџџџџџџџџџ………!!!бббџџџџџџџџџџџџєєє&&&aaaћћћџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўўўrrrПППџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИИИААААААААААААжжжЬЬЬДДДњњњџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьььААААААААААААдддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвввБББјјјџџџџџџџџџџџџћћћАААЯЯЯўўўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§§§ХХХœœœ   иииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§§§юююџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџњњњ~~~^^^кккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџіііdddUUUаааџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђђђTTT NNNЦЦЦџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьььDDD GGGЛЛЛўўўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэээнннќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџффф777@@@ААА§§§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџффффффџџџџџџџџџџџџџџџџџџџџџџџџгггЇЇЇ­­­кккўўўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџллл***:::ЄЄЄќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџъъъЈЈЈќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџкккoookkk•••уууџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџааа """ООО333444™™™њњњџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџююю“““JJJТТТџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџєєєxxx'''JJJ™™™хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџУУУ)))мммџџџъъъ;;;...ŽŽŽїїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџююю˜˜˜,,,^^^ъъъџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўўўЖЖЖ"""JJJ———сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЕЕЕ000тттџџџџџџџџџюююDDD(((ƒƒƒѓѓѓџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџььь•••***ЃЃЃќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшшш^^^EEEŒŒŒжж槧§џџџџџџџџ