ࡱ> __SRP_2 b__SRP_3`g__SRP_0 !__SRP_1nThisDrawingThisDrawingModule1Module1hlML |N#3(>?5RDaH!"( AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate MRoot Entry'x"VBA_Project ^}Х'xVBA_Project_Version(VBA ^}Х0+WWx  !"#  !"#$%&()*+,-./013456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVWXYZ[\]^_acdefghijklmnprstuwxyz{|}~acID="{C75518F9-5B0D-44F7-A578-4E1135737108}" Document=ThisDrawing/&H00000000 Module=Module1 HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5557FF6D07DD0BDD0BDD0BDD0B" DPB="C1C36B6C6C6C6C6C" GC="2D2F87B59F20A020A0DF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=198, 198, 691, 724, Z Z 724, Z PROJECTwmP>PROJECTThisDrawing vModule1 _VBA_PROJECT2 dir'__SRP_4 q__SRP_5oBrU~}   pole f%\*\K*mrU~~~~~~~~~c LhpNAN M  a ia Y1   ACADProject ThisDrawingModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I0aE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD A@0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole  1YP.E .`M C:\Windows\system32\FM20.DLLMSForms aa`yB%DD 1_ 2C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd Aaipad_TextOnAngle Yj Ak,_sTBȄ[Iv5m6zyL$jq#1pDN\wrKLI#s\ AcadDocument @   DSelect object on angle to match>> ) W9Jqݙ G"' GXO,HA”ƀd AcDbLine Unknown Object This is a testbPbCMƅ;1UgF"KqqNzY v(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121VBE6.DLLq S Object Library0* pHd ACADProject8@ = t   K( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automa0tion^MSForms>SFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4 Dindows\system32\FM20.DLL#Microsoft : ] Ob Library/;D1t00}#:0#k0A42A68F79-F0C6-4425-A544-CFE8EB20315F6Users\walter\AppData\Local\Tem@p\VBE\T.8exd  P P .h  "   2 X8:5 8+  ( 4@Px  : N(x ad_TextOnAngleQ This routine demonstrates adding text to match the rotation of a selected line.. It was developed for AutoCAD 2000 and above.: Demand load: -vbarun;ad_TextOnAngle.dvb!ad_TextOnAngle; 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.essG This routine may be freely utilized for your own personal use so longo8 as the entire contents of this header remain intact.nJ 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]]] !*+select the line on which to base the angle.Q this could be other entities, you just check the applicable 'Rotation' property   ."Select object on angle to match>> C@,q( !0AcDbLine1here we limit the selection to lines, for clarityThis is a test'$.this insertion point matches the selected line %8+&F %8+&F %8+& '( $ & ( !:%<.  !4 (>Unknown ObjectA@6|k;(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121 !*B@@o xAttribute VB_Name = "Module1" ' ad_TextOnAngleTThis routine demonstrates^ding tf to match theZtation of a selected lA.iIt wasAMvelopfor AutoCAD 2000 and abov"e0Demload: -vb arun; .d(vb! ;versH1.00 Copyright8-9 ActiveDwgp.comprovidZ/@purposonlybmust$ not be uscritical ap pls with your2 [if "th atwill perm  intenQ#`may!free(ulizD$ownAson&+ so longxent@ire cot sztAheader rlin!act!Q"as-is"Kno@cla@S, wKH@2 im@Ied,!@m<i reliab@ility a@ny parXu task. A5+ŷ8solEYFCriC@@ OpµE xliv SubL() Dim Spce@Obj Asa dLvarPickVarian A  adS@@CEinse:onPo(0 To 2)ADouby xtHgta@On Err,RhesuNzWQ HDraw}.UtB,!s"{B~Ea{ ~whio base"a#@DcouldPoHr Htie$s,^ je c-, +bCr & "Scobj!斈>> E!a If8.1B<`AcDb9"@#en`!heawemiseS#`R[@TMsgBox "Unkno Bbx@ SubAI~fA{@Wai`st'"-&B pAB`!+C7~ G) ).SthK):zjM11`R=*( 2fBtS= 12 Se`*R#QelSpace.AddAe(E#r,, c .?J!i $_.Prompt "(c)ArbanKCarosi, Inc; Woodbridge, Virginia; (703)491-512!:; ^ast̀'4I pIc2>  -O)cF1.St@pdR): T11YV=!( ˁD`hJ Hello, World.1 -K)@2:f1@P= aphqCO= 1rU y4aA\`DrYY#<sTBȄ[Iv5m6zyL$jq#1pDN\wrx1pDN\wrsTBȄ[Iv5m6ME(SLSS6"N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%H0h % %8p@@8 K $*\Rffff*1D4b0c01b04 xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit ru BExposeTemplateDerivBustomizD2OptionartPoint) W9Jqݙ e I@\( 8$ /licit kxx K $*\Rffff*0i4b0b