аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_0џџџџџџџџџџџџўџџџі__SRP_1џџџџџџџџџџџџўџџџn__SRP_4џџџџџџџџџџџџўџџџn__SRP_5џџџџџџџџџџџџўџџџŠИ Р:а0Ppx € Ри€ џџџџ"р€ :ш€ 8(`€€ џџџџџџџџРрр ad_PerpOne\oр ad_PerpOffusiрр' Developed for AutoCAD 2000 and above.ADрр version 1.00рррF These routines are provided for demonstration purposes only and mustџџџџрC not be used for crRoot Entryџџџџџџџџа8@ьХ@#VBA_Projectџџџџ ^}аЅСа8@ьХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ^}аЅСр58@ьХўџџџ§џџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;ўџџџ=>?@ABCDEFGHIJKLNўџџџOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{ўџџџ}~€acadID="{A3854E55-806E-411B-8E5A-FF8AFC5A999A}" Document=ThisDrawing/&H00000000 Module=Module1 HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="EEECE073E0756D796D796D796D79" DPB="7775790A8B1A151B151B15" GC="00020E110F110FEE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=198, 198, 691, 724, Z PROJECTwmџџџџџџџџџџџџM>PROJECTџџџџЎThisDrawingџџџџ|Module1 џџџџџџџџ<Є_VBA_PROJECTџџџџџџџџџџџџ~ dirџџџџџџџџџџџџi__SRP_2џџџџџџџџџџџџўџџџ__SRP_3џџџџџџџџџџџџўџџџ@eВ€0* pH‚dф ACADProject8@е = t  К&@( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automa0tion^€MSForms>SFErms3€DD452EE1-E08F-101A-8-02608C@4D0BB4Dsystem32\FM20.DLL#Microso(ft ‚: €] Ob­ Libra ry/;D1€„€tˆ€ˆ€00}4#0‚€#€0€r€ DFA73DA2-0F2E-11D6-B119476Р1254F9P.РO@P\VBE\„G.8exd /€с.E р….@`ŒM ДС™Т”ТёYТ–ThisDra€wingG€ Thi€^D rawРnЈg 2 €(HB1ЁEXB,B ѓTY"B+Bƒ‚o@dule1G„‚ou@ЅuBЅ1@ ТŠ2OzЯM Y!HТ{000204EF-0Ьamџ  фњ*\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{DFA73DA2-0F2E-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџК&@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџёYThisDrawing0I44e6c40dџџThisDrawingџџѓYEџџModule10J44e6c40dџџModule1џџ Yz џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЗ9”НHлZIс~y0-`џџџџЦ bZaQлK‡Ёk.*VауџџџџџџџџH€џР'AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_PerpOnЧq SourceObj№{ AcadObjectЅvarPickёNewAngle>uUtility1J GetEntityˆvbCr$ ObjectNameуФ SetVariable?RAngle€AMsgBox—RPromptm ad_PerpOffŸe AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $\A№дАџџџџt ёY YџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџџџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџX%`„џџџџџџџџ џџ`„ џџџџџџџџџџion 2џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ1€ € €  € 8€ .@€ p€ x€ € *ˆ€ ˜€ L € J№€ <@€ P€€ >а€ T€ Th€ .Р€ №ThisDrawingThisDrawingModule1Module1Y"€ј€ џџџџ"€ F€ P€ 6h€ €Ј€А€ џџџџitical applications without your verificationџџџџџџр5 that these routines will perform as you intended.џџџџрI These routines may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact. рM These routines are provided "as-is" and no declaration, written or implied,auрM is made as to their reliability for any particular task. Any use of these00р( routines is solely at your own risk.lрЭџџР–р? This routine rotates the crosshairs to match the angle of theaр selected line.р0 Demand load: -vbarun;ad_PerpOn.dvb!ad_PerpOn;0]ђ@]ђ`]ђxЩ !"ѕso   &Ж"Select object on angle to match>> C@$\qџџЈ !(ЖAcDbLineœЖsnapang !, B@*CdFЖUnknown ObjectA@.D|џџHkџџ@ !,ЌДДЇшH.џ! @'  Ж###.####$Ќ' E\M  !"B@0d#Moџџр–р3 This routine returns the crosshairs to 0 degrees.0р1 Demand load: -vbarun;ad_PerpOn.dvb!ad_PerpOff;ЖsnapangЌ B@*-10oџџ8р# CopyrightЉ2000-2006 ActiveDwg.com#0#џџџџ@џџџџ&ДAttribute VB_Name = "Module1" ' ad_PerpOn 4ff8DDeveloped for AutoCAD 2000 and @above.Xversion 1.00&Copy@rightЉ4-6 ActiveDwg.com(These routines are provid{demon stratbpurpos'onlByŠmustK not be uscritical appl s with€6 your ] if „"that t‹Jwill per†m as inten€R‰ƒ cmayE0free€S€mliFz„J‚;own's onOX so plong„A1€@ enti€‡co5 ts ofLis header @remainDa ctCJS"as-is"BMno declaƒU, wK€J€3 {imKeld,„"€m@A=t oСEiliab ilityТ‡an y par[u€ task. AA6-РxФFzsœolGР[EriР!€ OpB|ExСniРx SubЩGЎ()BTh1€‘tat@‡Ocrosshairs‚ .match/Q€?gleƒReB € selectРg6lР RDРVКload: -vb arun;†Э.dvb!F; @ Dim SР”c€eObj As€Лad€@…varPickVarian@5NewlAnС%Р SРяA‚  С On Err!РeResuѓNexB W€Б@isDrawing.UtdС .GeœtE G4f, фbCr & "BS obj  @xa‚х%>> ‚ƒ„…†‡ˆ‰Š‹Œўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ†8 E !с a If Ї.У…ŒAcDbњL ("Ёa ‹arС3%(SetТbр/"sШnap  ",Ш B  Else: MsgBox "UxnknfЃ "`xИit BТрI`— ц(=Э * (180 / 3`.1416 GЪFor`D(, "###.`#"B D-.Promprt† %bkUf‚f’Ueturn SЈhe ‹U0€sg@‡ЮsQ@ИjQff‚Qп. @ЕШdeveloped in AutoCAD 2002.№ФдџџџџЫ?ёYѓYџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit j  @yFa‚х%>> @ˆ œ E !с a IfЇ.УЅŽAcDbL} ("Ёa@arС3%SetТbр/"snфap  ",Ш B  Else: MsgBox "Un