ࡱ> __SRP_2(__SRP_3e__SRP_0S__SRP_1nME(<< <.6  ` X% x%`"  %(Root Entry@"VBA_Project]BVBA_Project_Version(VBAI   !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}acadID="{97CDEDFB-16D8-11D5-B117-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D6D4017D0185D389D389D389D389" DPB="ACAE7B53872888288828" GC="828055812A822A82D5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=154, 154, 758, 680, Z Module1Module1PROJECTwm~>PROJECTThisDrawingwModule1 =k_VBA_PROJECT diri__SRP_4__SRP_5@e0* 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-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft : ] Ob Library/;D~1t00}#0#h0r 80501D47-29BD-11D@6-B1194761254F9P.OP\VBE\G.exd /.E .`M E”y–ThisDrawingGThi^Drawng 2 HB1`EB,QB |"B+Bodule1GՄo@uB1@ ŠM2O Oa!H{000204EF-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{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\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:yThisDrawing2:44e5c3c5ThisDrawing|EModule12<44e5c3d6Module1a 8T6¶шF`t\WJˊB}"suH'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_CopyDim@ adDimension7 AcadObject DimtoCopy DataObjectvarPickUtility1J GetEntityvbCr$ErroMsgBoxR AcadDimensionow MeasurementlSetTextPutInClipboard AcadDocumentZT   $N yaE yaxR:$*\Rffff*2<44e5c3d6.    J( $x 4 8    * 0 J8 J : N >h P P .H x  "  ,    (8 HX p  ad_CopyDimgraC This routine copies a selected dimension's 'Measurement' propertyile to the Windows clipboard.2 Demand load: -vbarun;ad_CopyDim.dvb!ad_CopyDim; version 1.00# Copyright2000-2006 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.\CoG 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.0]@]`] !$  " (Pick a Dimension>> C@&t; *That is not an objectA@,|kq ls; !0.les !0 B@2200 B@4pork0k(o . It was developed for AutoCAD 2000 and above.c:(гAttribute VB_Name = "Module1" '8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit :$*\Rffff*1e3c7bfb54*\R1*#a3*\R3*#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!!  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-6 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%Yan oB Exi,t "EwIf?a!@ TypeOf %I%H. <b"Set+= New K, #.Texti) :PutInC!! ?y|#xME (SLSS<N0{8E75DThisDrawingThisDrawingModule1Module1913-3D21-11D2-85C4-080009A0C626}