аЯрЁБс>ўџ ўџџџ}џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdФ HшџџџџЮ 2|ыvыџџˆЖџџt4џџSHBrowseForFolderA<<џџџџFindWindowA4\( SHGetPathFromIDListAџџџџџџџџџџџџџџџџџџџџџџџџџxџџMEHџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<<џџЄ<џџџџџџš0{2E813880-0CCE-4BE8-BD99-926C16EC3B49}{B6E53F90-3ACC-4225-97C6-5E7D10019992}џџџџP Єџџџџџџџџ%џџџџџџџџџџџџџџ`„џџџџџџџџџџ`„ џџџџџџџџџџ`„"џџџџџџџџџџ`„$џџџџџџџџџџthem`„&џџџџџџџџџџ tha`„(џџџџџџџџџџprev`„*џџџџџџџџџџble `„,џџџџџџџџџџawin@”.џџџџџџџџLџџRoot Entryџџџџџџџџ ЋgќЉыХР4VBA_ProjectџџџџPЮ^П@ДН ЋgќЉыХVBAџџџџџџџџ PЮ^П@ДН :eќЉыХForm1 №i*ЦмЮž˜ЊWJO@aП@ДН@aП@ДН §џџџ I 91!"#$%&'()*+,-./0ўџџџ23456ўџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџJ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџPROJECTwmџџџџџџџџ PPROJECTџџџџџџџџџџџџfџџџџџџџџ8зoџџџџџџџџџџџџ6xўџџџG ўџџџ !"#$%&'()*+,-.H0123ўџџџ5ўџџџ7ўџџџ9:;ўџџџ=ўџџџ?@AўџџџCDEFўџџџўџџџIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijўџџџlmnopqrstuvwxyz{|}~€ID="{F23F955B-2032-11D2-B66F-0060B087E235}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Form1 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6466FF90012505250525052505" DPB="F5F76E036E956F956F95" GC="86841D8E3F8ED18FD18F2E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Form1=-3, 3, 770, 727, Z, 54, 43, 763, 665, Module1=11, 74, 697, 417, isDrawingForm1Form1Module1MThisDrawingThisDrawingForm1Form1Module1M‚В€0* pH‚dф ACADProject8@е = t  ОШz:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE AutomatioFn^€MSForms>BSFEr@ms3€DD452EE1-E08F-1 01A-8-02608C4D0BB4 DDOWS\sEFM20.DLL#Micr@osoft ‚: €] Ob­ Library/;§D1€„€tˆ€ˆ€ 00}#0‚€#€б0€rCompObjџџџџ џџџџ4nVBFrameџџџџџџџџџџџџ/#ThisDrawingџџџџ џџџџ˜хForm1 џџџџџџџџ%Module1 џџџџk4 _VBA_PROJECTџџџџџџџџџџџџdirџџџџџџџџџџџџ †__SRP_5џџџџџџџџџџџџўџџџ#Module1џџџџџџџџџџџџўџџџљ__SRP_2џџџџџџџџџџџџўџџџX __SRP_3џџџџџџџџџџџџўџџџl_VBA_PROJECTџџџџџџџџџџџџўџџџdirџџџџџџџџџџџџўџџџE__SRP_0џџџџџџџџџџџџўџџџЊ0__SRP_1џџџџџџџџџџџџўџџџХVBA_Project_Version(џџџџџџџџџџџџв€ €30A4C36Z71D4-B11І105A11B3C9P.TEM@P\VBE\„G.8exd /€с.E р….@`ŒM ДС™Т”Т|ыТ–ThisDra€wingG€ Thi€^D rawРnЈg 2 €(HB1Ё%XB,B r”ы"B+BЖad1G €1›Р†2ŒO8O:vD(BХ‚žodXule@ƒžo@СuwBСA2ФІ ЯMЂЯtы!HТoft = ` ObА LibrarFy90€r€?30A4C3<6F€?Ѕ?>PЬ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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type 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{30A4C36F-176F-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџОШz: џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|ыThisDrawing1[44e5c8e0џџThisDrawingџџrы%џџ Form11]44e5c8e0џџ Form1џџvы8џџModule11^44e5c8e0џџДModule1џџtы0MџџџџџџPVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Form1 Caption = "Save To R2000" ClientHeight = 3495 ClientLeft = 1545 ClientTop = 1830 ClientWidth = 3855 StartUpPosition = 0 'Manual TypeInfoVer = 259 End ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq(€AProcessENu€ЅTahomaЎ(€DCancelЎEOu€ЅTahomaЎ(, cџџ}Rу ‘ЮуЊKИQј$Tahoma€ƒ$х€<cmdApplyOи(х €<cmdCancelmИи$е€,#Frame2Ўддўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq(€BrowseЎNu€ДArialЎ€H€,T{7€ @УTahomaЎ(€ClearЎNu€ДArialЎ`€SЁ 5€УTahomaЎDH  c€€џџ }Ю1Drawings to UpdateЖRу ‘ЮуЊKИQМ_TahomaЌ„(х €8CmdBrowsemИ"д(х €b8DwgFoldermИд"$х€c8CmdClearд$х€-4ListBox1дžodule1n” JЉдБZГЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТ‚ВШхNOІ‚ЧФЏюёњџџџџEїВ †HЕr7+чЯ;џџџџЇ@з)eояCЎ™(єо8™nџџџџџџџџ0€cdџд2AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйForm1†colDwgsH CollectionщW BROWSEINFOЗYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSŽulFlagsэСlpfnВЖlParam…7iImageUрMAX_PATHЇ(SHBrowseForFolder"№ lpBrowseInfo№r shell32.dll+ˆ FindWindowK lpClassName‚з lpWindowNameЈuser32*ЮSHGetPathFromIDListKœpidlЎЇpszPath№˜cmdApply_Clickм/intCnt.- DwgFolderpListBox1›ы ListCount6 ApplicationЅ* DocumentsМList*“ ZoomExtentsћ+Regen ўacAllViewports,Save’аHide9zcmdCancel_Click\еCmdBrowse_Click№l ReturnFolderєlngHwnd›ЅBrowserап lngFolder strPathlчstrTempM vbNullCharкYRight CmdClear_ClickуMsgQЕStyleХpTitleђ~HelpfCtxtЊлResponse—ЌMyStringі vbOKCancelx? vbQuestionЪвvbDefaultButton2ДСMsgBox—RvbOKШ%ClearуЭDwgFolder_ChangeFЊFindFileў[ AddToList&fileswXstrDirўєstrExt„ќ strFileNameлe vbDirectorygкUCase5 AddїrobjBoxv ListBox™фNamesЮП Error_ControlЈCount0vAddItem‡  Exit_HereiЖErroŠNumberЃ-Module1b SaveToR2000;МShowѕ AcadDocumentZUserFormNcmdApplyЌž cmdCancelЭ CmdBrowsex”Frame2ЙCmdClearcoџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ Е  џџџџџџџџџџџџџџџџџџџџџџџџ 6ˆџџџџcc|ыtыџџЖџџ№\дˆџџџџcG|ыtыџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH Жџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€ € €  € @(€ >h€ DЈ€ .№€ . € @P€ € ˜€ А€ *И‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—ўџџџ™š›œžŸ ЁЂЃЄЅІЇўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ ш€ J№€ J@€ :€ Nа€ > € P`€ PА€ .€ 0"8 @Pџџџџ`рр ad_SaveToR2000рр9 This routine opens an older versioned drawing without aр8 bitmap preview and saves it the R2000 format so thatџџр= a preview bitmap is available when browsing for drawings.џџр' It works on entire drawing folders.р' Developed for AutoCAD 2000 and above.р: Demand load: -vbarun;ad_SaveToR2000.dvb!ad_SaveToR2000;рр version 1.00рр# CopyrightЉ2000-2006 ActiveDwg.comџџџџррC This routine is provided for demonstration purposes only and mustрC not be used for critical applications without your verificationџџџџр3 that this routine will perform as you intended.џџрG This routine may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact.рJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.Aр– B@И1-8oџџ˜џџџџ џџџџуВAttribute VB_Name = "Module1" ' ad_SaveToR2000TThis routine opens an older versioned drawing withV aЂ bitmap preview9d scs i@t the j format sвoat:a5D‡available when рbrowsv@‚s.?It works on e ntire†Rf_A„DevelldC AutoCA D Waboveƒ)Demand load: -vbarun;A ›.dvb! ;GH‚I— 1.ЏCopyright Љ8-6 ActiveDwg.8comŠУ…pr0ovidН‚}em€onstratЧ purpose‰|lybmus…Unot be us„critic€al applEAsЦqyou‚yiіf„2 ТiР!…†will perA€#m as @ рintenР(ƒOJ0may!freecР(@—lizD$ТoФwnAson€&+с‡longФЉФucotxџџџџџџџџџџџџџџџџ8џџHџџ iƒ@џџџџџџџџџџX„iticiƒBџџџџџџџџџџџџџџ„ ver Dаџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”`„FџџџџџџџџџџG ^џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” `Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”,b8џџџџџџџџџџџџџџџџџџџџџџМiƒdџџџџџџџџџџА€J iƒўџџџџџџџџџџџџџџџ ity „fџџџџџџџџшask.%`„hџџџџџџџџџџј`„jџџџџџџџџџџ`„lџџџџџџџџџџ r џџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”@„tџџџџџџџџ џџ@„vџџџџџџџџ џџ@„xџџџџџџџџ џџ@„zџџџџџџџџ џџ@„|џџџџџџџџ џџ@„~џџџџџџџџ џџ@„€џџџџџџџџ џџ Ž`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ”  џџџџџџџџџџџџџџџџ џџџџџџџџ”)ƒ”џџџџџџџџРШ‚%Iƒ–џџџџџџџџ џџш€Iƒ˜џџџџџџџџ џџџџџџ€@„šџџџџџџџџ џџ,’џџџџџџџџџџџџџџџџџџџџ` џџџџџџ М)ƒЂџџџџџџџџ€ˆ€%)ƒІџџџџџџџџЈА€%iƒўџџџџџџџџџ џџџџџџ `„Fџџџџџџџџџџ€ўџџџџџшџџџџџџџџ%ўџџџџџџџџџ@џџџџџџџџџџ %џџџџА џџџџџџџџџџшџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп$ўЪ†€ € €  € H(€ Bp€ DИ€ .€ @0€ p€ x€ € *˜€ Ш€ Jа€ J € :p€ NА€ >€ P@€ P€ .р€ €€ €(€0€8€@€H€P€X€`€h€p€ x€ џџџџH€ˆH€˜H€А€ џџџџ"Ш€а€ џџџџи€ џџџџрј8@ P ` p€ ˆ˜€ џџџџ" ЈА€ џџџџ"ИРа€ џџџџB и€р€ш€№€ј$8PXp€ˆ˜Ииш№ј€ џџџџ"€,@`x ЈИ Раи€ џџџџ"рш(08€ џџџџ" @€HPp€ˆЈ$Ирј   € џџџџB  € ( 0 H  ` €p x € €ˆ & И Р џџџџа рр ad_SaveToR2000ррA This routine opens a folder of older versioned drawings withoutр; bitmap previews and saves them the R2000 format so thatр= a preview bitmap is available when browsing for drawings.р' Developed for AutoCAD 2000 and above.џџр: Demand load: -vbarun;ad_SaveToR2000.dvb!ad_SaveToR2000;рр version 1.00џџџџрр# CopyrightЉ2000-2006 ActiveDwg.comџџџџџџррC This routine is provided for demonstration purposes only and must020рC not be used for critical applications without your verification0#Cр3 that this routine will perform as you intended.OLEрG This routine may be freely utilized for your own personal use so longAр8 as the entire contents of this header remain intact.NрJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.рЭџџШ]@ђ№ ^ђ8^ђP^ђh^ђ€^ђ˜^ђА^ђШ^ђрpџџp]DЌђјІ–І–xІ –ј–x]ђИЩ H$~Ќ œџ FўЌ J!LЌ ’ F J%R N!PB@A@T X B@VŸђ B@ZГй B@BSџ FўШtkџџ` B@\oџџH–аgџџ8oџџ0–Ќ$b'Hoџџ–P]ђа]ђ№]ђ]ђ  fѕ d9ЖSelect Directory to work in9$ .Ќ$\9"qџџ .Ќ$\'j f$0'h hœ h jA@> j j n„Ќ $м'l lЌ$pЖ\œ lЖ\'lkџџј l'bkџџшiџџр–8]ђxђђЈђРђиђ№ђatЖClear Drawing List?'t ‚ „ † 'vЖ Clear Files'x t v x$ˆ'~ ~ ŠœЖ'H JB@Œkџџoџџ–  H$~Ќ œ1.  HЖdwgA@a J $’œkџџИkџџАoџџЈ–`]ђ –Ќ$pЖ\œA –Ж\'–kџџ` –Ж*.* œ$~'šb. šЖbФ šЌ$p$ž ˜$žœ – š ”B@ PEkџџш ~'šЙџџиoџџа– ]ђаЩЈИџ FўЌ І!Њ’Х F$І ЂB@Ќ$џ FўШ_PLЃЎpЗ'’zџџ`ЃЈXЖUnexpected error, А!ВA@ˆФЗ'’iџџ џџџџ0џџџџаИAttribute VB_Name = "For m1" рBasp0{2E813880-0CCE-4BE8-BD99-926C16EC3B49}{B6E53F90-3ACC-4225-97C6-5E7D10€019992} Ш@Global‡SpacoFalse ŠCreatablPredeHclaIdаTru BExpose0TemplateDeriv–Customiz‹D' ' ad_SaveTРoR2000 ‚ This routine opens a fol€der of €version;drawings` with€‚! bitmap €preview!nd s6s thhem ‚:€,r@mat so€ a:t„a…#€$avail‚1whenР brows !.ТDeve l@.dТAutoCAD С8 a€! aboveE mAload: -€vbarun;ЫE .dvb!‹;€#B„A 1.ЧOCopyrightЉA-6 ActРhDwg.com Z8provid€Tfor demonstrat!€Y pur‚s аonly1mРu‚ not be uŠcritical applA†g you™‚oif„Dth@atЩ~will p„erРm asAР intenР(ƒOJ0may!freЦeР(€liz3ТˆownAson€&У+|longФ@† entireЈ cot№ 0 T bCс`!•=СoАstBox1.‘Couq0- 1с єQ.Docаnts.іOаpЋ(Q  Б@ZoomExАEtsчRDƒr.RegрkacAllVБ qporŸ"u.Сyу?0o.Cl€Ѕagф #5IfГ mШ1.Hpe qр оCance>lыа/0˜Cm6dг2+ f0;ReturnS(09щub ї;КlnИgHw0AЄER%S6IћQ#Гra#‹OСрCџс•Hаtћ*„С”kёwWрŒ „.y$U= є BїQ ЉSeСY №(0ZoryТ dworkР0Є˜ .3ЙV= у’(•N, q ‘џё!U ЯФї }P>( *№2Ч2SHГПBv, Б СEЂ=7ft(Д, In  чvbNullChar)& p5в №(R‘‘a, 1) €<> "\")*;їpd•&A3бх-џ‰#0'дqUqub/С`,Clear[,!!Msg,аyle, ђo, Help, Ctxt,š Ip0jРMy3зЃ `P"B ?C? # vbOKC7 + vbQues€СDefaultButtxon2ƒ3x0&ЃF№iles$ЕPр§@M(`Ы їШ!|R§щ;"ф1MARвRв БљSub­І_P јngeC_ [[‘r Х,gE, "d wg” РAddTъoб (% ,U %Е П“5Б#U ГHа •(ByRef fџQQAg—т0>r`^’џ4D1 ‘zёА Ї.ђŸ.џ№*Р„V. ?…pаС3AА*.x*",р#рGуoш Wh  ‘Жa6ц"ђƒ8UCАђ7 uШ, 3 t= уРїAЫ9b. б@“H 7л!C6=БQLoopЫe a‡objБBox As List , NamesˆColl€ection)8Boolean Dim i ntCnt`In teger0On Error GoTo_Conаtrolџ4§ѕlxџ=@џ@џДk>џ)xџ@џ˜@ $š dџxџ@џhџDџD%ѕl\џ \џ:Lџ ]ћ<<џ5\џ\;§,џ:Lџ ћя\џb%ѕ§,џ:Lџћя\џ F<џќіlџ5\џlџ:Lџ]ћ<\џ\§>ѕlџ\џ \џ<џ <џlџ џћ/ џ6\џ<џџ\н+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џb`8џџџџџџџџ8)` %џџџџџџџџџџ1I=љ//@i` )џџџџџџџџџџ™џџџџ=a=љ#$Љ`<џџџџџџџџџџq pp(ћlџ\џ<џџ џИє„KfєzџtџH $ltџфўcpџ\*'@џPџzџM`џ@H PџH L6Pџ@џ zџdpџ(єџ„H'џ'(џ'@џѕtџ <џ<џ ltџћў#8џ*FPџ /8џ<џ6Pџ@џ(џџє„dИ$f $8џ<џPџ@џ(џџHLPDT  #€-4ListBox1дžbedded ObjectForms.Frame.1є9Вq(€NJob No.:EЈu€ЅTahomaЎ$@„H€,€Щ9888З€ @ДМArialЎ(€NOld:ЩЈu€ЅTahomaЎ€H€,Щ5€ЅArialЎ ( €NFinish 1:aEЈu€ЅTahomaЎ(@„H€,€ЩC756/0ЎЗ€ @ДМArialЎ(@„H€,€Щ C923ЎЗ€ @ДМArialЎ ( €NFinish 2:aEЈu€ЅTahomaЎ(@„H€,€ЩC757/3ЎЗ€acad @ДМArialЎ(@„H€,€Щ C924ЎЗ€ @ДМArialЎ(€NNew:ЩЈu€ЅTahomaЎ@H  a€€џџN}u“ Text to UpdateЗRу ‘ЮуЊKИQМ_Tahoma а‹(ѕ€W€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2lateDeriv$eCus`tomizˆ2ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq(€BrowseЎ{u€ЅTahomaЎ€H€,T{7€ @УTahomaЎ`€SZ 5€УTahomaЎўџџџџџџџˆџџџџџџџџџџџџџџ$‚ џџџџўџџџИџџўџџџџџџџџџџџ$ƒўџџџџџџџшџџџџџџџџџџџџџџ$ƒўџџџџџџџџџџџџџџџџџџџџџ$‚ џџџџўџџџHџџўџџџџџџџџџџџ$ƒўџџџџџџџxџџџџџџџџџџџџџџ$ƒўџџџџџџџЈџџџџџџџџџџџџџџ$‚ џџџџўџџџиџџўџџџџџџџџџџџ$ƒўџџџџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџ8џџџџџџџџџџџџџџ$‚ џџџџўџџџhџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDH  0€€џџ}ФDrawings to ModifyRу ‘ЮуЊKИQМ_Tahoma„ƒ(х €8CmdBrowseЎEд(х €/8DwgFolderЎдИ$х€-4ListBox1еЙZГЩЂЏw-6дБZГЩІЏw-6дБZГЩЊЏw-6дБZГЩЎЏw-6дБZГЩВЏw-6дБZГЩЗЏw-6дБZГЩйuŽ!=в…Ф  Ц&ёйuŽ!=в…Ф  Ц&ё1џџџџ6ЇьCЎбЂх`Аk-FСЏw-6дБZГЩўЪџџџџџџџџx­АAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2dŠTru "E xposeTemplateDeriv$eCus`tomizˆ2`§џџџџџџџџџџџpЮЏw-6дБZГЩчЏw-6дБZГЩ TextReplace &ё1џџџџ6ЇьCЎбЂх`Аk-FСЏw-6дБZГЩЮЏw-6дБZГЩчЏw-6дБZГЩ TextReplace ё)YБqбY1p й "$х€4ListBox1№U (х €@CmdBrowseВВŽ#"џџ$ƒўџџџџџџџ˜џџџџџџџџџџџџџџ$ƒўџџџџџџџШџџџџџџџџџџџџџџ$‚ џџџџўџџџјџџўџџџџџџџџџџџ$ƒўџџџџџџџ( џџџџџџџџџџџџџџ$ƒўџџџџџџџX џџџџџџџџџџџџџџ$‚ џџџџўџџџˆ џџўџџџџџџџџџџџ$ƒўџџџџџџџИ џџџџџџџџџџџџџџ$ƒўџџџџџџџш џџџџџџџџџџџџџџ$‚ џџџџўџџџ џџўџџџџџџџџџџџ$ƒўџџџџџџџH џџџџџџџџџџџџџџ$ƒўџџџџџџџx џџџџџџџџџџџџџџ$‚ џџџџўџџџЈ џџўџџџџџџџџџџџ$ƒўџџџџџџџи џџџџџџџџџџџџџџ$џџџџxƒўџџџџџџџИџџџџџџџџџџџџџџ‚ џџџџўџџџРџџўџџџџџџџџџџџƒўџџџџџџџШџџџџџџџџџџџџџџџџџџh ƒўџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџ`„*(zџџџџџџџџџа џџџџј ƒўџџџџџџџиџџџџџџџџџџџџџџџџџџи А`џџџџџџџџџџџџ`џ@џџџџџџџџР)”џџџџшџџџџ џџџџh€ъи џџџџџџA$@$iƒўџџџџџџџџџџџџџџџџџ h€ь№ џџˆh€юH џџџџџџ$џџџџX iƒўџџџџџџџџџџџџџџџџџ Hџџџџ№ џџџџ8 h€№` џџh€ђx џџh€є џџh€іЈ џџh€јџџџџџџ`„>џџџџXџџџџџ#ќ8pџџџџџџџџџџџџџџ )ƒўџџџџџџџџЈ џџџџ€#И(pџџџџџџџџџџџџxЬa^џ  ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applicationsи*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\Program Files\ACAD2000\ACAD.TLB#AutoCAD 2000 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automationр*\G{15FFD348-178A-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.twd#Microsoft Forms 2.0 Object Libraryф*\G{30A4C36F-176F-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџџџОШz: џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|ыThisDrawing 1739f589d1*DџџrыЊџџ Form1 153a7ac848*Dџџvы‚џџModule1 163a7ac8be*D:џџtы0 џџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџ6їЁ@ЖвІ€_ *џџџџ8їЁ@ЖвІ€_ *џџџџ:їЁ@ЖвІ€_ *џџџџџџџџ0€p…џ] €џAs=€џDimB€џdoubleC€џeachD€џElseE€џElseIfG€џendH€џendifU€џfor`€џIfc€џink€џintegerˆ€џNullŠ€џOnž€џResumeŸ€џreturnЅ€џSetГ€џThenД€џtoС€џWithAutoCAD"јVBAїтWin16С~Win32MacГВ ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйForm1†cmdApply_Clickм/elemX9 „џtextHeight_њfoundЩ+TextBox1ІS ModelSpace_ж €џEntityNameАx€џHeight|‹€џUpdateвќMsgBox—R vbInformationВncmdCancel_Click\е cmdHelp_Click QChrK~SpinButton1_Change— SpinButton1Н8ValueфKUserForm_Initialize5cModule1bShowѕ AcadDocumentZUserFormNcmdHelpџGLabel1,cmdApplyЌž cmdCancelЭoldTextЖd€џClickŠу€џChangeЃЧ €џџџInitializeгNnewText_а OldTextHeight^у NewTextHeight /TextBox2ЇS Label1_ClickЛЬLabel2Ž,Label3,TextBox3ЈS Label2_ClickŒLabel4,Label5‘,TextBox4ЉSTextBox5ЊSLabel6’,Label7“,TextBox6ЋSTextBox7ЌSTextStr1џ TextReplace1P DwgFolderpTextStr2Ž TextReplace2QTextStr3Ž TextReplace3RLabel8”,Label9•,PlotYesэCPlotNo&Text1Г~Replace1qText2Д~Replace2rText3Е~Replace3s Replace21L €џџџ_B_var_ifPђ TextToChangeBЩ €џџџ_B_var_Text „џTextString  €џPaperSpaceЬ$ €џActiveSpaceжe €џacModelSpace‚ђ €џacPaperSpacen1€џSave’а €џџџ_B_var_On6ѓListBox1›ы CmdBrowsex”CmdBrowse_Click№lStrFile XLstFilesЂЪClearуЭDirName^МTrim@яTxtDirІоRight €џAddItem‡  CmdSave_Clickƒгi`FileNamejУ TempFiles €џListCount6€џSelectedYЃ€џAcadApplicationф  €џDocumentsМ€џList*“€џActiveDocumentг\Frame1Й Frame1_ClickіF Label6_ClickFrame2ЙLabel10@blnStopn{ blnWorking­ЋcolDwgsH CollectionщW BROWSEINFOЗYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSŽulFlagsэСlpfnВЖlParam…7„џiImageUрMAX_PATHЇ(SHBrowseForFolder"№ lpBrowseInfo№r shell32.dll+ˆ FindWindowK lpClassName‚з lpWindowNameЈuser32*ЮSHGetPathFromIDListKœpidlЎЇpszPfџџџџџџџџџџџџBi44 n`єЮ›ЭЊ`ŽРРЬфvГПРЁЁ5'Рoџџџџ>мCompObjџџџџџџџџџџџџ<pCompObjџџџџџџџџџџџџўџџџpfџџџџџџџџџџџџўџџџ]oџџџџџџџџџџџџўџџџиCompObjџџџџџџџџџџџџўџџџpџџ( iƒџџџџџџџџџџ˜„iƒџџџџџџџџџџџџџџ„# HpџџџџџџџџџџџџјџџH iƒ џџџџџџџџџџ„iƒџџџџџџџџџџџџџџ„ƒўџџџџџџџ@џџџџџџџџџџџџџџџџА$$$$" хА4џџр4@џџџџџџџџB˜њџџџџBџџџџџџџџџџџџџџ Ш`џџџџџџџџџџџџ џ@hџџџџА W”8 ,8 `џџџџџџџџџџџџфў@џџЌ-Мџџџџ$$)ƒџџџџ џџ0ˆ‚Iƒџџџџџџ џџЈ€Iƒџџџџџџ џџџџџџ€,џџџџ`џџџџџџџџџџџџџ@ џџД eМ)ƒ%џџџџ џџ8(€)ƒ)ш'џџ@H€iƒўџџџџџџџџџ џџџџџџ `„@џџџџTџџџџџH`„BџџџџPџџџџџАƒўџџџџџџџ џџџџџџџџџџџџџџи$6и`џџџџџџџџџџџџ>џ@џџџџџџџџШO”iƒ:џџџџ џџџџ(€iƒўџџџџџџџџџџџџџџџ iƒўџџџџџџџџџџџџџџџџџ Шiƒўџџџџџџџџџџџџџџџџџ џџџџiƒўџџџџџџџџџџџџџџџџџ 8$‚ џџџџўџџџXџџўџџџџџџџџџџџџџџџƒўџџџџџџџ`џџџџџџџџџџџџџџџџџџƒўџџџџџџџРџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџPџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ$iƒўџџџџџџџџџџџџџџџџџ Аiƒўџџџџџџџџџџџџџџџџџ А‚ џџџџўџџџxџџўџџџџџџџџџџџџџџџ$$$iƒўџџџџџџџџџџџџџџџџџ Иƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ$@$$iƒўџџџџџџџџџџџџџџџџџ Шƒўџџџџџџџ џџџџџџџџџџџџџџ џџpџџџ џџ Шiƒўџџџџџџџџџџџџџџџџџ и ‚ џџџџўџџџЈџџўџџџџџџџџџџџА`џџџ џџ iƒўџџџџџџџџџџџџџџџџџ ˆƒўџџџџџџџАџџџџџџџџџџџџџџџџџџƒўџџџџџџџЈџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ№џџўџџџџџџџџџџџџџџџƒўџџџџџџџјџџџџџџџџџџџџџџџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџџџџџџџџџџџџџџџџџ@$ƒўџџџџџџџhџџџџџџџџџџџџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ€џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџpџџўџџџџџџџџџџџџџƒўџџџџџџџ(џџџџџџџџџџџџџџ$$‚ џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџЄŒ@$iƒўџџџџџџџџџџџџџџџџџ ˜(џџџџƒўџџџџџџџPџџџџџџџџџџџџџџШ@$@$@$ƒўџџџџџџџ0џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџXџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџ$iƒўџџџџџџџџџџџџџџџџџ џџџџƒўџџџџџџџиџџџџџџџџџџџџџџџџџџ$$$$$$$$$$иX8џџџџџџџџџџџџи џџџџШџџџџиџџџџ Ш8 Иˆˆџџџџџџџџи‚ џџџџўџџџ`џџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџАШ-џџРШ$ƒўџџџџџџџ№џџџџџџџџџџџџџџџџ‚ џџџџўџџџјџџўџџџџџџџџџџџџџџџ$‚ џџџџўџџџHџџўџџџџџџџџџџџƒўџџџџџџџPџџџџџџџџџџџџџџ џџƒўџџџџџџџшџџџџџџџџџџџџџџџџшƒўџџџџџџџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ џџ‚ џџџџўџџџџџўџџџџџџџџџџџƒўџџџџџџџXџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџ0џџўџџџџџџџџџџџџџџџƒўџџџџџџџˆџџџџџџџџџџџџџџџџџџƒўџџџџџџџ џџџџџџџџџџџџџџџџџџˆLџџџ€`џџџџƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџHџџўџџџџџџџџџџџџџџџƒўџџџџџџџxџџџџџџџџџџџџџџџџџџ$$јџџџџˆ`„*џџџџzџџџџџџџџџxџџџџАџџџџИџџџџР‚ џџџџўџџџ№џџўџџџџџџџџџџџ џџ8 iƒўџџџџџџџџџџџџџџџџџ џџџџžШ`џџџџџџџџџџџџџџџџџџџџФ C”И@„ џџџџџџџџ џџ$ƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџјџџўџџџџџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџрџџўџџџџџџџџџџџџџџџƒўџџџџџџџшџџџџџџџџџџџџџџџџџџƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџxџџўџџџџџџџџџџџџџџџƒўџџџџџџџРџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџ№џџџџџџџџџџџџџџџџџџ$‚ џџџџўџџџ џџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџPџџџџџџџџџџџџџџџџџџ$ƒўџџџџџџџ€џџџџџџџџџџџџџџџџџџ$‚ џџџџўџџџАџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџрџџџџџџџџџџџџџџџџџџ$iƒўџџџџџџџџџџџџџџџџџ @@„Ђџџџџџџџџ џџ(@„Єџџџџџџџџ џџˆ!2џџџџP@„Іџџџџџџџџ џџ0@„Јџџџџџџџџ џџ@„Њџџџџџџџџ џџџџџџ џџџџ@јшјџџџџшаџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџ€џџџџhџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј@„Ќџџџџџџџџ џџШƒўџџџџџџџјџџџџџџџџџџџџџџџџ8"Pќ DоОџџџџ8"(<џџџ џџ џџ8",џџџ џџ Ќџџџџ8H$џџџџ  џџџџш!џџџџ№!џџџџј!џџџџ"џџџџ"џџџџ"џџџџ"џџџџ "џџџџ("№"(џџџ џџ џџџџўџќўџџш ƒўџџџџџџџр!џџџџџџџџџџџџџџџџџџ‚ џџџџўџџџИ"џџўџџџџџџџџџџџџџџџH$ƒўџџџџџџџш"џџџџџџџџџџџџџџџџџџH$%№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp˜Р џџџџАџџџџџџџџџџџџџџџџџџџџџџџџh€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАˆ!и€(@јўџџџџ џџџџ€((єўџџџџ џџџџ@ўџфўџџ џџ џџџџџџџџфЌџџџџџџ %@xџџџ џџ џџџџ@ўџhџџџ џџ џџџџа%dџџџџџ 0(eџџџџ€џџџџш$џџџџ№$X(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx$џџџџ€(XTџџџ џџ џџџџ€((Dџџџ џџ џџџџ€(@џџџ џџ џџџџ@ўџ>џџџ џџ џџџџџџџџ˜џџџџџџџџЈџџџџџџџџhџџџџџџџџџџџџрџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ &џџџџ€( ~ ˜џџџџџџ€(ˆ\џџџ џџ џџџџ@ўџLџџџ џџ џџџџ'<џџџ џџ џџџџ@ўџ,џџџ џџ џџџџ€((џџџ џџ џџџџ@ўџ џџџ џџ `'џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш'*и$X(Pџџ џџ џџ@ўџtџџџџџ џџ@ўџrџџџџџ X(hџџџџ`„Vџџџџxџџџџџ€`(€(h `„Xџџџџtџџџџџ€ (`„Vџџџџxџџџџџ€Ш(j`„Xџџџџtџџџџџ€А)`„Zˆ(pџџџџџ€џџџџ!`„Vџџџџxџџџџџ€`„Xџџџџtџџџџџ€`„Zј(pџџџџџ€џџџџЈ(`„Vџџџџxџџџџџ€`„Xџџџџtџџџџџ€`„ZH)pџџџџџ€џџџџј(`„Z@(pџџџџџ€`* pџџџџ (*@`џџџ џџ (*(Pџџџ џџ @ўџ@џџџ џџ џџџџџџџ џџ `*(<џџџ џџ *8џџџџџ џџџџа( , (џџџ џџ џџџџ@ўџџџџ џџ џџџџ ,pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№,Ш( ,аЌZЖЄџџш+ˆtџџџ џџ џџџџ@ўџdџџџ џџ џџџџ,`џџџџџ x@ўџ\џџџџџ `@ўџZџџџџџ @ўџXџџџџ  ,џџ џџH,Hџџџ џџ џџH,`„Vџџџџxџџџџџ€H, `„Xџџџџtџџџџџ€x,>`„Z,pџџџџџ€џџџџH(и.@8џџџ џџ P"и,(4џџџ џџ ј@ўџ0џџџ џџ џџџџ@ўџ џџџ џџ џџџџ-џџџ џџ џџџџ0+џџџџџџџџџџџџџџи.А№- ,и. Оќ &$.џџИ/x8џџџ џџ џџ@ўџ4џџџ џџ џџ@ўџ0џџџ џџ џџш/,џџџџџ џџ@ўџџџџ џџ џџи- џџџ џџ џџ@ўџќўџџ џџ џџP.ьўџџ џџ џџ-~ЌZvTЖИ/ шўџџџџ џџџџ@ўџцўџџџџ ˜.@ўџфўџџџ џџџџИ/Xдўџџ џџ rU€€€ џџџџџџџџ$`§џџџџџџџџџџџpџ,љ (pўџџџџџџџџџџџi‰,ЩHpўџџџџџџџџџџџБЩ$щ`dџџџџџџџџ$)`hџџџџџџџџ$i`lџџџџџџџџ<Љ`Uџџџџџџџџџџ 1Iџџџџ0,щ`Yџџџџџџџџџџсџџџџ(0$)`pџџџџџџџџ$i`tџџџџџџџџ8Љ` ]џџџџџџџџџџ1I=љ//@щ` aџџџџџџџџџџ™џџџџ=a=љ#q pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH9 Ёy юююџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ L‘ сЙ дддЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ P‘ сй еееЈ§џџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTБЁ5љљљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXБб5јјјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\Бё5ѕѕѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Бљ6єєєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdБ!6ёёёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhБI6яяяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџl9 Ёi №№№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp9 Ёё9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtљ  :џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx9 ЁI:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|9 Ё ђђђџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€Бa:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„љ ! эээџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆБ!:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒљ 9 ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ9 Ё! іііџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”9 Ёщ:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜9 ЁY;   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ9 ЁA;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Б);џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЄ9 Ёq;###џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈБ‰џџџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЌБ;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАБ‰:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџД9 Ёб:$$$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ9 Ёa чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМ9 Ё93џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР9 ЁQ3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџФ9 ЁЁ:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ9 ЁЙ:"""џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџПџПџ??џџџџџџџџџџџџ0 ќЦdœ  0 ќЦˆ  p4/tџѕYxџ$>tџF`џpџ! дpџ €pџ5`џ4$ tџpџ`џ0 ќЦ(  аL ѕ…\џqLџ € ™Lџ TLџ %(,џѕџ  џ`§чLџ6,џџ ѕqLџ"(,џѕџ  џ`1Tџ6,џџ,\џќўќў^qјў<ќў\џ lјўqXџўіќў lXџќRE#lTџєў4lєўlXџ^qјў€ @A€ ˜€ ˜>€ иA€ А>€ $И>€ р>€ Jш>€ J8?€ :ˆ?€ NШ?€ >@€ PX@€ PЈ@€ .ј@€ (A€€0 €8 €@ €H €P €X €` €h €p €x €€ „ ˆ € џџџџH€˜ H€Ј H€Р € џџџџ"€€ џџџџ0 € џџџџ/(.jxH<( @=  ˆ( @ј€ џџџџ"  € џџџџ"8 /Р 0 € џџџџB  @ €а €и €р €ш №  ј $ %( @"H,` p#x4ˆ*Ј Ши рш№€ џџџџ" `;€,p; ;Р;и;№; << <0<8<€ џџџџ"и /р 2ј *1Pџ lPџ§1 ˜LlETќўi0џџи[Д\џi џџи[ДTџ џџPџ џџєў,џџq q ф /ѕxџ! дQxџ§ohџ #dџJѕл/dџ5hџš2xџ! д:Tџ NDџDџQxџ§ohџ4§ѕ(6hџDџ5xџ! а>џ4§ѕlxџ=@џ@џ,k>џ)xџ@џ˜@ $š dџxџ@џhџDџD%ѕl\џ \џ:Lџ ]ћ<<џ5\џ\;§,џ:Lџ ћя\џb%ѕ§,џ:Lџћя\џ F<џќіlџ5\џlџ:Lџ]ћ<\џ\§>ѕlџ\џ \џ<џ <џlџ џћ/ џ6\џ<џџ\н+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џbp(ћlџ\џ<џџ џИє„KfєzџtџH $ltџфўcpџ\*'@џPџzџM`џ@H PџH L6Pџ@џ zџdpџ(єџ„H'џ'(џ'@џѕtџ <џ<џ ltџћў#8џ*FPџ /8џ<џ6Pџ@џ(џџє„dИ$f $8џ<џPџ@џ(џџLP<Ј  #Pџ"$ ФPџ , QџxџPџ xџ D!*'шў%'ќў%'џ%'<џ%ѕxџ H!6<џџќўшўlxџtџўtфўЎ ltџќјрў ltџќјмўGѕмўW<џ"џ џ:$џ#Nќўќўшў шўѕўўЬў6<џќўџшў\ˆ;мўW<џ"ќ‹Шўє%#<џ`#LџL>ШўFџ%мўў›"/Lџ6<џџGѕмўW<џ"џ џ:$џ&Nќўќўшў шўѕўўЬў6<џќўџшў\ ;мўW<џ"ќ‹Шўє'&<џ`#LџL>ШўFџ%мўў›"/Lџ6<џџGѕмўW<џ"џ џ:$џ(Nќўќўшў шўѕўўЬў6<џќўџшў\Œ;мўW<џ"ќReplaceЩcFinish1Replace2fNote1|Д FinishNote1sл Note1ReplaceіNote2}Д Note2ReplaceЛіLabel12BHardwareыHwareM HwareReplaceшLabel14DLabel15ELabel16FMisc1йzMiscTextReplaceQFinNote2Я; Hware_Changeњ]JobNo1o* JobNoReplace1ёFinish11ё5Finish1Replace1eFinish216Finish2Replace1*yNote11ш6 Note1Replace1ћ# FinNote21~u Note2Replace1~ўHware1ЖH HwareReplace1НQMisc11фMiscTextReplace_1tMisc1_1oЃZГЩDnЯ?ўдБZГЩ5nЯ?ўдБZГЩCmdFinished_Click Љ+џџџџ џџџџ ˜ ”4JnЯ?ўдБZГЩ‹{œФ дБZГЩе{œФ дБZГЩŒ{œФ дБZГЩ‚{œФ дБZГЩд{œФ дБZГЩ{œФ дБZГЩ y-џџџџ џџџџ ат{œФ дБZГЩэ{œФ дБZГЩkўЎ} дБZГЩšўЎ} дБZГЩШўЎ} дБZГЩгўЎ} дБZГЩЩўЎ} дБZГЩbўЎ} дБZГЩвўЎ} дБZ5  ( 0 € џџџџ" 8 €@ %H h x %€   $>p%+и № ј   € џџџџB  €  ( *@  X €h p x €€ &Hˆ А И џџџџˆBииЎC924'” ’Ў”FЄ'šgиA for any purpose and without fee is hereby granted, prorU€€€€~}  H"$ў €$ kЁ ё)YБqбp й1e‘‘CYy(‘!Щ yББ$ANiNБNQKљN‘8!OЉKQMЁMЉLљL‰7бWйS X9XiX™XбX YAYqYЁYбY ZAZyZЉZйZ‘OСO P9PiP™PЙPщPQ [Y[ \q\Щ\1]y]с]Љ^щ^)_Ё_ `y`С`IQyQЩQiRЉRщRySa TaTйTAU‰abЉU)eQeye2c)cQcycџџџџйb8БyD,,,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№Б!:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@9 Ё ђђђџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDБ);џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHБ™D---џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLБЙD///џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP9 Ё! іііџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT9 ЁA;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXБйD000џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\9 ЁY;   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Б;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd9 ЁI:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhБ‰222`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlБa:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp9 ЁЁ:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџt9 Ёщ:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx9 ЁЙ:"""џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|9 Ёa чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€9 Ёq;###џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„9 Ёб:$$$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ9 Ё93џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒ9 ЁQ3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ™ !С §§§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”‘ сс ьььЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜љ E&&&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ9 Ё1E'''џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 9 ЁIE)))џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЄ9 ЁaE+++џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ9 ЁyE...џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЌ9 Ё‘E111џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАБљD(((џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџДБЙ6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ И‘ сЁc333Ј§џџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМљ ! эээџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР‘ )Й џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџФБЁ5љљљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ9 Ёy юююџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ а‘ сЙ дддЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ д‘ сй еееЈ§џџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиБ!6ёёёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџмБI6яяяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрБљ6єєєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфБё5ѕѕѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјБб5јјјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШљ 9 ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш9 Ёё9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџєБYD***џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьљ  :џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ9 Ёi №№№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<Б‰:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ŽПџПџџ??џџџџџџџџџџџџ0 ќЦdœ  0 ќЦˆ  p4/tџѕYxџ €џHighlight_Х€џAcadText›~ selectionSet1івModelSSэИPaperSS$9€џџџ_B_var_ModelSSqМsset/.€џџџ_B_var_PaperSS'- filtertypeыв filterdataЋ €џSelectOnScreenЛAcDbTextтžentityŠѓ €џџџ_B_var_WithYБupn_€џRegen ў€џacAllViewports,CommandButton1|дCommandButton1_ClickфСFinishedButton_ClickДЯ CmdFinished$tCmdFinished_Click“[Hide9zJobNoя  JobNoReplaceB8Finish1*wFinish1Replace!cFinish2+wFinish2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЏџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K)^џџџџrU€ €€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~x љFэчлјдБZГЩ  фƒŠa ЩџџџџџџЉƒџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџџџсйСЁ‘ ThisDrawingForm1Module1 ACADProjectяРF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dllVBA џџџџ AЩPтС”РЦWв…у  Ц& "D:\Program Files\ACAD2000\ACAD.TLBAutoCAD 1џџџџYЉ`0РFC:\WINNT\System32\stdole2.tlbstdole џџџџA‰pHгџŠдБZГЩC:\WINDOWS\SYSTEM\MSForms.TWDMSForms щ1y€с.E р….`ŒM ДoУЄ0oдБZГЩC:\WINDOWS\TEMP\VBE\MSForms.exd щ9yйuŽ!=в…Ф  Ц&ЖЛN^YдЗФ€ШWЗЅйuŽ!=в…Ф  Ц&ЕЛN^YдЗФ€ШWЗЅсXh—{ а‰п€_ТћК AcadDocument @\Џw-6дБZГЩbЏw-6дБZГЩ]Џw-6дБZГЩYЏw-6дБZГЩaЏw-6дБZГЩв‹BьЮž Њ`ѓ TextReplace1!ш-ЌЂ6Я€SЊ` њ џџџџџџџџyШ DwgFolderTextStr2 TextReplace2TextStr3 TextReplace3"žŒ—АдЮП-Њ?@аLabel8Label9Ш[qJ—І eР‹UserForm^Џw-6дБZГЩ F3Dynamic й џџџџ џџџџ иLabel1С{lЏЮŸFЊWJOcmdApply cmdCancel ”?ЯFѕЮ›ЮЊ`ŽFrame1Frame2Label10Label2Label4"в‹BьЮž Њ`ѓListBox1 CmdBrowseLabel5Label6Label7TextStr1   , SHBrowseForFolder shell32.dll SHBrowseForFolderA й  ш FindWindow user32 FindWindowA Й й SHGetPathFromIDList SHGetPathFromIDListA й ‘cmdApply_ClickcmdCancel_ClickUserForm_InitializeCmdBrowse_Click ReturnFolderDwgFolder_ChangeFindFile€gФЄŸIЛxЊ8<Л AddToList#в‹BьЮž Њ`ѓ  8 в‹BьЮž Њ`ѓ Select Directory to work in VBA332.DLL Бџџџџ_ 0 Бџџџџi H  Бџџџџk ` \ Бџџџџ… x dwggФЄŸIЛxЊ8<ЛЁYџџџџ *.* Бџџџџ fЏw-6дБZГЩ Бџџџџ­ Ј БџџџџS Р Unexpected error, ИfФЄŸIЛxЊ8<ЛtЏw-6дБZГЩzЏw-6дБZГЩuЏw-6дБZГЩyЏw-6дБZГЩxЏw-6дБZГЩ ™џџџџ џџџџ  ˜8„Џw-6дБZГЩ˜Џw-6дБZГЩ…ЙЂЙ(вЖx`А‡т5 EntityName AcadText AcadMText TextStringUpdateЏw-6дБZГЩЂЏw-6дБZГЩІЏw-6дБZГЩЊЏw-6дБZГЩЎЏw-6дБZГЩВЏw-6дБZГЩЗЏw-6дБZГЩйuŽ!=в…Ф  Ц&ёйuŽ!=в…Ф  Ц&ё1џџџџ6ЇьCЎбЂх`Аk-FСЏw-6дБZГЩЮЏw-6дБZГЩчЏw-6дБZГЩ TextReplace ЃАw-6дБZГЩЉАw-6дБZГЩЄАw-6дБZГЩšАw-6дБZГЩЈАw-6дБZГЩЅАw-6дБZГЩ 1џџџџ џџџџ ` 9888 P0072 C757/3 C923ёАw-6дБZГЩБw-6дБZГЩ ModelSpace Text1 Text2 PaperSpace Finished DrawingБw-6дБZГЩБw-6дБZГЩБw-6дБZГЩБw-6дБZГЩ"Бw-6дБZГЩ&Бw-6дБZГЩ.Бw-6дБZГЩ AcDbText AcDbMText=Бw-6дБZГЩBБw-6дБZГЩ’~aЁ!ћбЂШ мcšLБw-6дБZГЩWБw-6дБZГЩ ModelSelection~aЁ!ћбЂШ мcš PaperSelectionuБw-6дБZГЩ|Бw-6дБZГЩ юW[šЪбЖ`А‡т5•Бw-6дБZГЩœБw-6дБZГЩЁБw-6дБZГЩЈБw-6дБZГЩ EntityTypeЏБw-6дБZГЩЖБw-6дБZГЩ element processingНБw-6дБZГЩФБw-6дБZГЩЫБw-6дБZГЩ C756/0 C924вБw-6дБZГЩ element processing 0 element processing 1 element processing 2 element processing 3йБw-6дБZГЩЯд()“ЪбЖ`А‡т5оБw-6дБZГЩЂюW[šЪбЖ`А‡т5хБw-6дБZГЩєБw-6дБZГЩ ModelSelction ˜4 PaperSelctionВw-6дБZГЩ ModelSS PaperSS Вw-6дБZГЩ Вw-6дБZГЩВw-6дБZГЩ"Вw-6дБZГЩ*Вw-6дБZГЩ9Вw-6дБZГЩ coderAВw-6дБZГЩNВw-6дБZГЩSВw-6дБZГЩZВw-6дБZГЩdВw-6дБZГЩnВw-6дБZГЩ3nЯ?ўдБZГЩEnЯ?ўдБZГЩ4nЯ?ўдБZГЩ0nЯ?ўдБHwareReplace_1”Note2Replace_1зBHware_1кP FinNote2_1<Note1Replace_1AINote1_1NFinish2Replace_1—† Finish2_1ІЈFinish1Replace_1 Finish1_1MЃJobNoReplace_1.ИJobNo_1Qт €џџџ_B_var_Text1 B€џReplaceffindn№Label17GFrame3Й MiscReplace_1шLabel18H MiscReplace_2щMisc1_2pЃLabel19ILabel20e MiscReplace_3ъMisc1_3qЃLabel21fLabel22g Label22_Click|Label23hLabel24iLabel25j MiscReplaceќi MГЩаўЎ} дБZГЩ a/џџџџ џџџџ 8 CmdFinishedчўЎ} дБZГЩ џЎ} дБZГЩшўЎ} дБZГЩ џЎ} дБZГЩ џЎ} дБZГЩ Љ0џџџџ џџџџ ˆJobNoFinish1Finish1ReplaceFinish2Finish2ReplaceNote1 FinishNote1 Note1Replace Note2Replace JobNoReplaceNote2Label12HardwareFinNote2Hware HwareReplacvidedи? that the above copyright notice appears in all copies andиB that both that copyright notice and the limited warranty andи= restricted rights notice below appear in all supportingи documentation.ииA AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.и= AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OFиF MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.и@ DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BEи" UNINTERRUPTED OR ERROR FREE.ииJ Use, duplication, or disclosure by the U.S. Government is subject toиB restrictions set forth in FAR 52.227-19 (Commercial ComputerиC Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)н "" Then”F и End Ifи End Withи" Set elem = NothingхЎPaperSelection !|%"rU€€€ џџџџџџџџ@p`§џџџџџџџџџџџpў €$ kЁ ё)YБqбY10y( й‘!Щ y7  97a7‰7Љ7Б$ 8‘8й89%14Y4/4џџџџ 48БЉ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<™ !С §§§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Бй4   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD‘ qЙ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ H‘ сс ьььЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLБ5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP9 Ёy юююџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ T‘ сЙ дддЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ X‘ сй еееЈ§џџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\БЁ5љљљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Бб5јјјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdБё5ѕѕѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhБ!6ёёёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlБI6яяяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpБa6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtБy6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxБЁ6   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|9 Ёi №№№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€БЙ6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„Бб6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆБљ6єєєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒ9 Ё ђђђџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџљ ! эээџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”9 Ё ѓѓѓџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜љ 9 ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ9 Ё! іііџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 9 ЁQ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЄ9 Ёй1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ9 Ё9 їїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЌ9 Ёq2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАБ‰џџџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџД9 Ё‰2   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ9 ЁЁ2   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМ9 Ёa чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџР9 Ё!3   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџФ9 Ё93џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ9 ЁQ3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџП?џ?џПџџџџџџџџџџџџ 0џ4џ! Ј04џ l>0џ1pџ4џ0џ4џ! А04џ l>0џ1lџ4џ0џ4џ! М04џ l>0џ1hџ4џ0џ4џ! Р04џ l>0џ1dџ4џ0џ4џ! Ь04џ l>0џ1`џ4џ0џ4џ! а04џ l>0џ1\џ4џ0џ4џ! р04џ l>0џ1Xџ4џ0џ4џ! ш04џ l>0џ1Tџ4џ0џ4џ! є04џ l>0џ1Pџ4џ0џ4џ! ј04џ l>0џ1Lџ4џ0џ4џ! 04џ l>0џ1Hџ4џ0џ4џ! 04џ l>0џ1Dџ4џ0џ4џ! 04џ l>0џ1@џ4џ0џ4џ! 04џ l>0џ1<џ4џKџџ/ѕ4џ! м0Q4џ§o џ #0џJѕл/0џ5 џш.є:џџ4џ! и04џ ДlџѕЎф4џўcџшjмў'рў%јў' џ:џMџ@4џ! и04џ 8јў`#0џ№ўєў"$ ,єў  №ў 0/0џ)4џєў№ўмў6 џјўрў*єў4џ"$ Ф4џ , Qєўxџ4џ xџ D! lpџћ=­*'Ьў%'рў%'јў%' џ%ѕxџ H!6 џјўрўЬўlxџtџўtШў˜ ltџќјФў ltџќјРўРўW џ":џ*]ћ/јў5 џ\5llџFџ%Рўў›"РўW џ":џ+]ћ/јў5 џ\_ldџFџ%Рўў›"РўW џ":џ,]ћ/јў5 џ\‰l\џFџ%Рўў›"РўW џ":џ-]ћ/јў5 џ\ГlTџFџ%Рўў›"РўW џ":џ.]ћ/јў5 џ\нlLџFџ%Рўў›"3tџW џ"ќ‹ѕ џјў  јў:џ(]ћ/рў6 џјў\D4tџW џ"ќ‹lDџFџ%ѕ џјў  јў§Ÿ,6 џјўРўW џ"l@џFџ]ћ/јў5 џ\ol<џFџ%Рўў›" ѕќјРўќcќјtџ ѕќјФў tџўuШўљѕ"$ $"$ 'јў%' џ%"$ 46 џјў :џdџ"$$%ў €МpшXШўФўРўdџlџTџ<џHџxџDџtџ@џ\џhџLџ`џXџPџpџ0 0џ4џєў№ўмў џјўрўЬў0 ќЦˆ  p4/tџѕYxџ >tџF`џpџ! мpџ €pџ5`џ4$ tџpџ`џаL ѕ…\џqLџ € ™Lџ TLџ %(,џѕџ  џ`§чLџ6,џџ ѕqLџ"(,џѕџ  џ`1Tџ6,џџ,\џќўќў^qјў<ќў\џ lјўqXџўіќў lXџќRE#lTџєў4lєўlXџ^qјўџ4§ѕlxџ=@џ@џ(k>џ)xџ@џ˜@ $š dџxџ@џhџDџD%ѕl\џ \џ:Lџ ]ћ<<џ5\џ\;§,џ:Lџ ћя\џb%ѕ§,џ:Lџћя\џ F<џќіlџ5\џlџ:Lџ]ћ<\џ\§>ѕlџ\џ \џ<џ <џlџ џћ/ џ6\џ<џџ\н+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џbp(ћlџ\џ<џџ џИє„KfєzџtџH $ltџфўcpџ\*'@џPџzџM`џ@H PџH L6Pџ@џ zџdpџ(єџ„H'џ'(џ'@џѕtџ <џ<џ ltџћў#8џ*FPџ /8џ<џ6Pџ@џ(џџє„dИ$f $8џ<џPџ@џ(џџ0 ќЦP  TXHА  #i67џџџџџџџџџџџџ n`єЮ›ЭЊ`Ž€]œžјДПРЃY2&ФПfџџџџџџџџџџџџўџџџЙoџџџџџџџџџџџџўџџџФCompObjџџџџџџџџџџџџўџџџp.pџџџџРи MsgBox "PaperSpace"ІHlhlхЎPaperSelection !|%".pџџџџ и MsgBox "ModelSpace"ngџџџџ8 СА 8 С˜ ДB@Ж М!f$КU 'И ИЎ”Fug ИЄ$ОЎ\• ИЎ\'Иhџџ( ИЎ*.dwgA@~ ~'В ВЎ•uџџ№ hџџш \џџр В ДB@Р ~'В ВЎГlџџА Zъџџџџї ФіЄ Д!ЪЄ ‹ Ф Д%ЬЏ• iscReplace1ьMMisc2кzMisc3лz MiscReplace2эM MiscReplace3юM FindReplace)Щ€џџџ_B_var_FindReplace‹КCZac_FindReplace‚AobjTextjэAcadObjЄ\ changeStroмsjoldStr'newStr*_ firstOnly…LctkPgworkStrGБ€џџџ_B_var_MiscTextReplaceЇ: €џџџ_B_var_JobNoвworStr+Бbreakо€џџџ_B_var_TextStringwэ _B_var_MidэpNewJob@. NewJob1_1 ­NewJobReplace13эNewJobReplace_1:•Finish2_1_ChangeсD€џџџ_B_var_NewJobReplaceИ Ф Д%вЏ Ю!аB@Џ Ю!дB@B Ф Д%ЬЏ• hџџИї ФіР И Ф Д%вЏ Ю!аB@џџџџpx lџџ№ џџџџи џџџџXZ@ъˆшx [ъ [ъи [ъ№ [ъH [ъ` [ъx [ъ [ъЈ mџџh ZDЄъАžи ž8ž ИШ x$~Є • ф xЎdwgA@ Ќ ф$•hџџШ hџџР lџџИ иZър Є$ОЎ\• Ў\'hџџX Ў*.* $~' Ў_5ž и}”F5ž и >Џ$T9žg   B@"hџџЈ ~'Бџџ˜ lџџ ШZър С,x ї *іЄ (!.‹ *$( $B@Рї *іР›00 Џ'sџџ ›, ЎUnexpected error, 2!4A@(Џ'fџџР Є$8'xZъpZъР ZъhZъ€љ <э :9ъЎSelect Directory to work in9№ њЄ$^9юnџџ8 њЄ$^'@ <$ќ'> >• > @A@  @ @ D}Є $о'B BЄ$ОЎ\• BЎ\'Bhџџ  B'8hџџfџџˆџџџџ€Zъ˜ї *іЄ Ќ!ЪЄ ‹ x$~Є •џџџџл end iџџџџˆџџџџаџџџџ џџџџ * Ќ%в Z!аB@ lџџШlџџ(џџџџ0lџџ(ˆlџџшlџџџџџџHlџџPlџџ@џџџџxЎP0072'Œи If Text1 <> "" ThenA@(и Next elemи1 PaperSelection.Select (acSelectionSetAll)Ўelement processing 0A@(ntиK If .ActiveSpace = acPaperSpace Then .ActiveSpace = acModelSpaceelectiи+ For Each elem In PaperSelectiona)€иU If (.EntityName = "AcadText") Or (.EntityName = "AcadMText") Then иN If .TextString = Text1 Then .TextString = TextReplace1placиV If .TextString = Text2 Then .TextString = TextReplace2и3 ElseIf Text3 <> "" ThenиV If .TextString = Text3 Then .TextString = TextReplace3џџџџ џџџџШџџџџџџџџ№ Є B@Ђџџџџ џџџџ0љ эnџџ€џџџџx lB@ЖџџџџhхЈ.џџџџШџџџџ( B@BџџџџЈи Finish2 = Finish2_1.Textи Note1 = Note1_1.TextZъџџџџџџџџаlџџpdџџhџџџџ8и 5/3/2000ии version 1.00ии& Developed 05/03/2000 by Walter Blair€и% CopyrightЉ2000 Arban & Carosi, Inc.8ии- functions on drawings in a given folder. andиA This routine takes user defined input to perform search/replaceџџџџh B@АК0џџџџи Dim Hware As String !f'>ZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџџџџџаlџџи& Note2Replace = Note2Replace_1.Text &!f'@ $!f'DZъџџџџ .!f'B ,!f'FџџџџЎ9888C@žgџџџџШџџџџxџџџџАџџџџИиG If .TextString = "88-C4" Then .TextString = "76-C4" (иG If .TextString = "88-C1" Then .TextString = "76-C1"00џџџџ иJ If .TextString = Misc2 Then .TextString = MiscReplace2џџџџ`иG If .TextString = "88-C2" Then .TextString = "76-C2"9иG If .TextString = "88-C9" Then .TextString = "76-C9"9иI If .TextString = "88-C11" Then .TextString = "76-C11"иI If .TextString = "88-C13" Then .TextString = "76-C13"иI If .TextString = "88-C15" Then .TextString = "76-C15"иI If .TextString = "88-C17" Then .TextString = "76-C17"иI If .TextString = "88-C19" Then .TextString = "76-C19"иJ If .TextString = Misc1 Then .TextString = MiscReplace1џџџџЈиG If .TextString = "88-C6" Then .TextString = "76-C6"џџџџ@џџџџ`Аlџџpџџџџp5žЎ88-Ў76-$\'dи Dim Finish1 As Stringи Dim Finish1Replace As Stringи Dim Finish2 As Stringи Dim Finish2Replace As Stringи Dim Note1Replace As Stringи Dim FinNote2 As Stringи Dim Note2Replace As Stringи Dim HwareReplace As Stringи& JobNoReplace = JobNoReplace_1.Textи Finish1 = Finish1_1.Textи* Finish1Replace = Finish1Replace_1.Textи* Finish2Replace = Finish2Replace_1.Textи& Note1Replace = Note1Replace_1.Textи FinNote2 = FinNote2_1.Textи Hware = Hware_1.Textи& HwareReplace = HwareReplace_1.Textџџџџ 5žЎC756/0Ў C923$\'d”F5ž @ D$\'d5ž B F$\'dd d9ž5ž и >$\'d C d9žh !žЎ9888ЎP0076$\'d”hл return TextString3$\иH If .TextString = "C756/0" Then .TextString = " C923"ilиH If .TextString = "C757/3_1Э~Frame4ЙLabel26kLabel27lLabel28mLabel29nLabel30Š€џџџ_B_var_DwgFolderЕ„џinsertionPointэ­HorizontalAlignmentleftЦz€џacHorizontalAlignmentLeftРz insertPointФ{€џџџ_B_var_insertPoint&mto2кTypeNameјѕP0076ї%CmdClearcoCmdClear_ClickуMsgQЕ„џStyleХpTitleђ~HelpfCtxtЊлResponse—ЌMyStringі vbOKCancelx? vbQuestionЪвvbDefaultButton2ДСvbOKШ% €џZoomExtentsћ+ACADPrefœЊ€џ" Then .TextString = " C924"иw If .TextString = "C756/0 (TYP.) - C757/3 ( )" Then .TextString = " C923 (TYP.) - C924 ( )"иW If .TextString = "C757/3 ( )" Then .TextString = " C924 ( )"иG If .TextString = "88-C3" Then .TextString = "76-C3"иG If .TextString = "88-C5" Then .TextString = "76-C5"иG If .TextString = "88-C7" Then .TextString = "76-C7"иG i86џџџџџџџџџџџџ n`єЮ›ЭЊ`Ž ,ЕПРЃY2&ФПfџџџџџџџџџџџџўџџџ=oџџџџџџџџџџџџўџџџиCompObjџџџџџџџџџџџџўџџџp