аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ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  џџџџџџџџн@}@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,>ThisDrawing0744e6c2b5џџThisDrawingџџ+ћ%џџModule10844e6c2b5џџModule1џџИIлџџRoot EntryџџџџџџџџYНe?ьХ@VBA_ProjectџџџџрПХIQУYНe?ьХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџаzЪIQУYНe?ьХ §џџџ ўџџџўџџџўџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./01234ўџџџ6789:;<=>?@ABCDўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{191FE148-1E04-4C05-956E-B26A36AEBEDB}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7072856389638963896389" DPB="8183747975797579" GC="929067947995799586" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=176, 232, 867, 806, Z 806, Z 806, Z Module1=151, 292, 826, PROJECTwmџџџџџџџџџџџџ>PROJECTџџџџ˜ThisDrawingџџџџ5хModule1 џџџџџџџџ \ThisDrawingThisDrawingModule1Module1odmБ€0* pH‚dф ACADProject8@е = t  н@}@( 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:л":ИI!€C@љџџЬamџ  фњ*\G{000204EF-0_VBA_PROJECTџџџџџџџџџџџџU dirџџџџџџџџџџџџ qџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџBџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdHЗшJ[•F‰•<ьуќ5лџџџџ["кљ?O@ц™<žŽ1џџџџџџџџH€'(џд)AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“` ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_FindZoom/§adObject“ AcadObjectЅ ObjectType9вfTypeifDatahCDataSSѕHAcadSelectionSetЫЩminExttmaxExtёA SelectionSetsгErroŠAddїrClearуЭacSelectionSetAll.ТRoundЌ Measurementоl Highlight_ХGetBoundingBox˜Y ZoomWindowъ ZoomScaledїacZoomScaledRelativeJ‹MsgBox—R ObjectNameуФ ZoomPrevious# adNumšЏadPlacesсadTmp‹Ю AcadDocumentZџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ $ъџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџ№ФдџџџџЫ,>+ћџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџ8џџџџџџџџџџџџўџџџхџџџџџџџџџџџџўџџџ‹№дАџџџџе,>ИIџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ$< џџ<џџџџџџџџџџи 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџ(„ „џџџџџџџџXdv%`„џџџџџџџџџџ „џџџџџџџџЈthe „ џџџџџџџџр wasШ „"џџџџџџџџ%`„&џџџџџџџџ џџdZoo`„(џџџџџџџџ џџ +4џџџџџџџџџџџџџџџџџџџџxџџџџџџŒiƒHџџџџџџџџџџ˜€C iƒJџџџџџџџџџџџџџџ€ dem`„Lџџџџџџџџџџonlyџџџџ(џџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪG€ € €  € J(€ :x€ .И€ :ш€ (€ 0€ H€ *р€ P€ JX€ JЈ€ :ј€ N8€ >ˆ€ PШ€ P€ .h€ ˜€ € џџџџ"Ј€А€И€Р€р€ш€№€ џџџџ€ ј€ Rpˆ(Ј а р€ N € Np€ Рр€ H№€ D8€ € ˜И€ HШ(€ ^8˜А€ NР€ (08H P`€ џџџџB h€p x ˆ˜Ии€ џџџџџџџџ рр ad_FindZoomррD This routine will attempt to find a specified object in a drawing, тр3 highlight the object, and zoom into the object.р' Developed for AutoCAD 2000 and above.р4 Demand load: -vbarun;ad_FindZoom.dvb!ad_FindZoom;џџџџџџрр 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ЮЌђА]ђш]ђ]ђ р On Error Resume NextрLIn this case, we will look for a dimension object with a certain measurementЖ DIMENSION'эЖDataSS %*." ,›GэЖDataSS !*%.."j "B@0ЌЌ+F Ќ+  2аа   "B@HрHDataSS now holds all 'ObjectType' objects in the drawing. Now we need toрG find our specific objects. The test will depend on the ObjectType andр the search criteria.џ ў "“рAFor a dimension we will round the measurement in case the drawingр= precision causes a bump in the road, ie so 10 won't show asр 9.999999999999. !6Ќ$4Ж21.625œЗ B@8рBWe use the object's bounding box as the corners of the zoom window & ( B@: & (A@<рWWe will back off the object to show the relative area of the drawing in which it occursДр? @A@> !DA@BрGThe calls to ZoomPrevious will ensure that we end up with the same viewcр we started withA@FA@FЗ B@8pkџџxџ ўШlesoџџ`–8]ђИ HX'H\of H'L1\b H L Ќ JX'H L HЌ J '4\priџџшр# CopyrightЉ2000-2006 ActiveDwg.com seџџџџшџџџџ}ЖAttribute VB_Name = "Module1" ' ad_Fi@ndZoomHThis routine will attempt to fX a specified object in*dra wing,В `highl8he(, and Ўzn2Ot.5€DevelopXfor AutoCAD 2000A8above)mJload: -vbarun;AЯ.dvb!ˆ;0‚1versio@n 1.00… CPopyrUЉ5-6 ActivРeDwg.c”Ž”@provid„Wdemonstrat/purpos€es only_mustA not be uscriticaБЖppl sПth€Ф your6 €[€Йc.„"thFaЎ иperŸm˜ asAAZenР(#NЪwmay!frŒeeР(Р|lizD$!Тown @son€&+ so l8ongФApentire conFt€ЈўF№ў 6№ўЌў˜ўˆўrU€€€ џџџџџџџџ@nrU€€€ x1Yџџџџ 4ЉaбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV`rror)Ÿ Ќ(ad_FindZoom/§adObject“ €џAcadObjectџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ