аЯрЁБс>ўџ ўџџџ}џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlRoot EntryџџџџџџџџРіІ‚ƒЩР4VBA_ProjectџџџџPЮ^П@ДНРіІ‚ƒЩVBAџџџџџџџџ PЮ^П@ДНа \ŽƒЩUpdateStylesDlg џџџџ№i*ЦмЮž˜ЊWJO@aП@ДН€шŒеZ}Щ§џџџ §џџџ I 91!"#$%&'ўџџџ)*+,-./0723456ўџџџ8:ўџџџ;<=>?@ABCўџџџџџџџџџџџџџџџџџџџџџџџJ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџPROJECTwmџџџџџџџџџџџџ nPROJECTџџџџ4fџџџџџџџџlлoџџџџџџџџџџџџjxўџџџ ўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?@AMCўџџџEFGўџџџIJKLўџџџўџџџOPQRSTUVWXYZ[\]ўџџџџџџџџџџџџџџџџџџџџџџџdefgўџџџiўџџџkўџџџmnoўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{D0EFE389-0757-4446-875D-E8F430215EC5}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UpdateStylesDlg Module=Module1 HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2426F4FEF402F802F802F802F8" DPB="2C2EFCF60CFF0DFF0DFF" GC="3436E40EE417E517E5E8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C UpdateStylesDlg=44, 58, 928, 636, , 22, 29, 1070, 627, Module1=198, 261, 1082, 839, Z ThisDrawingThisDrawingUpdateStylesDlgUpdateвВ€0* pH‚dф ACADProject8@е = t  њK( 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 Dindows\sEFM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€Ž#€k0CompObjџџџџ џџџџhnVBFrameџџџџџџџџџџџџcThisDrawingџџџџ џџџџNхUpdateStylesDlg  џџџџџџџџ(0(Module1 џџџџќ _VBA_PROJECTџџџџџџџџџџџџLdirџџџџџџџџџџџџ жfџџџџџџџџџџџџH%oџџџџDмCompObjџџџџџџџџџџџџBpџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџжџџџџџџџџџџџџўџџџъџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџZVBA_Project_Version(џџџџџџџџџџџџвЃ…РA9C9A7187€DD-4878-B49A-CF048DB 22D8Bˆ6Users\walter\AppData\Local\Temp\VB„E\„T.exd <Р!€с.E р….`ŒM ДСІТЁStylesDlgModule1Module1Т|ыТЃThisDrawingG€Thi€kDra‚wРng Š2 €HB‚1Ў%BE,B rы"B+BРUpdateStyle(sDl@$p@ДaРЕe”tyqТЖsDРA&21@UO)o•O)vD)("Х*@ModuleT1G„Кo`u"1› %2o=o(tы!Јb ACAD№”дˆџџџџ›7|ыtыџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ дџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџ@џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€ € € € T€ 4h€ J8€  € Ј€ Р€ *а€ Ш€ Jа€ J € :p€ NА€ >€ P@€ P€ .р€ " 20џџџџ0рррN This routine updates the font for all TextStyles in all drawings in a folderxр. It was developed for AutoCAD 2000 and above.џџрр version 1.00џџџџррр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.џџр–@ B@ЮџџoџџрD Demand load: -vbarun;ad_UpdateTextStyles.dvb!ad_UpdateTextStyles;ЌџџџџјЖad_UpdateStyles(c)ActiveDwg.com !аB@вџџџџјр# CopyrightЉ2000-2009 ActiveDwg.comџџШџџџџр ad_UpdateTextStylesШџџџџ џџџџЛВAttribute VB_Name = "Module1" ' ad_UpdateText@StyleshThis rout ine uHs the fontr all n in"draw0ings'lderkIt was developedCAutoCAD 2000 and aboˆve.0Demload: -€vbarun;В .dvb!;#‚$version 1.00… CopyrightЉ=-9 ActiveDwg.com „€‰provid„_demo@nstrat/purposes onlygmus t$ not bЅscritical appl s withК your €[if „"tha&tУˆЭwi€УpeРrform А€q€НtenР(RJ0m„ay!freeР(1€wlizD$ТowDn @son€&use so longФentрire cР‚€<"f%heaР{ r€nРƒintact!‰Q"as-is"‚KnoР‡cla1УS, wРH@2 or im@Ied,Ф!@m€H€ Pˆ€ Pи€ .(€ X"` h2иxџџџџрр adUpdateTextStyles_new\aррN This routine updates the font for all TextStyles in all drawings in a folderxр. It was developed for AutoCAD 2000 and above.џџрр version 1.00џџџџрр CopyrightЉ2009 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.џџр–@ B@ЮџџoџџрD Demand load: -vbarun;ad_UpdateTextStyles.dvb!ad_UpdateTextStyles;ЌџџџџјЖad_UpdateStyles(c)ActiveDwg.com !аB@вџџџџјџџџџМВAttribute VB_Name = "Module1" ' adUpdateTextS tylesdThis routine uHs t€he font@r all n in"drawings'lderjIt was developedCAutoCAD 2000 and abovDe.0Demload: -vbarun;ad‚_ В.dvb!;#‚$versi€on 1.00… CopyrightЉ€=9 ActiveDwg.com…Ё‡provid]demo@nstrat-purposes only‚dmus t$ not b€Ђscritical appl s with€З your Yif „"tha&t€РЫwiСpeРrform €­€qЛten€QƒЁJ0m„ay!freeР(1@vlizD$ТowDn @son€&use so longФСentрire c€€<"f%hea€z r@m€‚intact!‰Q"as-is"‚Kno€†cla1УS, wРH@2 or im@Ied,Ф!@m€( SHGetPathFromIDListAџџџџџџџџџџџџџџџџџџџџџџџџџxџџMEHџџџџџџџџпџџ(џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ<џџ<<џџH<N<џџR<џџО<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџš0{226E48ED-8C7F-4572-BD94-F2F81B836C36}{19BC7F46-DBEB-4A7B-99BE-7B73D550730E}џџџџр Єџџџџџџџџ/E%џџџџџџџџџџџџџџ`„џџџџџџџџџџ8&o>`„ џџџџџџџџџџ€`„"џџџџџџџџџџ€`„$џџџџџџџџџџas d`„&џџџџџџџџџџ 200`„(џџџџџџџџџџ8`„*џџџџџџџџџџ`„,џџџџџџџџџџ@”.џџџџџџџџLџџ+0xџџџџџџџџџџџџџџџџPџџџџ )ƒ2џџџџџџџџpџџџџ€ rou%+6јџџџџџџџџџџџџџџџџИџџ(џџ iƒ8џџџџџџџџџџи„ppliiƒ:џџџџџџџџџџџџџџ„atio+>xџџџџџџџџџџџџџџџџ8џџHџџ iƒ@џџџџџџџџџџX„ mayiƒBџџџџџџџџџџџџџџ„ own DHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” „Fџџџџџџџџаt.„%`„Jџџџџџџџџџџided „Lџџџџџџџџarat% „Pџџџџџџџџ(J  %`„Tџџџџџџџџ џџity xˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” zШџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”,|АџџџџџџџџџџџџџџџџџџџџџџМiƒ~џџџџџџџџџџ(€iƒўџџџџџџџџџџџџџџџ „€џџџџџџџџ`%`„‚џџџџџџџџџџ`„„џџџџџџџџџџ`„†џџџџџџџџџџ ŒАџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”@„Žџџџџџџџџ џџ@„џџџџџџџџ џџ@„’џџџџџџџџ џџ@„”џџџџџџџџ џџ@„–џџџџџџџџ џџ@„˜џџџџџџџџ џџ@„šџџџџџџџџ џџ`„œџџџџџџџџџџ Ј№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” ЊАџџџџџџџџџџџџџџџџ0џџџџџџџџ”)ƒЎџџџџџџџџPX‚%IƒАџџџџџџџџ џџx€IƒВџџџџџџџџ џџџџџџ€@„Дџџџџџџџџ џџ,Ќџџџџџџџџџџџџџџџџџџџџ№ џџџџџџМ)ƒМџџџџџџџџ€$%)ƒРџџџџџџџџ8@€%iƒўџџџџџџџџџ џџџџџџ `„Jџџџџџџџџџџ€ўџЈџџ џџxџџџџџџџџ%ўџџџџџџџџџаџџЈџџџџџџџџ %џџџџ џџџџџџџџџџxџџџџџџџџАџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп"ўЪ“€ € € (€ T0€ 4ˆ€ HР€ € € (€ *P € 0€ J8€ Jˆ€ :и€ N€ >h€ PЈ€ Pј€ .H€ x€€€ˆ€€˜€ €Ј€А€И€Р€Ш€а€и€ р€ џџџџH€№H€H€€ џџџџ"0€8€@€H€P€X€ џџџџ€ `€ џџџџ €BЈ № € џџџџ@ X &h   АРШа€и р€ џџџџ"  € џџџџ"(0@€ џџџџB H€P€X€`€hpx$€ЈРШр№ј(HX`hp€ џџџџ"x€,€€АИи№ 0 8HPX€ џџџџ"`h€˜ЈАИ€ џџџџ" Р€Ша№  ( $8 ` x ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPс  ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ TQ с! 333Ј§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdз—зW—Wџџџџџџџџџџџџ0 ќЦdœ(  0 ќЦ  p4/tџѕYxџЌ>tџF`џpџ! Єpџ €pџ5`џ4$ tџpџ`џаHџ-XџqHџ € ™Hџ THџ *((џѕџ  џ`#џTHџ/џ6(џџ ѕqHџ"((џѕџ  џ`1Pџ6(џџ,Xџєўєў^q№ў<єўXџ l№ўqTџўієў lTџќR> lPџџ4lџlTџ Xџi HџџXж{џџџџџџџџPџ џџLџ џџџ(џџA A 0 ќЦx  шЄ/ѕxџ! ЄQxџ§ohџ #dџJѕл/dџ5hџœ3xџ! Є:Tџ NDџDџQxџ§ohџ4§ѕА6hџDџ6xџ!  >џ4§ѕlxџ=@џ@џДk>џ)xџ@џš@Є$ dџxџ@џhџDџ@ќ#ѕl\џ \џ:Lџ ]ћ@5\џ9§,џ:Lџ ћя\џb%ѕ§,џ:Lџћя\џ F<џќіlџ5\џlџ:Lџ]ћ@ї<ѕlџ\џ \џ<џ <џlџ џћ36\џ<џџз+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џ`#ќ(lџ\џ<џџ џРKfєxџtџH $ltџфўcpџW*'0џPџxџM`џ@H PџH L6Pџ0џ xџdpџ#єџpzџџ/H'јў'џ'0џѕtџ ,џ,џ ltџћў#(џ*FPџ /(џ,џ6Pџ0џџјўєpzџџ/„Р$ $(џ,џPџ0џџјў8HLT<  џ:Lџ]ћ@ї<ѕlџ\џ \џ<џ <џlџ џћ36\џ<џџз+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џ`#ќ(lџ\џ<џџ џРKfєxџtџH $ltџфўcpџW*'0џPџxџM`џ@H PџH L6Pџ0џ xџdpџ#єџpzџџ/H'јў'џ'0џѕtџ ,џ,џ ltџћў#(џ*FPџ /(џ,џ6Pџ0џџјўєpzџџ/„Р$ $(џ,џacPџ0џџјў8HLT<  МАAttribute VB_Name = "ThisDrawin фB@рramoџџ`џџџџXрррB Demand load: -vbarun;adUpdateTextStyles.dvb!adUpdateTextStyles;р. It was developed for AutoCAD 2000 and above.№?р C€ ˆ  € џџџџB ˜ €  Ј А Ш  р €№ ј  € & 8 @ € џџџџџџџџˆ рр adUpdateTextStylesррN This routine updates the font for all TextStyles in all drawings in a folderxр. It was developed for AutoCAD 2000 and above.рB Demand load: -vbarun;adUpdateTextStyles.dvb!adUpdateTextStyles;рр version 1.00џџџџррр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.z„Zzр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.рЭџџP]@ђ№ ^ђ8^ђP^ђh^ђ€^ђ˜^ђА^ђШ^ђрpџџј]DЌђј|ˆЁІ–ЁІ–xІ –ј–x]ђИ]ђи]ђ№]ђ]ђ0р On Error GoTo ErrHandler B@V X$~Ќ œЖUpdate TextStyles in \!^Ж drawings? `$Z'T T bœџ JўЌ \!^Ќ ’ J \%h d!fB@џ Lў !j“ L (lЖc:\windows\fonts\arial.ttf L(nџ LўШЗ B@Bџ JўШkџџkџџ|џџЃpј r!tЖ  r!vA@Zoџџа–H џџA@roџџА–ˆЌ$|'Xoџџ–Ш]ђH]ђh]ђ€]ђ˜ €ѕ ~9ЖSelect Directory to work in9$ .Ќ$\9"qџџ .Ќ$\'„ €$0'‚ ‚œ ‚ „A@> „ „ ˆ„Ќ $м'† †Ќ$ŠЖ\œ †Ж\'†kџџx †'|kџџhiџџ`–А]ђ№ђђ ђ8ђPђhђ€]ђ˜ЖClear Drawing List?'Ž ž   Ђ 'Ж Clear Files'’ Ž  ’$Z'˜ ˜ ЄœЖ'X \B@ІэА.kџџ€oџџx–А X$~Ќ œ  XЖdwgA@Њ \ $Ќœkџџ(kџџ oџџ–№]ђ˜ АЌ$ŠЖ\œ АЖ\'Аkџџа АЖ*.dwg Ж$~'Д ДЖb ДЌ$Š$И В$Иœ А Д ЎB@КkџџX ~'ДЙџџHoџџ@–А]ђ`ЩТ(џ JўЌ Р!Ф’ J$Р МB@Цџ JўШЃШрЗ'ЌzџџаЃТШЖUnexpected error, r!tA@ZЗ'Ќiџџџџџџˆр# CopyrightЉ2000-2009 ActiveDwg.comџџџџh џџџџзИAttribute VB_Name = "UpdateStyle€sDlg" ˜Bas˜0{226E48ED-8C7F-4572-BD94-F2F81B836C€36}{19B<46-DBEB-4A7B-99BE-7B73D5€50730E} d@Global‘SpacoFalse ŠCreatablPredeHclaIdкTru BExpose0TemplA†Deriv–C€ustomiz‹D' ' adсЇTextЉ ‚ This rou@tine u‚Йs the fontr all ‡ in‚dra`wings‚€lder(It was develop€Vfor AutoCAD 2000 and @above.DemAload: -vbarun;O,.dvb! ;Тversion 1.00ХCopyrig(htЉA-9 Act@QDwg.8com ŠA@DprovidD/dem€onstratСpurks onДly3m@^ рnot bRs>critical` applAs with€\ your Р-if„aDthataHfw"i@aperРm Ч€W@@^tenР(ƒQJ0may!freЦeР(wliz3Тown @son€&u@вso longФ€entрire c@‚€<"f%hea@{ rn@ƒintact!‰Q"as-isr"‚Kno@‡СУТS,Ќ wРH  рDi]Аied,ф m@ Ato it UeliabilityƒSny par`,ul taskи. A€oу„ у…\€ solс"€,І! ri   OpТ<@r6it P n oр l Fs As New CoHlle`IonGType BROWSEINFO € hOwne `s L, pipdlRoE fsаzDis |yтŸ S`Ђ2 lps0zTitр‹Ъul8Flap€Ѕlp fnСцParam)iImagea'End GCA] MAX_PAdTHР•26РiчD!C™ Fun‚ SHBrowseForFoС€ Lib "shell32.dll" F_@І7s "ЎA " (lpCInьfoa'()GХ0 FindW`owу#@?r32‰'Ё ByV ^lpClшassЫ-,!хc џn"GetPathFromIрDList€ Ћ"~AE"юЧ€сEХ ,ў Ѓ@B! СEg5Sub щш_C@ZHk()сRDi‰cDУИсAcadDpocum`}`{cƒРР@LIntegAМє "dFТeІ /g‚f †sЇRe sp@'R)Vari$an@7 b;On ErrAGoTjoЁHАbls! 3њ p‚.H`[БIf Len(Dir(P;“))) > `0 The0;сZadЦ= MsgBox(”‡( в&@>ЧЇESHГ_`v, Б СEЂ= Kft(Д, In  чvbNullChar)Ч1AвBF(Ri0Ўa, 1) <>р "\")ЪFpdЛ•P-\ф6бѓ1 J&?=дБ Uq€ ƒЋ/0,Clear*,›аf@5,Ан, ђŒ, Help, `Ctxt,@c`,И My!&i1$зh€P "B IТO?В ЮvbOK 38 +€YQues’СDefaultButton2п–№&caJsтbџŽ u ЈСШ&h b  тd1 SetvІ= NotŽh@жЁ‰Sub=Хі_р!nge3~ )O?p=pС‘BYcoђ­,‚ Ц, "dwЁїƒёXРAddToСoі(AБ ,е ™&Е #7_A%U CJа •уБ(ByRef files As Collection, strDirExt) @ DimXF!ИNameHIf (Right(^1) <> "\") ThenЅH ˜ =&@4End If _?X'zQ +*.dwg", vFb oryoш Wh +=~ " [ (UCaseЅ', 3|))5?s Z сŒ.Add‡[SZ ˜`Loop Sub PublicP FunД €.ToList(obpjBoxУ, ГŒЬ)BooleaЎЪintcnt IntegerDd š š ž„Ќ $м'œ œЌ$ Ж\œІxn€ œЖ\'œkџџИ œ'’kџџЈiџџ –x]ђИђађшђђђ0ђH‹p]ђ`ЖClear Drawing List?'ЄЛ Z Д Ж И 'ІЖ Clear Files'Јd Є І Ј$†'Ў?ђ Ў КœdЖ'b dB@€NсхэА.kџџРoџџИ–x b$~Ќ œd  bЖdwgA@Оl4 d $Рœkџџhkџџ`oџџX–И]ђ` ФЌ$ Ж\œZJЛ Z ФЖ\'Фkџџ ФЖ*.dwg Ъ$~'Ш€ ШЖb а ШЌ$ $Ь Ц$ЬœДtлї Ф Ш ТB@p€kџџ˜ ~'ШЙџџˆoџџ€–x]ђ(Щдhџ \ўЌ в!ж’€ \$в ЮB@иЇјаџ \ўШІx€Ѓк З'РzџџЃдЖUnexpected error, ˆ!ŠA@†З'РiџџаџџџџА р On Error GoTo ErrHandlerџџџџјџџџџЈЖc:\windows\fonts\arial.ttf і(xџџџџџџџџ0џџџџxk8џџџџp і (џџџџи  œЖUpdate TextStyles in d!fЖ drawings? $†'џџџџРрр adUpdateTextStylese8іeррN This routine updates the font for all TextStyles in all drawings in a folderxѕeр. It was developed for AutoCAD 2000 and above.$ѕeрB Demand load: -vbarun;adUpdateTextStyles.dvb!adUpdateTextStyles;рр version 1.00|єeрр CopyrightЉ2009 ActiveDwg.com4єeррC This routine is provided for demonstration purposes only and musteЈѓeрC not be used for critical applications without your verificationeфжeр3 that this routine will perform as you intended.eШђeрG This routine may be freely utilized for your own personal use so longeр8 as the entire contents of this header remain intact.eр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.eрџџџџ`џџџџкИAttribute VB_Name = "UpdateStyle€sDlg" ˜Bas˜0{F0F832E4-F6ED-49FD-AA8A-6AF5450404C2}{99A0E19A-E8B0J0C-8AEE-5FD8AA€A62C55} d@Global‘SpacoFalse ŠCreatablPredeHclaIdкTru BExpose0TemplA†Deriv–C€ustomiz‹D' ' adсЇTextЉ ‚ This rou@tine u‚Йs the fontr all ‡ in‚dra`wings‚€lder(It was develop€Vfor AutoCAD 2000 and @above.DemAload: -vbarun;O,.dvb! ;Тversion 1.00џџџџџџџџџџџџўџџџni44 n`єЮ›ЭЊ`ŽРРЬфvГПpСŒеZ}ЩџџџџџџџџџџџџўџџџnџџџџџџџџџџџџўџџџCompObjџџџџџџџџџџџџўџџџpfџџџџџџџџџџџџўџџџ]oџџџџџџџџџџџџўџџџиCompObjџџџџџџџџџџџџўџџџpopyrightЉ2009 ActiveDwg.comdPatрр version 1.00anрЖadUpdateStyles(c)ActiveDwg.com !"B@$рр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.5H|1:чр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.рр adUpdateTextStyles5QZШ8sрN This routine updates the font for all TextStyles in all drawings in a folder6:cџџџџјџџџџЗВAttribute VB_Name = "Module1" ' adUpdateTextS tylesdThis routine uHs t€he font@r all n in"drawings'lderjIt was developedCAutoCAD 2000 and abovDe.i Ј 1i ИylesA]ьŽа@ЄQЭл-9Э )џџџџ џџџџй UpdateStyles_ClickwFŸЏ)M’FŽ™І^YJЮOгќ›†kF VM.Нї)8SЩzHИИ;IЏeѕРЄЌжOВуИЉ…ШCЎY И_ѕA–GВAй…tЎ yџџџџ џџџџй ` 4c:\windows\fonts\arial.ttfЏЩ5:ЋМL<˜­ЖcБЂVzЇDL…zЁ-Џ!F#ф2ј№эі§IЊŠjѕEТЎхб‡V‰G† rtџF`џpџ! Єpџ €pџ5`џ4$ tџpџ`џаHџ-XџqHџ € ™Hџ THџ *((џѕџ  џ`#џTHџ/џ6(џџ ѕqHџ"((џѕџ  џ`1Pџ6(џџ,Xџєўєў^q№ў<єўXџ l№ўqTџўієў lTџќR> lPџџ4lџlTџ џ4§ѕlxџ=@џ@џДk>џ)xџ@џš@Є$ dџxџ@џhџDџ@ќ#ѕl\џ \џ:Lџ ]ћ@5\џ9§,џ:Lџ ћя\џb%ѕ§,џ:Lџћя\џ F<џќіlџ5\џlџ:Lџ]ћ@ї<ѕlџ\џ \џ<џ <џlџ џћ36\џ<џџз+' џ'џ'<џ§Lџlџћя\џH 6\џ<џџ џѕ'\џ F<џќіlџ5\џ`ќ(lџ\џ<џџ џРKfєxџtџH $ltџфўcpџW*'0џPџxџM`џ@H PџH L6Pџ0џ xџdpџ#єџpzџџ/H'јў'џ'0џѕtџ ,џ,џ ltџћў#(џ*FPџ /(џ,џ6Pџ0џџјўєpzџџ/„Р$ $(џ,џPџ0џџјў8HLT<  wxКlngHwяА ƒС"WS…Ё@ƒџ‚‰ ‹Ср0Demload: -v@barun;Б.аdvb!;"‚#version 1.00… Cop€yrightХCopyrightЉ@9 ActPDwg.comХJ@Cprovid.demon stratpurСis only-Т1m] no8t bРPСqС 0 ˜The0;сZadЦ= MsgBoxF(D‡ьn" &@st1.!Cou!& " Up?", vbYesNђo 0вш\ @3q\A=‘ oСOt - 1  ( A‡d.хs.аOpenЋ(Г”ау#Each ’a8In` isф ў.k•!fStvpB/шз Q‡F.с„FiЁ2’"c:\АƒdC\as\‘l.tьtf˜N Šy ‡ЩЙClp“ (!•х9Zxt”C‘NIfCБ˜xit @2 v @&”%:!Ѓ ё&.аNumb№[&€1 с€.Desp}bbT"k7cmdCancel97UnŽ MŸAo Cm&dЃPЊ:wg”U= @Returnу(ц0р‰ub№=—YКрlngHwА фbђBўS6f1=ƒЂj+lСрџ4ap‘›Hˆ1ЋkсAwW „.yфq= є Bo0РSeavPGrаvoryТ  €workа’"І.АPЙs= у(5lф, q ‘ё!ПU ЯФї n( Яв&@>ЧЇESH_`vl, Б СЂ= Kft(Д, In  чvbNulРlChar)1AвqBF(Riр­a, 1) <> "ј\")ЪFpd•P-ю\ф6бѓ1 J&=дЯБ Uq€ Ћ/0,рClear*,аf@5&,ААм, ђŒ, Help, Ctxt,@c`, Mюy!&i1$h€ЕP "B IТO?В CВЭvbOK38 Т+€YQues’СDefaultBРutton2–ї№&caJsтbŽ u ПЈСШ&h b  тd1 SetvІ= Noth№еcЁ‰Sub=і_ёр!nge3~ )?p=p“С‘BYcoђ­, Цр, "dwQїёXР AddToСo(A§Б ,е ™&Е #7A%U CJа •(ByReнБf files As Collection, s trDir8Ext) Di mXFИNameHIf (Right(^1) <> "\") T(henH ˜ = &@4End ќIf ?X'zQ +*.dwg"0, vb orByo Wh W+=~" [ Р(UCaseЅ'р, 3))j? s Z Œ.Addg‡[SZ ˜`L oop Sub Pub€lic FunД €.ToList€(objBoxУГ, ГŒЬ)РBooleaЎЪ@intcnt I@ntegerP ž ž Ђ„Ќ $м' e  Ќ$ЄЖ\œ/0orХ  Ж\' kџџА  '–kџџ iџџ˜–р]ђ ђ8ђPђhђ€ђ˜ђА.t]ђШЖClear Drawing List?'ЈХ И К М 'ЊЖ Clear Files'Ќ Ј Њ Ќ$Š'ВT В ОœbaЖ'^ `B@vцeЦэА.kџџИoџџА–р ^$~Ќ œCL  ^ЖdwgA@Тl ` $Фœkџџ`kџџXoџџP– ]ђШ ШЌ$ЄЖ\œ ШЖ\'Шkџџ ШЖ*.dwg Ю$~'Ьd ЬЖb ЬЌ$Є$а Ъ$аœ Ш Ь ЦB@lEkџџ ~'ЬЙџџ€oџџx–р]ђЩи`џ XўЌ ж!к’Ц X$ж вB@мџ XўШ*ЃоЗ'ФzџџЃиЖUnexpected error, Œ!ŽA@ŠbЗ'ФiџџШ LB@„ЌЌ+~FЖINSERTЌ+€FЌЌ+~FЖblairЌ+€џџџџР H!p$tЖ C825(TYP.)eЖ C990(TYP) H(pЦ HB@r H!pЖGLEN Constr. Co.eЖ C991 A.S. H(p. HB@rЖNARDI CONST. INC. H(pL HB@rWG_џџџџP H!p$tЖC826(as shown)eџџџџ(џџџџmЖAttribute VB_Name = "FixTextDlg"D „Bas„0{4D37776E-0720-4B2D-BA0A-1FD67A622A71}{BD17C13F-597F-477D-A6BC-26B00D83B612} dGlobalŒSpacAoFalse ŠC€reatablPredecla‰IdеTru BРExpose0Template Deriv–Cu@stomiz‹DO@ption 0l€icit P€!€% colDwgs As New€ CollecType BROWSEINFO hOwn„erLongpidlRootAŠ szDis€Yyф1Sюƒlps0zTit€– ulFlaƒ#ElpfnIlParamIiImageG0End -‡0Const MAX_PATH_260 ЧDf Fun? SHBrowseForFoldР:Lib "shell32.@dll" _€l ias "N A" (lpƒInfvoС&GP)‡*…a FindWРow Buser32 GAByVal €lpClass‹[>,A*ХУ с#SHGetPathF€romIDLiРSї&AKEA…DЮ ‡) ѓС‹…A, C'€„AСEg5Sub PlotAllTo@File_C`ZkФ()СPDimсXРЇхAˆAcad›СEs`ЁSeф_ЄSe d  fI(0ЂIntegРer, fD }€EacDrawi ng! DocumenІintcnтcd%dwgc†hТ' O urror GoTo ErrHandlerЁ Ё!ЇЂ.Hid`‰ If Len(Dir( z#W)) > 0 ThenЋc`Z „=o L€stBox1.С:ˆCouР- 1ЃЈAppР+aA‚.E@s.OpenЫ(ЫC Ђ0  DР +ƒ €* `-= isф%.I.s.Addр("ss" Ѓц/ р:/ x"TEXT Ер Р  acѓ) РD, !Ђф6у A!Each %CIоnРcb)ф.ф; б%%uKING FARM III"h+!П IVcЄщUpd ВХE— ЬР9• U_tr_ZџюHŸЯtР;$GLEN C ONST.`.xСьNARDIЁUINC.?.?з?:er@oO‹џ OOQ 0ЕOOŽRUCTIONГЏЏ "Џe' Х0 Џe_TC825 "C990зoППrЗ6ПП=В1ПППИ5,пР П€AС /@_юr__Y/_—t"? _Ÿ$1rilm(Е&З)U`5р(TYP)//ууџ#ПП2p Е6p A.SŸ4пг1ПуПППНr.џЯЄ"ЏЂOё†(pЄshownпD5маАI:f3NА>ss`.Cleah…3B€lockObjжжС’Varia#c№ѕŽRefer8encвˆ#rw1(бˆo 1?”aІ ;х‘0д~ ‚IN`SERT"P™14(1Q2Fт"Ticket_Jo€bNumber$@я€cџј1‚Ф‚пqкџр3P.`Џ7# „ЁЬaP00707P05|58ЖNЄs ў  -&€Ѓя%4 tA лЕNSERT": fType1(1 ) = 2pDa„tap"Dwg8 e" ss.Select ac ionSeРtAll, ”, f†hFor Each en€t In ss. BlockObjAttrib0utes%.GR-(0).TextS>ng;"Jan '06=ЎNuAМCl`ear і0M{0{"IЁbАlairгŒ‚D€ДteƒUŽd ThisDrawing.PurgeЦ dwgchE‰1 If  аThenƒ РЧClose (TАrue)Х† 0C Else:Q Fa@„ End If Т.intcnt‡Exit Sub ErrH€andler:€MsgBox @.Number H& "@& D€escript€ž@‚ PrivateA cmdCancel_@Click(‚%U€nload MРT! CmdBrowse‰ €РFold@!= Retuœrnƒ@ŸЫubР` FuncС&Ы lngHwР*As @Long) SC‚­р "\")Рdmр їФ % Z\ф‡Ё#f‰Lџ@0ЄaЅсхLС™I__`XТœJXрK€j,Р-yle, Ђ;, Help, Ctxt, UsponsЙ€Myƒ2SiaH@Intege`Ї Ў C‚ $ ,2?bSt@ vbOKcp + vb0QuesТbDefaultButpton2 цMУ FilesТ Reуї Р‚(Р х@Hзˆ/Ix"Т "Р L1."a @й colР!бNotюh ЊA /S!–Ыц b_РCngeу@SL(en(@g()) > 0HFin&dЁх, f, "€ЏФ€ AddTкo-(a,Ѕ)MЙe Бƒ”` %(ByRef fу!ЁCol!~рUr2ур rExt‚!! )џ1 ?бА 70ђА„/0џPР€„ц/ …Ÿpас7AА*.б,А$УH o WКhР Бжс"ђС3:UCaseW uШ, 3 = урїa{;‚.РBГh Яё—ТD6= раLoopПbcЗbЇ8objqD, as›ђcBoo№Œ‚|r:"vqШ:On C0s˜GoToЃ_€Control gБ™Ѓyр1 Т.hCouгz ѓсIшtemГ(#вк}С}_Hereb|F џА!…2ЇKВ  Й@"UnexpPe€d errorР0џP€№$С в‡3™Qn‹—€џџџ_B_var_strFileNameМG €џApplicationЅ* TextReplaceЦ TextStr1_ChangeоѓTextReplace1_ChangeЯ•TextStr2_Change†єTextReplace2_Changew–TextStr3_Change.ѕTextReplace3_Change—ifText2Ю[ModelSelection'Ђ€џAcadSelectionSetЫЩPaperSelectionУЂModel9Э €џџџ_B_var_Model&‘€џacSelection,џPџ0џџјўDHLT8   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)нѕ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<џ"ќinished$tCmdFinished_Click“[Hide9zJobNoя  JobNoReplaceB8Finish1*wFinish1Replace!cFinish2+wFinish2ReplaceЩcFinish1Replace2fNote1|Д FinishNote1sл Note1ReplaceіNote2}Д Note2ReplaceЛіLabel12BHardwareыHwareM HwareReplaceшLabel14DLabel15ELabel16FMisc1йzMiscTextReplaceQFinNote2Я; Hware_Changeњ]JobNo1o* JobNoReplace1ёFinish11ё5Finish1Replace1eFinish216Finish2Replace1*yNote11ш6 NotГЩ*В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Я?ўдБZГЩDnЯ?ўдБZГЩ5nЯ?ўдБZГЩCmdFinished_Click Љ+џџџџ џџџџ ˜ ”4JnЯ?ўдБZГЩ‹{œФ дБZГЩе{œФ дБZГЩŒ{œФ дБZГЩ‚{œФ дБZГЩд{œФ дБZГЩ0џџџџшZъџџџџ ќ!f'иnew ЎC757/3'ŽZъџџџџџџџџшИlџџ8џџџџ0и Dim Note1 As StringЎC923'и With elemџџџџшZъјZъџџџџџџџџшџџџџаи3 ElseIf Text2 <> "" Then”F и End Ifи End Withи" Set elem = NothingхЎPaperSelection !|%".pџџџџРи MsgBox "PaperSpace"ІHlhlхЎPaperSelrU€€€ ˜ qБ‰1€й€ 1б1 q Щ1‘Љ !ЩЁбnё)YБqбсhAiс{сw €1€џџџџй8љ 9 ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<‘ Й џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@™ !С §§§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ D‘ сс ьььЈ§џџ`qџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ H‘ с‘{дддЈ§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ L‘ сй еееЈ§џџ`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPБ‰222`1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ T‘ сЁc333Ј§џџ`ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdППџ?џ?џџџџџџџџџџџџ0 ќЦdœH  T l§œxџ"$ xџ $ xџ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џ@џ(џџHLDTP  #Ж(lџLџ\џ џџ<џ,џдўшўиўф /ѕ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џ@џ(џџDHLTP  #џ\§>ѕ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џ@џ(џџDHLTP  #Pџ@џ(џџDHLTP  #яџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрБљ6єєєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфБё5ѕѕѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјБб5јјјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШљ 9 ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш9 Ёё9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџєБYD***џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџьљ  :џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ9 Ёi №№№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<Б‰:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ŽПџПџџ??џџџџџџџџџџџџ0 ќЦdœ  0 ќЦˆ  p4/tџѕYxџSetAll.Т €џџџ_B_var_setS1_ €џSelectionSetsг €џAcadObjectЅ €џEntityType† PanelSelectedA5 €џ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ДЯ CmdFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЏџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~& љфmN!жБvTљ  фƒŠa ЩџџџџџџЉƒA Йgџџџџ Ё ‘ YЉ}QЉбad 9џџй}A Aџџџџ€ џџџџ‘{џџсйСЁag 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дБZe1Replace1ћ# FinNote21~u Note2Replace1~ўHware1ЖH HwareReplace1НQMisc11фMiscTextReplace_1tMisc1_1oЃ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 MiscRe{œФ дБZГЩ y-џџџџ џџџџ ат{œФ дБZГЩэ{œФ дБZГЩkўЎ} дБZГЩšўЎ} дБZГЩШўЎ} дБZГЩгўЎ} дБZГЩЩўЎ} дБZГЩbўЎ} дБZГЩвўЎ} дБZГЩаўЎ} дБZГЩ a/џџџџ џџџџ 8 CmdFinishedчўЎ} дБZГЩ џЎ} дБZГЩшўЎ} дБZГЩ џЎ} дБZГЩ џЎ} дБZГЩ Љ0џџџџ џџџџ ˆJobNoFiection !|%".pџџџџ и MsgBox "ModelSpace"ngџџџџ8 СА 8 С˜ ДB@Ж М!f$КU 'И ИЎ”Fug ИЄ$ОЎ\• ИЎ\'Иhџџ( ИЎ*.dwgA@~ ~'В ВЎ•uџџ№ hџџш \џџр В ДB@Р ~'В ВЎГlџџА Zъџџџџї ФіЄ Д!ЪЄ ‹ Ф Д%ЬЏ• И Ф Д%вЏ Ю!аB@Џ Ю!дB@B Ф Д%ЬЏ• hџџИї ФіР И Ф Д%вЏ Ю!аB@џџџџpx lџџ№ џџџџи џџџџXZ@ъџџџџш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џџ ›, хЎModelSS !|%".lЎUnexpected error, 2!4A@(Џ'fџџР Є$8'xZъџџџџZъџџџџZъџџџџZъџџџџљ <э :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@(rU€€€ џџџџџџџџ@ppўџџџџџџџџџџџA4џџџџ,љ Hpўџџџџџџџџџџџi‰,Щ€pўџџџџџџџџџџџБЩ$щ`Иџџџџџџџџ$)`Мџџџџџџџџ$i`Рџџџџџџџџ,Љ`­џџџџџџџџџџсџџџџ(0$щ`Фџџџџџџџџ$)`Шџџџџџџџџ8i` Бџџџџџџџџџџ1I=љ//@Љ` Еџџџџџџџџџџ™џџџџ=i=љ#q p!С §§§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Бй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џџџџџџџџџџџџўџџџpntи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 place_3ъMisc1_3qЃLabel21fLabel22g Label22_Click|Label23hLabel24iLabel25j MiscReplaceќi MiscReplace1ь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_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" 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 If .TextString = "88-C8" Then .TextString = "76-C8"иI If .TextString = "88-C10" Then .TextString = "76-C10"иI If .TextString = "88-C12" Then .TextString = "76-C12"иI If .TextString = "88-C14" Then .TextString = "76-C14"иI If .TextString = "88-C16" Then .TextString = "76-C16"иI If .TextString = "88-C18" Then .TextString = "76-C18"иI If .TextString = "88-C20" Then .TextString = "76-C20"иJ If .TextString = Misc3 Then .TextString = MiscReplace3џџџџш ž$  J$ }”F ž J RЏ$T'žg, ",и: newText = Right(TextString, InStr(TextString, ",") + 2)и- For Each AcadObj In ThisDrawing.ModelSpaceи. If AcadObj.ObjectName = "AcDbText" Thenи Set objText = AcadObjhџџР$и Next AcadObjlџџˆ$( XЎ”Fsg VЎ”FsgZъџџџџъџџџџъџџџџъџџџџ X'^ V X}'b bЄ ь ` V bЄ $о Z'` V b ^ $ќ'V V X}'b \”F ` V'TEsgыџџˆ# ` V'Tfџџp#џџџџ0$5žЎC757/3Ў C924$\'d”Fџџџџ0( Є$О$  $ • str5žЎC756/0}”F5žЎC756/0ЎC840Џ$T9žgАl85žЎ4/30/99}”F5žЎ4/30/99ЎЏ$T9žg5žЎ5/1/99}”F5žЎ5/1/99ЎЏ$T9žg)55ž$ Ў9888$ }”F5žЎ9888ЎP0076Џ$T'žg5žЎC757/3}”F5ar_MidэpNewJob@. NewJob1_1 ­NewJobReplace13эNewJobReplace_1:•Finish2_1_ChangeсD€џџџ_B_var_NewJobReplace_1Э~Frame4ЙLabel26kLabel27lLabel28mLabel29nLabel30Š€џџџ_B_var_DwgFolderЕ„џinsertionPointэ­HorizontalAlignmentleftЦz€џacHorizontalAlignmentLeftРz insertPointФ{€џџџ_B_var_insertPoint&mto2кTypeNameјѕP0076ї%CmdClearcoCmdClear_ClickуMsgQЕ„џStyleХpTitleђ~HelpfCtxtЊлResponsžЎC757/3ЎC841Џ$T9žgџџџџ&џџџџx)џџџџЈ)џџџџр)џџџџ и6Dim AcadObj As AcadObject ' Added for TextSearchи6Dim oldText As String ' Added for TextSearchи6Dim newText As String ' Added for TextSearchџџџџ *џџџџ (џџџџPџџџџ)ZъџџџџZъџџџџ !f'r rЄ$ОЎ-'ЬACADhџџџџИ(5žЎ9888 rЏ$T9žF55žB@& rЏ5žЎ9888}•џџџџ8)5žЎC757-3}”F5žЎC757-3ЎC841Џ$T9žg5ž$i86џџџџџџџџџџџџ n`єЮ›ЭЊ`Ž ,ЕПРЃY2&ФПfџџџџџџџџџџџџўџџџ=oџџџџџџџџџџџџўџџџиCompObjџџџџџџџџџџџџўџџџp