аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ@Є)œЉxШРVBA_Projectџџџџ@Є)œЉxШ@Є)œЉxШVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ@Є)œЉxШ@Є)œЉxШџџџџџџџџ§џџџўџџџ ўџџџ ўџџџ !ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ ўџџџ!"#$ўџџџ&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNўџџџPўџџџRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{EE7B49CC-DA74-4448-9C98-457F60441A88}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6C6E852C7BA37FA37FA37FA37F" DPB="E7E50EB5F24B6C4C6C4C6C" GC="62608B3207330733F8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 58, 1317, 711, Z ThisDrawingThisDrawingPROJECTwmџџџџџџџџџџџџ&PROJECTџџџџzThisDrawingџџџџ џџџџ__SRP_2 џџџџџџџџQl __SRP_3 џџџџOg_VBA_PROJECTџџџџџџџџџџџџ%B dirџџџџџџџџџџџџ =__SRP_0 џџџџ D__SRP_1џџџџџџџџџџџџfџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€€~} џџџџџџџџџџџџ  ЩЉp“K*mџџџџrU€€€€~~~~~~~h ё_7тƒ+4OœЦУEGQ% фџџџџƒ E !џџџџљџџЙБЩЉ ThisDrawingModule1 ACADProjectяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 9Ё`aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD џџџџ1Бp0РFC:\WINDOWS\system32\stdole2.tlbstdole !џџџџI‘€YjЖє AЖ—ˆk,_Й"ЊA ПAŸО< ЌЫЙJ•ЛЋzОyL€$ыjђq#{MЏтІРCƒхIП“ГДЦШKЇLIŽц#s\Ы AcadDocument CreateBottle @bPbЉCмMŸЦ…;ЙИ1UЄgиFЌ™јЇЄТ) ЛWЊ9JЇq홇‰ ї Pedit   Multiple All Join 1 C Revolve 0,0,0 0,100,0 360VBE6.DLL Qџџџџ` P7.ІX жGИKуу7хЂв™ЊЗ(љРGL™^Šr–Ё|Cћ.ФOˆюњPўqG 1џџџџ Аm9Б€0* pH‚dф ACADProject8@е = t  пkAI( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE AutomatXion0tD‚БиxThisDrawi ngGTJisDrawinЈg 2#(H‚1‚Œ“X‚ ,‚@РtY"‚+‚€Ь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 2008 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation џџџџџџџџпkAIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБиThisDrawing0n49416beeџџThisDrawingџџРY“џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd;Й* I } Єт›фџџџџџџџџ`€:;џ,AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZModule1btest4Ћ „џInsertblockcN blocknameBpntАФpnt2ЁФprompt1,<vbCrLfЏЌ€џUtility1J€џGetPoint/А blockRefObj_Т €џModelSpace_ж€џRotate€џGetAngleЛR€џџџ_B_var_prompt1А?€џџџ_B_var_blockRefObjСГSendKeysN €џApplicationЅ*€џActiveDocumentг\ €џSendCommandcњChrK~vbCr$ CreateBottleзlineObjmЙ€џAcadLinee lineStart… lineEndЉ…cpд\€џAddLine8myarcљ`€џAddArcЊ_SendЭф€џZoomAllm$ _B_var_Chr\; €џџџ_B_var_myarcц$€џViewsTavtive(€џActiveViewportп addviewПя NewDirectionое €џDirectionс&activev%3zoomaкq €џџџ_B_var_zoomaЧ5€џZoom‚all't €џџџ_B_var_all81џџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ rU€€€ џџџџџџџџ@$`џџџџџџџџџџnrU€€€ 0@ Ai‘Йсљ1Qy‘ qЉй1сY11Yџџџџ 4Љaбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\hєыѕ`џІєыѕ`џІєыѕDџІєxыѕDџІ=ќўDџMџ %`џMџ % џ$  џ lќў=xџ) џќўє ыѕ`џІєxыѕ`џІєыѕDџІєxыѕDџІ=ќўDџMџ %`џMџ % џ$  џ lќў=xџ) џќўє ыѕ(џІњ`]@ѕ(џІgќўєZыњz‹ќњ! @Гњ€f@Ж9єІыњz‹ќњ! @Гњ€f@Ж9і@(џMџ % џ$  џ |Qќўќќьў џє ыѕ(џІєrыѕ(џІcќўѓыњz‹ќњ! @Гњ€f@Ж9єZыњz‹ќњ! @Гњ€f@Ж9єы9(џMџ % џ$  џ |Qќўќќьў џє ыѕ(џІњ [@ѕ(џІgќўєZыњz‹ќњ! @Гњ€f@Ж9єІыњz‹ќњ! @Гњ€f@Ж9і@(џMџ % џ$  џ |Qќўќќьў џє ыѕ`џІєlыѕ`џІє ыѕDџІєFыѕDџІ=ќўDџMџ %`џMџ % џ$  џ lќў=xџ) џќўє ыѕ(џІє7ыѕ(џІbќўєZыњz‹ќњ! @Гњ€f@Ж9єыњz‹ќњ! @Гњ€f@Ж9єы9(џMџ % џ$  џ |Qќўќќьў џєыѕ`џІє7ыѕ`џІєыѕDџІєыѕDџІ=ќўDџMџ %`џMџ % џ$  џ lќў=xџ) џќўєыѕ(џІєыѕ(џІcќўєыњz‹ќњ! @Гњ€f@Ж9ѓыњz‹ќњ! @Гњ€f@Ж9єы9(џMџ % џ$  џ |Qќўќќьў џєыѕ`џІєыѕ`џІєыѕDџІєыѕDџІ=ќўDџMџ %`џMџ % џ$  џ lќў=xџ) џќўƒ*#шў*#фў*#рў*#мў*#иў*#дў*#аў *#Ьў*#Шў *#Фў*#Рў *#Мў*#Иў! h 2шўфўрўмўиўдўаўЬўШўФўРўМўИў"ѕЈў Јў§ўшў! h /шў5Јўh*#шў*#фў*#рў*#мў*#иў*#дў*#аў*#Ьў*#Шў*#Фў! h 2шўфўрўмўиўдўаўЬўШўФўєџыѕўІєыѕўІєыѕўІ$ўMџ % џ$ М  џ t џ$ џ$ М Q џ[ќў$ Р ќў $ И№hмФ(џauoca’s`џ:\rog’oьўDџ208\s’cxџўogam ’tLшўфўрўмўиўдўаўЬўШўФўРўМўИў џќўЈўXєфˆЯнБиРYџџ#ˆЖџџџџџџџџ<џџЙ"ЊA ПAŸО< ЌЫЙJ•ЛЋzОyL€$ыjђq#{MЏтІРCƒхIП“ГДџџџџџџџџџџџџx{MЏтІРCƒхIП“ГДЙ"ЊA ПAŸО< ЌЫЙJџџMEџџџџџџџџџџпџџ4џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ [LџџџџSџџџџS”џџџџ џџH>"џџџџLџџџџLџџџџPџџџџџџџџџџџџLџџџџ”џџџџLџџџџ<8џџ<<џџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџр€ўџџџџџџџ(џџџџџџџџџџ% Dџџџџ`џџџџџџџџџџџџŒўHџџџџџџџџŒCC” „Gџџџџxџџџˆџџџџ % „Jџџџџ`џџџР’Ј „LџџџџDџџџј џџ’р „Nџџџџ(џџџ џџ’ƒўџџџџџџџXџџџџџџџџџџџџџџ%‚ џџџџўџџџˆџџўџџџџџџџџџџџ%0џџџџ „fџџџџўџџа’Иџџџџ 0џџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџ`0@Œџџџџџџџџџџџџџџџџџџџџџџ˜пkAI$*\Rffff*0n49416bee*\R1*#129*\R1*#8e*\R1*#90*\R1*#b6*\R0*#e*\R0*#f*\R1*#db*\R1*#196*\R1*#17cпџџџџ4ўЪC"€ џџџџ€€€ €0€ џџџџ€ џџџџ€ &Ш @ `=€€ џџџџ€ &№   Р=р€ џџџџ€ 6&"\g(€ DИ€ џџџџ ˆTcЈ€ џџџџ&"\g(€ џџџџ ˆ Ј=Ш€ џџџџ ш<x€ џџџџ H h=ˆ€ џџџџ Ј<€ џџџџ  8=X€ џџџџ€ *Hrƒx("€ џџџџ€ *dh@€ џџџџ€ ј€(4*Р$№$Ј€ џџџџ 8€ џџџџИ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџ@–0]ђp]ЌЌђ]ЌЌђШ]ЌЌђЌЌ+JFЌЌ+JЌЌ+LFЌxЌ+Lэ J L !.%P.F8Ќ Ќ+JFЌxЌ+JЌЌ+LFЌxЌ+Lэ J L !.%P.FAnglЌ Ќ+NFД`]@Ќ+Nэ NД@ЌZДz‹ќњ! @Д€f@ЌZДz‹ќњ! @Д€f@ !.%T.RFЌ Ќ+NFЌrЌ+Nэ NЌЌZДz‹ќњ! @Д€f@ЌДz‹ќњ! @Д€f@ !.%T.RЌ Ќ+NFД [@Ќ+N!э NД@ЌZДz‹ќњ! @Д€f@ЌZДz‹ќњ! @Д€f@ !.%T.RЌ Ќ+JFЌlЌ+JЌ Ќ+LFЌFЌ+Lэ J L !.%P.FPЌ Ќ+NFЌ7Ќ+Nэ NЌЌДz‹ќњ! @Д€f@Ќ !.%T.R€f@ЌЌ+JFЌ7Ќ+JЌЌ+LFЌЌ+Lэ J L !.%P.FЌЌ+NFЌЌ+NрDefine the first 2d line pointsonр Define the second 2d line pointsЌЌ+JFЌЌ+JЌЌ+LFЌЌ+Lэ J L !.%P.F,вч ЖPedit BЖMultiple BЖAll B B BЖJoin BЖ1 BЖC BA@>ЌЌ f !b(hЌ$@A@>рClear commandline]ЌЌђ A@XЖRevolve BЖAll B BЖ0,0,0 BЖ0,100,0 BЖ360 BA@>P !b (boџџЌЌ+fFЌЌ+fFЌЌ+fwDirрSet the view to isometricр$Sendcommand to revolve the polylinesЖ{Eр#Convert Lines and Arcs to polylinesЌэ NЌЌЌZДz‹ќњ! @Д€f@ !.%T.R0,р=* 3.141592 / 180# is used to convert radial values to degrees`єч р0Define the third 2d arc points..................џџџџРџџџџъГAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizCD2Sub OeBottle() Dim lineObj As Aca dL Start(0 To 2b)Dou€s Eфndcp•#ƒ'Def? the first 2d‚O poin\tsƒXФ$)R0і:‚C1BЧ ‚%H #СТ120C Se&tТ@= H‘.Model‚|.AdѕТE(†,Т @€RRУЩ/secondН!090'С,0П0!А0thirB0arњcD`.C>СwС(Р2У€CX17.5CСX myAYXArc(cp, 2.5, -90 * 3.141592 / 180#, QD0'Ю is "ujto €1vert radial values degreeЛDK˜4_‡EE13н`7аjI2*0?*iVo?*ѓ f^(ЂPАU0О8c#ЊUфЁWТA7џmщџmnd}$5_Nˆzц4= N0!‚~b!24џNwхj!х†!ˆьne}хE1/`b.!p!@!2БS, 0џљBсaУ#Т$>Ё!?B&ЄЕ&!ПBПB\!'CŒonВ>Ёls aPXУpТ>polyсф>SendComm!"Pedit"€ & vbCr`"Multiplтe9Allш”жJ@jЩ1ЩCХuDЇChr(27)€ 'Clear JЏ q ГS'б cд €KrevolveїТr w RsЙ_ ё 0,i0,10Б,360М t‚viewQUiso4mePšcSq†NewDirecti