ࡱ> MkkxME(<< < <  X% x% "draw$oped 8 H% h is % "urpo$itic : 8G % Root Entryp5tVVBA_Projectp5tVVBA_Project_Version(VBA4tV   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLNacID="{2C7A866C-26E2-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="AFAD3BAACD7EBC82BC82BC82BC82" DPB="9A980EC7F8C8F8C8F8" GC="858711F017DA18DA1825" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=132, 132, 713, 632, Z Module1Module1PROJECTwmM>PROJECTThisDrawing=Module1 _VBA_PROJECT dirlh0* pHd ACADProject8@ = t  _u<( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#Microsoft :" ] Ob Library/;D1tA00}#0#0r 8FA957A7-2699-11D6-B1194761254 F9POP\VBE\G.EXD /.E .`M ”k–ThisDrawingGThi^Drawng 2 HB1EBE,B k"B+BoduleT1Go@uB17@ Š2OSQOk!H000204EF-0am  *\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{8FA957A7-2699-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M   _u< kThisDrawing0f4abdd1fcThisDrawingkEModule10g4abdd1fcModule1kS8!ݲQG4!pޙ,F*D찄0Hd(AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_DimToggle(RadDimdx AcadDimensionowadSS$AcadSelectionSetfTypeifDatahC SelectionSetsAddrErroClearacSelectionSetAll.Visible Application*UpdateDeletex ad_HideDimsG ad_ShowDims AcadDocumentZT   $?kk#xXtili% "e sox$der  (S    D( Fp 4    * H JP J : N0 > P P .`  " 4 @ (0P&p *  (8 @P `p "x , @ &@ h*x    0 "8 *@ @p& (*8h      ad_DimVisibility= This routine demonstrates the how to control the visibilityxJav@ of specific objects in a drawing. In this case, dimensions.. It was developed for AutoCAD 2000 and above. version 1.00# Copyright2000-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.x\xG This routine may be freely utilized for your own personal use so long<8 as the entire contents of this header remain intact.zJ 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`-This routine toggles the dimension visibilityT: Demand load: -vbarun;ad_DimVisibility.dvb!ad_DimToggle;]@]`]adSS !&%(.eAll *GadSS !&%(.j B@,8+"F DIMENSION+$tA@, . " $ B@HtA@,   !0run;ad (0rawingdF (0k  !2B@4 B@6o%This routine turns all dimensions off9 Demand load: -vbarun;ad_DimVisibility.dvb!ad_HideDims;]0]P]padSS !&%(. *GadSS !&%(.j B@,+"F DIMENSION+$ . " $ B@H   !0 (0k  !2B@4 B@6o$This routine turns all dimensions on9 Demand load: -vbarun;ad_DimVisibility.dvb!ad_ShowDims;] ]@]`adSS !&%(. *GadSS !&%(.j B@,+"F DIMENSION+$ . " $ B@H   !0 (0k@  !2B@4 B@6oAttribute VB_Name = "Module1" ' ad_DimVisibility\This routine demonstrates the how to control$v of specific objects in a drawing. In:gcase, dimensii.It was|veloped for AutoCAD 2000 and a0bove03verA 1.00 Copyrig(ht-9 ActiveDwg.comyKprovid<P purpos!onlyCmust7 not@ be uscritical Pappltq with your [a "0thatwi@ll perm tenQ#`may!free(@rlizD$ownAson&+ so longzentirezs @utheader remauin0tact!Q"a s-is"Kno1vcla@C, wH@2 xim@Ied,!@m<irelia„any pa rXu task. A5+RsolEYFC ri@@ OpQAb Exliv  SubDTog`gle()@ \tC DLload: -vbarun;`.dvb!C;p @ AArsadGSS Sel`n+ SefType(0)aInteger, fData`@ 4= aDDui s.Add("adSS"` If Erren t! .Clear!F= 0:faDIMENSION!SS. ac All,^ !B A FKEach(A!).bleCa  -&= FalsjeE : TLru=IfaNext+Ap.Upd!"D58t@ E P -QH@sPurns aGv'@OO OSOOK=OOWj,O"OcmOMgAA=OimOK.w%%%S0~%рt%`anP%MA%5%Ac2MMMMM%MMS)VM,MMM\MMM%=$ON?L ?L%6O&O&G&\MMM%=$ON?L ?L%6O&O&G&CAD 2000%(ver6 1.0"02/2002Copyr ight2 ActiveDwg.comxJ@provid;f orO purposonly and must4 not be uscritical a(ppltp with youlr `a "thatwil l perGm ǀtenQ`may!free(qlizD$ownAson&+ so longzentiLrezs ttAheader rematintact!Q"as-is"Kno@Tcla@@C, wKH@2 @Zim@Ied,!@m<irelia fany pa rXu task. A5+RsolEYFC ri@@ OpQAb Exliv  SubTog`gle()@ \tdž DLload: -vbarun; `.dvb!C;p AArsadGSS Sel n+ SefType(0)aInteger, fData`@ 4= aDui s.Add("adSS"` If Erren t! .Clear!F= 0:f!DIMENSION`SS. ac All,^ !B A FKEach(A!)."leCa  -&= FalsjeE : TLru=IfaNext+Ap.Upd!"D58t@ E P -QH@sPurns av'@OO OSOOK=OOWj,O"OcmOMagAA=OimOK.w%%%S~%t%`anP%M!%5%Ac2MMMMM%MMS)VM,MMM\MMM%=$ON?L ?L%6O&O&G&ME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizThisDrawingThisDrawingModule1Module1D2Option /licit