аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№МдˆџџџџУз ќ•ј•џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$„`„џџџџџџџџ џџ`„џџџџџџџџџџ`„џџџџџџџџџџx`„ џџџџџџџџџџlopeџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ:€ € €  € >(€ "h€ .€ >Р€ € €  € *(€ X€ J`€ JА€ :€ N@€ >€ Pа€ P € .p€  Root EntryџџџџџџџџрВ].тVЩ)VBA_ProjectџџџџPЯI9ЁLУрВ].тVЩVBAџџџџџџџџ@ћP9ЁLУ0\.тVЩ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="07057CAE84F2B6F6B6F6B6F6B6F6" DPB="35374E9C52CB53CB53CB" GC="636118F247F347F3B8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=44, 44, 693, 596, 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-02608C4D0BB4 Dindows\system32\FM20.DLL#Mic€rosoft ‚:" €] Ob­ Library/њ;D1€„€tˆ€Aˆ€00}#0‚€#Ѓ€0Ѓ€…€ A13A00C1-CBA4-4211-86CF-EFEC41B 2835EH.DOCUME~1\W ALTERLOCALSTem@p\VBE\DL.8exdр3Р!€с.E р….@`ŒM Дž‚™Тќ•‚›ThisDra€wingG€ Thi@cD rawРnЈg 2 €(HB1ТЅEXB,B ўT•"B+BC‡o@dule1GD‡ouЊuЊ1@ ‚2OнТMј•!HТA~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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 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@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќ•ThisDrawing294abdd8adџџThisDrawingџџў•EџџModule12:4abdd8adџџModule1џџј•н џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЯМ%ѕп@š~Ѓ‘їђbžџџџџ ™\АЕkІJЈkG6п‚ыџџџџџџџџ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{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@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_PlotStylesbvрр8 This routine demonstrates the retrieval of plot stylesavр for the active layout.р' Developed for AutoCAD 2000 and above.р8 Demand load: -vbarun;ad_PlotStyles.dvb!ad_PlotStyles;рр version 1.10џџџџрр# CopyrightЉ2000-2009 ActiveDwg.comџџџџџџрр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.{T†{рG This routine may be freely utilized for your own personal use so longxр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.…рЭџџP–]ђ@]ђX]ђp]ђˆЩ !"B@$…Ж' !"%&'€tя€ Жœ4№€џ ў Š ‘’ђЈ $Ќ$*$(ЖctbœctЖColor'2 $Ќ$*$(ЖstbeЖ Named Style'Seledџџ@kџџ8џЧ0Ж' ІЖDrawing is set to plot by  ,Жand available plotstyles are: , ,' 8џ ў Š ‘’((<  $ ,' ((@џЧx A@.xtœdџџ`рCThis will exit the routine if there is an error. This can happen if((Jр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.' h A@.$!Bkџџ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-9 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