аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№МдˆџџџџУз ќ•ј•џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$„`„џџџџџџџџ џџЩ`„џџџџџџџџџџ`„џџџџџџџџџџx`„ џџџџџџџџџџas dџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ:€ € €  € >(€ "h€ .€ >Р€ € € P€ * € X€ J`€ JА€ :€ N@€ >€ Pа€ P € .p€  Root Entryџџџџџџџџ [Ю7@ьХ)VBA_ProjectџџџџPЯI9ЁLУ [Ю7@ьХVBAџџџџџџџџ@ћP9ЁLУ [Ю7@ьХPROJECTwmџџџџџџџџџџџџ>§џџџ ўџџџ ўџџџ& ўџџџџџџџџџџџџџџџџџџџџџџџ'()ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPROJECTџџџџ™ThisDrawingџџџџ>Module1џџџџџџџџЩ_VBA_PROJECTџџџџџџџџџџџџЈ ўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=ўџџџ?@ABCDEFGHIJKLMNўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{617D408D-5145-11D6-B11B-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3B394021D125D125D125D125" DPB="D0D2AB4CAC4CAC4C" GC="65671E77260D270D27F2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=44, 44, 693, 596, 96, Z ThisDrawingThisDrawingModule1Module1dirџџџџџџџџџџџџ…џџџџџџџџџџџџўџџџДџџџџџџџџџџџџўџџџgџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџ†џџџџџџџџџџџџўџџџ- џџџџџџџџџџџџўџџџnVBA_Project_Version(џџџџџџџџџџџџЃВ€0* pH‚dф ACADProject8@е = t  a€Q@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^€MSForms>BSFEr@ms3€DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0Ѓ€…€ A13A00C1-CBA4-4211-86CF-EFEC41@B2835EH.DOCUME~1\@WALTERL OCALSTe€mp\VBE\DLp.exdр3Р!€с.E р…€.`ŒM Дž"‚™Тќ•‚›ThisDrawingGA€Thi@cD@rawРnPg 2 Q€HB1ТЅEАB,B Јў•"B+BC‡€odule1GD‡ъoЊuЊ1@ ‚62OнТMј• !HТC:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Ь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 Д  џџџџџџџџa€Q@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ•ThisDrawing0L44e6c410џџThisDrawingџџў•EџџModule10M44e6c410џџModule1џџј•н џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMАgЉz=ŽNДhюљ х%dџџџџЉгj“ЅАіEО§ч ЏЅћџџџџџџџџH€џ˜'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_PlotStyles_ adPlotStyles adItemУŸ adPlotPolicyUщplotStre; ActiveLayoutљ\RefreshPlotDeviceInfoУУGetPlotStyleTableNamesУNLCase:щRight vbCrLfЏЌMsgBox—R AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $@B2835Eˆ6DOCUME~1\@WALT№ФдџџџџЫ?ќ•ў•џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(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-86CF-EFEC41B2835E}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџa€Q@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ•ThisDrawing0640517fb1џџThisDrawingџџў•њџџModule10=4051810bџџModule1џџј•џџџџ]џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHДVnвЭHЏeЪБ{ЌТџџџџэ…тпŠYDЇј1BQХџџџџџџџџH€2?џЬ+D€џElseE€џElseIfG€џEnd_€џIfk€џis…€џNot†€џnothing‰€џon€џresumeЄ€џsetЏ€џSubВ€џThen AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй Module1bad_GetPlotInfoPЕ adDevices\adItemУŸplotStre;adMediaAж ActiveLayoutљ\RefreshPlotDeviceInfoУУvbCrLfЏЌ ConfigName–ПMsgBox—RGetCanonicalMediaNamesbpGetPlotDeviceNamesblUCase5 Right  AcadDocumentZ Ќ(ad_PlotStyles_ adPlotStyles €џGetPlotStyleTableNamesУNExample_ShowPlotStylesІЌ „џACADLayoutˆ… originalValueў…€џShowPlotStylesБ-Example_PlotWithPlotStyles7y€џPlotWithPlotStylesNK adPlotPolicyUщ _B_var_Right9йLCase:щ _B_var_LCase'­ €џџџ_B_var_IfPђ Available6Ne`^xtс_ €џџџ_B_var_NeѓDrawing<0 €џџџ_B_var_LBoundĘmsgQЕ €џџџ_B_var_msgbrboxћy €џџџ_B_var_On6ѓџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $€rU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~| Ј љ 1‘‘БI Iб  q™йYйљ щЌHKџџ\џ$ T\џ \џCdџ%Lџ\џ$ T\џ Lџќіlџ\џlџќqќcћвЇC`џ *#Hџ*1`џ/Hџ&'шў'џ'Lџѕ`џM8џ@ 6LџџшўB lџќ5IєLфjџlџќ5IєќЫфўcфџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў…Ljџ§“@lџўђLџрўqЬўѕlЬўџ  -рўџшў шў:(џ]ћ36Lџџшў CdџyLjџ§“@lџўђLџрўqЬўѕlЬўџ  -рўџшў шў:(џ]ћ36LџџшўwCdџy jџdфўЩC`џ3ldџ*#Hџ *#Шў *#Фў *#Рў *1`џ2HџШўФўРў lџќ5IєLфjџlџќ5IєќЫфўcМў2l`џF(џjџ§“@lџўЎLџћяџ:џ ћяшў`1`џ6Lџџшў jџdМўр&'шў'џ'Lџѕ`џM8џ@ 6LџџшўџРH0`џdџlџ4 рўHџШўФўРў\џLџџшўаўk€Ј"А€И€Р€Ш€а€ џџџџир№ј  &@h&x ИРШаfи@`€ ˆ˜€ J € H№€ 08htp шј€ џџџџ€ џџџџџџџџрр ad_PlotStylesodрр8 This routine demonstrates the retrieval of plot stylesџџр for the active layout.р' Developed for AutoCAD 2000 and above.р8 Demand load: -vbarun;ad_PlotStyles.dvb!ad_PlotStyles;рр version 1.10џџџџр# CopyrightЉ2000-2006 ActiveDwg.com1/2003ррр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]ђp]ђˆЩј !"B@$Ж' !"%&' Жœџ ў Š ‘’ $Ќ$*$(ЖctbœЖColor' $Ќ$*$(ЖstbeЖ Named Style'€€dџџkџџџЧЖ' ІЖDrawing is set to plot by  ,Жand available plotstyles are: , ,' џ ў Š ‘’џ€€  $ ,' џЧP A@.dџџ8рCThis will exit the routine if there is an error. This can happen ifрB you have a drawing referencing a plot policy (named or by color)р) and no tables of that style are set up.Ж' ІЖ&Plot style for this drawing not found. ,Ж2Be sure appropriate plot style tables are defined.'  A@.kџџиoџџаџџџџ№џџџџшДAttribute VB_Name = "Module1" ' ad_PlotStylesPThis routine demonstrates the reЎeval oHf px sz forNact€ive layI.mDeveloped $AutoCAD 2000 and ab(ove)mload: -vb arun; ­.d(vb! ;Рversion 1.10… Copyr ightЉ7-6 AQDwg.8comŠ~„prpovid„Y‡†/p urpos€‹on„lyamust$ƒnot be uscritiBc›applt€ s with€’ ’r €[if a„"thatЇШw€ill perЁm as in8ten€QžŠ`maТy!freeР(РtlizD$Тown1Ason€&+ sРo longФ}entire Єcots~tA‰@headerР„mxain!@}!‰Q"@as-is"‚KnboР—cla@—@C,, wРH@2 €imБ@Ied,Ф!@m€! ""@ en‘С F adТ"= LBound(ƒУ‘) To &U№У LCрase(Rсzj€ ), 3))Ÿ8ctbit ColorЂЁEls6e  s a#d —‚Ъ хE` IfЃ}х9 BЌA@E3*D= !Ye…o#Вby " &Ф/D;& v bCrLfр_% a"­availa8bƒК areў:A f?8<8Х[ў=BЁ…C@Х8`щ‡#MsgBoxЅ?Ёс6€w!V€Ћ@Ѕexži!ЈзрЌ!кifсгC ™€&an eСh.ЉB\ cрhрГe`™I1' ЂЋhaриa dУj€fere$nc@l aB piУw(nРьdЁ—0cпСIРƒ€Ё+@t+dЇ'Ž",, s@7upїрІa1g""ЄD(СiуэЏbžbАхЮfЁh. 6СЯBe su№€јrop`J0‚1„d ЫРYfd.„пƒ%+qSub @s with€œ ЩŸr €jif „"0thatДеwi@ll perGmŽ €Г@@XtenР(#ƒVJ0may!frŒeeР(@{lizD$ТownAson#€&+ soengФƒentir e conts…tСheader@‹ma@yintРƒ!‰Q"as-i$s"‚Kno€‰clЦaР@C, wРH —im@Ied,Ф!@m€ ""@ enСH F adТ"= LBound(ƒ•) To U№У LCa№se(RAzj€ @), 3))AЂctbiA˜ Col orЂЁElse›  s a#d ‚ЫЪ хEрЁIfЃх9О ‚ЏA@E3*D= !Y e…ocЕby " &Ф/D;& vbаCrLfр_%a"a—availa8bУН are:A f?8<8Х[=џBЁ…C@Х8`щ‡#РMsgBoxЅЁс6€w!V€Ћ@ЅexiЯ!Ј@крЌaнif!з ™Ё€&an eСh.B\ cрhрГen i1' сВ ha1 мa dУj€ferenc@l aBЄ pУw(n№dЁ—}0cСIРƒ€Ё+@tŸ+dЇŽ",, s@7мupрІa1g""ЄD(ПСi#ёbžbАu gfQ4. ЯBe suу№€rop`Jаƒ1/„d РYfd.„п%+qSub  ?Ёс6€w!V€Ћ@Ѕexži!Ј€зрЌЁкifaдC ™€&an eСh.)B\ cрhрГen$ i1' сВ hba`йa dУj€f erenc@l aIB pУw(n@эdћЁ—0cСIРƒ€Ё+@>t+dЇŽ",, sЙ@7upрІa1g""ЄD(СicюbžbАхЮf Ёh. 6ЯBe sЦu№€rop`Jp‚_1„d РYfd.„п%+qSub  Љ .dvb! ;Мversion 1.00:7/1 /.3Copy@rightЉ ASDwg.com…Š€†prov