ࡱ> [[@[LSS>" <,LLLLL?@ABCDEFGHIJKLMNOPQRSTUVWY[\]^_`abcehiID="{BF721FE4-5287-48FA-9AC5-FA1E054B7C49}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" CMG="B9BBBEC6C2C6C2C6C2C6C2" DPB="393B3E433F433F43" GC="B9BBBEC3BFC3BF3C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=22, 29, 514, 397, Z 397, Z ThisDrawingThisDrawingPROJECTwm&PROJECTLThisDrawing__SRP_2 ZB__SRP_3 Xe_VBA_PROJECT) dir /__SRP_0  __SRP_1frU~}  pK)^rU~~~~~~~~i  ~K X   a  ThisDrawing ACADProjectFHC:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA332.dllVBA  PW & 2C:\Archivos de programa\Autodesk\ACADMAP4\ACAD.TLBAutoCAD A`0FC:\WINDOWS\system32\stdole2.tlbstdole !IpDMM.lC:\WINDOWS\system32\MSForms.TWDMSForms 1y.E .`M 28'FG 1C:\DOCUME~1\orlando\CONFIG~1\Temp\VBE\MSForms.EXD 9yu!= &a`$Az7~!BCu!= &stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms/4| rGE6A6441D-1A8B-4DEE-80A4-9D4D2E6C86 CBG4.TWD#Microso(ft > b Ob Library:Q0 Q27DF3832-9EAD-46F9-AA874791@BC811FQDOCUME~1\orlando\@CONFIGTemp\VBE\ -EX'-.E .`PM DThisDrawing 2@5 T@ibDrawing@HBj1Bh@oB,QB"B+BBa^  ,*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Archivos de programa\Archivos comunes\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Archivos de programa\Autodesk\ACADMAP4\ACAD.TLB#AutoCAD 2000 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{E6A6441D-1A8B-4DEE-80A4-9D4D2E6C86CB}#2.0#0#C:\WINDOWS\system32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{27DF3832-9EAD-46F9-AAF9-874791BC811F}#2.0#0#C:\DOCUME~1\orlando\CONFIG~1\Temp\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M  %PThisDrawing 050912511*Dh [2Ipp |t`<K, as=dimCEachDelseGendUFor`IfcInnotsetstopSubThenTo AutoCAD" VBAWin16~Win32MacProject1  stdole`MSFormsC ACADProject ThisDrawing5 _Evaluate AcadDocumentZtrepounto@_ AcadPointPtexto~AcadText~ _B_var_forjLthi+acade AcadEntityiObjectIDo _B_var_IfPMsgBoxR ModelSpace_ObjectnL ObjectNamearreg  _B_var_arregUte>_Acadtexw _B_var_Texti`InsertionPoint TextString poun; _B_var_SetAddPoint arr ucapat AcadLayer capF}LayersAddr AcrU @$`uprU ( 0 1Y) )Qy4aVpR$L"$ 4QL[HTD|@T xl@0/@mlTL"$ LpR TD- kR*<L"$ 4L \Q<TLlTL"$ L$L"$ QL[8t4F@t >@F$`5YI   ACDBTEXT()`5;9NjNWϕ#PA9NjNW,@L<$dfg $ $ x 5$ $ $ $ $ $ $4$HPX OX``dV t0@$(08TX0X0 6\@@8P @L @PHO (@D h @@ @x< pP@8O xp@( @ x(00`@xtpME" X$ H0  *X 8 $@$JWh0(x 0lpZZ 6 !0%J.  !0BottomZ %B+6E %B+6E !D+6@ZZ 'd'd dh N!Cotasss N !TigahH N (X8 N (Xad&Cotass !T%V.Nhh !4$nACDBTEXT$nP4Attribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2Sub tre() Dim pounto As AcadPoin"t tex Entity arreg(0 To 2)Doutcapa&Layer exis2Boolean$  = \For Each !(In .%s P If.C@otass"eŀ) Act7 C StopEnd@ N= HNot ThCS4et'= C'.Add("$@W# ?C]L?ModelSpacA@UC@( .ObjectC)9C"ACDBTEXT")). n Insertion}(0)j:11~=* TLSngX@TIĕ J2KCB%K `A W[`5 ACDBTEXT()`5%^ItiveLayer>thisdren] _B_var_enbr\breakexisteu]exiszthis̹_B_var_AcadText$VAcadenUCase5  _B_var_UCaseatexta~of_B_var_o TxtopuntoZ')H   : N /6$\ lt= p-(%$p  $BX6$-(%$p  $BX6$@p l@3X/@0<XM %L"$ L Q<xL t4\lT HD84xtpTX<a`$Az7~!BCu!= &" LLLLL  L PLL (LBoolean$  = kFor Each !(In .%s P If.C@otass"e ActN7` K FS@JEnd@ N:Not DThCSet'= C'.Add("$]# ?cL?ModelSpLac@A@UC( .Object C)9C"ACDBTEXT")). . a C8 sA.Insertionˆ(0):1f1@= ASngC O7PCB%QeA