ࡱ> __SRP_2(__SRP_3e__SRP_0S__SRP_1nME(  <.6  `| X%~% x,'~%`" ipbo %(Root Entry !V"VBA_Project]B !VVBA_Project_Version(VBAI6V   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwyz{|}acID="{97CDEDFB-16D8-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="DBD90C8E4E924E924E924E92" DPB="191BCEF3CFF3CFF3" GC="57558012806EBF6FBF6F40" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=154, 154, 758, 680, Z Z Module1Module1PROJECTwm~>PROJECTThisDrawingx!Module1 =_VBA_PROJECT dirq__SRP_4__SRP_5@m0* pHd ACADProject8@ = t  R:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00h}#0#04r 80501D47-29BD-11D6 -B1194761254F9POP\VBE\Gp.exd /.E .`M "”y–ThisDrawingGAThi^D@rawnPg 2 QHB1MB,B |"B+Bodule1Go@uB1@ Š&2O Oa !H204EF-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{80501D47-29BD-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   R:yThisDrawing0P4abdd0c3ThisDrawing|MModule10R4abdd0deModule1a 8NdoNFLΡZJBܯBH' AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1b (ad_CopyDim@ adDimension7 AcadObject DimtoCopy DataObjectvarPickUtility1J GetEntityvbCr$ErroMsgBoxR AcadDimensionow MeasurementlSetTextPutInClipboard AcadDocumentZT   $ yai yaxR:$*\Rffff*0R4abdd0de*\R1*#eb*\R3*#12.    J( $x 4 8   0 *8 h Jp J : NP > P P0 .   "  , *(08  @P `p   ad_CopyDimcvHbvC This routine copies a selected dimension's 'Measurement' propertyavJav to the Windows clipboard.. It was developed for AutoCAD 2000 and above.2 Demand load: -vbarun;ad_CopyDim.dvb!ad_CopyDim; 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 verification9dJ93 that this routine will perform as you intended.y\yG This routine may be freely utilized for your own personal use so long8 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@]@]`] !$x  " (Pick a Dimension>> C@&r} *|kq  !0.oseAll !0 B@2  B@4k@k8o0That is not an dimension objectA@,rawingB95-79BE-4C0F-8024-EB6AF271231C}@(%H@0R: xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit *#12*\R1*#e3$*\Rffff*1f3c7bfb5e*\R1*#f1*\R1*#10b*\R0*#b*\R1*#57*\R0*#10*\R0*#11*\R1*#67*\R3*#7x `H X$`$ %V`$d ipbo`$ $ME/    J( $x * 8   ( @ $H p Jx J : NX > P P8 .   "  ,( 0PX`  h x   ad_CopyDimC This routine copies a selected dimension's 'Measurement' property to the Windows clipboard.Wo# It was developed in AutoCAD 2000.Y2 Demand load: -vbarun;ad_CopyDim.dvb!ad_CopyDim; version 1.00 3/12/2001 Copyright2001 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.G This routine may be freely utilized for your own personal use so long8 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.8ZZ@Z` !&  $ *Pick a Dimension>> C@( ,That is not an objectA@.uhn !2. odu !2 B@4b63 B@6Dh hl  @VҳAttribute VB_Name = "Module1" ' ad_Co pyDimDThis routine copies a selected dimension's 'Measure"t' pro perty to the Windows clipboard. It was devel7d in AutoCAD 2000%Demand load: -vbarun;A.dvb!;#Z]ver 1.003/12:/+1zright ActiveDwg.copvidfor\mon strat p urposonly Ymust4 not be uscritical ap pl s with your2 `if "th atwill Gm 8tenQ smay!free(xlizD$own1Ason&+ sro@^ngsePntirAnts of%heaPder @ari`ntact!Q"@as-is"Kn"o@TclaS, wH @Zim@Ied,!@m<i reliability fany parXu task. A5+8solEYFCri@@ Op)zExliv Sub() < @@C AsadObj@݁DatavarPickVarianW@AW AuDrawing.Ut= .GeLtEgAad ,  bCr &4 " a>> @` If E$rr@ enc MsgBox "TP%Yan oB Exit "EvIfa!@ TypeOf %I%HK. <"1Set+= New K, #.Texti) :PutIn~C!! ҳAttribute VB_Name = "Module1" ' ad_Co pyDimDThis routine copies a selected dimension's 'Measure"t' pro perty to the Windows clipboard. It was devel7d for AutoCAD 2000 and above0Demload: -vbarun;A.dvb!;#e4verW 1.00 yrig(ht4-9 ActiveDwpg.coqv idVdemo@nstrat @purposonly^mustA not be uscritical ap pl s with your2 [if "th atwillf Gm  intenQsmay!freec(xlizD$ownAson&+ so longAtentirts of%header ain!act!Q"as-is"Kno@claSX, wH@2 ibm@Ied,!@m<i reliabilityany parXu task. A5+qsolEYFCri@@ ORpzExliv  Sub() x @ AsadObj?@@ށDatavarPickVarian@AW AuDrawing. Ut= .GetEgAadf ,  bCr h& " a> > ` If HErr@ enc MsgBox "TP%Yang o ExXit `#EyI~fa! TypeOfJ&IC&/.( <@"Set!$-= New - #.Texti) "<PutInC%!! y|#Gy|#xME (ThisDrawingThisDrawingModule1Module1SLSS<N0{7AABB