аЯрЁБс>ўџ ўџџџ|џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџЄЃfџџџџџџџџџџџџ1H__SRP_1џџџџџџџџ t __SRP_7џџџџџџџџЙtљ1aЁ IyЙйљџџљй с ThisDrawingRelative frmRelative ACADProjectяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA 9џџџџ aё0тС”РЦWв…у  Ц&D:\AutoCAD_2000i\ACAD.TLBAutoCAD YџџџџRoot Entryџџџџџџџџ@Е9]wŽС€2VBA_Projectџџџџx*№GП@Е9]wŽСVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ# 2№GП geЕЏ7Р-§џџџ gЪ !"#$%&'})*+,/.d02ўџџџ3456789:ўџџџ<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[ўџџџ]^_`abco{fhўџџџijklmn†pqrstuwўџџџxzўџџџ~§џџџŠy€ўџџџ ўџџџ ўџџџўџџџўџџџўџџџўџџџ!"#ўџџџ%&'(ўџџџ*ўџџџ,-./0ўџџџ23456ўџџџ89;J<=>?@ABCDEFGHI^KLMNOPЎRSTUVWXYZ[\]š_`abcdefghijklmnŠpqrsўџџџuўџџџw{yz„|}~ўџџџID="{F819D40A-B3AE-11D3-99C8-0010A4F84B6B}" Document=ThisDrawing/&H00000000 Module=Relative Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmRelative Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0705E7D2293E6442644264426442" DPB="3E3CDE2B22555856585658" GC="75779560FB96FC96FC69" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=PROJECTwmџџџџџџџџџџџџ ePROJECTџџџџ'ThisDrawing џџџџБ__SRP_4џџџџџџџџџџџџЊŒ88, 88, 683, 536, C Relative=66, 66, 619, 540, Z frmRelative=6rU€€€€~~~~~~~~o џџџџџџџџџџџџ   DistH36, 66, 619, 540, , 22, 22, 432, 497, ThisDrawingThisDrawingRelativeRelativefDegRad Yс YБ Yy ( YЩ 8 Љ  H Y1 X Y__SRP_5џџџџ„ Relative џџџџ\f;frmRelativeџџџџџџџџџџџџ;A_VBA_PROJECTџџџџџџџџџџџџ(6™ h йxMFileName ™ ˆ с™ rmRelativefrmRelativeўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq ,€ €X distanceН+X5€ЅTahomaИ€H,З Тu€ЅTahomaИ ,€ €Y distanceН+X5€ЅTahomaИ€H,З Тu€ЅTahomaИ(H  € }т; ь„,ѕ €2@lblXdistanceЇд@х €4€txtDistanceXЇ{Horizontal Distance,ѕ €2@lblYdistanceЇ@х €4€txtDistanceYЇEVertical DistancejМўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq€H,З Тu€ЅTahomaИ,€€DistanceWX5€ЅTahomaИ€H,З Тu€ЅTahomaИ,€€AngleИхX5€ЅTahomaИ(H  € }Фqм„<х € 4€txtDistanceH‰{Angular Distance,ѕ € 2<lblDistance‰д8х € 4€txtAngleЇ{Relative Anglece(ѕ€ 2<lblAngleЇдўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq0GР€€<€€€€`a0‚ОCopy5€ЅTahomaИ0GР€€<€€€€za0‚ОMove5€ЅTahomaИ8GР€€<€€€ €Іa0‚ОDraw Line|Н5€ЅTahomaИ<GР€€<€€€ €h a0‚ОDraw Polylinea5€ЅTahomaИ(H  €}; ; „<х €P €optButtonCopyaЇдCopy Entityp<х €P €optButtonMoveaЇOMove Entityv<х €X €optButtonLineaЇDraw LineLinLх €\€optButtonPlineaЇ Draw Lightweight Polyline“K*mџџџџrU€€€~~~~~~~~~~~~~~~~- ‘ ˜ Љ Ј ‘! 'hЗxАM‹еЃ`Š­4  фџџџџƒŠa aџџџџџџЙˆa џџџџ€џџџџ й)QyЁСбсџџйƒ€a џџџџ‘ С ё )a‰ЉбС@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole Ч ЋдŠђN‹7ІМaŸ И Љ Ш ‘% и й& шDistY1 Б ˆ  ˜ Ё Ј  И б  Ш " и 1# ш Љ$ ј Щ%  щ&  ( ( )) X ? h 1@ x QA ˆ ЉB ˜ D Ј )E И IF Ш iG и H ш ЁI ј СJ  L  )M ( IN 8 iO H P X ЁQ h СR x T ˆ )U ˜ IV Ј iW И X Ш ЁY и СZ ш \ ј )]  I^  i_ ( љ`в‹BьЮž Њ`ѓ 1џџџџYЁPс.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms aa‰Щ`Шi–ИђGЃH$ЛЗŠc:\windows\TEMP\VBE\MSForms.exd 9aaЩp RelativeMove RelativeCopy RelativeLine RelativePlineRel_DistD2RR2D SSetDelete ,,xX\`pDжQгј§хHЪћƒ')е‡ќ‚д,”„LЖWевШ‰% ТУN’ЫGЄТ>ямk5љ"кI’о EЌ—4œѓЦ  txtBasePoint!ш-ЌЂ6Я€SЊ` њ 1џџџџџџџџЩЈbв‹BьЮž Њ`ѓtglRetainValues txtDistanceX txtDistanceY txtDistanceH"žŒ—АдЮП-Њ?@а lblBasePoint ”?ЯFѕЮ›ЮЊ`Ž fraXYDistanceШ[qJ—І eР‹UserFormJИˆЙД–ЧFВdЙˆ•Р  F3Dynamic a џџџџ џџџџ‰ ИfraOptionButtonsRв‹BьЮž Њ`ѓ optButtonCopy optButtonMove optButtonLineVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmRelative Caption = "Relative" ClientHeight = 4920 ClientLeft = 240 ClientTop = 525 ClientWidth = 4905 StartUpPosition = 2 'CenterScreen TypeInfoVer = 117 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq(€OKОœТu€ЅTahomaИ(€CancelИТu€ЅTahomaИ(€Set Base щ. ˆ 0 ˜ )1 Ј I2 И i3 Ш Љ4 и Щ5 шЪТu€ЅTahomaИ(€ResetИЩТu€ЅTahomaИDFР€џ€€€Ф{0‚О R e t a i n V a l u e s ї€@ЅМTahomaИ( €Base Point:ЪЇ5€ЅTahomaИ„H€,€&Ј5€ЅTahomaИ‚ƒ…Œ†‡ˆ‰ўџџџ‹ŽQ‘’“”•–—˜™›ўџџџœžŸЁ:ЂЃўџџџЅІЇЈЉЊЋЌ­АЏxўџџџВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(  €џџu}Ь!ц!Rу ‘ЮуЊKИQDBTahoma иŠ$х€ 4cmdOKИ]7(х €8 cmdCancel›НЮ7,е €#fraXYDistancea‰"0е€#fraAngula щ6 ј 8  rDistanceМЇ1,е€#fraOptionButtonsЇ",х€8cmdSetBasePointsЇ7$х€8cmdResetР 70ѕ€2ltglRetainValuessЇд,ѕ €2<lblBasePointЇ,ѕ €2<txtBasePointEМoptButtonPline lblXdistance lblYdistancelblAngle lblDistanceС{lЏЮŸFЊWJOc)9  I: ( ‰; 8 б< H ё= mdOK cmdCancelcmdResetcmdSetBasePointfraAngularDistancetxtAngleUserForm_ActivateUserForm_InitializetglRetainValues_ClickcmdSetBasePoint_ClickcmdReset_Click cmdOK_ClickcmdCancel_ClicktxtAngle_ChangetxtAngle_AfterUpdatetxtDistanceH_ChangetxtDistanceH_AfterUpdatetxtDistanceX_ChangetxtDistanceX_AfterUpdatetxtDistanceY_ChangetxtDistanceY_AfterUpdateAngl_SetDist_SetTile_Set ˜ LASTPOINTйuŽ!=в…Ф  Ц&kлBc3/:M“§џ[V–p`йuŽ!=в…Ф  Ц&л"›L]XIщкTŸвЗсXh—{ а‰п€_ТћК AcadDocument @Cв‹BьЮž Њ`ѓ S 8 c HCSet~aЁ!ћбЂШ мcš’~aЁ!ћбЂШ мcš 0в‹BьЮž Њ`ѓ OSMODEŠјфJmЯ“ћ žГЗ , VBE6.DLL йџџџџG ј йџџџџF  ANGBASE PDMODE…ЙЂЙ(вЖx`А‡т5ˆ%“^чџбЖI`А‡т5Од()“ЪбЖ`А‡т5ЂюW[šЪбЖ˜>FileName с ˆ`А‡т5Ид()“ЪбЖ`А‡т5 POINT йџџџџL 8 йџџџџf X йџџџџI xŸВ€0* pH‚dф ACADProject8@е = t  –q=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0rРAB89669 C8-1E647F2-A348-24BB1FB70198APX€WP\VBE\DO.exd`7€с.E р….`PŒM ДЁ‚œDТХ‚žT@hisDraРugG€Thi@fDra‚wРng Š2 €HBj1ТЈ6€ЕB,QB Х"B+BDРRel@vАeGA@Ћl!Њt!vРЪ2в!Я2ЭХ2!РХсfrm‡A8 I* H i+ X Љ, h Щ- xBf@@mRŸ! CB ЏЭ9Џ4ША#!(hс„фВР0ХХџџ#ˆЖџџџџџџџџ<џџkлBc3/:M“§џ[V–p`йuŽ!=в…Ф  Ц&л"›L]XIщкTŸвЗџџџџџџџџџџџџxл"›L]XIщкTŸвЗkлBc3/:M“§џ[V–p`џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџrU€€€€~|  ˆ I9и qaбљЉ!Љбљqщ‘Iq™Сщœ\$ў €Mlџ@ \џ$ \џ§ц`-\џXџ$ Xџ є\џclџ]ћ3Xџ5\џv  -\џXџ$ ˜Xџ є\џclџ]ћ3Xџ5\џ­  -\џXџ$ ”Xџ є\џclџ]ћ3Xџ5\џф  -\џXџ$ œXџ є\џclџ]ћ3Xџ5\џ  Kџџ0Dџ:lџ %Xџ$ ФXџ Dџ X)XџDџ8\$к XџDџ\џHџ0 ќЦ  0 ќЦ(  0 ќЦР  HЈ “єЦ€ є˜ є˜lџ$ lџU˜V5lџ(\џ#%$ !clџXџ$ мXџ №Xџ5lџѕ“чXўŽ€"(\џ%DўЎlџBѕ”XІ5lџ"(\џ%DўЎlџBѕ”XІ5lџ1@џ§нDXџ$ Xџ Шl@џ=Tџ)Xџ@џ"(\џ%`ўЎlџBѕ”XІ5lџ"(\џ%`ўЎlџBѕ”XІ5lџ1@џ§н`Xџ$ Xџ Шl@џ=Tџ)Xџ@џЃ “єЦЃ“єЉ˜ѕ“чXў€&(\џ%`ўЎlџB“є­ч”XІ5lџ#(\џ%`ўЎlџB“ч”XІ5lџ1@џ§н`Xџ$ Xџ Шl@џ=Tџ)Xџ@џ Tџ Є.lџXџ$ мXџ єlџќf\џ]ћ3Xџ5lџЁ6@џ”XM\џ %Xџ$ Xџ Ьl@џ=,џ)Xџ@џ1@џ Xџ$ ФXџ ,l@џ=§яp)Xџ@џ єѕџЂ:\џѕјўќАєT“єўk№ў|"(\џ%“Tч”XЁ§kрў%`ўА%(\џ%“TєЉч”XЁ§kрў%`ўА$јўMDџ %џM\џ %§н`_p L Te№ў _p 0“VD\џ%$ ЌЈ„кlTџјў€џџџџџџ’ ,џџ%Єџџџџ’џџXџ@џlџ0џшЄlџ$ lџ§цD tdџlџ$ lџќіTџFџ§ џB9Tџodџ§k4џћ”lџB9§нD0џ$ №0џ `џќіDџ0џ5lџќэDџ$ lЄ,кTџDџ0џlџџLƒ ѓДыЖњ-DTћ! @Гttџ$к Lƒ њ-DTћ! @ЖѓДыГttџ$к 0 ќЦx  CC  Cџџџџџџџџџџџџџџџџџџџџџџ „ qQ оооЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ˆ qq пппЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Œ q‘ уууЈ§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsW—зW—зW—з_Ÿп_Tшlџ $ lџ§Ж(\џ%ўЎlџќ‹(4џ%ўЎџќ‹(єў%ўЎаўќ‹DџѕѕlџB9Hџ $ №Hџ (lDџ*#џ џѕѕџB9 џ $ № џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ №рў (lЬў*#РўФў! фФў h2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ є lџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ llDџќ3~/DџHџ$DџHџ! АHџ llDџќ3~/DџHџ$DџHџ!  Hџ llDџќ3~/DџHџ$DџHџ! ЌHџ llDџќ3~/DџHџтьМш$hл DDџ џџџЬўШўРўHџ џрўФўlџџаў`(єы~xџ! Д&xџ hxџєы~xџ! А&xџ hxџєы~xџ!  &xџ hxџєы~xџ! Ќ&xџ hxџ (hџ§Жєz ќfXџxџ! &xџ № xџ5XџќfXџxџ! ”&xџ № xџ5XџќfXџxџ! ˜&xџ № xџ5XџќfXџxџ! œ&xџ № xџ5Xџ(hџ#%  $ #$($(л xџXџДx(hџxџ! мxџ є hџcXџ]ћ3xџ5hџO"єѓџє^ xџ! мxџ 0 xџs"єєѓџ^ xџ! мxџ 0 xџ4x$л xџhџHџ0 ќЦ   d,ќfXџxџ! мxџ № xџ5Xџь$,$л xџXџH$ў €$л Pl§œxџ$  xџ$л xџx@ (lџ§ЖKџџ)dџhџ! Дhџ lldџќ3§klџ§Ж/dџhџ@$л dџhџL B~(,$л  d (lџ§ЖKџџLdџhџ! А"hџ lXџѕldџ`џ $ №`џ $oXџ§klџ§Ж/dџ)hџ`џ$d$л dџhџ`џL B~(,$л  d (lџ§ЖKџџLdџhџ!  "hџ lЬamџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For ApplicationsЦ*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\AutoCAD_2000i\ACAD.TLB#AutoCAD 2000 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\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџ–q=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџХThisDrawing193d711a3dџџThisDrawingџџХ6џџRelative263d711ae7џџRelativeџџХ0џџџџџџџџ2џџfrmRelative1:3d711a3dџџ=frmRelativeџџШАџџџџџџџџ0Э9џџPpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŽ^щъahРGŸ2jtаTџџџџL+H7sЕNЅ~'Ч(Šџџџџ€БUNP‡B–>lлІ€`Хџџџџџџџџ0џџџџt§™ЄR}џџџџџџџџ0€!џhM €џAs€џcall=„џDimB€џDoubleD€џElseE€џElseIfG€џEndH€џendIfR€џFalseT€џFor_€џIfj€џIntegerl€џLBound‰€џOn€frmRelative$џџџџ@MЕр:JПрфšЕŽСfџџџџџџџџ€/oџџџџџџџџџџџџvРCompObjџџџџџџџџtaVBFrameџџџџџџџџџџџџo(__SRP_6џџџџџџџџџџџџД__SRP_3џџџџD__SRP_2џџџџџџџџџџџџeєџpreserve’€џPrivate•€џpublic›€џReDim€џResumeЄ€џSetЊ€џStepЏ€џSubВ€џThenГ€џtoД€џTrueЗ€џUBoundМ€џVariant AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйAcadDocument_BeginSave%МFileNamejУЌ(RelativeCPIЎ^Ќ(Angle1ЋœЌ(Angle2ЌœЌ(DistH1fvЌ(DistH2gvЌ(DistX1ЖxЌ(DistX2ЗxЌ(DistY1GxЌ(DistY2HxЌ(PTbaseZGspModelVћAcadModelSpaceѕ" €џModelSpace_жaLine@СAcadLineePTdistЌ§ frmRelativedзShowѕRel_Dist3 €џGetVariable~AddLine8Angle3­œDistH3hvABzeroNPTpolarпnЌ(D2Rv€€џUtility1J PolarPointK SetVariable?RDeg*ƒЌ(R2DFЫRadqЭUserForm_Initialize5ctxtAngle}р txtHdistanceш‘ txtXdistance)e txtYdistance]жEnabledлЊ BackColorŒ<< 8 8 p p 44//к tџxџ@PP|4tˆ<< 8 8 Œ Œ ll/оƒ cmdOK_ClickИHide9zcmdReset_Click›AcmdCancel_Click\еtxtAngle_ChangeЯ[txtAngle_AfterUpdate\|Angl_ValйtxtHdistance_ChangeI=txtHdistance_AfterUpdate%Dist_Hyp}4txtXdistance_Change 2txtXdistance_AfterUpdate‹(Dist_axX…txtYdistance_Changeї9txtYdistance_AfterUpdate€Dist_axY‚Dist_SetmTile_Setќ,Angl_SetjSqr(еAtnQuCosOSinќг AcadDocumentZ €џBeginSavezUserFormN optButtonCopyЂч optButtonMoveЁ optButtonLine>КoptButtonPlineё% lblXdistanceЊх lblYdistanceŸVlblAngleŸй lblDistanceXбcmdOK' cmdCancelЭcmdResetвп €џџџInitializeгN€џClickŠу€џChangeЃЧ €џAfterUpdateНФMsgBox—RvbCrLfЏЌUserForm_ActivateZsuserfor0}€џActivate—|€џџџ_B_var_userforД€optButtonCopy_ClickS{€џџџ_B_var_optButtonCopy@Л€џValueфK €џџџ_B_var_IfPђopBvalЈV €џџџ_B_var_opBvalQб€џModeЄv optButtonLi‰кFrame1ЙFrame2ЙFrame3Й fraXYDistanceвfraAngularDistanceXIfraOptionButtonsЪj UserForm1)ж€џSetFocusёЦcmdPointt@cmdPoint_Click y returnPntf=€џGetPoint/А €џџџ_B_var_PTdistx €џџџ_B_var_ElseIfqmnewSSetЁR€џAcadSelectionSetЫЩ €џSelectionSetsгAddїr€џSelectOnScreenЛi`Count0vItemзz€џMove>yP1–^P2—^€џDeleteИx€џџџ_B_var_i Ђ€џCopyЦПnewObj$G €џџџ_B_var_newObjЭС €џџџ_B_var_On6ѓ„џџџtglRetainValuesўЂtglRetainValues_ClickхMvbRedG/vbGreenі_ €џџџ_B_var_Angle3 €џџџ_B_var_DistH3ё lblBasePointŸ‘lblTargetPoint}€џџџ_B_var_lblBasePointћЪxofrmУ €џџџ_B_var_frmдL€џCaptionx txtBasePointtxtTargetPointіPTdoistŠvt—_€џџџ_B_var_txtTargetPointцœ€џџџ_B_var_Tile_Set…le_SetЁ"cmdSetBasePointЇ=cmdSetBasePoint_ClickЈrgnYЮ €џџџ_B_var_rgnj‹ €џForeColor €џRealToStringт€џџџ_B_var_RealToString! €џacDecimalМosModsпe €џџџ_B_var_osModsˆрLWPlineyM€џAcadLWPolylineб AddlwployLine/ AddlwpolyLineЂAddacadlwpolyLineJ€џAddLightWeightPolylineƒlwParrayH`prbase# €џџџ_B_var_prbase(žЌ(PstateЩ›PTmarkТХ €џAcadPointPх €џџџ_B_var_Set€џџџ_B_var_AcadPoint•ю€џAddPoint Ќ(PcountС €џџџ_B_var_tglRetainValues‘ŒLWPolyЉ) €џџџ_B_var_LWPolyRЄ €џџџ_B_var_ReDim•В €џџџ_B_var_ForjLstep2Жnexti:prdistбй €џџџ_B_var_prdist;TSelSetІ €џџџ_B_var_selSetO €џSelectAtPointw SelSetDeletesШ dataValueW€џџџ_B_var_dataValue‰gpCodeЮA €џџџ_B_var_gpCodewМfimvŽ €џџџ_B_var_fim‡KLWpoly2Џ€џџџ_B_var_LWpoly2Ѓ newselset]1€џџџ_B_var_newselset!+upn_€џUpdateвќLWpntsv% €џџџ_B_var_LWpnts gpDataП €џџџ_B_var_gpdataƒ9PDmods №ptModscrerCoord$2retCoord_ €џCoordinates!k €џџџ_B_var_LBoundĘ €џџџ_B_var_UBoundлdmsgQЕptЙ^distМegpDatК& €џџџ_B_var_gpDatцъlwptsthE€џRegen ў€џacActiveViewportrN RelativePline% privateSubœі€џџџ_B_var_newSSet%V RelativeCopykп RelativeLineВ RelativeMoveу˜€џџџ_B_var_spModelYя€џџџ_B_var_AcadLWPolylineSh txtDistanceЋItxtDistance_ChangeFItxtDistance_AfterUpdate›€џџџ_B_var_txtHdistanceDЫ txtDistanceRAœtxtDistanceR_ChangeŸ=txtDistanceR_AfterUpdateLU txtDistanceXGœtxtDistanceX_ChangeAtxtDistanceX_AfterUpdater1 txtDistanceYDœtxtDistanceY_Change—?txtDistanceY_AfterUpdate_C txtDistanceH7œtxtDistanceH_ChangeFtxtDistanceH_AfterUpdate!м €џџџ_B_var_EndоF Ќ(SSetDelete  distAsReal]8€џDistanceToReal+ distAsString/>unitŸ €џacEngineering‹И opreserveкVasw4uџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџџџџџџџџџџџџџ= џџџџџџ 6РТР@0"фt§$&Ч9ХШАџџˆЖџџџџџџџџ”џџ‡ќ‚д,”„LЖWевШ‰% ТУN’ЫGЄТ>ямk5љ"кI’о EЌ—4œѓЦ  Ч ЋдŠђN‹7ІМaŸџџџџџџџџџџџџx Ч ЋдŠђN‹7ІМaŸ‡ќ‚д,”„LЖWевШ‰%џџMEџџџџџџџџџџпџџ4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ>"џџџџџџџџ№Ж LASTPOINT . B@Tџџџџџџџџ`–h !ЬЗœЌЌџЌ$@ (hdkџџoџџ–џџџџџџџџЈЌ' џџџџџџџџШџџџџиџџџџ(џџџџџџџџ0dџџи ш!d'( є!d'$e2 = ю!d',ext ^!d' џџџџџџџџЈЖ LASTPOINT %B'.џџџџpџџџџ џџџџЈџџџџ8 џџџџ џџџџXџџџџ џџџџx џџџџP џџџџ˜ЌџЌЌ$@ (hџџ џџџџРІ(Ќ$. LЌ !P%HЖ, Ќ$. LЌ !P%HЖ, Ќ$. LЌ !P%H 0(dџџџџРЖOSMODEЌ# B@Tџџџџ№џџџџш Ќ'pЌ'dџџџџ  џџџџ€ џџџџ џџџџ€ џџџџ@A@Œџџџџx A@ŽA@Œџџџџ@џџџџxA@ŠA@Œџџџџ џџџџ` џџџџpџџџџ џџџџ№ є!d  !P%'"џџџџˆ Щ№ џџџџP ш!d  !P%'& ю!d  !P%'*џџџџx џџџџ џџџџа џџџџhџџџџpр/ VBA for AutoCAD 2002: Writing AutoCAD Macrosџџр Jeffrey E. Clarkџџџџџџр# Copyright 2002 Prentice Hall PTRџџџџџџрJ This software may be freely copied and used so long as this disclaimer,рK together with the above copyright notice, are included in all copies andџџџџџџрL any accompanying documentation. These example programs are made availableџџџџџџрK "as-is" without any explicit or implied warranty. Neither the author norўџџџрG publisher warrant that these programs are error free or will operateџџр without interruption.р Example 14-8.р Example 14-9.р Example 14-11.р Example 14-12.р Example 14-13.р Example 14-14.р Example 14-15.џџџџ8р Example 14-10.џџџџЈ џџџџбЖAttribute VB_Name = "frmRelativeˆ" ˆBasˆ0{4EC3C20B-920E-47CB-A4C2-3EEFDC6B35F9}{49DA1222-DE92-450A-AC97-341C9CF3 C60D} dGlobalSpa‚coFalse ŠCreatablPredeclaIdжTru BExpose!0Temp€‚eD er€„•Customiz‹DOption 0licit '  ВA for AutoCAD 2002: Wr iting† MacrosƒJeffrey E. C€ekƒ Copy right‚ unti€”Hall PTR…7Thi€s softwƒ may be €'ely cop‚i€}and uA so lo@!asD t dis@Oimer,together withРe aboLve#noA!, includ1in A%‚s €Cany ac0comp@A?do@cumentРo@n. The€šexaae programРreР1ТdРvail]ƒ€"as-is"Т&outРy exъpB_ @\i€;Branty. Ne€1@3€4 aut"h norCpublisТ:arС 9€;atС<Р$Ъ"erNrTAwiР_oрperatРšA|СJ‘С#int€ up… .…gED714-8 P@š€ Sub UserFor0m_Ac@т@()l РРwbCсAwDraw@O.GetVariD("LASTPOINT""„ txtAюPoС€!.TextСУyAEUtili€"R@ealToS`‚ng(PTс (0):cDecimal, 6) & а", "Р_їmiЙ 1П а П c2­ If tglRetainVРalues.ТЄ„aOnGAngle>2` (b"(чDistHфaancTeHpXlXpYulYhEb Ѕ!ЦCIТn ‡aliz NТEzIf срHНpM9wM‡ ЅMІ0#џІш"шЂфŠ&€(ќ"0РНсЋ%”У$”у#‰Pcounsс[фPs ŠaФфoptButtonпaЈЦ>фПсM€›LinePl4щWS'w "OSMHODEРk35981І0N8 Z_C@Ÿk…8 ^e/Н1BackColpN= RGB(0, 255ј, 0дE‹)плЃOиџ*SИQ11оc#5uBв)`Sqr((бˆ^Р 2) + т`?с№/СBг+ p”<> 0/ž#žR2D(ЈAtnU/D)ЄџЁБ•oq ]$аv Ё ВЄ94N‘w<ѓ” w27„Av„а…Г A–„+ 168ЏЄA0wбYкА2 < 0 Th en An€gle2 = @ + 180xElseIf Dis$tY#ш36tnd@ If ESub PrРivate RР_Set()ibX„Cos(D2„R(Œ)) *+ H2'Š= Sin'r'уExample 14-15. DTile Dtxt=.Te€ SanxceH…NˆX­‰X^ˆY‰Y€Z №Фдџџџџ=‰2ХХџџЖџџџџџџџџtџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџTџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ џџџџ<џџPџџџџPџџџџ џџTLџџџџPџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџš"џџџџџџџџš"џџџџ<œџџ< џџ<Єџџ<Јџџ<Ќџџ<Аџџ<Дџџ<Иџџ<Мџџ<Рџџ<Фџџ<Шџџ<Ьџџ<аџџ<дџџ<иџџ<мџџ<рџџ<фџџ<шџџ<ьџџ<№џџ<єџџ<јџџ<ќџџ<џџџџџџH0-DTћ! @˜€ @ъ€ € џџџџ @џџџџџџџџџџџџ<$@:авдъ€,`<џџџџ@џџџџџџџџ@ўџџџџџlџџџ џџ џџџџџџџџџџџџ „gџџџџTџџџР@%x P%@ўџи\џџџ џџ  `џџџџџџџџИ Dџoџџџџџџџџџџ$„ „7џџџџxџџџШ „„џџџџџџџџh@% „џџџџџџџР+N8`џџџџџџџџX tџ+Шџџџџ“ŒiƒVџџџџ џџџџџџџџ€iƒZџџџџ џџџџџџџџ€ј`„JџџџџTџџџ џџ`„LџџџџDџџџ џџ+Xx`џџџџџџџџˆtџ+шџџџџ—Œ€@@%И Ъx `џџџџџџџџ˜ аўkџџџџџџџџџџ//V„`„FџџџџdџџџџџТрEџџџџџџџџџџџџџџъ€$0џџџџ @џџџџџџџџъ€џџџџ @џџџџџџџџъ€(X,џџџџ @џџџџџџџџ@ўџ`Xџџџ џџ @јј "џџ%Ђ€tˆXџџ@џџџџџџџџА "˜ ш Р ƒџџџџџџаџџџџџџџџџџџџџџџџџџИ ``%h ъ€.џџџџDџџ џџ@џџџџџџџџ‚€А\џџШ@џџџџџџџџт€:И`џџ џџ@џџџџџџџџ@ўџџџџџHџџџ џџ  „Sџџџџ,џџџPџџџџ’ „Ј№јўџџXъ€dHџџџџ@џџџџџџџџА’ъ€" џџџџ @џџџџџџџџ@Ъџџџџџџџџ в `џџџџџџџџџџџџpџJџџџџџџџџџџO„ д(`џџџџџџџџџџџџ џJџџџџџџџџџџ;„IƒHџџџџ џџ џџџџџџ€@ўџџџџџDџџџ џџ ќџџџџ`џџџџџџџџџџџџ џџџџџџџџџџž„т€ЌаVџџџџ@џџџџџџџџт€ўИTџџџџ@џџџџџџџџъ€p8џџџџ@џџџџџџџџъ€&p$џџџџ @џџџџџџџџъ€*X4џџџџ@џџџџџџџџ`Nџџџџtџџџџџ џџџџ№џџџџџџџџи Ђ€…pџџ@џџџџџџџџџџџџ. Nџџ@ўџ˜lџџџ џџ @ўџ€4џџџ џџ  аР`џџџџџџџџџџџџ џJџџџџџџџџџџ C„@ўџџџџџ0џџџ џџ џџџџ@ўџџџџџ џџџ џџ џџџџ@ўџџџџџџџџ џџ џџџџ &џџџџXџџџџР(XXџџџџˆајˆ8рИH€ џџџџџџџџџџџџџџџџx `џџџџџџџџРџџџџџџџџџџџџ80Иxpџџџџ џџџџА№џџџџџџџџ @ˆ`џџџџџџџџј џk@џџџџџџ…„џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜иџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџр џџџџџџџџhјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџpџџџџџџџџџџџџ€ P џџi16  n`єЮ›ЭЊ`Žр§ъ}8РрфšЕŽСi17џџџџџџџџ n`єЮ›ЭЊ`Ž K]В}8РрфšЕŽСfџџџџџџџџџџџџ$oџџџџ рrU€€€ џџџџџџџџx$`§џџџџџџџџџџџ$Љ`ќџџџџџџџџџџџ$б`ќџџџџџџџџџџџ$љ`ќџџџџџџџџџџџ$!`ќџџџџџџџџџџџ(I`ќџџџџџџџџџџџa/(q`§џџџџџџџџџџџy +(™`§џџџџџџџџџџџ‰ +$С`§џџџџџџџџџџџn Kџџ0Dџ:Xџ %hџ$ Фhџ Dџ X)hџDџ8P$к hџDџlџHџ0 ќЦ  0 ќЦ(  0 ќЦР  0 ќЦ   0 ќЦdœh  Lƒ ѓДыЖњ-DTћ! @Гttџ$к 0 ќЦ8  0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ќЦx  CXџ Шl@џ=Tџ)Xџ@џ"(lџ%˜ўЎ\џBѕ”ЈІ5\џ"(lџ%˜ўЎ\џBѕ”ЈІ5\џ1@џ§н˜Xџ$ Xџ Шl@џ=Tџ)Xџ@џў “єЦў(lџћ”\џ§цѕќ"ЈўŽ€-(lџ%˜ўЎ џB(0џћœ\џќ"”ЈІ5 џ$(lџ%˜ўЎ\џBќ"”ЈІ5\џ1@џ§н˜Xџ$ Xџ Шl@џ=Tџ)Xџ@џ Tџ Є(lџ]ћt…"ќf\џXџ$ мXџ №Xџ5\џ.\џXџ$ мXџ є\џќflџ]ћ3Xџ5\џќ6@џ”ЈMlџ %Xџ$ Xџ Ьl@џ=џ)Xџ@џ1@џ Xџ$ ФXџ ,l@џ=§яЌ)Xџ@џ єѕџЂ:lџѕшўќА(Dџ„(lџўpФўз#(lџ%„ќ"”ЈЁ§k0џ%˜ўА/(Dџ%„(lџћ”\џќ"”ЈЁ§kДў%˜ўА5\џ$шўMDџ %џMlџ %§н˜_Ќ L „ў†ФўT _Ќ 0“”Dlџ%$ иŒкtдўФўTџшў’ џџ’Xџ@џ\џ џьЈlџ$ lџ§цt$ §k\џb lџ$ lџќіLџEџ§(џB9Lџ§ \џћ”lџB9§нt8џ$ №8џ `џќі<џ8џ5lџќэ<џ$  dЈ,кLџ<џ8џlџџLƒ ѓДыЖњ-DTћ! @Гttџ$к 0 ќЦ8  0 ќЦx  C џџјўрўџџџџ’!ƒўџXџ@џ\џ џьЈlџ$ lџ§цt$ §k\џb lџ$ lџќіLџEџ§(џB9Lџ§ \џћ”lџB9§нt8џ$ №8џ `џќі<џ8џ5lџќэ<џ$  dЈ,лLџ<џ8џlџџLƒ ѓДыЖњ-DTћ! @Гttџ$л Lƒ њ-DTћ! @ЖѓДыГttџ$л 0 ќЦx  CѕѕlџB9Hџ $ №Hџ (lDџ*#џ џѕѕџB9 џ $ № џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ №рў (lЬў*#РўФў! фФў h 2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ єlџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ l lDџќ3~/DџHџ$DџHџ! АHџ l lDџќ3~/DџHџ$DџHџ!  Hџ l lDџќ3~/DџHџ$DџHџ! ЌHџ l lDџќ3~/DџHџт№Мш$hл DDџ џџџЬўШўРўHџ џрўФўlџџаўPєы~єы~єы~єы~ (lџ§ЖєzќfXџhџ! hџ №hџ5XџќfXџhџ! ”hџ №hџ5XџќfXџhџ! ˜hџ №hџ5XџќfXџhџ! œhџ №hџ5Xџhџ! Дhџ h hџhџ! Аhџ h hџhџ!  hџ h hџhџ! Ќhџ h hџєџhџ! Дhџ Œ hџєџhџ! Аhџ Œ hџєџhџ!  hџ Œ hџєџhџ! Ќhџ Œ hџ$ѓџѓџѓџ^ hџ! Дhџ 0 hџ$ѓџѓџѓџ^ hџ! Аhџ 0 hџ$ѓџѓџѓџ^ hџ!  hџ 0 hџ$ѓџѓџѓџ^ hџ! Ќhџ 0 hџ(lџ#%  $ $$(л hџXџ0 ќЦ   0 ќЦ€  H$ў €$л 0 ќЦР  x@ (lџ§ЖKџџh џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј џџџџџџџџџџџџџџџџџџџџр АџџџџdpЌ<t.:џџ@ўџШ lџџџ џџ џџ@ўџ˜ \џџџ џџ џџџџ@ўџА Xџџџ џџ џџџџ@ўџH Dџџџ џџ џџџџ@ўџџџџџ@џџџ џџ џџџџ@ўџџџџџ0џџџ џџ џџџџ8 „ўџџџџџџџџџџџџџџ@ўџ ђўџџџџ Ј@ўџџџџџ№ўџ/џџ џџ x џџџџ`џџџџ8 @ўџ` рўџџ џџ @ўџџџџџаўџџ џџ (`Xџџџџtџџџџџџџџџџџџџџџ џџџџџџи џџџџа € И€Pџџџџџ џџˆ@џџџ џџ џџџџ@ўџ0џџџ џџ џџџџ@ўџ џџ џџ H џџџџў.: џџџџџџџџџџџџџџџџи џџџџ џџџџЈј(xџџџ џџ @ўџtџџџ џџ џџџџ€џџџџш dџџџ џџ џџџџиџџџџ(XTџџџ џџ @ўџPџџџџџ џџˆ@џџџ џџ @ўџ0џџџ џџ џџџџИџџџџшџџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx   ( p8 џџ џџ (џџџџЌ<t.:H"џџџџ аlџџџ џџ џџџџPџџџџˆџџџџџџџџ˜џџџџ џџџџЈ0Јџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXˆ \џџџ џџ џџџџИXџџџ џџ џџџџ@ўџDџџџ џџ џџџџш@џџџ џџ џџџџ@ўџ0џџџ џџ џџџџˆ џџџ џџ џџџџ@И@ШX(дўџџ џџ џџџџ@ўџФўџ/ џџ џџџџˆ"џџџџџџˆ(Дўџџ џџ џџџџ@ўџЄўџџ џџ џџџџџџџџ&џџџџџџџџџџ˜џџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8pPШtџџџџџ`џџ џџџџџџўџ ЈxШ џџ џџ џџИџџџџ8 ш џџџџџџџџџџџџ` џџџџџџџџОTf§џџџџ №џџџџјџџџџџџџџџџџџxџџџџ`џџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ)а–q=*\R1*#10f$*\Rffff*263d711ae7*\R1*#d4*\R1*#10b*\R1*#72*\R1*#d1*\R1*#5c*\R1*#71*\R1*#5b*\R1*#59*\R1*#10c*\R1*#10b*\R1*#10aђ*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\WINDOWS\SYSTEM\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R1*#f2$*\Rffff*193d711a3d$*\Rffff*1:3d711a3dп$ўЪЄ€€ џџџџ€ 6  € и € *ј € џџџџ€ P( € Rx € Rа € R( € N€ € а € џџџџ€ № € џџџџ„€@€ „H „Р €h€ џџџџ€ €€˜€ €(€0€8€@€H€P€€ џџџџ€ € џџџџ"X h ˆ € џџџџx-рx0јШ0А а00иа € џџџџ xџФŒ!yќ#tџxџ! Дxџ h/tџxџ!yќ#tџxџ! Аxџ h/tџxџ!yќ#tџxџ!  xџ h/tџxџ!yќ#tџxџ! Ќxџ h/tџxџŒ$к tџxџ@PP|4ˆŒ<< 8 8 p p tt/˜0P € џџџџ€  € џџџџ" №1Р ј,р, h€ џџџџ" Р1@  ,№ ,p8*А 0Ш€ џџџџ€ 8€ џџџџ" `€р7р ш€ џџџџ€ P€ џџџџ" и     !ш€ џџџџ€Ра "и"А1"P"h1 € џџџџ 8А &Р#Ј1ˆ ( € џџџџ.ш€ Ј 60€ џџџџ 1H€ Ш€ ˜  ˆ а @"@%X$ x  јH`€€ џџџџ€ h€ џџџџ" x Р€h 8 € џџџџ€АUserForm1џџџџџџџџ`‚hбŸ;Р`‚hбŸ;РUserForm1џџџџџџџџџџџџўџџџoџџџџџџџџџџџџўџџџCompObjџџџџџџџџџџџџўџџџaVBFrameџџџџџџџџџџџџўџџџ UserForm1џџџџџџџџџџџџўџџџФџџџџџџџџџџџџџџџџџџџџџџџџCompObjџџџџџџџџџџџџpfџџџџџџџџџџџџ oџџџџшCompObjџџџџџџџџџџџџpЉžƒГ…‡ˆ‰‹ЖŒŽ›‘’“”•–—˜™šІœЈŸ ЁЃўџџџЄЅЇШЕvЂЋЌ­ЎЏАБВ‚ДЛИЗўџџџЧКМўџџџНОПРСТУФХЦ1ЩўџџџўџџџЫЬўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџѕldџ`џ $ №`џ $oXџ§klџ§Ж/dџ)hџ`џџџџ$d$л dџhџ`џL B~$,$л  d (lџ§ЖKџџLdџhџ! Ќ"hџ lXџѕldџ`џ $ №`џ $oXџ§klџ§Ж/dџ)hџ`џ$d$л dџhџ`џL B~$,$л фyєыћЯyєыћЯЋ9 #~ yєыЭK!yyi18! n`єЮ›ЭЊ`Ž #ќb~8РрфšЕŽСo "џџџџ+TCompObjџџџџџџџџџџџџ)p__SRP_0 џџџџ7л x@ (lџ§ЖKџџ)dџhџ! Ќhџ l ldџќ3§klџ§Ж/dџhџ„@$л dџhџ@ 0€$л 0 ќЦ  0 ќЦ`  P  § lџB~4< $л P  § lџB~4<  $л \yєыћЯyєыћЯЋ9 ~ yєыЭK!yyЖ9 tlџolџ§Щtџ ~ yєыШ… yєымmєZы~ yєыв‚ ѓы~о yєывЁ yѓДыЋ~оyєывyєывФХ yѓДыЋ~о yєыво yѓhыЋ~єhџ! Дhџ Œ hџєhџ! Аhџ Œ hџ$ѓ€ѓ€ѓ€^ hџ! Дhџ 0 hџ$ѓ€ѓ€ѓ€^ hџ! Аhџ 0 hџЌ\$л hџ0 ќЦР  ФŒ!yќ#tџxџ! Дxџ h /tџ€Иј$F@`€ џџџџ€ €€ џџџџB  рP € џџџџB Јhp € џџџџ€ H € Lш€ џџџџ" €€H XP€ џџџџџџџџPЭџџx]Д-DTћ! @ђј] ђ] ђ€] ђ ] ђ0] ђp] ђX] ђX–№–Р <B@>Ж LASTPOINT %B':Щ–ˆ–8]ђ]ђ Ж LAS,џ$к ˜\єы~KџџGtџxџ! Аxџ lhџѕltџpџ $ № pџ $ohџ~/tџ)xџpџ\$к tџxџpџLy~(,$к ˜\єы~KџџGtџxџ!  xџ lhџѕltџpџ $ № pџ $ohџ~/tџ)xџpџ\$к tџxџpџLy~$,$к ˜\єы~KџџGtџxџ! Ќxџ lhџѕltџpџ $ № pџ $ohџ~/tџ)xџpџ\$к tџxџpџ0 ќЦ€  фyєыћЯyєыћЯЋ9 ~ yєыЭK!yyЖ9 tlџolџ§Щtџ ~ yєыШ… yєымmєZы~ yєыв‚ ѓы~о yєывЁ yѓДыЋ~оyєывyєывФХ yѓДыЋ~о yєыво yѓhыЋ~ф$кrU€€€ џџџџџџџџ˜$`шџџџџџџџџ$A`ь џџџџџџџџ$`№џџџџџџџџ$С`єџџџџџџџџ$`јџџџџџџџџ$A`ќџџџџџџџџ$`џџџџџџџџ$С`џџџџџџџџ$` џџџџџџџџ$A ` џџџџџџџџ$ ` џџџџџџџџ$С `џџџџџџџџ$  ` џџџџџџџџ$I `џџџџџџџџ$‰`  џџџџџџџџ$Щ`$џџџџџџџџџџ$ `(џџџџџџџџџџ$I`,џџџџџџџџџџny иии `‚€`Q‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDЁ Щ хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHё 1 рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ)dџhџ! Дhџ l ldџќ3§klџ§Ж/dџhџ<@$л dџhџ0 ќЦ@  x@ (lџ§ЖKџџ)dџhџ! Аhџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ0 ќЦР  x@ (lџ§ЖKџџ)dџhџ!  hџ l ldџќ3§klџ§Ж/dџhџ„@$л dџhџ@ ,$џџџџџџџџџџџџџџLё 1A сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP) ёq ййй `‚€ `I‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџT™ QС џџџџџџџџџџџџ0€`њџџџ` IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXё 1 тттџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\Б qй бббџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Б q вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd) ё1 ккк`‚€`Щ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh) ёQ чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlБ qy гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpБ qЁ дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtЁ Щ жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxЁ ё зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|Ё  лллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€Ё 9 мммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЖ9 $tlџolџ§Щtџ %~ yєыШ… yєымmєZы~ yєыв‚ ѓы~о yєывЁ yѓДыЋ~оyєывyєывФХ yѓДыЋ~о yєыво yѓhыЋ~ф$л d4 9 yГ~ 9 yГ~4$л ФŒ!yќ#tџxџ! Дxџ h/tџxџ!yќ#tџxџ! Аxџ h/tџxџ!yќ#tџxџ!  xџ h/tџxџ!yќ#tџxџ! Ќxџ h/tџxџџџџŒ$л џџ „ БY нннЈ§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ˆ Бq оооЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Œ Б‘ пппЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsW—зW—зW—з_Ÿп_Tшlџ $  lџ§Ж(\џ%ўЎlџќ‹(4џ%ўЎџќ‹(єў%ўЎаўќ‹DџѕѕlџB9Hџ $ № Hџ (lDџ*#џ џѕѕџB9 џ $ №  џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ № рў (lЬў*#РўФў! фФў h2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ є lџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ llDџќ3~/DџHџ$DџHџ! АHџ llDџќ3~/DџHџ$DџHџ!  Hџ llDџќ3~/DџHџ$DџHџ! ЌHџ llDџќ3~/DџHџтьџМш$hк DDџ џџџЬўШўРўHџ џрўФўlџџаў`(єы~єы~єы~єы~xџ! Дxџ hxџxџ! Аxџ hxџxџ!  xџ hxџxџ! Ќxџ hxџ (hџ§ЖєzќfXџxџ! xџ № xџ5XџќfXџxџ! ”xџ № xџ5XџќfXџxџ! ˜xџ № xџ5XџќfXџxџ! œxџ № xџ5Xџ(hџ#%  $  $($(к xџXџДx(hџxџ! мxџ є hџcXџ]ћ3xџ5hџO"єѓџє^ xџ! мxџ 0 xџs"єєѓџ^ xџ! мxџ 0 xџ4x$к xџhџHџ0 ќЦ   0 ќЦ€  H$ў €$к 0 ќЦР  x@ (lџ§ЖKџџ)dџhџ! Дhџ lldџќ3§klџ§Ж/dџhџ@$к dџhџL B~(,rU€€€ Ш™Сщџџџџq4y9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV`V0 ќЦ  4XџџџџЩ4YБиии `‚€`Q‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8YБ) ккк`‚€`Щ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<YБI ййй `‚€ `I‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@i б‘ фффž§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDЙ ёс хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH 1 рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџL Y сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP ‰ тттџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTЙ 1с бббџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXЙ 1 вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\Й 11 гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`YБY чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd QЉ џџџџџџџџџџџџ0€`њџџџ`I‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhЙ 1 дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlЙ ёЉ жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpЙ ёб зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtЙ ёљ лллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxЙ ё мммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ |9 qa нннЈ§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €9 qy оооЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „9 q™ пппЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ˆ9 qЙ уууЈ§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒYБс еее `‚€ `ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsW—зW—зW—з_Ÿп_Ÿп_Дx(hџxџ! мxџ єhџcXџ]ћ3xџ5hџO"єѓџє^ xџ! мxџ 0xџs"єєѓџ^ xџ! мxџ 0xџ4x$л xџhџHџTшlџ $ lџ§Ж(\џ%ўЎlџќ‹(4џ%ўЎџќ‹(єў%ўЎаўќ‹DџѕѕlџB9Hџ $ №Hџ (lDџ*#џ џѕѕџB9 џ $ № џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ №рў (lЬў*#РўФў! фФў h 2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ єlџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ l lDџќ3~/DџHџ$DџHџ! АHџ l lDџќ3~/DџHџ$DџHџ!  Hџ l lDџќ3~/DџHџ$DџHџ! ЌHџ l lDџќ3~/DџHџт№Мш$hл DDџ џџџЬўШўРўHџ џрўФўlџџаўPєы~єы~єы~єы~ (lџ§ЖєzќfXџhџ! hџ №hџ5XџќfXџhџ! ”hџ №hџ5XџќfXџhџ! ˜hџ №hџ5XџќfXџhџ! œhџ №hџ5Xџhџ! Дhџ h hџhџ! Аhџ h hџhџ!  hџ h hџhџ! Ќhџ h hџєџhџ! Дhџ Œ hџєџhџ! Аhџ Œ hџєџhџ!  hџ Œ hџєџhџ! Ќhџ Œ hџ$ѓџѓџѓџ^ hџ! Дhџ 0 hџ$ѓџѓџѓџ^ hџ! Аhџ 0 hџ$ѓџѓџѓџ^ hџ!  hџ 0 hџ$ѓџѓџѓџ^ hџ! Ќhџ 0 hџ(lџ#%  $ Цe$$(л hџXџ h$ў €/Hџ:Xџ%'hџ%xџ $ №xџ \Hџ§Жxџ§­ $ $ў €4h$л xџHџd,ќfXџxџ! мxџ №xџ5Xџ№$,$л xџXџH$ў €$л 0 ќЦР  x@ (lџ§ЖKџџ)dџhџ! Дhџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ@ $$л x@ (lџ§ЖKџџ)dџhџ! Аhџ l ldџќ3§klџ§Ж/dџhџ<@$л dџhџ@ ($л x@ (lџ§ЖKџџ)dџhџ!  hџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ@ ,$л x@ (lџ§ЖKџџ)dџhџ! Ќhџ l ldџќ3§klџ§Ж/dџhџin@$л dџhџ@ 0$л P  § lџB~8< $л P  § lџB~8< $л P  § lџB~4< $л P  § lџB~4< $л \yєыћЯyєыћЯЋ9 ~ yєыЭK!yyЖ9 tlџolџ§Щtџ $к  d (lџ§ЖKџџLdџhџ! Аhџ lXџѕldџ`џ $ № `џ $oXџ§klџ§Ж/dџ)hџ`џ№ $d$к dџhџ`џL B~(,$к  d (lџ§ЖKџџLdџhџ!  hџ lXџѕldџ`џ $ № `џ $oXџ§klџ§Ж/dџ)hџ`џ$d$к dџhџ`џ0 ќЦ   d (lџ§ЖKџџLdџhџ! Ќhџ lXџѕldџ`џ $ № `џ $oXџ§klџ§Ж/dџ)hџ`џklџ$d$к dџhџ`џ0 ќЦ€  0 ќЦ€  d4 9 yГ~ 9 yГ~4$к ФŒ!yќ#tџxџ! Дxџ h/tџxџ!yќ#tџxџ! Аxџ h/tџxџ!yќ#tџxџ!  xџ h/tџxџ!yќ#tџxџ! Ќxџ h/tџxџŒ$к tџxџTT84Œ„ˆdd P P < < @@Otџxџdd8ˆ„|€44 Œ Œ < < @@Oк xџФŒ!yќ#tџxџ! Дxџ h /tџxџ!yќ#tџxџTPOINT %B'. VЌД 'NnЖANGBASE %B'J . J F H !P%R'LЖ LASTPOINT L B@Toџџ0 Z ЌД'X–xЌЌ+F]ЮЌђ ]ђ№џџџџ˜џџџџ№–(odA@Ъ]ђ0oџџ– „B@ќoџџk– |џџџџ <!Є!ЬЗe = "MoэЖSSet !ј%њ.„.џ ўўШl = "EA@аoџџџџp] ђ`џџџџшџџџџ џџџџшџџџџPџџџџэЖSSet !ј%њ.„.џ ўўЌ „!Ќ ’ . : ў „%B@. „B@ќџ ўўШэЖSSet !ј%њ.„B@ kџџџџpџ ўўЌ „!Ќ ’э ў „%! ў2 . : ў$B@A@вA@дџџџџ0 <!ž!ЬЗœ ў <!Ђ!ЬЗeў$џџџџ˜oџџџџџџ џџџџиџџџџџџџџАџџџџџџџџ џџџџјџџџџ џџџџh]ђИџџџџpџџџџ8џџџџРџџџџШџџџџЈ џџџџрЌ'dџџџџ№ pЌ 'p]ђЈ]ЮЌђpF dЌœЗ <!(Ьџџџџџџџџэ . !4%n.fэ : !4%n.f dЌeElsekЌ$:Ќ+tЌ$:Ќ+tџџџџ№э : !4%n.fЌ'pЌ$: p+tЌ$: pЌ +tџџџџ <!!ЬЗœ „B@˜ext iџџџџшџџџџш џџџџ џџџџ8 э t !4%\.R]ђPoџџр ЖSSet !ј%B@ „џџџџа џџџџИ џџџџА ] ђ8] ђHџџџџ@ џџџџH Ќ$.Ќ+t0) =џџџџx џџџџј Ќ$.Ќ+tion џџџџШ џџџџ :  Ј „B@ˆ =џџџџ џџџџ( џџџџЈ џџџџ  џџџџ ў$tЌ+:o Pcџџџџ№ џџџџШ џџџџА џџџџА џџџџШ џџџџи џџџџА џџџџ№ џџџџ џџџџј џџџџ0 џџџџ8 џџџџp џџџџ  џџџџр ЖPOINTЌ+ЈPOџџџџX џџџџ0џџџџ0 џџџџ џџџџ( џџџџ(ЖPDMODEЌ# B@TџџџџP џџџџ8џ ўўЌ pЌ• T ўЌ $tЌ+:dd("neџ ўўШџџџџА џџџџP џџџџ  џџџџˆ џџџџP џџџџˆџџџџ џџџџаxџ!  xџ 0 xџ$ѓ€ѓ€ѓ€^ xџ! Ќxџ 0 xџЌ$к xџФŒ!yќ#tџxџ! Дxџ h /tџxџ!yќ#tџxџ! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$к tџxџ@PP„€tŒ<< 8 8 p p 44/џџџџаџџџџџџџџИџџџџРџџџџџџџџиЖPDMODE Ќ B@TџџџџР џџџџXџџџџР fB@ЂB@ЦџџџџшџџџџРџџџџPЖSSet !ј%B@ t & џџџџ џџџџШ џџџџ˜ џџџџ ЖPDMODE %B'Ќџџџџ( <! !ЬЗeative.џџџџˆ џџџџР џџџџHэ . : !4%D.6џџџџ ]ђИ] ђџџџџ` џџџџp џџџџ(џџџџ $N'FAnџџџџш iрdegrees to radiansiрradians to degreesэЖSSet !ј%.„џџџџ џџџџА ]ђˆђАWpЌ pсtntџџџџX Ќ „!Ќ с˜џџџџx џџџџ Ю pс@tHџџџџ џџџџ˜џџџџ` ]ђаџџџџ  џџџџ@џџџџ@ ]ђрџџџџ№ –x џџџџX $A@@џџџџш р/ VBA for AutoCAD 2002: Writing AutoCAD Macrosр Jeffrey E. Clarkр# Copyright 2002 Prentice Hall PTRрJ This software may be freely copied and used so long as this disclaimer,рK together with the above copyright notice, are included in all copies andрL any accompanying documentation. These example programs are made availableрK "as-is" without any explicit or implied warranty. Neither the author norрG publisher warrant that these programs are error free or will operateр without interruption.р Example 14-1.р Example 14-2.р Example 14-3.р Example 14-4.р Example 14-5.р Example 14-6.р Example 14-7.џџџџрA This procedure may be used to ~ yєыШ… yєымmєZы~ yєыв‚ ѓы~о yєывЁ yѓДыЋ~оyєывyєывФХ yѓДыЋ~о yєыво yѓhыЋ~єhџ! Дhџ Œ hџєhџ! Аhџ Œ hџ$ѓ€ѓ€ѓ€^ hџ! Дhџ 0 hџ$ѓ€ѓ€ѓ€^ hџ! Аhџ 0 hџџ\$л hџрЌ 9 yГ~ 9 yГ~єxџ!  xџ Œ xџєxџ! Ќxџ Œ xџ$ѓ€ѓ€ѓ€^ xџ!  xџ 0 xџ$ѓ€ѓ€ѓ€^ xџ! Ќxџ 0 xџremove an existing selection setрF resulting from the unexpected termination of any of these examples.џџџџ8]ђрџџџџ@џџџџпЖAttribute VB_Name = "Relative" Option Explicit @ ' АA for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice H€all PTRoThis software ma y be Oely copied€ and us so lo…as t6discl@aimer,ttogether with€e a0bove$Fno B, 6inclФud€+in J7s7ƒ&any a`ccomp€~d0ocum€cЁon. These example €program€‚cd€=vailable! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$к tџxџ@PP|4ˆŒ<< 8 8 p p tt/yГ~ 9 yГ~єxџ!  xџ Œxџєxџ! Ќxџ Œxџ$ѓ€ѓ€ѓ€^ xџ!  xџ 0xџ$ѓ€ѓ€ѓ€^ xџ! Ќxџ 0xџЌ$кxџ!yќ#tџxџ! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$л tџxџ8PPŒˆ€„`` D D < < @@/\$к hџрЌ 9 yГ~ 9 yГ~єxџ!  xџ Œ xџєxџ! Ќxџ Œ xџ$ѓ€ѓ€ѓ€^ rU€€ x ˜Ииј!a9€„aи qˆЈ‘Шш9ЙЙq yˆ 9Љ™‰БйЙџџџџa4с™ чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8БЙйфффž§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<с™ еее `‚€ `Щџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@с™) иии `‚€`Q‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDс™Q ййй `‚€ `I‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHy йЁ хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLЩ љё рррџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP A џџџџџџџџџџџџ0€`њџџџ` IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTЩ љ тттџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX1 9Y бббџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\1 9 вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`1 9Љ гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd1 9б дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhy й жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџly й1 зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpy йY лллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџty йy мммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ x™ YС нннЈ§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ |™ Yй оооЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €™ Yљ пппЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „™ Y уууЈ§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆЩ љA сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒс™q ккк`‚€`Щ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsW—зW—зW—з_Ÿп_Tшlџ $  lџ§Ж(\џ%ўЎlџќ‹(4џ%ўЎџќ‹(єў%ўЎаўќ‹DџѕѕlџB9Hџ $ № Hџ (lDџ*#џ џѕѕџB9 џ $ №  џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ № рў (lЬў*#РўФў! фФў h2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ є lџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ llDџќ3~/DџHџ$DџHџ! АHџ llDџќ3~/DџHџ$DџHџ!  Hџ llDџќ3~/DџHџ$DџHџ! ЌHџ llDџќ3~/DџHџтьџМш$hк DDџ џџџЬўШўРўHџ џрўФўlџџаў\$єы~єы~єы~єы~xџ! Дxџ hxџxџ! Аxџ hxџxџ!  xџ hxџxџ! Ќxџ hxџєzєzќfXџxџ! xџ № xџ5XџќfXџxџ! ”xџ № xџ5XџќfXџxџ! ˜xџ № xџ5XџќfXџxџ! œxџ № xџ5Xџ(hџ#%  $   e $$$(к xџXџДx(hџxџ! мxџ є hџcXџ]ћ3xџ5hџO"єѓџє^ xџ! мxџ 0 xџs"єєѓџ^ xџ! мxџ 0 xџ4x$к xџhџHџ0 ќЦ   0 ќЦ€  H$ў €$к 0 ќЦР  p8єы~Kџџ$tџxџ! Дxџ lltџќ3~/tџxџЛ8$к tџxџLy~( d4 9 yГ~ 9 yГ~џ4$к ФŒ!yќ#tџxџ! Дxџ h/tџxџ!yќ#tџxџ! Аxџ h/tџxџ!yќ#tџxџ!  xџ h/tџxџ!yќ#tџxџ! Ќxџ h/tџxџŒ$к tџxџPP8„€x|ŒŒ D D < < @@OhџрЌ 9 yГ~ 9 yГ~єxџ!  xџ Œ xџєxџ! Ќxџ Œ xџ$ѓ€ѓ€ѓ€^ xџ!  xџ 0 xџ$ѓ€ѓ€ѓ€^ xџ! Ќxџ 0 xџЌ$л xџФŒ!yќ#tџxџ! Дxџ h /tџxџ!yќ#tџxџ! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$л tџxџ8PP„€x|ŒŒ D'"as-ˆis"‚Mout€3жyƒО €Иi#w„ranty. Nec€fi auDthnorƒ&p ublis‚uarswaty€IŠEeœrrTAwiР_РoperatФ%СJ‘С#int€ up… .…gED714-1Const PI@“3.14159265358979 Dim @i As IРge€*APDmodsŽLWPolyф()Do€3Р# newObj(),€‰@xtСVariРDCSelSe!‚Acad@ecС,РA-PFc Ppcoun Ц"EstР>AMAnglМe1AХ#„ 2рDistHQ U ЊXU XU YU YQ №PTba@р0ц&ƒF…Ј92Ђ9Sub e‚А() €€omE`.ShowЃ@_ #ƒЃPTТ4=bisDrawa`e.Get‚Р_("LASTPOIHNT"d IfЪ optButtonAЁ†.ValuЁ•TіrР€lnУ aс!ЃElseЕ LidneП veсП M3 ‰П veсП Pl?ŸtџxџPP8Œˆ€„`` D D < < @@Oxџ! Дxџ h/tџxџ!yќ#tџxџ! Аxџ h/tџxџ!yќ#tџxџ!  xџ h/tџxџ!yќ#tџxџ! Ќxџ h/tџxџџџџŒ$л tџxџPP8Œˆ€„`` D D < < @@OO/BЕч #a!Ex8it 8d€ЄIfcЃO€ЛBResћР– ‰x М!aЎх4Щgs.Item("S@i").DelКe„E@ т ŽH3‚H№Priv!j`†I {J  Р СkDkA\ddEc.ЃO@nScreedAF… ši@0 Tod Ф.C~- 1Ѓу$Ђi).€Šc…‹cNext iќ (‘ЁNŸ &х‘Ьs.Ÿ‡ReШŸ2OЄgПpt ФTi~)Рм74б†_sЏd#_ƒHE4џ e‡ї!6ЅQaU!\Бƒ1"Ѓ›"Mod@_Аpaceё(CNпuo*ryk5o d —Т5u `DPГa= рŽhХ&сфd= 3ƒ ?2Х'Дnл КPPD№MODE…Pqы8fS„ "Є, 35WfrчYtglReаtain"SsкIЧ1збPTm€šхќPo c(дyb(УŸФ'бХQ%s(0яz1ш1шA_lоSUb dЯ2У‘gёПy(3шПвПППсИ—dgі"1б ЧˆjіrU€€€ џџџџџџџџ@ntџџџџџџџџБnџџџџџ$`№ џџџџџџџџ$С`єџџџџџџџџ$`јџџџџџџџџ$A`ќџџџџџџџџ$`џџџџџџџџ$С`џџџџџџџџ$` џџџџџџџџ$A ` џџџџџџџџ$ ` џџџџџџџџ$С `џџџџџџџџ$  ` џџџџџџџџ$I `џџџџџџџџ$‰`  џџџџџџџџ(Щ`$џџџџџџџџџџ‘/( `(џџџџџџџџџџЉ/(I`,џџџџџџџџџџС/(‰`0џџџџџџџџџџй/$Щ`4џџџџџџџџџџ$ `8џџџџџџџџџџ$I`<џџџџџџџџџџn хххџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH1 QY рррџџ D < < @@Otџxџ8ŒŒ€|tx„„ 4 4 < < @@/<”” H H 8 8 DD/џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџL1 Q сссџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP1 QБ тттџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTс qсбббџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXс q вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\с q1 гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhс qi дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlс 1‘ жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpс 1Й зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџtс 1с лллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxс 1мммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ |!БIнннЈ§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €!БaоооЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „!БпппЈ§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ˆ!БЁуууЈ§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒy ёЩеее `‚€ `Щџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4y ёЁ иии `‚€`Q‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`y ёY чччџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsW—зW—зW—з_Ÿп_Ÿп_Дx(hџxџ! мxџ єhџcXџ]ћ3xџ5hџO"єѓџє^ xџ! мxџ 0xџs"єєѓџ^ xџ! мxџ 0xџ4x$л xџhџHџTшlџ $ lџ§Ж(\џ%ўЎlџќ‹(4џ%ўЎџќ‹(єў%ўЎаўќ‹DџѕѕlџB9Hџ $ №Hџ (lDџ*#џ џѕѕџB9 џ $ № џ (l џ*#џ*#ШўЬўѕѕаўB9рў $ №рў (lЬў*#РўФў! фФў h 2Dџџ џџШўЬўРў)Hџ џрўФў6lџџаў(lџHџ! мHџ єlџc\џ]ћ3Hџ5lџй$DџHџ! ДHџ l lDџќ3~/DџHџ$DџHџ! АHџ l lDџќ3~/DџHџ$DџHџ!  Hџ l lDџќ3~/DџHџ$DџHџ! ЌHџ l lDџќ3~/DџHџт№Мш$hл DDџ џџџЬўШўРўHџ џрўФўlџџаўPєы~єы~єы~єы~ (lџ§ЖєzќfXџhџ! hџ №hџ5XџќfXџhџ! ”hџ №hџ5XџќfXџhџ! ˜hџ №hџ5XџќfXџhџ! œhџ №hџ5Xџhџ! Дhџ h hџhџ! Аhџ h hџhџ!  hџ h hџhџ! Ќhџ h hџєџhџ! Дhџ Œ hџєџhџ! Аhџ Œ hџєџhџ!  hџ Œ hџєџhџ! Ќhџ Œ hџ$ѓџѓџѓџ^ hџ! Дhџ 0 hџ$ѓџѓџѓџ^ hџ! Аhџ 0 hџ$ѓџѓџѓџ^ hџ!  hџ 0 hџ$ѓџѓџѓџ^ hџ! Ќhџ 0 hџ(lџ#%  $ $$(л hџXџ h$ў €/Hџ:Xџ%'hџ%xџ $ №xџ \Hџ§Жxџ§­ $ $ў €4h$л xџHџd,ќfXџxџ! мxџ №xџ5Xџ№$$,$л xџXџH$ў €$л 0 ќЦР  x@ (lџ§ЖKџџ)dџhџ! Дhџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ@ $$л x@ (lџ§ЖKџџ)dџhџ! Аhџ l ldџќ3§klџ§Ж/dџhџИQ@$л dџhџ@ ($л x@ (lџ§ЖKџџ)dџhџ!  hџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ0 ќЦ@  x@ (lџ§ЖKџџ)dџhџ! Ќhџ l ldџќ3§klџ§Ж/dџhџ@$л dџhџ0 ќЦР  P  § lџB~8< $л P  § lџB~8< $л 0 ќЦР  0 ќЦ   0 ќЦ€  рЌ 9 yГ~ 9 yГ~єxџ!  xџ Œ xџєxџ! Ќxџ Œ xџ$ѓ€ѓ€ѓ€^ xџ!  xџ 0 xџ$ѓ€ѓ€ѓ€^ xџ! Ќxџ 0 xџЌ$л xџФŒ!yќ#tџxџ! Дxџ h /tџxџ!yќ#tџxџ! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$л tџxџ@ddˆ„|€<< 8 8 Œ Œ 44/PP„€t"„+ 2 БјserаЉд“ŸЗ€M/ ћ€>Pyў(а>™55|г№.Updp^w ч‘ч\xП)S}Fa{мсџq) aqvAЂ;$—Ѕ_WLёЧWeQћЁІ(pPЇ<ё/џѓR№џrг@я]2ёб gpC`Kа)ё ЖІ‡&€SDataTGіšYw= 0k g~pХРн– Њb”$SXtepщ(ЕPc#0ѓa&c(iTЙа%ёe + й&g`™ КAtв%є, c q1 k Ѕf…qФEюrА­лTiaзTcYПWБbе’ЕqoŽ №cR6џcelвА(вА3TЃP #А‰А вХ3A"eЧсT= D2tR(Т2dc ’Bpzero‘Š#ЁPёБTpolar As Variant ABzero = ThisDrawin g.Getble("ANGBAаSE")`P bUtility.PШPoint(PTbase, Т+ Angle3, DistH3N vSv "LASTЌ$л xџФŒ!yќ#tџxџ! Дxџ h /tџxџ!yќ#tџxџ! Аxџ h /tџxџ!yќ#tџxџ!  xџ h /tџxџ!yќ#tџxџ! Ќxџ h /tџxџŒ$л tџxџ@ddˆ„|€88 < < Œ Œ 44/POINT", s End Sub  'МExample 14-7.Function D2R(DeЂgюDouЧ) ƒc€€z/ 18€0) * PI1#€1 'degrees to (rad€sŠ5R2рD(Rad˜5€5§/25€8’505;5v” procedure may be usedLemoveР an ex€Џ€т seleƒ†se€іСresultfrom thanexpР e rminaPof™Рy € se@M‚Zs‚Y€` S@kD@te(„rDim0 SelРBAcќad@C РC]Ф ‰ s.Itemќ("…Ы‰6@Ы .C$CVŠN0{8E75D913-3D21-11D2-85C4-080009A0C626} шџџџџXPџџџџџџџџџџџџxџ@џџџџt„ џџџџџџџџ„OS€ўџџџџџџџˆџџ`џџџџџџџџ%ƒўџџџџџџџРџџџџџџџџџџџџџџ %‚ џџџџўџџџ№џџўџџџџџџџџџџџ %џџџџџџџџјџџџџџџџџа˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`„џџџџxџџџџџ€џџџџџџџџHџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџШ˜@ttџџџџџџџџџџџџџџџџџџџџџџ–q=$*\Rffff*193d711a3dпџџџџ4ўЪ€џџџџЭџџxџџџџ`џџџџџџџџЮАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit