аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№LдАџџџџVвLJџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ <$<џџџџџџџџџџ шџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"„ „џџџџџџџџX% „џџџџџџџџxрJav% „"џџџџџџџџ˜ity %`„&џџџџџџџџ џџ.`„(џџџџџџџџџџr Au`„*џџџџџџџџ џџ.+4џџџџџџџџџџџџџџџџџџџџ(џџџџџџŒiƒLџџџџџџџџџџH„џџџџiƒNџџџџџџџџџџh„00-2iƒPџџџџџџџџџџˆ„iƒRџџџџџџџџ џџџџџџ„ided`„Tџџџџџџџџџџurpo`„Vџџџџџџџџџџџџџџ`„(џџџџџџџџџџџџџџ`„Xџџџџџџџџџџјџџџџ№џџџџџџџџџџџџџџџџџџџџџџшџџџџџџRoot Entryџџџџџџџџ8яdнVЩ@VBA_ProjectџџџџРІ,щœДС8яdнVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџРІ,щœДС &юdнVЩ§џџџ ўџџџ ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?AўџџџBCўџџџEFGHIJKLMNOPQRSTўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{5D3A8968-2053-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="616316DE1ADE1ADE1ADE1A" DPB="7F7D08EA38165717571757" GC="9D9FEA081627172717D8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=88, 88, 669, 614, Z 14, Z PROJECTwmџџџџџџџџџџџџ@>PROJECTџџџџžThisDrawingџџџџDModule1 џџџџџџџџo_VBA_PROJECTџџџџџџџџџџџџз dirџџџџџџџџџџџџ’џџџџџџџџџџџџўџџџ@џџџџџџџџџџџџўџџџžџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџŠџџџџџџџџџџџџўџџџhџџџџџџџџџџџџўџџџЌŽВ€0* pH‚dф ACADProject8@е = t  }@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft ‚: €] Ob­ Libr@ary/;D1?€„€tˆ€ˆ€00h}#0‚€#€04Ѓ€…€ A13A00C1-CBA4-4211-86CF-EFEC41B2835EH.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exdр3Р!€с.E р….`Œ(M Дž‚™"ТL‚›ThisDrawingG€Thi@cDrawРng 2 €HB1ТЅE‹B,B N"B +BC‡odulЈe1GD‡oЊuЊn1@ ‚2OитOJ!H@F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VЬamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\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{A13A00C1-CBA4-4211-86CF-EFEC41B2835E}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ}@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLThisDrawing0M4abdd09eџџThisDrawingџџNEџџModule10N4abdd09eџџModule1џџJиџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџц@™/O‘АBœѓвBжчіёџџџџ7ƒŸЂhB–pбцЩ J:џџџџџџџџH€-.џР*AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1bad_ConvertTextyadEntity\й AcadObjectЅ adNewMTextњO AcadMText ј adNewTextћUAcadText›~basePntyvholdStrќp adselectedч Utility1J GetEntityˆ textString  ObjectNameуФ replaceStrI‹ ModelSpace_жAddTextQinsertionPointэ­height|‹ AlignmentЄIacAlignmentLeft93UpdateвќAddMTextШAttachmentPoint!acAttachmentPointTopLeft\oDeleteИx searchStrДoldStr'newStr*_ firstOnly…i` oldStrLen•­StrLocV  AcadDoThisDrawingThisDrawingModule1Module1џџcumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $xџtџpџlџdџ@џ№ФдџџџџЫ?LNџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪJ€ € €  € N(€ >x€ .И€ <ш€ (€ 0€ H€ *P€ €€ Jˆ€ Jи€ :(€ Nh€ >И€ Pј€ PH€ .˜€ Ш€а€ џџџџ"и€р€ш€№€ј€€€ N€ N`€ NА€ L€ Php xˆ6 Ши€ Bј.@(p ˜ ЈИ&а ј   0@H€ џџџџB P€ :X˜АШ€а № $ H`p˜Ј€ џџџџџџџџИрр ad_ConvertTextррG This routine creates a new text entity from an existing mtext entity,р7 or a new mtext entity from an existing text entity.р' Developed for AutoCAD 2000 and above.р6 Demand load: -vbarun;ad_ConvertText!ad_ConvertText;џџџџрр version 1.00џџџџрр# CopyrightЉ2000-2009 ActiveDwg.comџџџџџџррC This routine is provided for demonstration purposes only and mustџџџџџџрC not be used for critical applications without your verification{фv{р3 that this routine will perform as you intended.9œhрG This routine may be freely utilized for your own personal use so longxр8 as the entire contents of this header remain intact.xр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.xрЭџџ(–]ђ@]ђ`]ђ€]ђ ]ђИ]ђарHOne of the things you will probably need to address is the Justification,рG of the converted text entity. MText uses the AttachmentPoint propertyрH while Text uses the Alignment property. We demonstrate how to set thisарF property, but it will be left to you to implement the conversion forB@<р the new entity.ЩЗ'* *Зb@эА.  &ЖPick Text or MText Entity>> !,B@. !0'(( !2Ж AcџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDbMTextœр<This call is used to remove MText formatting from the string (Ж\P„›G (Ж\PЖ З$4'(jэ ( !: !< !6%8." @ "(> "B@B !2ЖAcDbTexteэ !: ( ( !6%D. H (F B@Bkџџр А›G|j B@JЙџџИoџџА–шр3This is an older function taken from ad_FindReplace LЖ›Gzj NЖ›GzjЖ'4]ђЈђРђиђ№ N'V L N„'X XЌ є ( L XЌ $м P'( L X V $њ'L L N„'X R›G ( L'4Fzjѓџџh ( L'4iџџPџџџџHџџџџ“ЖAttribute VB_Name = "Module1" ' ad_ConvertTextTThis routine creates a@ new tL entity from an eˆxisTg m:Т,О or9  :9.9Deve€loped fBAutoCAD 2000rd above)mand load: -vbarunъ; й! ;1‚2€|sion 1.00… CopyriPghtЉ6-9 ActiveDРwg.com “€˜provid„Xdemonstrat/purpoBs€Ђonly`musЗ not@ be uscritical 0appl s withЩ yoШur €[if G"that t‰мwill per PРisA intenР(ƒNJ0maya!freeР(lŒizD$ТownAson€&+ soI]ngФas@eТ†r@ots of%header remain1!act!‰Q"a s-is"‚Kno@ declaУS,œ wРH@2—im@IЌedœ@m€ С#o i€ reli0abilТЌСЃnyP parРXu €task. A5Ф+5СsolgСEYFCri@@ H Op‚yExliAv SubŒз(€) Dic$dEƒаAs€–ad`Objec@ ENшewMф Ф€IСbasePntVarianІ holdSltr!Рiс6Х sœelР`=Р BoрДan O€Ђ!e!8 ngHƒJroba’b Dne to@dress р$tphe J€[ыS cчƒ‰. ƒР/cH!@—achmРŒPoMV kРXty€ € while тalignсF. We Fepe hТo€—o seƒdB љх , рЄ@E`l f@qшlefРo"f !LўeТ cТ† k СЁЃЃРZ On Err MResuM€ЏNр4adІ-= True"7o FWТВ S aaeF= Noр|8 B axDraw :.„UtЂ\.GetLЅ@#C, "Pi>n У‰…E= ;c.У!ДG IfgуWЁ…ЬAcDbТ "€neAIтŒ šlD 6d>  *@`Иd?a”atЂШТЪ!* ЇФTAр In(d\P".)B  ;ƒ[=ŒplaceР ",Р Falseтpa ?у*Хiр1РЇe)@хel„Sp` .AddсMУ'Ѕ*.ins`ч МeU,'"he!Ш aВd„ .AFU`+cІL N!AЁ‡UpdФat"D E{.џaE.сu# S( „ Lenхм),хы .Н;RФttљ №šC.=V@&ft(ˆT- 1) &?ЌQ fАMirdo +ЗД 5t~rAO Д†’Rg Tnh0њѕ &Рit':х mnd1 Я€*ШГ.7 intadl`џ 1`џExџW4џ ќ‹Xџl`џl`џJь9ќэ4џ\џ$  \џ ФlXџ=tџ)\џXџ54џ ќc=xџќH4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit 2608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{A13A00C1-CBA4-4211-86C