аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№„дАџџџџ0!4!џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ$<џџJ< џџ<џџџџџџџџџџHh„џџџџџџџџџџud.dh„џџџџџџџџџџh„џџџџџџџџџџvbh„џџџџџџџџџџј#  Јџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0„ „"џџџџџџџџИpoin% „&џџџџџџџџ№и „(џџџџџџџџ(s ba`„*џџџџџџџџ џџ Pub`„,џџџџџџџџ џџ_Clo`„.џџџџџџџџџџ7 `„0џџџџџџџџ џџd us`„2џџџџџџџџџџting Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ-„ „"џџџџџџџџџџџџ% „&џџџџџџџџ8  „Root Entryџџџџџџџџаѕ#zЇыХVBA_Projectџџџџ -hгжЛСаѕ#zЇыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ -hгжЛСаѕ#zЇыХ§џџџўџџџўџџџ "ўџџџџџџџџџџџ#ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@AўџџџCDEFGHIJKLMNOPQSўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{097FE897-279B-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E3E17B6B896F896F896F896F" DPB="F5F76D9D6DAE6EAE6EAE" GC="07059F8FA3B3B4B4B4B44B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=66, 66, 647, 566, Z Module1Module1PROJECTwmџџџџџџџџџџџџR>PROJECTџџџџ ThisDrawingџџџџBModule1 џџџџџџџџ2#_VBA_PROJECTџџџџџџџџџџџџЮ dirџџџџџџџџџџџџeџџџџџџџџџџџџџџџџџџџџџџџџaВ€0* pH‚dф ACADProject8@е = t  @›v<( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^€MSForms>BSFEr@ms3€DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E‚: €] Ob­ Library/є;D1€„€tˆ€ƒˆ€00}#0‚€F#€0€r€ 8FA957A7-2699-11D6-B1194761254F9P.РOP\VBE\„G.EXD /€с.E р….`Œ(M ДС™Т”"Т0!Т–ThisDrawingG€Thi€^DrawРng 2 €HB1ЁE‹B,B 2!"B +Bƒ‚odulЈe1G„‚o@ЅuBЅn1@ ТŠ2OЃЂO4!!HТ\G{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{8FA957A7-2699-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ@›v<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0!ThisDrawing0444e5c51bџџThisDrawingџџ2!EџџModule10544e5c51bџџModule1џџ4!Ѓџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ%Вю'џw–IКШѓg№К№Єџџџџ>N3п:ѓFНж*hЎчџџџџџџџџH€./џќ*AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b SegmentBulge\SegmentStartWidth~ЛSegmentEndWidthй˜CustomSettingsДad_Cloudе CloudSegmentЉиAcadLWPolylineбDrawPntsж€NextPnt\-StartPnt#ФEndPnt>Нi` EndIsStartц inputStringcЪUtility1JGetPoint/А ModelSpace_жAddLightWeightPolylineƒSetBulge;OSetWidthH AddVertexF{Closed,љ ad_CloudSet№basePntyv sourceCloud(œ AcadObjectЅ CloudOptionЦžHoldValB~ GetStringуЄUCase5  GetEntityˆ ObjectNameуФGetBulge]fGetWidthЃ_ AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $џџџџЫ?0!2!џџ#ˆЖџџ№ФдџџџџЫ?0!2!џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ((џџџџџџџџpX`„*џџџџџџџџ џџ`„,џџџџџџџџ џџ`„.џџџџџџџџџџ`„0џџџџџџџџ џџ`„Fџџџџџџџџ џџ „Hџџџџџџџџ%`„Lџџџџџџџџџџ`„NџџџџџџџџџџџџџџИџџ`џџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп"ўЪ€ € € € R € Vx€ а€ Jи€ B(€ >p€ @А€ >№€ 0€ 48€ 4p€ Ј€ А€ Ш€ *а€ € J€ JX€ :Ј€ Nш€ >8€ Px€ PШ€ .€ џџџџ€H€P€X€`€h€ џџџџ"p€x€€€€ €Ј€А€И€Р€ џџџџШ ар№.,H,xЈРи€ џџџџ№ј,08hp,xЈРи№  (€ џџџџ€ R0€ Pˆ€ Tи€ T0 € $ˆ € *А € 8р € џџџџ" € €( €8 €H €P €X €` €h €p €x €€ € џџџџˆ < а :ш ( @ 6H €  ˜ И 4Р ј   0 Z8 &˜ Р Ш 2р  8 P h p €    Ј А И Р € џџџџџџџџа рр ad_CloudррK The cloud is created by selecting points in a counterclockwise direction.рO The command ends when the user repicks the start point to close the cloud.ррC This routine creates polyline revision clouds based on predefinedџџџџџџр; settings and uses Public variables. If ad_CloudSet hasџџџџџџр7 been run, ad_Cloud uses the specified settings. Ifџџр9 ad_CloudSet has not been run, ad_Cloud uses its own,р8 predefined settings. See the ad_CloudSet sub below.рр. It was developed for AutoCAD 2000 and above.р. Demand load: -vbarun;ad_Cloud.dvb!ad_Cloud;рр version 1.00рр# CopyrightЉ2000-2006 ActiveDwg.comррC This routine is provided for demonstration purposes only and mustрC not be used for critical applications without your verificationр3 that this routine will perform as you intended.рG This routine may be freely utilized for your own personal use so longр8 as the entire contents of this header remain intact.рJ 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.ЭџџА] ђ] ђ] ђ0] ђH–`]ђ ]ЌЌђР]ЌЌђј]ђ0]ђH]ђ`]ђx]ђЩ0 ЌœДш?'Д'Д'kџџшаЖSelect start point>> !4%6'*Ќ$*Ќ+&FЌ$*Ќ+&Ќ$*Ќ+&FЌ$*Ќ+&э & !8%:."Ќ  "B@<Ќ   "B@>Ќ'.З'0_џџјаЖSelect end point>> !4%6',Ќ$,Ќ$*Ќ$,Ќ$*œЗ'0dџџˆЌ$,Ќ+(FЌ$,Ќ+( . ( "B@@ .  "B@< .   "B@> .Ќ '.kџџј 0ЗК\miЗ "(Bft oџџарL This routine allows configuration of revision cloud settings. The settingsproрI may be specified at the command prompt or by inheriting the settingsрM from an existing cloud. It uses Public settings variables to ensure thata~рM subsequent calls to ad_Cloud, in the same session, will use the settingsltр specified by ad_CloudSet.liр# It was developed in AutoCAD 2000.autр1 Demand load: -vbarun;ad_Cloud.dvb!ad_CloudSet;–Ј]ђш]ЌЌђ]ЌЌђ@]ђx]ђ]ђЈ]ђР]ђи]ђ№]ђ]ђ(ЩpЗЖ$pecify or nherit Properties>> !4%P'Lil L$RЖSœ 2ЗЖ"Specify Bulge Factor(0.01-1.00)>> !4%P'Ntoc NЖ#.###$Ќ'N N'ЗЖSpecify Segment Start Width>> !4%P'Ne NЖ#.###$Ќ'N NЖ.›GЖ0.001'Nj N'ЗЖSpecify Segment End Width>> !4%P'Nra NЖ#.###$Ќ'N NЖ.›GЖ0.001'Nj N'ЗЖASpecify Drawing Direction - Counterclockwise Clockwise>> !4%P'N N$RЖCW›GЌ  'jЌ' L$RЖIe H FЖSelect cloud to match>> !4B@T H!VЖ AcDbPolylineœЌ H%X'Ќ   HB@ZdџџДш?'Д'Д'kџџXЌ'kџџHA oџџ8џџџџ0џџџџеЗAttribute VB_Name = "Module1" ' ad_CloudiFр{€Is“‚ Bo`2anхРinputS ШРО #aOn E„rrРEResu€ЫAс І '<> 1сРт  •(8= 0ј.75сЂЃ2 ў#jР+`ДaТe=` isa,Ре.UtтT.GetPA!з(, "S‚й aшЭ>> "ƒ8F3)ƒРхe (0): І6Љр1= F1ы2ї?=юaРŠFЋРѕelSpace.AdddLЈWeЁEJ(7ЅЂ) .@ S21,џ:СC‡в BЖзЅс1i№2€%$= Falsв8фDoБ аOOяFРT#€& Axcpы[PFd$(m('bёG Tru2 `д Qcч67і: uђtCQš0Vert`ex i,uc ŸЊAЗpMЯntСїѓЧџt R%ёрi + 1р„2@Loop UPelџ‘_ Рё“P)2QшSubP'Б`\] alР†0ЃonfiЬgudzР_re ™X‹ї‘Ёх‘дa $sї“"x`žcЄmptAj0Љiјnhe‘}аIB—Є–ЕfroPzn exмis\Ё€˜tƒšФž%WŸСЇensur=Q•apU  •seTquРg А„l0Ћo§ІŸ,ёАBqЖp‰A@uчƒApџ GА Ѕdџ@;C|оš@~ЩšS/š/šчОPš рf 0џПkсuС`ПkбeVPПk0xџv4Сm@3cGzТ+ПAAПk1Пkmй+_МkqПЏЁs№žcЦeR.eObj`Ы2oЂˆ€SpХHpoldV№šŠ@ і !_qx‚y9+^ИP“(2T`jrФ"yё.у. P‚rаЛrties&Ri0wUC€Ю(hQL"ќS"XPЅ џ€œrќSдSdF№Ѕor(@0.01-1аН)Z—Format(@ #.###ЯГuЎTq Ф№]пAДa&ь{п 0жyЅmyў "PŸ PŸ ™ Ќ".c8 "p0aѓџЁ[GXрдП Џˆ ˆџП К aVŸ ƒ'0v?8– ГБl = "." Then HoldVa0.00 1" SegmentEndрWidthФ xjThisDrawing.Utility.GetStr"(False, "Spe cify R Direction - Countercl€ockwiseW>C >> ")xIf UCa(se()ЫCWƒЬЕBulge0] BCust@omSett€Psu1 ET.€BФyё.у. Pr Лr0ties&R0wUCPЮ(hQL"S"XPпЅ џ€œrќSдSdF№Ѕor(0.0h1-1PО)Z—FРormat(@ р#.###ГuЎTљq Ф№]AДa&ь{лп жyЅmy "PŸ ŸPŸ ™ ".cѕ8 "p01ѓЁ[GXџрдП Џˆ ˆП К aV?Ÿ ƒ'0v?8™ ГБ "." Then HoldVal = "0.0@01" SegmentEnРdWidthx xдThisDrawing.Utility.GetStr"(False, "Sp@ecify R Direction - CounterclockwiseW>C >> ")xIf UCPase()ИCWЬЕBulge0] BCus€tomSett€Pъs1 ET.€<АudOpP0Iƒ/#ƒ”xEnt€} s ource , "b€TPnt€elx pud toР matchkƒ)C€<.Obj€Namb"AcDbPolyliney D Œw !€Сƒ(:1„œ Mбv1,СEStart†…)HCN0.7n5Œ‡Ab#L–0cФ€ IfУ дhndDCall a$d_ТY Sub 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’BustomizThisDrawingThisDrawingModule1Module1D2Option /licit