ࡱ> __SRP_0__SRP_1n__SRP_4n__SRP_5 :@H`  " : 8X  ad_PerpOncvHbv ad_PerpOffavav' Developed for AutoCAD 2000 and above.av version 1.00# Copyright2000-2009 ActiveDwg.comF These routines are provided for demonstration purposRoot EntryPV@#VBA_Project ^}ХPVVBA_Project_Version(VBA ^}ХyV   !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~acID="{A3854E55-806E-411B-8E5A-FF8AFC5A999A}" Document=ThisDrawing/&H00000000 Module=Module1 HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="A4A6AAE7AE3EB23EB23EB23EB2" DPB="F7F5F9501FF073F173F173" GC="4A4844059606960669" [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 PROJECTwmM>PROJECTThisDrawing|Module1 <_VBA_PROJECT~ dirq__SRP_2__SRP_3@m0* pHd ACADProject8@ = t  &@( 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#0 r DFA73DA2-0F2E-11D6-B1194761`254F9POP \VBE\G.exd /.E .`M ”Y–ThisDraw@ingGThi^DrawngT 2 HB1E,B,B Y*"B+Bodule1Go@uB1@ Š2OzM Y!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{DFA73DA2-0F2E-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   &@YThisDrawing234abdd86aThisDrawingYEModule1244abdd86aModule1 Yz 8tdDjGTLJ'/1H'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1b ad_PerpOnq SourceObj{ AcadObjectvarPickNewAngle>uUtility1J GetEntityvbCr$ ObjectName SetVariable?RAngleAMsgBoxRPromptm ad_PerpOffe AcadDocumentZT   $\At Y YxME(<<< <  X%` `  2(1    8 .@ p x  *  L J  <p P > T@ T .  ThisDrawingThisDrawingModule1Module1Y"( "0 F8  6 es only and mustC not be used for critical applications without your verification5 that these routines will perform as you intended.I These routines may be freely utilized for your own personal use so long8 as the entire contents of this header remain intact.xM These routines are provided "as-is" and no declaration, written or implied,| M is made as to their reliability for any particular task. Any use of these( routines is solely at your own risk.? This routine rotates the crosshairs to match the angle of the selected line.0 Demand load: -vbarun;ad_PerpOn.dvb!ad_PerpOn;]@]`]x !"   &"Select object on angle to match>> C@$q !(AcDbLinesnapang !, B@*ntdFUnknown ObjectA@. t|XkP !,H.! @'  ###.####$' '  !"B@0 size o3 This routine returns the crosshairs to 0 degrees.$A@1 Demand load: -vbarun;ad_PerpOn.dvb!ad_PerpOff;snapang B@*!&oH@&Attribute VB_Name = "Module1" ' ad_PerpOn 4ff8DDeveloped for AutoCAD 2000 and @above.Xversion 1.00&Copy@right4-9 ActiveDwg.com(These routines are provid{demon stratbpurpos'onlBymustK not be uscritical appl s with6 your ] if "that tJwill perm as intenR cmayE0freeSmliFzJ;own's onOX so plongA1@ entico5 ts ofLis header @remainDa ctCJS"as-is"BMno declaU, wKJ3 {imKeld,"m@A=t oEiliab ility‡any par[u task. AA6-xFzsolG[Eri! OpB|Exnix SubG()BTh1tat@Ocrosshairs .match/Q?gleReB selectg6lRDVload: -vb arun;.dvb!F; @ Dim SceObj Asad@varPickVarian@5NewlAn% SA  On Err!eResuNexB W@isDrawing.Utd .GetEG4f, bCr & "BS obj @xa%>> 8 E ! a If .AcDbL ("a ar3%(Setb/"snap ", B  Else: MsgBox "Uxnknf "`xit BI` (= * (180 / 3`.1416GFor`D(, "###.`#"B D-.Promprt %bkUffUeturnShe U0sg@sQ@jQffQ. @developed in AutoCAD 2002.?YY#xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%H xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit j @yFa%>> @ E ! a If.AcDbL} ("a@ar3%Setb/"snap ", B Else: MsgBox "Un