аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№LдАџџџџVвLJџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ <$<џџџџџџџџџџ шџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"„ „џџџџџџџџXdv% „џџџџџџџџx% „"џџџџџџџџ˜ity %`„&џџџџџџџџ џџ.Й`„(џџџџџџџџџџoped`„*џџџџџџџџ џџ+4џџџџџџџџџџџџџџџџџџџџ(џџџџџџŒiƒLџџџџџџџџџџH„џџџџiƒNџџџџџџџџџџh„ iƒPџџџџџџџџџџˆ„џџџџiƒRџџџџџџџџ џџџџџџ„ is `„Tџџџџџџџџџџrati`„Vџџџџџџџџџџ mus`„(џџџџџџџџџџџџџџ`„Xџџџџџџџџџџјџџџџ№џџџџџџџџџџџџџџџџџџџџџџшџџџџџџRoot EntryџџџџџџџџРaaf?ьХ@VBA_ProjectџџџџРІ,щœДСРaaf?ьХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџРІ,щœДСРaaf?ьХ§џџџ ўџџџ ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?AўџџџBCўџџџEFGHIJKLMNOPQRSTўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{5D3A8968-2053-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="181A6F9573957395739573" DPB="5F5D2893289D6E9E6E9E6E" GC="A6A4D15C5FE4A7E5A7E558" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=88, 88, 669, 614, 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-02608C4D0BB4Dsystem32\FM20.DLL#Micro soft ‚: €] Ob­ Lib€rary/;D~1€„€tˆ€ˆ€0а0}#0‚€#€h0Ѓ€…€ A13A00C1-CBA4-4211-86CF-EFEC41B2835EH.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exdр3Р!€с.E р….`PŒM Дž‚™DТL‚›ThisDrawi ngG€Thi@cDrawРng* 2 € HB1ТЅEB,B N"B+BC‡oduPle1GD‡oЊuнЊ1@ ‚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{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:\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 Д  џџџџџџџџ}@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLThisDrawing0144e6c2b0џџThisDrawingџџNEџџModule10244e6c2b0џџModule1џџJиџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџn(vци№]FЃ:\ŸџџџџIPхкгrLН”'3K5џџџџџџџџ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€ JX€ JЈ€ :ј€ N8€ >ˆ€ PШ€ P€ .h€ ˜€ € џџџџ"Ј€А€И€Р€Ш€а€и€ Nр€ N0€ N€€ Lа€  8@ HX6` ˜Ј€ BШ.(@ h xˆ&  Ш иш№ € џџџџB  € :(h€˜€  Ра р$№0@`hx€ џџџџџџџџИрр 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џџџџррр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.рЭџџ –]ђ@]ђ`]ђ€]ђ ]ђИ]ђар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 forр the new entity.ЩˆЗ'* *ЗbэА.  &ЖPick Text or MText Entity>> !,B@. !0'( !2Ж AcDbMTextœр<This call is used to remџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџove 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ѓџџ` ( L'4iџџHр# CopyrightЉ2000-2006 ActiveDwg.comџџџџ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-6 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{8E75D913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@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