аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџsystem32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{44239CDD-2B09-4F7C-8223-2059C602E3C0}#2.0#0#C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџЭчд9 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~ТThisDrawing0J4abdcd4aџџThisDrawingџџpТњџџModule10I4abdcd4aџџModule1џџrТџџџџ­џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџрц<мVЩ€#VBA_Projectџџџџ0ЙQ8*РаП<мVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ бРQ8*Р@JјRлVЩ§џџџ #ўџџџўџџџ !"ўџџџ$%ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ  !"#$%&ўџџџ()*+,-./01ўџџџ3456789:;<=>?@ABCDEFGHIJKLMNOPRўџџџSTUVWXYZ[\]^_`abўџџџdўџџџfghijklmnopqrўџџџtўџџџvwxyўџџџ{|}~€acID="{BA7A265D-95DF-11D4-B112-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5E5CE4783C88AE8CAE8CAE8CAE8C" DPB="CCCE76E68A558B558B55" GC="3A38809CEF9DEF9D10" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=41, 55, 802, 789, Z gModule1Module1PROJECTwmџџџџџџџџџџџџQ>PROJECTџџџџ ThisDrawing џџџџzЮModule1 џџџџ@_VBA_PROJECTџџџџџџџџџџџџ2й dirџџџџџџџџџџџџ'•__SRP_4 џџџџu__SRP_5џџџџџџџџџџџџsBrU€€€€~} џџџџџџџџџџџџ   йApole f%\*\“K*mџџџџrU€€€€~~~~~~~~~~_ ЩafrэІтMKГ|(ыqšк  фџџџџƒŠa ‘џџџџџџщA Yџџџџ€џџџџ1џџ Сй щ ACADProject ThisDrawingModule1яРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0aE…ьє1F› чм@uЩ;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD џџџџAС@0РFC:\WINDOWS\SYSTEM\STDOLE2.TLBstdoleФЎёp1DЕуstdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automa0tion^€MSForms>SFErms3€DD452EE1-E08F-101A-8-02608C@4D0BB4 Dindows\system32\FM20.DLL#Microsoft ‚: €] Ob­ Librarаy/;D1€„€tˆ€ˆ€00}#:0‚€#€k0Ѓ…РA44239CDD-2B09-4F7C-8223-2059C602E3C@ЦXUsers\walter\AppData\Local\Tem@p\VBE\„T.8exd <Р!€с.E р….@`ŒM ДСІТЁТ~ТТЃThisDra€wingG€ Thi€kD rawРnЈg 2 €(HB1ЎњXB,B pTТ"B+Bƒo@dule1G„ou@ВuBВ1@ Т—2O­OrТ!HТџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ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\џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisDrawingThisDrawingModule1Module1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0mл’a'BВЗАˆОзЉџџџџИ*qUP… FИkOqжcџџџџџџџџH€*+џ`* AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй Module1bЌ(ad_AddMenuItems+€objMenu)„ AcadPopupMenuЩd newMenuItem’AcadPopupMenuItemБ„ MenuMacroАC objToolbarб AcadToolbarl objToolbarButton оAcadToolbarItemѓ ButtonNameTк objMenuGroupФ AcadMenuGroup_AMenuNameD SmallBitmapхх LargeBitmap€ч MENU_ERRORDА ApplicationЅ*MenuBarпЋItemзz AddMenuItemЮHCount0v MenuGroupsКЗToolbarsŸAddїrAddToolbarButtonц-MsgBox—RErroŠ DescriptionО  AcadDocumentZ €џџџ_B_var_SetџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $% „(џџџџџџџџа Aut %`„rU€€€ џџџџџџџџ$`§џџџџџџџџџџџn„6џџџџџџџџџџ rouџџrU€€€€~| yЈ ЁБйЙс 1q™бљ! I  Љ ё a  б A i 8ИKv>8џ:<џ%LџPџ$ tPџ ”Lџ l8џ=xџ)PџLџ8џCpџC\џ84џxџ $Pџlpџ l4џѕЊ§i<џ%xџ DlPџ= tџPџS,џ 0џ8џl\џF<џ%LџPџ$ tPџ Lџ  8џ 4 0џ 8) PџLџ8џ0џ,џCdџ_,џ:џ %0џ8џl\џF<џ%LџPџ$ tPџ Lџ  8џ 4 0џ l,џ=lџ) PџLџ8џ0џ,џ,Pџ'џ%lpџ(<џ%lџ plPџ=hџPџ<'Шў'шў'јўѕџ PџPџ ,>џFџ Pџ6џјўшўШўч5 ДИL4 Tџpџtџlџ\џ`џdџXџxџhџ4 џPџLџ8џ0џ,џџјўшўШўk "€ <0€ џџџџ€ p€rU€€€ џџџџџџџџ@n€ џџџџ(€ џџџџ€ џџrU€€€ ˜ЩёџџџџЁ4Aaiџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№єдШџџџџчЇ~ТrТџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџXџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ џџ џџ  & џџ* џџ06 џџџџš"џџџџLџџџџLџџџџLџџџџPџџџџLџџџџPџџџџ‚ƒ„…†‡ˆ‰Š‹ŒўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLџџџџLџџџџLџџџџPџџџџLџџџџPџџџџџџџџLџџџџџџџџ<\џџ<`џџx€ PИ€ P€ .X€ ˆ€€ џџџџ"˜€ €Ј€А€И€Р€Ш€а€и€р€ш№€ џџџџ€ ,ј"(P `28p€ џџџџ€ "Ј*Sа,_4,@€ џџџџ€ ^x€ \и€ X8€ N€ џџџџ€ $р€ "€ <0€ џџџџ€ p€ Jˆ€ ,и€ џџџџ€ џџџџ€<€ џџџџ(€ џџџџ€ џџџџ€ џџџџџџџџ8рр ad_AddMenuItemsррJ This routine demonstrates adding a new menu item in the 'Edit' pull-downр. menu and adding a new toolbar and button.р. It was developed for AutoCAD 2000 and above.рр version 1.00јрр# CopyrightЉ2001-2009 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.LќLрG This routine may be freely utilized for your own personal use so longRр8 as the entire contents of this header remain intact.Rр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.UрЭџџh–]ђ@]ђ`]ђ€]ђ˜]ђИ]ђи]ђ№]ђ]ђ(]ђ@Щ8р&Create a menu item in the 'Edit' group`ШэЖ&Edit !:!<%>. ЫЖLine '"ЖAcad'2Ааэ !BЌ Ж adMenu Item " %@.рдрCreate a toolbar and buttonиЖ MyToolBar 2 !:%D!FB@HŒлЖMyButton',эЖ MyToolBar 2 !:%D%F.$уэЌЖMyButtonЖ Draws a Line " $%J.(8чрXTo add a bitmap to the new toolbar button, you need to have two icons available. One forрV the small format is 16x16 pixels, and one for the large format is 32x32 pixels. TheyїрQ should be available in AutoCAD's search path or you need to hard-wire the path.рHAlso, be sure to uncomment these lines and the bitmap 'Dim' lines above. р SmallBitmap = "FrzLayer.bmp"p р LargeBitmap = "Erase.bmp" М р6 objToolbarButton.SetBitmaps SmallBitmap, LargeBitmap” рSave the menu fileрC Set objMenuGroup = ThisDrawing.Application.MenuGroups(MenuName)4Ш р& objMenuGroup.Save acMenuFileSourceј|џџ№Ѓ8ш N!PA@LoџџаџџџџШџџџџЕAttribute VB_Name = "Module1" ' ad_AddMenuItemsXThis routine demonstrates`ding a new mn ip in the 'Edit' pull -downc (and >too`lbar Јton.0It waswveloped for AutoCAD 20001above03versi€on 1.00CopyrigHhtЉ1-9 ActiveDРwg.com w€|provid</purpos!„only‚Cmust7 not@ be uscritical Papplt€ s with­ your €[if a„"that€ІˆРw€ill per€ƒm €Œ€€ИtenG€Q™Š`mayCfreeР(qlizD$ТfAson€&+ so longФСrenti@re conts of%header rema@}intact!‰Q"as-is"‰‚Knovcla€“Б@C, wРH €xФim@Ied,Ф!@fm€ПєtВ>}1Tp .ВTacF€S€ycр€‹H Р`it XSubq J:9M sgBox!L.Dмes№~тcE№4сџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\`Dфr€є~ТpТџџ#ˆЖџџџџџџџџ<џџl%жШZєD„Xње/Ÿ*•ЛЋzОyL€$ыjђq#њ‰dЫEќKБь.9Щ2aџџџџџџџџџџџџxњ‰dЫEќKБь.9Щ2al%жШZєD„Xње/Ÿ*џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@ŒŒџџџџџџџџџџџџџџџџџџџџџџ8Эчд9 $*\Rffff*0J4abdcd4aпџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit