аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№„дАџџџџ0!4!џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ$<џџJ< џџ<џџџџџџџџџџHh„џџџџџџџџџџ/Eh„џџџџџџџџџџN1h„џџџџџџџџџџh„џџџџџџџџџџ  Јџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0„ „"џџџџџџџџИpoin% „&џџџџџџџџ№и „(џџџџџџџџ(s ba`„*џџџџџџџџ џџ Pub`„,џџџџџџџџ џџ_Clo`„.џџџџџџџџџџ7 `„0џџџџџџџџ џџd us`„2џџџџџџџџџџting Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ-„ „"џџџџџџџџџџџџ% „&џџџџџџџџ8loud  „Root Entryџџџџџџџџ ъ,нVЩVBA_Projectџџџџ -hгжЛС ъ,нVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ -hгжЛС№ъ,нVЩ§џџџўџџџўџџџ "ўџџџџџџџџџџџ#ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@AўџџџCDEFGHIJKLMNOPQSўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{097FE897-279B-11D6-B119-0004761254F9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9C9E04310C3C103C103C103C10" DPB="A3A13B3E433F433F43" GC="AAA8324738483848C7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=66, 66, 647, 566, Z Z Module1Module1PROJECTwmџџџџџџџџџџџџR>PROJECTџџџџœThisDrawingџџџџBModule1 џџџџџџџџ2#_VBA_PROJECTџџџџџџџџџџџџЮ dirџџџџџџџџџџџџlџџџџџџџџџџџџџџџџџџџџџџџџhВ€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-02608C4D0BB4 Dindows\system32\FM20.DLL#Mic€rosoft ‚:" €] Ob­ Library/њ;D1€„€tˆ€Aˆ€00}#0‚€#Ѓ€0€r€ 8FA957A7-2699-11D6-B1194761254 F9PРOP\VB„E\„G.EXD /€с.E р….`ŒM ДС™Т”Т0!Т–ThisDrawingG€Thi€^Dra‚wРng Š2 €HB‚1ЁEBE,B 2!"B+Bƒ‚oduleT1G„‚o@ЅuBЅ17@ ТŠ2OЃQO4!!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{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{8FA957A7-2699-11D6-B119-0004761254F9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ@›v<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0!ThisDrawing0G4abdd041џџThisDrawingџџ2!EџџModule10H4abdd041џџModule1џџ4!Ѓџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ5†аh-жIЛW9‰л!‚џџџџБэLСоНHЉЁ823эњџџџџџџџџ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џџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ((џџџџџџџџp AutX`„*џџџџџџџџ џџn;ad`„,џџџџџџџџ џџ gp`„.џџџџџџџџџџion `„0џџџџџџџџ џџ# `„Fџџџџџџџџ џџActi „Hџџџџџџџџ%`„Lџџџџџџџџџџided`„NџџџџџџџџџџurpoџџџџИџџ`џџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп"ўЪ€ € € € 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.esр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.> !4%6'*Ќ$*Ќ+&FЌ$*Ќ+&Ќ$*Ќ+&FЌ$*Ќ+&э & !8%:."Ќ  "B@<Ќ   "B@>Ќ'.З'0_џџјаЖSelect end point>> !4%6',€Ќ$,Ќ$*Ќ$,Ќ$*œЗ'0dџџˆЌ$,Ќ+(FЌ$,Ќ+( . ( "B@@ .  "B@< .   "B@> .Ќ '.kџџј 0ЗКЗ "(BoџџарL This routine allows configuration of revision cloud settings. The settingsр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 thatрM subsequent calls to ad_Cloud, in the same session, will use the settingsр specified by ad_CloudSet.р# It was developed in AutoCAD 2000.р1 Demand load: -vbarun;ad_Cloud.dvb!ad_CloudSet;–Ј]ђш]ЌЌђ]ЌЌђ@]ђx]ђ]ђЈ]ђР]ђи]ђ№]ђ]ђ(ЩpЗЖ$pecify or nherit Properties>> !4%P'L L$RЖSœЗЖ"Specify Bulge Factor(0.01-1.00)>> !4%P'N NЖ#.###$Ќ'N N'ЗЖSpecify Segment Start Width>> !4%P'N NЖ#.###$Ќ'N NЖ.›GЖ0.001'Nj N'ЗЖSpecify Segment End Width>> !4%P'N 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{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizThisDrawingThisDrawingModule1Module1D2Option /licit