аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬ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#C:\Program Files\AutoCAD 2000i\ACAD.TLB#ARoot Entryџџџџџџџџ • cтТ4VBA_Projectџџџџ€я€VйПр‡ cтТVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ`И‘VйП€эpГЉР§џџџ§џџџ! ўџџџ  ўџџџ#"ўџџџC$%&'()*+,-./0123456789:;<=>?@ABFDEGJHILKўџџџONўџџџMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ  !"#$%&'()*+ўџџџ-./012345ўџџџ78c:;<=>?@AB€DEFGHIJKLMNOPQRSTUVWXYZЈ\Ѕ^_`ab­defghijklmnoprўџџџstuvwxyz{|}~‘ID="{D1918572-FEC2-4488-B5E0-BA35FEA5B3CE}" Document=ThisDrawing/&H00000000 Module=CollObj Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="E2E0EC0CCA10CA10CA10CA10" DPB="C4C6CA364E194F194F19" GC="A6A4A85068D04BD14BD1B4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 543, 518, CollObj=22, 22, 822, 496, Z PROJECTwmџџџџџџџџџџџџq>PROJECTџџџџЅThisDrawingџџџџ џџџџ6О __SRP_2џџџџџџџџџџџџ]V__SRP_3 џџџџ[’CollObj џџџџuI__SRP_4џџџџџџџџџџџџCD __SRP_5 џџџџ9Ж_VBA_PROJECTџџџџџџџџџџџџјdirџџџџџџџџџџџџ,~__SRP_0џџџџџџџџџџџџ a__SRP_1 џџџџnrU€€€€~} џџџџџџџџџџџџ   Щсp“K*mџџџџrU€€€~~~~~~~~~c ёЬ,]œptGЅvкŠ€IЧ  фџџџџƒŠa y џџџџ1 џџЙˆa !џџџџ€џџџџб 1Yy™Йй 9Qq‘Йй џџййЩЉ‰ ThisDrawingCollObj ACADProjectяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA џџџџ 9Щ0тС”РЦWв…у  Ц& 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD 1џџџџYБ@0РFC:\WINDOWS\SYSTEM\stdole2.tlbstdole !џџџџI‘Pс.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`оHрЁвŸзH‹Uљп іЊ 2C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd с  qpToggleProjectFilePathCheckVariables Handle2Object ActiveLayerDatabase SetLimits OSnapModeGetExtDictionaryHasExtDictionaryOwnerIDAddLayer SaveLstate RestoreLstate Linetypes AddTextStyleAddUCS йuŽ!=в…Ф  Ц&%f_їР GBбаs`vЬйuŽ!=в…Ф  Ц&иcП…ЧtFJ*Д їžсXh—{ а‰п€_ТћК AcadDocumentAcadDocument_SelectionChanged @йuŽ!=в…Ф  Ц&рЄИ$*CаЈ“ › PROJECTNAMEXJ0ƒŽBвЖ”`А‡т5  8No current Project File Path & is current Project C:/A2K2_VBA/  is new path  path restoredVBE6.DLL Y џџџџS Шc€ *А€ џџџџ€zВ€0* pH‚dф ACADProject8@е = t  ќm=( 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-02608C4D0BB4DFM20.DLL#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0Ѓ…РAA1E048DE-9FD2-@7-8B55-F9DFA017F6AA6DOCUME~1\ADMINILOCALSTemp \VBE\T.exd <Р!€с.E р…. `ŒM ДAІBЁˆТX#BЃThisDraw@ingG€ThikDrawРngT 2 €HB1‚­З ,B,B ј**"B+BCoTllpGCТАlРObj@ A—M2O-:O<М!HТgrlф8›ЉБ X#ј*џџ#ˆЖџџџџџџџџ<џџ%f_їР GBбаs`vЬйuŽ!=в…Ф  Ц&иcП…ЧtFJ*Д їžџџџџџџџџџџџџxиrU€€€ џџџџџџџџ@$`tџџџџџџџџn§џџџџџџџџџџџ$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџ$!`§џџџџџџџџџџџ$I`§џџџџџџџџџџџ$q`§џџџџџџџџџџџ$™`§џџџџџџџџџџџ$С`§џџџџџџџџџџџ$щ `§џџџџџџџџџџџ$ `§џџџџџџџџџџџ$9 `§џџџџџџџџџџџ$a `§џџџџџџџџџџџ$‰ `§џџџџџџџџџџџ$Б`§џџџџџџџџџџџ$й`§џџџџџџџџџџџrU€€€ ˜i‘ЙџџџџA4сa џџџџџџџџџџџџ ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV0 ќЦ  4X:`џ NPџPџ 6Pџ0џџ№ў!tџ$ Qtџ[ьўxџўˆшўкP'№ў'џ'0џѕфўxџ lфў *#мўрўxџ lрў*FPџ 2фўмўрў6Pџ0џџ№ў xџў‹шў} р0ьўшўxџ,фўрўмўtџPџ0џџ№ўьŒ+pџtџ$ dtџ hlpџ=xџ)tџpџLџ$ Lџќі`џKџџ+Dџ`џ§ўHџtџxџ tџ д>Dџ1\џ/Hџtџ l\џћ0В+'дў'єў'џѕ:4џNLџLџ 6Lџџєўдўо*'дў'єў'џѕl\џ*FLџ 6LџџєўдўCаў%lаў`џ§ўHџtџxџ tџ а/Hџtџ*'дў'єў'џѕlаў*FLџ 6Lџџєўдў%l\џ`џ§ўHџtџxџ tџ а/Hџtџ*'дў'єў'џѕl\џ*FLџ 6LџџєўдўџџџЌŒ4кxџ`џ\џаў,HџDџtџpџLџџєўдў0 ќЦ˜  0 ќЦ  0 ќЦh  0 ќЦ   0 ќЦа  0 ќЦP  dјєыѕ`џІєыѕ`џІєыѕ`џІєыtTџ7<џmTџ`џM@џ %Pџ$rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$rU€€€€~| Ј A™ С щ ) Q i y ё Q ™ ьŒ+pџtџ$ dtџ hlpџ=xџ)tџpџLџ$ Lџќі`џKџџ+Dџ`џ§ўHџtџxџ tџ д>Dџ1\џ/Hџtџ l\џћ0В+'дў'єў'џѕ:4џNLџLџ 6Lџџєўдўо*'дў'єў'џѕl\cП…ЧtFJ*Д їž%f_їР GBбаs`vЬџџMEџџџџџџџџџџпџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP[LџџџџSџџџџS”џџџџ<џџ6"џџџџ<џџџџ<џџ<џџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} јЈ џџџџ`џџџџџџџџџџџџ№ўJџџџџџџџџt” „џџџџxџџџX %€ўџџџџџџџˆџџ`џџџџџџџџ%џџџџƒўџџџџџџџРџџџџџџџџџџџџџџ%‚ џџџџўџџџ№џџўџџџџџџџџџџџ%џџџџ џџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџ џџџџшtџutoCAD 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{A1E048DE-9FD2-48D7-8B55-F9DFA017F6AA}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџќm=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX#ThisDrawing023fb89531џџThisDrawingџџј*З џџCollObj013fb89531џџ$CollObjџџ<Мџџџџ-:џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFDјŸїuOІѓ[ьві(qџџџџQR№'№ИKŸQъмЪrј№џџџџџџџџH€}„џ\7+Ќ(DatabaseH€џendif_€џIfˆ„џObjectВ€џThenП€џwidth AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйAcadDocument_SelectionChanged> objSS5 AcadSelectionSetЫЩPickfirstSelectionSetgg Highlight_ХMsgBox—RCount0v CollObjQOЌ(ToggleProjectFilePath‚xAcadPreferencesі ApplicationЅ* €џPreferences–projNameДўprojPathіŠ GetVariable~FileswXGetProjectFilePathдnewPPathZnSetProjectFilePath9RЌ(CheckVariables†*sysVar„ЋsysDataФK SetVariable?RdblDatagњarray3DС Ќ(Handle2ObjectQ( AcadCircle,ЖPgRadiusрV ModelSpace_ж AddCircleџЙZoomAllm$Handle•newObj$G AcadObjectЅHandleToObject"…Color2FacGreenb Ќ(ActiveLayer„>aLayerр AcadLayerз bLayer–Layers‚йAddїrDrawing<0 AcadDatabasexuacadBlk’ AcadBlockяЗMessageŸѕBlocksгvbCr$ Ќ(SetLimits@ActiveViewportп GridOnЈЮcurLimnFLimitsяPnewLim8 Ќ(OSnapModedSnapMode9ГObjectSnapMode%Status’+IIfzžЌ(GetExtDictionarymdExtDic,ŠAcadDictionaryЮGetExtensionDictionaryЧЌ(HasExtDictionaryw!HasExtensionDictionaryWC ObjectNameуФЌ(OwnerIDцЈObjOID eDadsIDкLObjectIdToObjectчMЌ(AddLayerд0Freeze"ЈLayerOn  Ќ(Linetypes…Г CollectionщW AcadLineTypesЏЛ AcadLineTypeЫi Ќ(AddTextStyle‰@ AcadTextStyleЩ0 TextStyles№оfontFileКщHeight|‹ActiveTextStyleЋ Ќ(AddUCSƒШAcadUCSш|OriginF“PXaxisЮBPYaxis%UCSnamЏkUserCoordinateSystemsЗД ActiveUCSь AcadDocumentZ€џSelectionChanged^Х€џRegen ў Ќ(SaveLstate$—lsmObjj!€џAcadLayerStateManagerг€џGetInterfaceObject]) €џSetDatabaseјФ€џSave’а €џacLsFrozen%с€џacLsOnщZ Ќ(RestoreLstateТ€џRestore†>€џDeleteИxlsnobjGч €џџџ_B_var_lsnobjБa€џExportІЏ €џџџ_B_var_Set FindHandleМ} €џџџ_B_var_IfPђ€џџџ_B_var_AcadPreferencesЇпџџTџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ% џџџџџџ џџџџџџџџ $|€€@ €№ŒдШџџџџs':X#<МџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџHџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџ $(џџџџ,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ џџ(<џџJ<џџZ<џџf<џџp<t<џџ–<џџВ<Д<џџИ<џџФ<џџмџџџџxџџџџџDr`„@шhџџџ џџ`„Dџџџџрўџџџџџџ џџ @ўџpџџџџџ џџџџИ`џџџ џџ (ThisDrawingThisDrawingCollObjCollObjPџџџ џџ €@ўџ@џџџ џџ X0џџџ џџ €@ўџ џџџ џџ ˆџџџ џџ @ўџџџџ џџ џџџџ№ўџџ џџ џџџџXџџџџџџџџ`џџџџџџџџџџџџџџџџ`џџџџџџџџџџџџШ˜@xtџџџџџџџџџџџџџџџџџџџџџџќm=$*\Rffff*023fb89531пџџџџ4‚ƒ„…†‡ˆ‰Š‹ŒŽўџџџ’“”•–—˜™š›œžŸ ЁЂЃЄўџџџІЇАЉЊЋЌДЎЏПБВГНЕЖЗИЙКЛМўџџџОўџџџРСТУФХЦЧШЩЪЫЬЭЮЯўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўЪ€€ џџџџ€ 6X€ € *А€ џџџџ€ Pр€ R0€ Rˆ€ Rр€ N8€ ˆ€ џџџџ€ Ј€ џџџџ" € (28HџџџџРЭџџx–]ђ@э !.З B@ !"A@ Йoџџ0џџџџ(р/ VBA for AutoCAD 2002: Writing AutoCAD Macros 2р Jeffrey E. Clarkр# Copyright 2002 Prentic „FџџџџШўџџ`’H X `џџџџџџџџџџџџ џџџџџџџџџџu„ „џџџџxџџџР% „Lџџџџ`џџџј’р`„NџџџџTџџџџџ`„Vџџџџ8џџџџџ „YџџџџаўџџH% Ж `џџџџџџџџџџџџ џџџџџџџџџџ „ „eџџџџxџџџЈ % „iџџџџtџџџШ % ˆx`џџџџџџџџџџџџ џџџџџџџџџџ™„ „oџџџџxџџџ(% „sџџџџtџџџH%`„vџџџџpџџџџџ  € `џџџџџџџџџџџџ џџџџџџџџџџ б„`„‚џџџџdџџџ џџ „†џџџџ<џџџ№’и ЎP `џџџџџџџџџџџџ џџџџџџџџџџ „`„Šџџџџzџџџ џџ иј `џџџџџџџџџџџџ џџџџџџџџџџ я„ „џџџџxџџџЈ% „Lџџџџ`џџџр’Ш`„NџџџџTџџџџџ „•џџџџ8џџџ% Тџџџџ`џџџџџџџџџџџџ џџџџџџџџџџ„ „џџџџxџџџx%џџџџ џџџџр@ўџАtџџџ џџ џџџџ@ўџџџџџpџџџ џџ џџџџА „ „џџџџџџџџ№% „Lџџџџџџџџ(`„Nџџџџџџџџџџ`„Ђџџџџџџџџџџ „Єџџџџџџџџx%@ўџ( Lџџџ џџ џџџџ@ўџрHџџџџџ џџџџ„ „џџџџџџџџи %@ўџџџџџDџџџџџ џџ@ўџ8 4џџџ џџ џџX  „Аџџџџџџџџ8% „џџџџџџџџX %`„vџџџџџџџџџџ ’@ `џџџџџџџџџџџџ џџџџџџџџџџЌ„ „џџџџџџџџа$% &Ј`џџџџџџџџp аўoџџџџџџџџџџ„ „џџџџxџџџ0(% „Цџџџџ`џџџh’P „ШџџџџDџџџ ’ˆ „Ъџџџџ(џџџи’Р`„Ьџџџџ џџџџџ шј `џџџџџџџџџџџџ џџџџџџџџџџ љ„@ўџ@ $џџџ џџ рƒ$џџџџџџx џџџџџџџџџџџџџџd% HР `џџџџџџџџџџџџ џџџџџџџџџџP„ bh`џџџџџџџџџџџџ џџџџџџџџџџf„ |а`џџџџџџџџџџџџ џџџџџџџџџџ…„ šh`џџџџџџџџџџџџ џџџџџџџџџџН„ ЈP `џџџџџџџџџџџџ џџџџџџџџџџ ф„и€ hџџџџР џџџџ јџџџџ xЈџџџџhџџџџџџџџј@ Pџџџџџџџџ€ Pаџџџџ@ўџ џџџ џџ @ўџ( џџџ џџ џџX и џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜˜€џџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџ@ўџ@ єўџџ џџ h@ўџџџџџфўџџ џџ @ўџџџџџдўџџ џџ ˜ 0 џџ@ўџшўџO џџ џџ џџџџH p Ш`џџџџџџџџџџџџџџџџџџџџџџ&&)„р ˆфўџџџџ @ўџрўџџџџ @ўџмўџџџџ џџџџ џџ џџџџџџрўџџџџ џџр tџџџ џџ џџр џџџџР р 8 `џџџџџџџџџџџџџџџџџџџџџџ г„џџџџ( џџџџА џџџџИ џџџџР џџџџШ џџџџа ˆ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџ8 џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 џџџџџџџџpџџџ џџ @ўџLџџџ џџ џџџџ(Hџџџџџ @ўџDџџџџџ @ўџ4џџџ џџ @ўџ$џџџ џџ шџџџ џџ @ўџџџџ џџ єўџџ џџ @ўџфўџџ џџ џџџџдўџџ џџ џџџџи иџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџP џџџџџџџџџџџџџџџџџџџџџџџџџџџџР ќm=$*\Rffff*013fb89531*\R1*#112*\R0*#14*\R1*#f6*\R1*#f5*\R1*#f5*\R1*#f4*\R1*#f2$*\Rffff*023fb89531пўЪ,€€ џџџџ€ 6€ @€ *`€ џџџџ€ P€ Rр€ R8€ R€ Nш€ 8€ џџџџ€ @€ џџџџ"X€ +(€ џџџџ€@€HPp+x€ џџџџ &+ШШ$* а€ џџџџ€и№%*0€ џџџџ%*рP€ џџџџ€ X€ џџџџ" `€p€x€ џџџџ€˜3А€ џџџџа рш€ џџџџ3€ џџџџ8€HP `h€ џџџџ€3˜€ џџџџИ€Ши№ € џџџџ8P…јP€ џџџџ€ P€ џџџџ" h€p€x€ˆ€ џџџџ2*Ш7а h€ џџџџ€№ ј 8€ џџџџ€(0 H€ Xx€ џџџџ€ € џџџџ" p€˜€ € џџџџЈ .И и$8ш€ џџџџ &8 H€ џџџџ€ h€ џџџџ" x€h€p€x€ џџџџ+€˜ .А а€ џџџџD_р (h€ џџџџ€ €€ џџџџ" 8ˆ$˜€ џџџџ€Ј А€ џџџџ€Р$ш H а р(Єђ€ h x(Њђ( € џџџџ€ P€ џџџџ" @€(€ џџџџ 0@€ џџџџHX`€ џџџџ€h>Јpx€ џџџџ€ (ш€ џџџџ€ а€ џџџџ" €€€ˆ€˜2* и7р2* 78  X € џџџџ€` h x € џџџџ€ p€ џџџџ" €€ € џџџџ*ˆ +  Р Ш € џџџџ!а  ш   ј Tb XJb€`  € џџџџ€ а€ џџџџ" €€( €0 €@ 2H € ˆ Ј € џџџџ€А €И  Р а € џџџџ žш ˆ € џџџџ€ р€ џџџџ" ˆ€ $˜  Р € џџџџ а 0фр Ш € џџџџ€  € џџџџ" €>.!H`"X€€ џџџџ€  € џџџџ" ˜€ˆ>аш€ џџџџ€ 8€ џџџџ"  €а €и €р € џџџџш ј   .( X € џџџџ€ ˆ€ џџџџ" 0€`  h ˆ    А  Ш € џџџџ Œи h€ џџџџ€ Ј€ џџџџ" Р€€€ˆ€˜€Ј€И2*Р>6ј@78x€ џџџџ,I pРџџџџXЭџџxр Example 6-4.r]ђ@э !*!,.B88]ђ]ђЖ PROJECTNAME %2'.2Щ . !4%6'0 0Жœ 0Ж is current ProjectA@  Patdџџ(kџџ№]ђ 0Ж path restoredA@ 00 . 8 !4B@: . 0 !4B@: 8Ж is new pathA@ as boџџ р Example 6-2.]ђш]ђЖ SAVEFILEPATH'> > %2'@ >Ж =  @A@ ЖANGDIR'>Ќ'@ > @ B@B > %2'@ >Ж =  @A@ ЖANGBASE'>]ђДn†№љ! @'D D'@ > @ B@B > %2'@ >Ж =  @A@ ЖINSBASE'>]ЌЌђ0Д№?Ќ+FД№?Ќ+FЌЌ+F F'@ > @ B@B > %2'@oџџЗKTnA@T]ђЈ]ЌЌђШ]ђЌЌ+LFЌЌ+LFЌЌ+LЌ'Nэ L N !P%R.]ђ !V'VЖ Handle is: !VA@ ]ђ0э V %\.X ` X(^р ThisDrawing.Regen TrueoџџЈр Example 6-6.]ђ]ђАэ !b.dэЖnewLayer !j%l.h h (b h!Ж is now currentA@  d (b d!Ж is current againA@ oџџир Example 6-7.]ђ]ђ0]ђPэ !P!X.nџ rў n!x“ vЖ r! z 'vџ rўШІ n!x!"Ж Blocks in this Drawing: z vA@ эА.n–P– –аЌЌ+†FЌ Ќ+†oџџPр Example 6-10.З !~(€ !~ (~]ђЈ !„'‚]ЌЌђР † („A@TЌЌ+†FЌ Ќ+† zІ  !žЖ  !VЖ has an Extension Dictionary zA@  ‚ („A@TІ  !žЖ  !VЖ has no Dictionary zA@  р Example 6-9.р! Example 6-8. (see ThisDrawing)–x–@ oџџ№]ђ8 !Œ'Š™ŽИ Š (Œ™Ž |џџ˜ЃŽцџџoџџH]ђ]ЌЌђА]ђшЌЌ+LFЌЌ+LFЌЌ+LЌ'Nэ L N !P%R.ЌЌ+LFЌЌ+LFЌЌ+Lэ L N !P%R.A@T]ђэ !˜.”oџџ˜]ђ` !P!"ЌœЖDrawing is empty.A@ |џџ0kџџ(џ ў !P“ !œъЗKTџЧXoџџ р Example 6-13.0]ђи]ЌЌђј]ђ0ЌЌ+LFЌЌ+LFЌЌ+LЌ'Nэ L N !P%R.A@T]ђH]ђ` ! 'Ђэ Ђ %І.ЄІ   Ж#The Object's Handle & OwnerID are: !VЖ  Ђ zЖ The Parent's Handle & Name are:  Є!VЖ  Є!žA@ oџџ ]ђРэЖ A-WALL-FULL !j%l.  (b ` (^І   ! * Ж New Layer: ! zЖColor:  !^ zЖFreeze Status:  !Њ zЖLayerOn Status:  !Ќ zЖ Lock Status:  !№ zаЖAdd Layer ExampleA@ oџџШ ]ђ ]ђ@]ђ`э !Ў.Аџ ў А“ v ! z'vџЧX ЖAvailable LineTypes are: z vA@ oџџ ]ђИэЖRomans01 !К%l.ЖRomans (МЌ (ОДš™™™™™щ? (€  (РІ   !Ж has been added. zЖFont:  !М zЖHeight:  !О zЖWidth:  !€A@ oџџј  (а0006]ђ]ЌЌђ8]ЌЌђp]ЌЌђЈ]ђрЌЌ+ЦFЌЌ+ЦFЌЌ+ЦД р- ц?Ќ+ШFД р- ц?Ќ+ШFЌЌ+ШД р- ц?Ќ+ЪFД р- ц?Ќ+ЪFЌЌ+ЪЖ Zrotated45'ЬІэ Ц Ш Ъ Ь !Ю%l.oџџ ЖNo current Project File PathA@ џџџџР І  >Ж = Ќ$@Ж, Ќ$@Ж, Ќ$@A@ џџџџ0р Example 6-3.р Example 6-5.І   ЖNew drawing limits: zЌ %„Ж,Ќ %„Ж (LL) and Ќ %„Ж,Ќ %„Ж (UR)A@ І   ЖOriginal drawing limits: zЌ %„Ж,Ќ %„Ж (LL) and Ќ %„Ж,Ќ %„Ж (UR)A@ џџџџр Example 6-12.3џџџџ€]ђ`ІэЖAutoCAD.AcadLayerStateManager !*%о.к !X кB@рЖLstate ф ц кB@тoџџ]ђxІэЖAutoCAD.AcadLayerStateManager !*%о.к !X кB@рЖLstate кB@ъЖLstate кB@ьoџџ`р Example 6-14.1р Example 6-15.0џџџџ8ЖLstateЖ LState.las кB@ђџџџџИр Example 6-16.7џџџџІЖOsnap mode is !ŒЖONЖOFF$A@ џџџџџџџџˆџџџџџџџџ8р/ 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.–и–Ј–€ –Р –h–h–€ –P–ј–јр Example 6-17.le– џџџџXр Example 6-11.VџџџџЖ C:/A2K2_VBA/'8џџџџ8р9 Example 6-1. (changed newPPath = C:/A2K2_VBA 03/04/03)џџџџјџџџџ‰ЗAttribute VB_Name = "CollObj" Option Explicit ' ЌA for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice Ha@ll PTRoThis software may be Oely copied @and usso lo…as t6discla imer,ttogether with#e ab˜ove$FnoB, 6inclubd€+in J7s7ƒ&any ac0comp€~do(cum€caœ. These example pr`ogram€‚cd€=vailable'"as-isЂ"‚Mout€3yuƒО €Иi#w„ranty. Nec€fi authnorƒ&pubШlis‚uarwaty€IŠEerr'TAwiР_opperatФ%СJС#idnt€ up7…gED76-1. (changLnewPPa€X= C:/A2K2_VBA 03/04/03)ASub TogglePr€ojectFi€ (€š Dim €Ђ@ As AHcad‰feŠcFe€–Set…=€[isDraw@b8.ApСMУaN …РAjBОVari€U 1Str€У ‹Get‚Рs("PROJE€CTNAME"€3ЦOРбBYRes@ˆnОxдA!DJУ:.A|s.@EХ„G#IJf–j„""nƒMsgBox "No curзСи@кB[ С с`}ёAEls>!aсЦ& " qŒEљpIfЇ#с7Al(ѕD"(D/ J!€sCC‰9Ы РmNo8t (Х„% ExИit @B1:У%Fvs€5 mР5 iBs IIf Ё(%W ,†N"AFF‚"„ReturAVT8. (see D€Э]9Ц]GetExtDictiрonary‰_D_AcadCirc leƒ7gP(0 To @…@gDoub RadiusI€ )РU0: фP(ч= "  # ф= 1уSet Ф‹8)ЃЃ`QщOˆ*Couьnta5 IeЄnГ[ФВЁZempty.$`§џџџџџџџџџџџnP  0 ќЦј  0 ќЦј  0 ќЦ   0 ќЦ˜  Ьєыѕ`џІєыѕ`џІєыѕ`џІњ р- ц?ѕDџІњ р- ц?ѕDџІєыѕDџІњ р- ц?Йѕ(џІњ р- ц?ѕ(џІєыѕ(џІC џIшўl џ(џMьў %DџMќў %`џM џ %џ$ Hџ \lшў=xџ)џшўlxџ=[џ$ Јџџџ”Ак˜xџ(џџџџџџџџџ’`џ’’Dџџџџџџџ’ џџшў        0 ќЦи       *e Hall PTR32р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 andl Мр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р  aЇbЂnd IfЉFor Eaфch%;In€ 'НЇ#ƒSel`z Cјasee&уo&СeётTruФVIc"Т.УNameСЫ0ХлIdH`Ъ ˜&ЩyЩA`" has`Я ћ 4# Ч;ХоЇЁB№FalsтœЁ ™‡&nd`no:Sb2ЃNext зU1ЦUOwneјrIDџŒa FFFў F}?FFb‡(1F.stF@Рm1OIТDq@Longƒ №DadssqUг$гџАvAФУБJЄo@ctIdToГ(OcФ Уu;Th4' s ,t areїу˜k’о#"2c3Я›•Р"ЁPntЉЇђ*б у .v sTр0@ёŸ&…12–&№LayerџЏ&ЅYтЧ@O9Q2sAf("A-WA€LL-FULLyхЉA@tve@г‡гS.ColP€= acGreЕUсѕNew s$їBOВC"њ#ХFpze уŠO”Ÿ”Ђ OnЏtŽ.ЅПЕockG without interruption.р Example 6-8.) џџџџГAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit @ ' žA for AutoCAD 200€2: Writ€Ё† MacrosƒJeffrey PE. C€dkƒ CopyrightE‚ tnti€“H€all PTR…7а softw‚ may be €'ely cop‚ijand uso long as tь di‚s€imer,:together withРe `above#noA!, incˆludin A%‚s €Cany€ accomp@A?documentaAN. The€exaР`e p@rogramРr eР1dРvailС\ƒ"as-is""Т&outРy ЈexpB_ @\i€;Branty.8 Ne€1@3€4 aˆuth norC@publisТ:aцrС €;atС<Р$Ъ"8errTAwiсР_oper@CСJ‘С#int€ up7……gED76-8.СPР™@ Sub AcadD„D_SelecChanged() €“ Dim obРjSS AsB  МSe„=РTь.Pickfi˜rst B.HР—lҘƒД MsgBoxу .Coun € EH š б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџ$!`§џџџџџџџџџџџ$I`§џџџџџџџџџџџ$q`§џџџџџџџџџџџ$™ Pџ ˆl<џ=xџ)Pџ<џєыѕ`џІєыѕ`џІєыѕ`џІ7<џmTџ`џM@џ %Pџ$ Pџ ˆl<џ=xџ)Pџ<џ $ ИPџxџ @lPџ= 8џPџ!DјXк@xџ`џаAdd ’џџ8џPџ<џ0 ќЦh џ *FLџ 6Lџџєўдў Cаў%lаў`џ§ўHџtџxџ tџ а/Hџtџ*'дў'єў'џѕlаў *FLџ 6Lџџєўдў%l\џ`џ§ўHџtџxџ tџ а/Hџtџ*'дў'єў'џѕl\џ *FLџ 6Lџџєўдў€qS, ,нT"`@TrЃfFЅ1в3цSaАs@™*Ѕ8lsm0 aeMРanagerƒ‘6„›6Applica‘v.‰ №{Int8erf№ˆ#Р"utрoCAD.1>Вy х#S.Data~bсm%Ec Х€ "LЂ рЁacLsFrozen +10%LsOфzфExport"L’0.lasЏЗЙ14ІRestoreџ#щ4#ппcпп, ппrп п#фпbj.Д ЫіЊD nteИ'…'5жLinet№ypes™9Œ№ћж`TaaЃ# aїMessP*SМtrPёЃSP XџЋ6 Г˜Ј#A;ѕє= •&Ѕ`Iѓ€RTэAvaila=`С бЂfsїБCr & Message End Sub ' Example 6-1 6.Pl AddTextStyl e() N Dim Object As Aca#D@Set@= ThisDrawing.”s.X("Romans01"YU.fontFiŠ= ""XHeigh t = 2 wiˆdth0.8 zActive@&ƒƒMsgBox].Name—" has been addeHd." vbЅ_'ƒŠ€"F€[: чTd& “ƒdŠћn•Wr {ˆцFХŽш7‰шUCSзrC5‚yrigin(€0 To 2){рDoublAA@PXaxisZY#]€namAStVrР‰УOФ)t: „1‹%= 0 …"B.7071ќ: ФC ЫŠФ(ќ-0Х ЫУЩD/РЊZrotate8d45ФЋУ%–УUserCoordin€ SystemеBЦ –(>,„2Рљ‚ , УDЮК€ЙЦњ`§џџџџџџџџџџџ$С`§џџџџџџџџџџџ$щ `§џџџџџџџџџџџ$ `§џџџџџџџџџџџ$9 `§џџџџџџџџџџџ$a `§џџџџџџџџџџџ$‰ `§џџџџџџџџџџџ$Б 0 ќЦp  0 ќЦP  0 ќЦј  0 ќЦј  0 ќЦ HџDџtџpџLџџєўдў0 ќЦЈ  0 ќЦ€  0 ќЦР  0 ќЦh  0 ќЦ  0 ќЦа  0 ќЦx  0 ќЦ@  0 ќЦh  0 ќЦ€  0 ќЦP  0 ќЦј  0 ќЦј  0 ќЦP  0 ќЦ           0 ќЦ˜  0 ќЦ€       `§џџџџџџџџџџџ$й`§џџџџџџџџџџџnЌŒ4xџ`џ\џаў,