ࡱ> __SRP_0 0__SRP_1n__SRP_4 `__SRP_5^gThisDrawingThisDrawingModule1Module1httxtHgtUtility1J GetEntityvbCr$ ObjectName SetVariable?RAngleAMsgBoxR StartPoint ModelSpace_AddTextQRotationePromptm AcadDocumentZ(ad_TextMatchAngleT   $in32MacrU @nRoot EntrySx@"VBA_Project ^}ХSxVBA_Project_Version(VBA ^}Хw  !"#  !"#$%&'(*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUVXZ[\]_abcdefghijkmnopqrstuvwxyz{|}~acID="{C75518F9-5B0D-44F7-A578-4E1135737108}" Document=ThisDrawing/&H00000000 Module=Module1 HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="ABA9014C2450245024502450" DPB="CAC8606D7E6E7E6E7E" GC="E9EB43944494446B" [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 Z 724, Z PROJECTwmP>PROJECTThisDrawing lModule1 `_VBA_PROJECT)2 dir__SRP_2 Y__SRP_3WBrU~}   pole f%\*\K*mrU~~~~~~~~~c  : JKJ  a !a qA   ACADProject ThisDrawingModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I`aE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD Ap0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole  1Y.E .`M C:\Windows\system32\FM20.DLLMSForms aayB%DD 1_ 2C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd AaiYj Ak,_ږ^FO>&NzyL$jq#8ӹV@H+G@EKLI#s\ AcadD0* pHd ACADProject8@ = t  z 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 4b0c00b7Module1 Y8^SCI 3IC"(`3$-KQI&RH"#) AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1bad_TextOnAnglem SourceObj{AcadLineevarPicktextObj`AcadText~adString;insertionPoinrU~| @ 1 ! Y ! I K8$ Q845*F$%hlx884 hl8=x85$c4 x l =/ +''': N$$ 6$8$ Q85 *F$%hld88 hl8= d85$c d l  0/ .x md  ^+''': N$$ 6$8$ 8 l8mhP4dxh`H$ 8$k|DrYY#<ږ^FO>&NzyL$jq#8ӹV@H+G@Ex8ӹV@H+G@Eږ^FO>&NME,(XY YxME4  "6 *L"LPLPLL<8<<<8x0% xX%`h J v !@das d%`$`d ab &Hnd l`(< D`Pox`hPX @.6@8 (48` %H  @$ @  @ @ a3@ @ @ (@ @ P@``` %(p@ z K$*\Rffff*1>4b0c00b7*\R1*#129*\R1*#132*\R1*#197$*\Rffff*1?4b0c00b7*\R1*#17d*\R0*#e*\R1*#b6*\R1*#8c*\R0*#14*\R1*#af*\R1*#b6*\R1*#af5    Z( 4 F H P h *p  J J :H N > P Ph .  " 0 8 @ 2P X:5 ( 88+@X`  050 Nhx. 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.ed\G This routine may be freely utilized for your own personal use so long:8 as the entire contents of this header remain intact.oJ 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' property1[Y=!( 2Bnt!C[= 12 *b# .elSpace.ATddl(E#,rU 0Y14a\`r AutoCAD 2000 and above. rU $`nyL$jq#   ."Select object on angle to match>> C@,q( !0AcDbLineUnknown ObjectA@6|k;(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121 !*B@@o  ad_TextMatchAngle@ Demand load: -vbarun;ad_TextMatchAngle.dvb!ad_TextMatchAngle;S This routine demonstrates rotating text to match the rotation of a selected line. !* !4 (>q !0AcDbTextdFUnknown ObjectA@6|kx   .Select text to rotate>> C@,1here we limit the selection to lines, for clarityAttribute VB_Name = "Module1" ' ad_TextMatchAngle`This routine demons trate(ta*g tp to mx the^4on of a selecte(d lC.nIt wasOvelopfor AutoCAD 2000 and above0Demload: -vbarun;.dvb!;fversiK1.00 Copyright;-9 ActiveDwg.comprovid]/purposonlyemust$ not be uscritical applt s with your [ if "thatwill pderm  inten(QJ0may!freec(wlizD$ownAson&+ so longAzentire cots|tAheader$ rmin!act!Q"as-i$s"Knocla@@C, wH@2 @im@Ied,!@m-, +bCr & "Scobj!#>> NE!a If8.1<`AcDJb9"@#en#'$hebwe miteY a$S\ UMsgBox "UnknoC x@ SubAIfW3!_#J"Ar,e!I!`!!!T)!%7e6`f3.@lsxe: a0R.Prompt "(c)Arban>Carosi, Inc; Woodbridge, Virginia; (703)491-512A,B#@R[ T*S et@"snarp ",HIJlse: MsgBox "Unkn/av#@xSub aIffH+` ^ast̀'4I pIc2>  -O)cF1.St@pdR): T11YV=!( (SLSS6"N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%H0h % %8p@@8z K$*\Rffff*1?4b0c00b74 xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit } (ocument @ad_TextMatchAngle    DSelect object on angle to match>> ) W9Jqݙ G"' GXO,HA”ƀd AcDbLine Unknown Object 0Select text to rotate>> "KqqNzY AcDbText v(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121VBE6.DLL   S q dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2OptionartPoint) W9Jqݙ e I@\( 8$ /licit kxx K $*\Rffff*0i4b0b