аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ000-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\System32\stdole2.tlb#OLE Automation  џџџџџџџџЌ?m@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ.ThisDrawing0F44e6c40aџџThisDrawingџџ[­%џџModule10G44e6c40aџџModule1џџѕ $џџRoot EntryџџџџџџџџЫf8@ьХVBA_ProjectџџџџАjЬ[oLУЫf8@ьХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ %б[oLУЫf8@ьХ §џџџўџџџўџџџ  ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123ўџџџ56789:;<=>?@ABCўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{A3267784-A5AA-4783-9534-E1A50FCC70A7}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7D7FB13653B757B757B757B757" DPB="FAF836B9B2BAB2BAB2" GC="7775BB3C45C4C3C5C3C53C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=110, 145, 801, 719, PROJECTwmџџџџџџџџџџџџ>PROJECTџџџџЁThisDrawingџџџџ4хModule1 џџџџџџџџ ИThisDrawingThisDrawingModule1Module1mБ€0* pH‚dф ACADProject8@е = t  Ќ?m@( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tD‚И.xThisDrawi ngGTJisDrawinЈg 2#(H‚1‚Œ%X‚ ,‚@[­"‚+‚€Module1G“dum•1€@2:$#€":ѕ !€CТЬamџ  фњ*\G{000204EF-0_VBA_PROJECTџџџџџџџџџџџџ( dirџџџџџџџџџџџџ qџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŸЏќ$r7IEЂ/ЮГ„Ѓ{џџџџиђ“BULŸ5кAњŽџџџџџџџџH€%&џx)AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“` ThisDrawingЙ5 €џџџ_EvaluateйModule1bad_LayoutIsolateЅSfTypeifDatahCDataSSѕHAcadSelectionSetЫЩdwgEntћK AcadEntityІiadLayout>ѕ AcadLayoutˆ…itemType!i itemCountМU SelectionSetsгErroŠAddїrClearуЭacSelectionSetAll.ТLayoutsОм ActiveLayoutљ\LCase:щObjectIdToObjectчMOwnerIDцЈLayout-MsgBox—RvbCrLfЏЌCount0vDeleteИx AcadDocumentZџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ $џџџџџџџџџџџџџџџџџџџџџџџџ№ФдџџџџЫИ.[­џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџ№„дАџџџџŽИ.ѕ џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ"<&<џџџџџџџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"„ „џџџџџџџџpX„џџџџџџџџЈ „џџџџџџџџШ% „ џџџџџџџџш% „$џџџџџџџџј%`„(џџџџџџџџџџџџџџ`„*џџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ9€ € €  € F(€ .p€ . € Dа€ €  € 8€ *`€ @€ JH€ J˜€ :ш€ N(€ >x€ PИ€ P€ .X€ ˆ€€ џџџџ"˜€ €Р€Ш€а€и€р€ џџџџш€ R№H(h D  шX`€ џџџџ€ *€АШ ар€ H№28p€ ˆ ˜ 8 HX€ џџџџ€ џџџџџџџџ˜рр ad_LayoutIsolateрр? This routine demonstrates a way to isolate entities accordingр' to the layout on which they reside.р' Developed for AutoCAD 2000 and above.02р> Demand load: -vbarun;ad_LayoutIsolate.dvb!ad_LayoutIsolate;рр 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.рЭџџ –]ЌЌђ@ЌЌђx]ђА]ђа]ђ№]ђ]ђ(ЩШрKfirst create a selection set of all items of the type you want to work withэЖDataSS %,. .›GэЖDataSS !,%0.j B@2ЖTEXT'(р1this holds the type of entity we'll be collectingЌЌ+F (Ќ+ЌЌ+FЖ*Ќ+р#0Here you specify the layer. We'll use all layers 4аа   B@Hр$now we cycle through all the layoutsџ $ў !6“Ќ'* $ (8џ ў “рAthis is where the items residing on the current layout are culled !> %<!@!$: $!$:œ *Ќ '*kџџ0џ ўШІ  Ж Report for (Ж Entities- DЖTotal in the active drawing:  !F DЖTotal on layout  $!Ж:  *A@Bџ $ўШ B@HoџџXр# CopyrightЉ2000-2006 ActiveDwg.comџџџџhџџџџЕAttribute VB_Name = "Module1" ' ad_LayoutIsolate\This r.ine d€emonstr>s a way to ib en titie2cc@ordingВ AFthe l_ on which y reside.)Developed for AutoCAD 2000 a€nd abov)mload: -vbarun‚; У.dvb! ;5‚6versi!F1.00… CopyrightЉ:-6 ActiveDwg.com ‹€prov€cƒ\“/purpos‹onlyЁdmust$ not be uszcrЁcal applicat€ s with%С €Яr €[ifУ „"thatЇˆдwill per!Єm asA i€ntended[ J0m@r€!freeР(utilizD$ТownAson€&+ so loxx€re c‚ots of%@header€zmˆain!act!‰Q"as-is"‰‚Knožcla€Б@C, wРH@2 РˆФim@Ied,ФA@m€<СЅ€ relHiab€3ty•any particu taskј. A5Ф+НŸИСEYFCri@!@ Opi E xliv Subд() Dim fType(0 To 1@) As IРKger, fDatNaE… СSSС A€cadSeleЄ0onSe€dw0gEntE€itђyEadƒѕЅЃЅАitemЁЁS „Ч!:c !CouУ ЁaOn Err!Р/ResuР‰Nex`'first crea@a жs% taAa@RС 1Ce tр "SwaУр 6work‚]Ё % d= ЁUDraw€Š.I s("ec"Т+If! e n џ s.Addkу .ClearсAb$ ІTEX@T" 'tЁЂh№olds \ G" `y we'@рic\olЂ5У*ф>)РЏ0~:e=Ё% Ё ƒрB=Ь 8…Ђ"* †'He`lрP sp0ecif@АcЋerј. W"aY-Ў`œGЁ d#' acI(Apll, !B„P " `[now` c(ycl`hbghЎ  }ЃЙsЁ F@AЬEa К†MIn*6ƒN™b Ё#K= Џ@jУ­# %E с ў & D^р C b2€uќwh$A! €з!ЬрFУЯЁcurr5ХбFa )€ledC  €HLCase(‰NObjрnIdT o#(#.Own@erID).#.сыa:#ЅФTheŽnЅ !‡"+ 1EВE€оIfЃal cMsgBox €"Report‚›" &Ђ+ЂU& " B ђ-‘vbCшrLf _0№"Tot@]€YСYЉРn dЃ6:0&D8ђ.3& ’tuя“!Ђњ "ж‘я’ …Ф*D№CqˆQU) ycrЅcal app licat€ s PwithХ €гr2 `if „"th atЋˆиwill perРm asAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2 & D^р C b2€uќwh$A! €и!ЭрFУаЁcurr5ХвFa )€ledC  €HLCase(‰NObjрnIdT o#(#.Own@erID).#.сьa:#ЅФTheŽnЅ !‡"+ 1EВE`нIfЃal cMsgBox €"Report‚›" &Ђ+ЂU& " Ђ@y-‘vbCшrLf _0№"Tot@]€YСYЉРn dЃ6:0&D8ђ.3& ’tuя“!Ђњ "ж‘я’ …Ф*D№CёˆQU)