аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ000-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\System32\stdole2.tlb#OLE Automation  џџџџџџџџн@}@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,>ThisDrawing124abdd32bџџThisDrawingџџ+ћ%џџModule1134abdd32bџџModule1џџИIлџџRoot Entryџџџџџџџџ№OьоVЩ@VBA_ProjectџџџџрПХIQУ№OьоVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџаzЪIQУаzOьоVЩ §џџџ ўџџџўџџџўџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./01234ўџџџ6789:;<=>?@ABCDўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{191FE148-1E04-4C05-956E-B26A36AEBEDB}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8183747C787C787C787C78" DPB="7F7D8A8C76747575757575" GC="7D7F888A788979897976" [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 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џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЫџ )]&‡G„њГ2ђмœџџџџюЗЄ“БqnDЕ№dЮъкWЈџџџџџџџџ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џџџџџџџџџџџџџџџџџџџџџџџџџџџџ(„ „џџџџџџџџX%`„џџџџџџџџџџрJav „џџџџџџџџЈthe „ џџџџџџџџрlopeШ „"џџџџџџџџ%`„&џџџџџџџџ џџdZoo`„(џџџџџџџџ џџ +4џџџџџџџџџџџџџџџџџџџџxџџџџџџŒiƒHџџџџџџџџџџ˜€ rouiƒJџџџџџџџџџџџџџџ€rati`„Lџџџџџџџџџџ musџџџџ(џџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪG€ € €  € J(€ :x€ .И€ :ш€ (€ 0€ H€ *P€ €€ Jˆ€ Jи€ :(€ Nh€ >И€ Pј€ PH€ .˜€ Ш€а€ џџџџ"и€р€ш€№€€€ € џџџџ€ (€ RH И(и  0€ NP€ N € №€ H € Dh€ А Шш€ Hј@X€ ^hШр€ N№€ @X`hx €€ џџџџB ˜€  Ј ИШш € џџџџџџџџ рр ad_FindZoomr\ррD This routine will attempt to find a specified object in a drawing,enuр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џџџџрр# 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.‚lЩ‚р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 viewр we started withA@FA@FЗ B@8kџџ€џ ўШoџџh–8]ђИ HX'H H'L H L Ќ JX'H L HЌ J '4iџџ№џџџџшџџџџ}Ж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-9 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џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ