ࡱ> *    B( $p 4 8     *( X J` J : N@ > P P  .p "  2?238p)  ad_AddWord```; This routine demonstrates the insertion of new words into an existing text string. !2 $' NEW (22 Demand load: -vbarun;ad_AddWord.dvb!ad_AddWord; version 1.00# Copyright2001-2006 ActiveDwg.comC This roThisDrawingThisDrawingModule1Module1isutine is provided for demonstration purposes only and mustRoot EntryIj0VBA_Project Tĕq?IjVBA_Project_Version(VBA @˕q?Ij    !"#%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\^_`abcdeghijklmnopqrstuvwxyz{|}~acadID="{D3D7A700-AB3C-11D4-B112-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="93913AEC14F014F014F014F0" DPB="696BC015C115C115" GC="3F3D9630BAD091D191D16E" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-10, 50, 751, 545, Z 545, Z odule1Module1PROJECTwm>PROJECTThisDrawing __SRP_4 __SRP_5BModule1 fe__SRP_2 ]__SRP_3[g_VBA_PROJECT/ dir$__SRP_0 a__SRP_1nrU~}   pole f%\*\K*mrU~~~~~~~~~~_ 8T@V$=  a A Y9   ACADProject ThisDrawingModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I0;HA> 9<(NU0[sߊ{A7\1u!= & s˼F4^\ L)KBx"k AcadDocument @ AcDbText AcDbMText NEWTextString UpdateVBE6.DLL i k A.exd#Microsoft 0* pHd ACADProject8@ = t  D:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0#k0A6F087438-4CEA-408D-BA53-9932C9FEFB0B6DOCUME~1\WALTER~1.ARB\LOCALS@Tem@p\VBE\U.8exd =".E .@`M ¢¤ThisDrawingG ThilD rawng 2 (HB1XB,B T"B+Bo@dule1Gou@uB1@ ˜2OM!Ham  *\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{6F087438-4CEA-408D-BA53-9932C9FEFB0B}#2.0#0#C:\DOCUME~1\WALTER~1.ARB\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   D:ThisDrawing0z44d86784ThisDrawingModule10y44d86784Module1 8ۢBB%YxUBc%󑋚Mѝ+bH4(variant AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1b (ad_AddWordR adTextObj}* AcadObjectholdStrpstrLeni` adBasePnt adObjSel_exitsub*Utility1J GetEntity ObjectNameRight  TextString Update AcadDocumentZ _B_var_LeftQ _B_var_Right9T   $@ ThisrU $`n this header remain intacrU~|  y  Ay  PpN kNK?:4%PlxDDH$ H hlD=x)DH30x l00,x l,020,xW Upr5)xW kr  `1t6 lt*F%x 5 x  ap4`Ptx$0,HD kk B@4(oM xMEP 6 "LLPL  ` H xX %`t(` r%`$P Z`&N` D:$*\Rffff*0y44d86784*\R1*#be$*\Rffff*0z44d86784*\R1*#135*\R1*#14f*\R1*#6a*\R1*#6a*\R0*#fC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long8 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.r8]@]`]x]]'& &b0-(  $Select Text to Update>> !*B@,~1\ !.AcDbText !. AcDbMText6\V !2' rk B@4(o. It was developed for AutoCAD 2000 and above.00ڳAttribute VB_Name = "Module1" ' ad_Ad dWordDThis routine demonstrates the insertion of@ new wts),to n exis~g text ?ing.It wasWveloped for AutoCAD 2000 and above0Demload: -vbarun;.dvb!;e!hversS1.00 Copyr ight41-6 ActiveDwg.comprovidV/purposonly^0must$ not be uscritical appl@s with your [if "thatwill per9m enGQ`may!free(@vliz#D$ownAson&+ so l8ong~entire con*tsthe@ader rjibn!act!Q"@as-is"Knbo@claS,, wH im@Ied,!@mA> aI6f$.#ŒAcDb!" OrBMThen S(= (&.?#-B4e0Aft}r, f E & "NEWE@