аЯрЁБс>ўџ ўџџџ~џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ№фStNЦР%apcџџџџџџџџ`„јл]NЦ№фStNЦThe VBA Project џџџџџџџџ`„јл]NЦ№фStNЦ_VBA_Projectџџџџџџџџ `„јл]NЦ№фStNЦ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџqkltўџџџ!j#$%&5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6789:ўџџџ<=>?@ABCDEFGHIJeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfghiўџџџomn rўџџџsvpўџџџuџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ0х^|NЦ€+apcџџџџџџџџ`„јл]NЦ0х^|NЦThe VBA Project џџџџџџџџ`„јл]NЦ0х^|NЦ_VBA_Projectџџџџџџџџ `„јл]NЦ0х^|NЦџџџџџџџџ§џџџ  b c}ўџџџўџџџa'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ()*+,-./0ўџџџ234KџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLMNOPQRSTUVWXYZ[\]^_`ўџџџxdwџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ {|‚y§џџџ€Host Project Item Names0џџџџ PЮњл]NЦ@›\|NЦVBA Project Data"џџџџшHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџI ўџџџJўџџџ !"#$%&'()*+,-./0123Q56789:;<ўџџџ>?@ABCDEFGHLўџџџўџџџўџџџMNOўџџџўџџџRSTUVWXrZ[\]^_`abcdegўџџџhijklmnopqxstuvw”yz{|}~“€Эє{PэяThisLibrary*{юя5{АюяL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{`яя L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ ся";{ася$={€тя&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И/Т^I:\SW-DATA\macros\DeleteDanglingID="{2B7A2DBB-A6F0-480F-BDA1-404D1CE2375C}" Document=ThisLibrary/&H00000000 Module=DeleteDanglingEntities Name="DeleteDanglingAnnotations" HelpContextID="0" VersionCompatible32="393222000" CMG="E5E7E77EE911ED11ED11ED11ED" DPB="7C7E7E1782AF83AF83AF" GC="13111184A985A98556" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C DeleteDanglingEntities=7, 46, 965,џџџџџџџџџџџџџџ8‘EпAnnotations.swpЬR•ОeteDanglingEntities6@ўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2ДџџџџџџThisLibraryџџџџџџџџPЮњл]NЦ@›\|NЦProject_Data_CurVer( џџџџf Host Project Item List Data8џџџџџџџџџџџџKVBAџџџџџџџџ`„јл]NЦ`„јл]NЦPROJECTwmџџџџџџџџџџџџkPROJECT џџџџ Щ_VBA_PROJECTџџџџџџџџџџџџ\ThisLibraryџџџџ=є 685, Z Z hisLibrarygettypesofentities1gettThisLibraryThisLibraryDeleteDanglingEntitiesDelrU€€€ џџџџџџџџџџџџџџџџ t@ Е =  т‘EJ J<9s@tdole>stdo“K*mџџџџrU€€€~~~~~ ~~~~~U у™:Пv~[DЋЅЂШР[5 фџџџџ џџџџџџџџџџџџЙˆa qџ(\џ]ћ@5lџЮ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШc\џ%_ў˜ _Wlџ ќ4§ш5lџ”ќcћвУ_Wlџ ќ‹lџџџ 5lџ_Wlџ ќ"™$5lџ/$M\џ@lџ :Lџlџћ”<џџџ 6lџ<џ”$ѕл _Wlџќ4§ш5lџј€ $ lџ<џџќў˜$_W4џ0§ѓ1Lџ54џ0џLџ ”1l,0џ=2Hџ0џc џ%_ў˜  џџ  _W4џќ4§ш 54џdirџџџџџџџџџџџџ4Project Item Data$џџџџP Control List Data$џџџџџџџџ@›\|NЦ@›\|NЦReqControl List Data*џџџџџџџџ@›\|NЦ@›\|NЦ__SRP_1џџџџџџџџџџџџFReqControl List Data*џџџџџџџџџџџџ­ Control_Data_CurVer(џџџџџџџџЌ Control List Data$џџџџџџџџџџџџЋ(Yƒ„…†‡ˆ‰Š‹ŒŽ‘’—ўџџџ•–ўџџџ˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDeleteDanglingEntities.џџџџџџџџ1„3__SRP_2џџџџ‚" __SRP_3џџџџџџџџџџџџ†__SRP_0џџџџ: SelectionManagerY=ЃƒХ'ЮПд@ЛW$хђMDЧ‹L’е–ьЅ а! |sub DeleteDanglingAnnotations() ------------------------------ $GetFirstAnnotation В€0* pH‚dфDeleteDanglingAnnotationDs8@ Е =  ‘EJ J<9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Aputome0€SldWoРrks>€CdW€Grkjs€Hy€ o€H83A33D31-27C5-11C@E-BFD4€H400513BB57}#d…HProgramme\soli3\sldNw7K> 2€ Type LibXrar::‚Ь‚Тt !€ ThisG€›i€VLi@bra€yT 2 €HB1o5,B,B Yрj"B+BТЫ‹EntitiesGД,РDuvtР"D€%ngXiЕСE@t,Сe/šX2nЯ3э(Я38:ˆ!B2У3€objectЏ€џSubВ€џThe№ддџџџџл/ТtYрџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsю*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\solidWorks\swvba.tlb#SolidWorks ExtensibilityHost Project Item Names0џџџџ PЮњл]NЦ№фStNЦVBA Project Data"џџџџшHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџI ўџџџJўџџџ !"#$%&'()*+,-./0123Q56789:;<ўџџџ>?@ABCDEFGHLўџџџўџџџўџџџMNOўџџџўџџџRSTUVWXrZ[\]^_`abcdegўџџџhijklmnopqxstuvwўџџџyz{|}~“€Эє{ ;яThisLibrary*{P<я5{=яL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{А=я L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{`>я";{?я$={Р?я&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И/Т^I:\SW-DATA\macros\DeleteDanglingID="{2B7A2DBB-A6F0-480F-BDA1-404D1CE2375C}" Document=ThisLibrary/&H00000000 Module=DeleteDanglingEntities Name="DeleteDanglingAnnotations" HelpContextID="0" VersionCompatible32="393222000" CMG="0C0E0E310E5612561256125612" DPB="2D2F2F10713072307230" GC="4E4C4C6F4CB16CB26CB293" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C DeleteDanglingEntities=7, 46, џџџџџџџџџџџџџџ8‘EпAnnotations.swpЬR•ОeteDanglingEntities6@ўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2ДџџџџџџThisLibraryџџџџџџџџPЮњл]NЦ№фStNЦProject_Data_CurVer( џџџџf Host Project Item List Data8џџџџџџџџџџџџKVBAџџџџџџџџ`„јл]NЦ`„јл]NЦPROJECTwmџџџџџџџџџџџџkPROJECT џџџџ Э_VBA_PROJECTџџџџџџџџџџџџ"ThisLibraryџџџџ=є965, 685, Z hisLibrarygettypesofentities1gettThisLibraryThisLibraryDeleteDanglingEntitiesDelrU€€€ џџџџџџџџџџџџџџџџ t@ Е =  т‘EJ J<9s@tdole>stdo“K*mџџџџrU€€€~~~~~ ~~~~~V V *кюй*C“'ŽЉFЋ‹ фџџџџ џџџџџџџџџџџџЙA qџ(\џ]ћ@5lџЮ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШc\џ%_ў˜ _Wlџ ќ4§ш5lџ”ќcћвУ_Wlџ ќ‹lџџџ 5lџ_Wlџ ќ"™$5lџ/$M\џ@lџ :Lџlџћ”<џџџ 6lџ<џ”$ѕл _Wlџќ4§ш5lџј€ $ lџ<џџќў˜$_W4џ0§ѓ1Lџ54џ0џLџ ”1l,0џ=2Hџ0џc џ%_ў˜  џџ  _W4џќ4§ш 54џdirџџџџџџџџџџџџ4Project Item Data$џџџџP Control List Data$џџџџџџџџ№фStNЦ№фStNЦReqControl List Data*џџџџџџџџ№фStNЦ№фStNЦ__SRP_1џџџџџџџџџџџџFReqControl List Data*џџџџџџџџџџџџ– Control_Data_CurVer(џџџџџџџџ• Control List Data$џџџџџџџџџџџџ”(DeleteDanglingEntities.џџџџџџџџ;)__SRP_2џџџџ‚__SRP_3џџџџџџџџџџџџ†__SRP_0џџџџj ! |sub DeleteDanglingAnnotations() ------------------------------ $GetFirstAnnotation swCThread swDatumTag swDatumTВ€0* pH‚dфDeleteDanglingAnnotationDs8@ Е =  ‘EJ J<9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Aputome0€SldWoРrks>€CdW€Grkjs€Hy€ o€H83A33D31-27C5-11C@E-BFD4€H400513BB57}#d…HProgramme\soli3\sldNw7K> 2€ Type LibXrar::‚Ь‚Тt !€ ThisG€›i€VLi@bra€yT 2 €HB1o5,B,B Yрj"B+BТЫ‹EntitiesGД,РDuvtР"D€%ngXiЕСE@t,Сe/šX2nЯ3) Я38:ˆ!B2У3€objectЏ€џSubВ€џThe№ддџџџџл/ТtYрџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsю*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\solidWorks\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationо*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#d.0#0#C:\Programme\solidWorks\sldworks.tlb#SldWorks 2005 Type Library Дџџџџџџ‘EџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТtThisLibrary2g45911c1bџџThisLibraryџџYр5џџ,DeleteDanglingEntities2i45911c6fџџ$,DeleteDanglingEntitiesџџ:ˆ ) џџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвTЊжџqЌK‘ ђŒŽTK~џџџџџџџџ`9д‰z ъH†ЊН”+’`]џџџџџџџџ€•ЈџX; €џAs€џcase.€џDebug=€џDim@€џDoD€џelseG€џEndH€џendif_€џIfk€џIsx€џlong…€џNot†€џNothingˆ€џObject‘€џPrintЏ€џSubВ€џThenО€џWhile SolidWorks; VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProject4­Kgettypesofentities^л ThisLibraryGЉ €џ_EvaluateйModul1Эgettypesofentities1†мswAppы‘Ќ(mainˆ, €џApplicationЅ*Œ(џSldWorks$ DeleteDanglingEntities1Y FeatureDa Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationо*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#d.0#0#C:\Programme\solidWorks\sldworks.tlb#SldWorks 2005 Type Library Дџџџџџџ‘EџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТtThisLibrary2g45911c1bџџThisLibraryџџYр5џџ,DeleteDanglingEntities5^45912423џџ$,DeleteDanglingEntitiesџџ:ˆ э(џџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџвTЊжџqЌK‘ ђŒŽTK~џџџџџџџџ`9д‰z ъH†ЊН”+’`]џџџџџџџџ€ЂЕџ = €џas€џcase.€џDebug=€џDim@€џDoD€џElseG€џEndH€џendif_€џIfk€џIsx€џlong…€џNot†€џNothingˆ€џObject‘€џPrintЏ€џSubВ€џThenО€џWhile SolidWorks; VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProject4­Kgettypesofentities^л ThisLibraryGЉ €џ_EvaluateйModul1Эgettypesofentities1†мswAppы‘Ќ(mainˆ, €џApplicationЅ*Œ(џSldWorks$ DeleteDanglingEntities1Y FeatureDataКMmC^„џFeature!> Con‘iponentcp„џsizeюћretvalЭ;DiniјdNwrtbers—Х swDocNONEŽ ‘Ј swDocPartЮM swDocASSEMBLY…n swDocDRAWINGVбswDocSDMР CreateObjectјŠS1dWorksЂќDrw… €џActiveDocк’IIЋ]€џGetType)J€џClearSelection2Ј§‘Erste )€џViewаIsuchenZsWiew"ЛDra… GetFirstV6oUhileONuntbersЏ2swView~I€џGetAnnotationCountѕЌ“—Њh AnnotationsdsfoundЩ+“ЊStr—е GetNanie2њF ComiponentКNumbers3‘AnzahllЛMsgBox—R“Kein'ЂDokuЋ„ientє+ Dokumient9яgeіffnet§БKeinАЖ“Keineя ZeichnungjH €џGetFirstViewMМ€џGetName2ша €џџџ_B_var_swview'Ф €џџџ_B_var_Set €џGetNextView‘  €џџџ_B_var_swAppиU €џџџ_B_var_Drw+B €џџџ_B_var_sWiew _B_var_StrЈ’ „џComponentљ"DinХƒ €џџџ_B_var_Dinж@ €џџџ_B_var_ifPђ swAnnotationJ€џGetFirstAnnotation9gdowЋ„ €џџџ_B_var_dowМA €џџџ_B_var_Do ё €џџџ_B_var_Exit‹п€џGetNext3_$DeleteAnnotationіXDeleteDanglingAnnotationеКЌ(DeleteDanglingAnnotationsЭ €џџџ_B_var_DeleteDanglingAnnotationsdAktual.  Aktualnumber_р ActualnumberЮ€џџџ_B_var_ActualNumberЋцgetname3ща€џGetNameг<Typstrеc TypStringге €џџџ_B_var_caseГк €џџџ_B_var_Select'EswAnnŸ‘Ќ(swAnnotationType_eлЧ Ј swCThreadЉя Ј swDatumTagІЈ swDatumTargetSymXЈ swDisplayDimension–ЄЈ swGTolК№Ј swNote@> Ј swSFSymbolb Ј swWeldSymbolTЈ swCustomSymbolhд Ј swDowelSymВYЈ swLeaderЕзЈ swBlockЕ'Ј swCenterMarkSymћЈ swTableAnnotationB Ј swCenterLineTзvAttEntTypeArrі€џGetAttachedEntityTypes]ѓWennБ5 €џџџ_B_var_Wenn›IsEmpty љ vAttEntArr•Оi` €џџџ_B_var_DebugлЎ€џGetAttachedEntities2Q vAttEntType{" swSelNOTHINGс debugprint_ѕ€џџџ_B_var_debugprintŠc€џџџ_B_var_swSelNOTHINGConszП €џџџ_B_var_ConsЇ$ €џEditDeleteљ‘swSelMgr#%swModel[ƒ€џSelectionManagerХѓ swSelDatavэ€џCreateSelectData‘bRet\€џSelect4ЦГ€џџџ_B_var_swSelMgrыќ €џSelectionMgr0 €џSelectDataЌƒ €џџџ_B_var_bRetШm€џџџ_B_var_SelectDataђ€џSelect3ХГ€џDeleteSelectionЉУ€џџџ_B_var_swModel^w €џAnnotationЫs€џџџ_B_var_Annotation5т€џџџTypл €џџџ_B_var_Typ$˜€џџџDetailelement1216i#€џџџ_B_var_Detailelement1216ѕ]€џџџDetailelement811ИЩ€џџџ_B_var_Detailelement811ВmViewname”РViewnqmeх€џџџ_B_var_Viewnqme­э€џGetSelectedObjectCount $џџTџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"џџ%џџџџџџДџџџџџџџџџџџџџџџџџџ$A$ ˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(HџџЮџџџџ> џџџџџџџџџџH т€0  џџџџ@^ўbџџџџgч(Тt:ˆџџЖџџџџџџџџ,џџџџџџџџџџџџџџxџџR№RџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ HџџЮџџџџ> џџџџPџџџџLџџџџ!”џџ!”Pџџџџџџџџџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ" ""rXpт€0  џџџџ@џџџџџџџџ%`„Мџџџџxџџџџџџџ%%џџџџ Р`џџџџџџџџP ќўkџџџџџџџџџџ0„т€rи$џџџџ @џџџџџџџџТ˜:№Bџџ џџџџџџџџџџџџТ˜<Bџџ џџџџџџџџџџџџТ˜@BџџџџџџџџџџџџџџџџџџBFv>>`rџџHт€&ˆџџ џџ@џџџџџџџџт€* џџ џџ@џџџџџџџџт€.џџџџ@џџџџџџџџТ˜6ШBџџ џџџџџџџџџџџџТ˜>Bџџ џџџџџџџџџџџџт€Pџџ џџ@џџџџџџџџт€`Шџџ џџ@џџџџџџџџƒ$џџџџџџ(џџџџџџџџџџџџџџт€šАџџ џџ@џџџџџџџџт€Fџџ џџ@џџџџџџџџЮџџџџ8џџџџџџˆА џџт€Ь` џџ џџ@џџџџџџџџ`„Цџџџџpџџџџџ№jšа€CџџџџџџџџџџџџџџџџjšвCџџџџџџџџџџџџџџџџ@ўџ lџџџ џџ џџџџ Дџџџџ`џџџџџџџџ˜ \ўkџџџџџџџџџџddO„џџџџјjšд0CџџџџџџџџџџџџџџџџjšжXCџџџџџџџџџџџџџџџџjšи€CџџџџџџџџџџџџџџџџjšкЈCџџџџџџџџџџџџџџџџjšмаCџџџџџџџџџџџџџџџџjšојCџџџџџџџџџџџџџџџџjšр  CџџџџџџџџџџџџџџџџjšтH Cџџџџџџџџџџџџџџџџjšфp Cџџџџџџџџџџџџџџџџjšц˜ CџџџџџџџџџџџџtaКMmC^„џFeature!> Con‘iponentcp„џsizeюћretvalЭ;DiniјdNwrtbers—Х swDocNONEŽ ‘Ј swDocPartЮM swDocASSEMBLY…n swDocDRAWINGVбswDocSDMР CreateObjectјŠS1dWorksЂќDrw… €џActiveDocк’IIЋ]€џGetType)J€џClearSelection2Ј§‘Erste )€џViewаIsuchenZsWiew"ЛDra… GetFirstV6oUhileONuntbersЏ2swView~I€џGetAnnotationCountѕЌ“—Њh AnnotationsdsfoundЩ+“ЊStr—е GetNanie2њF ComiponentКNumbers3‘AnzahllЛMsgBox—R“Kein'ЂDokuЋ„ientє+ Dokumient9яgeіffnet§БKeinАЖ“Keineя ZeichnungjH €џGetFirstViewMМ€џGetName2ша €џџџ_B_var_swview'Ф €џџџ_B_var_Set €џGetNextView‘  €џџџ_B_var_swAppиU €џџџ_B_var_Drw+B €џџџ_B_var_sWiew _B_var_StrЈ’ „џComponentљ"DinХƒ €џџџ_B_var_Dinж@ €џџџ_B_var_ifPђ swAnnotationJ€џGetFirstAnnotation9gdowЋ„ €џџџ_B_var_dowМA €џџџ_B_var_Do ё €џџџ_B_var_Exit‹п€џGetNext3_$DeleteAnnotationіXDeleteDanglingAnnotationеКЌ(DeleteDanglingAnnotationsЭ €џџџ_B_var_DeleteDanglingAnnotationsdAktual.  Aktualnumber_р ActualnumberЮ€џџџ_B_var_ActualNumberЋцgetname3ща€џGetNameг<Typstrеc TypStringге €џџџ_B_var_caseГк €џџџ_B_var_Select'EswAnnŸ‘Ќ(swAnnotationType_eлЧ Ј swCThreadЉя Ј swDatumTagІЈ swDatumTargetSymXЈ swDisplayDimension–ЄЈ swGTolК№Ј swNote@> Ј swSFSymbolb Ј swWeldSymbolTЈ swCustomSymbolhд Ј swDowelSymВYЈ swLeaderЕзЈ swBlockЕ'Ј swCenterMarkSymћЈ swTableAnnotationB Ј swCenterLineTзvAttEntTypeArrі€џGetAttachedEntityTypes]ѓWennБ5 €џџџ_B_var_Wenn›IsEmpty љ vAttEntArr•Оi` €џџџ_B_var_DebugлЎ€џGetAttachedEntities2Q vAttEntType{" swSelNOTHINGс debugprint_ѕ€џџџ_B_var_debugprintŠc€џџџ_B_var_swSelNOTHINGConszП €џџџ_B_var_ConsЇ$ €џEditDeleteљ‘swSelMgr#%swModel[ƒ€џSelectionManagerХѓ swSelDatavэ€џCreateSelectData‘bRet\€џSelect4ЦГ€џџџ_B_var_swSelMgrыќ €џSelectionMgr0 €џSelectDataЌƒ €џџџ_B_var_bRetШm€џџџ_B_var_SelectDataђ€џSelect3ХГ€џDeleteSelectionЉУџџTџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"џџ%џџџџџџДџџџџџџџџџџџџџџџџџџ$A$ ˆ$Љ`§џџџџџџџџџџџnrU€€€€~| Щйё)СIёС™y  с  q  Љ ! i Љ a ЉЩ р  џџ  ѕ lџ lџќ4§ш5lџ_Wlџ ќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џ Nlџlџ 6lџ<џџќі ўbџџџџџ # Тt:ˆџџЖџџџџџџџџ(џџџџџџџџџџџџџџxџџR№RџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ HџџЮџџџџ> џџџџџџџџџџџџ!”џџ!”PџџџџLџџџџPџџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ" ""rX т€0  џџџџ@џџџџџџџџ%`„Мџџџџxџџџџџџџ%%џџџџ Р`џџџџџџџџhќўkџџџџџџџџџџ%„т€rи$џџџџ @џџџџџџџџТ˜:№Bџџ џџџџџџџџџџџџТ˜<Bџџ џџџџџџџџџџџџТ˜@џџџџBџџџџџџџџџџџџџџџџџџBFv>`rlџџт€&ˆџџ џџ@џџџџџџџџт€* џџ џџ@џџџџџџџџт€.џџџџ@џџџџџџџџТ˜6ШBџџ џџџџџџџџџџџџТ˜>Bџџ џџџџџџџџџџџџт€Pџџ џџ@џџџџџџџџт€`Шџџ џџ@џџџџџџџџƒ$џџџџџџ(џџџџџџџџџџџџџџт€šАџџ џџ@џџџџџџџџт€Fџџ џџ@џџџџџџџџЮџџџџXџџџџџџˆџџт€Ь` џџ џџ@џџџџџџџџ`„Цџџџџpџџџџџ№jšа€CџџџџџџџџџџџџџџџџjšвCџџџџџџџџџџџџџџџџ@ўџ@lџџџ џџ џџџџ Дџџџџ`џџџџџџџџџџџџ`ўHџџџџџџџџџџ]]C„џџџџјjšд0CџџџџџџџџџџџџџџџџjšжXCџџџџџџџџџџџџџџџџjšи€CџџџџџџџџџџџџџџџџjšкЈCџџџџџџџџџџџџџџџџjšмаCџџџџџџџџџџџџџџџџjšојCџџџџџџџџџџџџџџџџjšр  CџџџџџџџџџџџџџџџџjšтH Cџџџџџџџџџџџџџџџџjšфp Cџџџџџџџџџџџџџџџџjšц˜ CџџџџџџџџџџџџџџџџjšшР CџџџџџџџџџџџџџџџџjšъшCџџџџџџџџџџџџџџџџjšьџџџџCџџџџџџџџџџџџџџџџ@ўџ(\џџџ џџ @ўџXLџџџ џџ @ўџp<џџџ џџ @ўџ,џџџ џџ @ўџ џџџ џџ џџџџGџџџџp`РXа(ˆ џџџџџџџџџџџџ №PЈpиШџџџџџџџџH џџџџшШXј`˜џџџџџџџџ0џџџџ€џџџџџџџџџџџџџџџџџџџџ№АџџџџРџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџ@ўџџџџџ џџџ џџ џџџџ@ўџџџџџќўџџ џџ џџџџ@Д0џџџџџџџџџџ`„јџџџџ`џџџ џџџџџџ`„юџџџџPџџџ џџџџџџ`„њџџџџtџџџџџPџџџџ @œџџџџBџџP „hHџџџHP „@LџџџPџџџџ`„џџџџFџџџ џџPџџџџ8`№(џџџџџџџџџџџџР№џџџџџџџџџџџџџџџџџџџџx,џџџџџџџџџџџџџџџџџџџџџџџџџџџџ2 ‘E$*\Rffff*2i45911c6f(*\Rffff*2i45911c6f\0*\R0*#14(*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R0*#13*\R3*#10f*\R3*#1dd*\R3*#2*\R3*#2*\R3*#21п%ўЪ €p€ џџџџ€p€x€˜€P€ џџџџ€€h€€ €€(h„(0„(„,И„*ш„&€ џџџџ€€˜€ш€№€ј€€€€€ €(€0€8€@€H€P€X€ џџџџ" < @$ шш X +€8Ј"+Р Ј€ џџџџ А€ ји € Р,/€ џџџџ @ `Xƒ `€ џџџџ0€ џџџџ€ џџџџ"а€€ј€`€Ш€ € x € Р €8 € џџџџ€ А € џџџџ€ џџџџ€ џџџџа р  № € џџџџH ј€ џџџџ€ "p€ џџџџ€ џџџџ@ @ P€ 4˜ € xH `` hx Р Ши pш xА €Ш Иј ар ˆ ј ˜    Ј  А8hTf@€ џџџџN € 8˜ Ј€ vаИ€ џџџџ а€ џџџџ H€ H`6Ј` € ˆ   € џџџџ р€ џџџџ№€ џџџџашH€ џџџџh€ џџџџ @ € џџџџрџџџџX ]ђ`]ђ ]ђk]ђАџџџџP]Ќђир Used to be TYPE NONE FАœong]ђ рAnzahl von was auch immer]ЌђШр Used to be TYPE_PART]Ќђ№р Used to be TYPE ASSEMBLY= 1 ]Ќђр Used to be TYPE DRAWINGEMBLY ]Ќђр Solid data manager.[йЖ2--------------------------------------------------жDocSЖKein Dokument geіffnetA@v–` F!L >œin DokЖKeine Zeichnung geіffnetA@von“)oэ !H.FsрErste View suchen `Аbfnetэ `!.`ogџџР rЌ œnota]ђkA@ДЙ]ђ(]ђP[й `!Šж O]ђ0]ђШgџџXkџџPЗ FB@N `!b'riew –Рэ F!ˆ.`nfэЖSldWorks.Application$B.[йЖ- Annotations found: r$l ж^$э `!Є.Ь ЬАbxjЙџџ˜]ђˆрAlle Annotations durchgehen.р-Aktion mit gefundener Annotation durchfќhren:on dэ Ь!Ў.Ьngoџџ ЬА›Gxj[йЖ>sub DeleteDanglingAnnotations() ------------------------------жЌ'М МЌ 'Мџџџџp]ђ@nЭ аKT Ь!Lъ № №Ќ'аџџџџx Ь!№'юbeit ю$іœr.]ђP ј‘ ю‘E жЌ'вЌ'дЌ'жЌ'иЌ'кЌ'мЌ'оЌ 'рЌ 'тЌ 'фЌ 'цЌ 'шЌ'ъЌ'ьџџ№ вKT дKT кKT мKT оKT фKT цKT шKT ъKT ьKTS рKT жKT иKT тKTЖswGTol'ЦЖswNote'ЦЖswCustomSymbol'ЦЖswLeader'ЦЖ swCenterLine'ЦЖUnknown'ЦЖ swCThread'ЦswNoteЖ swDatumTag'ЦswSFSyЖswDatumTargetSym'ЦЖswDisplayDimension'ЦswDoweЖ swSFSymbol'ЦЖ swWeldSymbol'ЦЖ swDowelSym'Ц= 13ЖswBlock'ЦЖswCenterMarkSym'ЦЖswTableAnnotation'Цџџ[йЖBearbeite Annotation Nr. М$l Ж- Ь!Т Ж- Typ: Ц жџџџџр1Array mit den dazugehіrenden Entity-Typen fќllen:рpWenn einer dieser Entities vom Typ swSelNOTHING (=0) ist, dann handelt es sich um eine freistehende Beschriftungџ њўЌ ю‘’рB A dangling dimension has at least one entity of type swSelNOTHING[йЖ Entity Type( њЖ) =  њ$юж џ њўШ kџџX]ђ€k]ђh Ь!ў'јр0;ist mir jetzt nicht klar, wozu das nіtig ist, aber bitte... њ$ю œ]ђDаhen! [йЖ...wird gelіscht!жјџџџџ№]Ќђ id]ђDИ80aэ F!.1э !.7З FB@N03рZur Auswahl hinzufќgen...З  Ь%('FџџџџjšшР CџџџџџџџџџџџџџџџџjšъшCџџџџџџџџџџџџџџџџjšьџџџџCџџџџџџџџџџџџџџџџт€>џџџџ(џџџџ @џџџџџџџџjšа`Cџџџџџџџџџџџџџџџџjšв Cџџџџџџџџџџџџџџџџа GџџџџpjšдШCџџџџџџџџџџџџџџџџjšж№CџџџџџџџџџџџџџџџџjšиCџџџџџџџџџџџџџџџџjšк@CџџџџџџџџџџџџџџџџjšмhCџџџџџџџџџџџџџџџџjšоCџџџџџџџџџџџџџџџџjšрИ Cџџџџџџџџџџџџџџџџjšтр Cџџџџџџџџџџџџџџџџjšф Cџџџџџџџџџџџџџџџџjšц Cџџџџџџџџџџџџџџџџ@ўџ№ \џџџ џџ џџџџџџџџ`„јџџџџ`џџџ џџџџџџ`„юџџџџPџџџ џџџџџџ`„њџџџџtџџџџџPџџџџ @œџџџџBџџP „hHџџџHP „@LџџџPџџџџ`„џџџџFџџџ џџPџџџџ8jšш0 CџџџџџџџџџџџџџџџџjšъX CџџџџџџџџџџџџџџџџjšьџџџџCџџџџџџџџџџџџџџџџџџџџџџџџ`ШX №№џџџџ 0 џџџџ`џџџџ`ШШАџџџџ(h џџџџџџџџ РџџџџИ џџџџџџџџџџџџџџџџџџџџџџџџџџџџPиџџџџ8ˆ№@рџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ џџџџ@ўџ Lџџџ џџ џџџџ@ўџ8 <џџџ џџ џџџџ@ўџP ,џџџ џџ џџџџ@ўџh џџџ џџ џџџџ@ўџџџџџ џџџ џџ џџџџ@ўџџџџџќўџџ џџ џџџџ@lДџџџџџџџџџџџџ€џџџџ аџџџџPИџџџџџџџџџџџџџџџџџџџџшџџџџ0џџџџџџџџh P џџџџ€ џџџџPџџџџџџџџџџџџџџџџџџџџА џџџџџџџџџџџџа џџџџџџџџџџџџџџџџр џџџџF`Ьавджи@ўџј 4џџџ џџ џџџџ@ўџџџџџ0џџџ џџ џџџџ@ўџ˜ џџџ џџ џџџџ@ўџp џџџ џџ џџџџ@ўџџџџџџџџ џџ џџџџ8 кмортфцшШ ъь>lі@ўџ №ўџџ џџ @ўџ( рўџџ џџ @ўџ@ аўџџ џџ @ўџX Рўџџ џџ @ўџˆ Аўџџ џџ @ўџ   ўџџ џџ @ўџИ ўџџ џџ @ўџџџџџ€ўџџ џџ @ўџџџџџpўџџ џџ @ўџш lўџџџџ @ўџџџџџhўџџџ @ш G@ўџ(dўџџџџ @ўџџџџџ`ўџџџџ џџџџш S@ўџџџџџ\ўџџџџ џџџџ `№(џџџџџџџџџџџџР№џџџџџџџџџџџџџџџџџџџџx0џџџџџџџџџџџџџџџџџџџџџџџџџџџџ4€ ‘E$*\Rffff*5^45912423(*\Rffff*5^45912423\0*\R0*#13*\R3*#21*\R3*#2*\R3*#10f*\R3*#1dd*\R3*#2(*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#10*\R0*#14п0ўЪГ€ 0 € 0€ .8 € р € `x € 8€ `и € \h € и € џџџџ€p€ џџџџ€p€x€˜€P€ џџџџ€€h€€ €€(h„(0„(„,И„*ш„&€  € џџџџ€€˜€ш€№€ј€€€€€ €(€0€8€@€H€P€X€ џџџџ" < @$ шш X +€8Ј"+Р Ј€ џџџџ ш  А€ ји  € Р28ј € џџџџ @ `X `€ џџџџ0€ џџџџ€ џџџџ"а€€ј€`€Ш€ € x € Р €8 € џџџџ€ А € џџџџ€ џџџџ€ џџџџа р  № € џџџџH ј€ џџџџ€ "p€ џџџџ€ џџџџ@ @ P€ 4˜ € xH `` hx Р Ши pш xА €Ш Иј ар ˆ ј ˜    Ј  А8hTo@€ џџџџN € 8˜ Ј€ vаИ€ џџџџ а€ џџџџ H€ H`6IЈ ` € ( X :  ˆ " А ˜  € џџџџ р€ џџџџ№€ џџџџашH€ џџџџh. €  @  ( P (€ џџџџрџџџџа ]ђ`]ђ ]ђk]ђАџџџџP]Ќђир Used to be TYPE NONE FАœong]ђ рAnzahl von was auch immer]ЌђШр Used to be TYPE_PART]Ќђ№р Used to be TYPE ASSEMBLY= 1 ]Ќђр Used to be TYPE DRAWINGEMBLY ]Ќђр Solid data manager.[йЖ2--------------------------------------------------жDocSЖKein Dokument geіffnetA@v–` F!L >œin DokЖKeine Zeichnung geіffnetA@von“)oэ !H.FsрErste View suchen `Аbfnetэ `!.`ogџџР rЌ œnota]ђkA@ДЙ]ђ(]ђP `!Š'>ж O]ђ0]ђШgџџXkџџPЗ FB@N `!b'riew –Рэ F!ˆ.`nfэЖSldWorks.Application$B. !DЌ œdkррэ `!Є.Ь ЬАbxjЙџџ˜]ђˆрAlle Annotations durchgehen.р-Aktion mit gefundener Annotation durchfќhren:on dэ Ь!Ў.Ьngoџџ ЬА›Gxj[йЖ>sub DeleteDanglingAnnotations() ------------------------------жЌ'М МЌ 'Мџџџџp]ђ@nЭ аKT Ь!Lъ № №Ќ'аџџџџx Ь!№'юbeit ю$іœr.]ђP ј‘ ю‘E жЌ'вЌ'дЌ'жЌ'иЌ'кЌ'мЌ'оЌ 'рЌ 'тЌ 'фЌ 'цЌ 'шЌ'ъЌ'ьџџ№ вKT дKT кKT мKT оKT фKT цKT шKT ъKT ьKTS рKT жKT иKT тKTЖswGTol'ЦЖswNote'ЦЖswCustomSymbol'ЦЖswLeader'ЦЖ swCenterLine'ЦЖUnknown'ЦЖ swCThread'ЦswNoteЖ swDatumTag'ЦswSFSyЖswDatumTargetSym'ЦЖswDisplayDimension'ЦswDoweЖ swSFSymbol'ЦЖ swWeldSymbol'ЦЖ swDowelSym'Ц= 13ЖswBlock'ЦЖswCenterMarkSym'ЦЖswTableAnnotation'Цџџ[й >Ж - Annotation Nr. М$l Ж- Ь!Т Ж- Typ: Ц жџџџџр1Array mit den dazugehіrenden Entity-Typen fќllen:рpWenn einer dieser Entities vom Typ swSelNOTHING (=0) ist, dann handelt es sich um eine freistehende Beschriftungџ њўЌ ю‘’рB A dangling dimension has at least one entity of type swSelNOTHING[йЖ Entity Type( њЖ) =  њ$юж џ њўШ kџџX]ђ€k]ђh Ь!ў'јр0;ist mir jetzt nicht klar, wozu das nіtig ist, aber bitte... њ$ю œ]ђDаhen! Зœ.wird k]ђџџџџ№]Ќђ id]ђDИ80aэ F!.1э !.7З FB@N03рZur Auswahl hinzufќgen...З  Ь%('F]ђшЗ FB@*"Aџџџџ [йЖ...wird zum Lіschen markiert!ж[йЖ$Markierte Elemente werden gelіscht!!ж[йЖFehler beim Markieren!!!жррЖ2'>й[й >Ж - Annotations found: r$l жрDeleteDanglingAnnotations[йЖNichts zum Lіschen markiert!!жрYLіscht freistehende Beschriftungen aus Zeichnungen (Maпe, Mittelkreuze, Annotationen ...)рZHerzlichen Dank an Kalle und u.clemens aus dem CAD.DE-Forum fќr ihre Tipps und Beispiele.р'23.03.2006 K. Massler, Alois Kober GmbHрVKleiner Schіnheitsfehler: in "Bildausschnitten werden freistehende Maпe nicht erkannt.џџџџрџџџџLЗAttribute VB_Name = "DeleteDanglingEntit€ies" ' dAnnotations623.03.2006 K. Massler, Alois Kober GmbHXLіscht freistehende Beriftungen aus Zeichn(Maпe, Mittelkr8euz …1...)^Herzl:Щk an Kalle und u.clemensbdem CAD.DE-Forum fќr ihre TPippsBSp i€Œ.€/Klein€fSchіnh€eitsfeh€u: in "Bi,ld]enTn pwerd€C ue nPt erkannt, „OpЉ Exp€_it Dim swApp As `Objec  VШiew Dr €$nn‰ FeaturРzta „Component size!СLongretvalЫNum€s 'Anz@ahl vo€IaСcch immePr C–tР=D@ocNONE€І0 ' Used to b@gYPE† Ъ PartР ‚1Я _PARTЪ ASSEMBLYР 2а…Ъ DRAаWING€ 3 DQJ SDM@ 4@ S€olid da€[€manager@}лbqnСпxSРфСP PubР€ EnЅBpФлType _e swЄCT€Њad€1…BD€umTagР2ЬrgetSym@3Fispla^yр@bРy`4eG(Tolр5хNo‘€…= 6хSF€ bb7eWeldІ8ЅCusto mц9хDowe&lР  10…LeDadl= 1fBАlock&CРPРerMarkФ&рTable'ƒЁ&нЃLxСE ‚A,!mSub main(РˆDebug.Pri€]"-3,ІSeсWсv= Cr`meƒw("SldWorks.w€@<ЂЈ"`!Сw=у}.ActiveA ` If !I”s `0h Г T І&MsgBox "Kр’ Doku€›t geіff8net !Eр )IfЂ (Р .GФetЁI <>#mфW2)” e Вк &Z Ъ2  ClearS€Ј on2 Tru X'ErЦs!а!™suc‚#'чa€4фFiрAР‹рo Whi Й@!рџт#c"Bja)aaмфGE‘ЩGFCoun€Ќс&щ@† + "ˆ - чs f Єd:Р+ x(Ф `:aC@8Ѕ> 0џH,AaьС…7a*$Dswexta р LoopAZРZщA  – B/ fё@'ual@G{I']іiл\#SТJa“Ѓ_Fv€…€ƒArr‘V№ariaб‘NЄA'Чяan№!Mgr ЁPЯe2F# #sw0pNР@Упq?050уGs HЏтt—() I4?s'A‘Щ*durјchga—YC аџ 7‡%в7'š"РZSDл9‘Э9б'AkЉ’ŽmiЁJf€™eA•%7 R fќрmn:ЃqS CaseџА?рEL'aєдqЛџёЧ+JVtt1D§ uёt_\…oБ џд$xЯЯQф/"џМ{OM oaaЏџЌAяс`Yф‰…qџьAясE…,…џoawˆŒЇЏЁџЩ‹ЯЬЩяс5ЏџЌ…oaS’OLcџ/!R•RџJ˜ŒкМ›/,ќOW AŸџ/ t erЁЏe El sŸ- *Unknјownи"xbз_…аї]… Nr." Ы…ЙV)0"-‘bСџ•RСcˆV W—rxDГntArr = swAnn.GetAttachedEntities2 'ist mir jetzt nicht klar, wozu das n іtig P, aber bitte... %'ЮayŽt denhzuge`hіrenmy-Typfќlаlen:;v”!+­y srWe@nn eindЪg vom .їSelNOTHING (=$0)bda€ha€Mlt es sz um& fre€teh] Beschriftung=If Not IsEmptФy( `) T€“Debug.Assert U`Bound…|)€г x ‘%For„ i€0 ToŒ%G h‚' A€fngling dimension h€xat leaA€‚one eA‡yр of t€lJQK4AC5Print (" Т`yA_e(" &)& ")Ž €*A‹J(i)ЯчWN @swˆrGXТ5'Zur Auswahl hinzufќgen ЋЩ J/@ wirdd zР‚Lі@~€Ћmarkil!"*сbRet‚'Aи€(ect3(True,УMData)HЛ €:„FalseŽI ХŠ*Fehl@Мbeim M!ƒ(en!!U)Enpd If/щЋN€ext i Їћu'S@!B"@Ž Ю3g`CIsh@4gт Exit Do'ActualnumAŽ= Ъ8+ 1$ЃLoop#Т Р1Mgrƒсž3edObj4ТC@ot > €gFu*,Є*te ElFe@ewerС™gelCtЊ-Drw€.Deletec wkЂ:уEр;# NAЎs“Nх9e/ !Sub џџ  ѕ lџ lџќ4§ш5lџ_Wlџ ќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џ Nlџlџ 6lџ<џџќџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџH€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџswCThread swDatumTag swDatumTargetSym $swDisplayDimension swGTol swNote swSFSymbol ) = swCustomSymbol swDowelSym swLeader swBlock swCenterMarkSym "swTableAnnotation swCenterLine џџџџpџџџџYџџйёс  ThisLibraryDeleteDanglingEntitiesDeleteDanglingAnnotationsяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Qџџџџ yс0€lІгЈН†Лж !C:\Programme\solidWorks\swvba.tlb SolidWorks IџџџџqС@0РFC:\WINDOWS\system32\stdole2.tlbstdole swWeldSymbol 9џџџџaЉP1=ЃƒХ'ЮПд@ЛW $C:\Programme\solidWorks\sldworks.tlbSldWorks aџџџџ ‰с`main ,,0 ( d-------------------------------------------------- ˆ (SldWorks.Application]ђшЗ B@*"Aџџџџ џџџџ$ЗAttribute VB_Name = "DeleteDanglingEntities" Option Explicit Dim swApp As Objec,(Vie2w *Dr$=nn 'TFeatur9…ta D Co€mponent sizeLong\retval Numbers 'Anzahl v€xwas auch immer Const€{DocNONEš0 ' Used to beР TYPE  ŠPPart€1_PARTŠASS EMBLY€2-ŠDRAWIN:G3„ŠSD M@ 4@ Solid da€[man ager.СwPuBbРz EnuТynnotaTyp@e_e swCThread€1…D€omTa gР2Ьrget(Sym@3FisplayŽensј= 4ХGToJlР 5ХNo€Ћ=Є 6ХSFbТB7ХWeldF8ECustomЦ‚9ХDowel€)@10L4erƒЦ4BlockAF4C€›erMark„F4TableAЦKA F4C LinХл16End‚XA\Sub main()РЊebug.ШPriЕ"-.€ьŒSeСЉСч= CРhteщ("SldРWorks.€@<]Ђ:"`!Сt=уz.@Active ]  If !Is `0h`ƒ Then&MsgBox "Kein Dokum!qgeіfpfnet !Eр R IfЂ (Р .ˆGetЁI <>#jфT)” e Zei€chnung й  'rw.Clea rSš on2 Tru V'Ers{až!”sрz#%‚–=sСсFiрA€ oР WhileAр—т!c DШ5swAСЊFeŒa+ХgDC8oun Ї%) "-" gs f d: " + Str~(D 7сур4% >ќ 0ш(Aa+МЈ у%4AЪ"ˆext!Р LoopсVг`WA  – "[урЦ Kual ‹рЎkБіiЫРCSрд>€Ь#2 vрзргArrСVaria!(сЯ'D!Kбsw€BMgўr@a ea&E@C љ€™a A †fсУŒbRm Boo N‡`bЧЌ@NOTHГџР‹#$g+рƒN€@ш§  MƒА2ƒ0`ЁGћ`€.Cz€€ƒс oЁj_У ЊKs№FЏtсђ@s() _G„=1s'Al2Щ*duрrchgeVBsSџC аАQ‡%"7'Ѓš"є= YD+9‘9бˆ'Akb‹mitCРfunden€]7’ R fќ0ln:ƒqS Case?џрС<ё$'aє$pЛџёФ+ •Іrt1ћD uAs_\…oџБ дtvЯЯQф/џ" zOM oaБ}џЏЌAясЁ€яьџAяс•ƒ/,…oџaЧ†ŒЇЏЁŠџЯЬЩяс…ЏЌџ…oaЃOLc/џ!Ђ“Rš–џŒк š/,?ќOW ‘џ/ terЁЏe ElsдЕ%Bq*Unknјownи"xВŽзК^bBРbei иON,r.Х„yV)†"-™‘swФOт+ ‰џ€#ˆ —4xёw1kƒT0{ached…хрЭiадmir j@etzt nрt klar, wozuPЩs nіtig €, aё‚bitte..‹@Ъ'pay a^^@zugіre'_рЕ`ьy-№ enј fќ€jЙ^” бп з ys'We‡АыЏ№ddies`ѓU pуm р c€d€(=0)C dahaА lt es4 s@ @жС f reasde BeschriftЏЇ1žot IsРEmpty( ЙГ''у As  t UBПБound(vAttEntArr) = UB  TyФpe` ƒ$ For ibp0 Tol`' A dangling dimension has at least one entity of t‚ swSelNOTHING …TDebug.Print "  Ь;Л(" &СЄ& ") Њ #юй(i)'If Ž€ B ThenqZur Auswahl hinzufќgepn...“Š^€wird gelі@scht!"bRetIAnn.€ect3(True,ƒ•Data):End Ifƒ ‹Next јi GЩ 6ХG2S!sw€ †"Ge:t3ЧSƒIsP NotDgO €Exit DoG Actualnu0mberŠ+ 1 "CLoopCCswModel.DeleteƒУEС—FalseС6С4Sub џџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџH€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџargetSym $swDisplayDimension swGTol swNote swSFSymbol swWeldSymbol swCustomSymbol swBlock swCenterMarkSym "swTableAnnotation swCenterLine Unknown 0Bearbeite Annotation Nr. -GetName џџџџpџџџџYџџйёс  ThisLibraryDeleteDanglingEntitiesDeleteDanglingAnnotationsяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Qџџџџ yс0€lІгЈН†Лж !C:\Programme\solidWorks\swvba.tlb SolidWorks IџџџџqС@0РFC:\WINDOWS\system32\stdole2.tlbstdole swLeader 9џџџџaЉP1=ЃƒХ'ЮПд@ЛW $C:\Programme\solidWorks\sldworks.tlbSldWorks aџџџџ ‰с`main ((,  d-------------------------------------------------- ˆ (SldWorks.ApplicationActiveDoc ,Kein Dokument geіffnetGetType 0Keine Zeichnung geіffnetClearSelection2GetFirstViewGetName2 Œ $GetAnnotationCount *- Annotations found: GetNextViewVBE6.DLL I џџџџЬ а I џџџџS № I џџџџe  swDowelSym- Typ: GetNext3 (GetAttachЉ  q Љ щ AЁбA‰Й Сй YБљЙ)ЁсAЁ  YyБ)Qyр  џџ  ѕlџ  lџќ4§ш5lџ_Wlџќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШ_Wl@4џ _ WРў$ќ‹:џ%4џћ”№ў:рў&ћ”аўРўћ”Аў: ў'ћ”ўlpџF€ўћ”pўџџ 64џ№ўаўРўАўўpў_ W4џ)ќі`џ_ W4џ*ќіPџedEntities2 ,GetAttachedEntityTypes  Entity Type( ) = "...wird gelіscht! I џџџџ. 0EditDelete  SelectionManagerY=ЃƒХ'ЮПд@ЛW$хђMDЧ‹L’е–ьЅ аSelect4Select3LdowЋ„ €џџџ_B_vaYƒ„…†‡ˆ‰Š‹ŒŽ‘’ўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџ +Ур`џќ5IєќЫPџќ5IєќЫЧџ ѕtџPџќ5IєќЫўdhўрItџ§“@PџўЎ№ўќ‹,ltџћў#dў*#`ў-*F4џ№ўћяаўџџ 2dў`ў64џ№ўаў tџ§“@PџўЎ4џ(џ]ћ354џд .џџ  :c џ%lHџќј0џ0џ§“ @_ ўš4џ4ќ‹l0џ=2Hџ4џќVpFџ0џ54џ tџfhў$_ W4џ(ќ4§ш 54џ” ќcћв lxџѕЊqxџp$<pЇ$џLџpџ`џHџPџ4 dў`ў0џ4џ№ўаўРўАўўpўмfrU€€€€~| 5ЩЉСi )Yй Щ Щ 9 Q I Љ rU€€€ џџџџџџџџ,$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџnq  Љ ! i Љ a ЉЩ р  џџ  ѕ lџ lџќ4§ш5lџ_Wlџ ќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џ Nlџlџ 6lџ<џџќ ѕqxџ” ќcћвУ_ W4џќіџџўС џ]ћ3­Cpџ[џўС џ]ћ3ЫCpџ[џўС џ]ћ3щCpџ[џўС џ]ћ3Cpџ[џўС џ]ћ3%Cpџ[џўС џ]ћ3CCpџ[џўС џ]ћ3aCpџ[џўС џ]ћ3Cpџ[џўС џ ]ћ3Cpџ[џўС џ ]ћ3ЛCpџ[џўС џ ]ћ3йCpџ[џўС џ ]ћ3їCpџ[џўС џ ]ћ3 Cpџ[џўС џ]ћ33!Cpџ[џўС џ]ћ3Q"Cpџ[#CpџfxџM џ5hџ” ќcћв­РlxџѕЊqxџ0'dФ$ hџ8џ(џџfддџџџџл/ТtYрџџ#ˆЖџџвмц№ШџџџџџџџџџџџџxbџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўќШ_Wlџ(\џ]ћ@5lџЮ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШc\џ%_ў˜_Wlџќ4§ш5lџ”ќcћвУ_Wlџќ‹lџџџ  5lџ_Wlџќ"™$5lџ/$M\џ@lџ :Lџlџћ”<џџџ  6lџ<џ”$ѕл _Wlџќ4§ш5lџј€ $ lџ<џџќўФ џџ  _Whџќ4§ш 5hџ ѕqxџ” ќcћвУРDxџMXџ@hџ _ W(џќ‹:Hџhџћ”8џ(џћ”џџџ  6hџ8џ(џџ_ Whџќ4§ш ActiveDoc ,Kein Dokument geіffnetGetType 0Keine Zeichnung geіffnet 2ClearSelection2GetFirstViewGetName2 $GetAnnotationCount , - Annotations found:  ŒGetNextViewVBE6.DLL i џџџџЬ и i џџџџS ј i џџџџe   Unknown " - Annotation Nr. Љ  q Љ щ AЁбA‰Й Сй YБљЙ)ЁсAЁ  YyБ)Qyр  џџ  ѕlџ  lџќ4§ш5lџ_Wlџќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШ_Wl@4џ _ WРў$ќ‹:џ%4џћ”№ў:рў&ћ”аўРўћ”Аў: ў'ћ”ўlpџF€ўћ”pўџџ 64џ№ўаўРўАўўpў_ W4џ)ќі`џ_ W4џ*ќіPџ-GetName - Typ: (GetAttachedEntities2 ,GetAttachedEntityTypes  Entity Type( :...wird zum Lіschen markiert!Select3 0Fehler beim Markieren!!!GetNext3 HMarkierte Ele”$ѕлŒ _Wlџќ4§ш5lџ€А$ lџ<џџќў ”_W4џ§ѓLџ54џ0џLџ ”l0џ=Hџ0џc џ%_ў˜ддџџџџл/ТtYрџџ#ˆЖџџmente werden gelіscht!!DeleteSelection i џџџџ. 8 :Nichts zum Lіschen markiert!!џџџџџџ  џџ  _W4џќ4§ш 54џ ѕqxџ” ќcћвУBPџ +Ур`џќ5IєќЫPџќ5IєќЫЧџ ѕtџPџќ5IєќЫўdhўрItџ§“@PџўЎ№ўќ‹,ltџћў#dў*#`ў-*F4џ№ўћяаўџџ 2dў`ў64џ№ўаў tџ§“@PџўЎ4џ(џ]ћ354џд .џџ  :c џ%lHџќј0џ0џ§“ @_ ўš4џ4ќ‹l0џ=2Hџ4џќVpFџ0џ54џ tџfhў$_ W4џ(ќ4§ш 54џ” ќcћв lxџѕЊqxџp$<pЇ$џLџpџ`џHџPџ4 dў`ў0џ4џ№ўаўРўАўўpўмfrU€€€ џџџџџџџџ0$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџnI Љ rU€€€€~| 8бБЩ‰ 1aљ б ™с! Q i Љ  Љ1 Y  Љ Й I‰сAqЁС Y™бQЉё ѕqxџ” ќcћвУ_ W4џќіџџўС џ]ћ3­Cpџ[џўС џ]ћ3ЫCpџ[џўС џ]ћ3щCpџ[џўС џ]ћ3Cpџ[џўС џ]ћ3%Cpџ[џўС џ]ћ3CCpџ[џўС џ]ћ3aCpџ[џўС џ]ћ3Cpџ[џўС џ ]ћ3Cpџ[џўС џ ]ћ3ЛCpџ[џўС џ ]ћ3йCpџ[џўС џ ]ћ3їCpџ[џўС џ ]ћ3 Cpџ[џўС џ]ћ33!Cpџ[џўС џ]ћ3Q"Cpџ[#CpџfxџM џўџџџzџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_ W4џќіџџўС џ]ћ3­Cpџ[џўС џ]ћ3ЫCpџ[џўС џ]ћ3щCpџ[џўС џ]ћ3Cpџ[џўС џ]ћ3%Cpџ[џўС џ]ћ3CCpџ[џўС џ]ћ3aCpџ[џўС џ]ћ3Cpџ[џўС џ ]ћ3 Cpџ[џўС џ ]ћ3Л!Cpџ[џўС џ ]ћ3й"Cpџ[џўС џ ]ћ3ї#Cpџ[џўС џ ]ћ3$Cpџ[џўС џ]ћ33%Cpџ[џўС џ]ћ3Q&Cpџ['CpџoxџM џ@4џ _ WРў(ќ‹”()*F№ў4џћ”рў:џ*ћ”аўРўћ”Аў: ў+ћ”ўlpџF€ўћ”pўџџ  6№ў4џрўаўРўАўўpў_ W4џ,ќі`џ_ W4џ-ќіPџPџ .У`џќ5IєќЫPџќ5IєќЫЧџ ѕtџPџќ5IєќЫўdhўItџ§“@PџўЎ№ўќ‹/ltџћў#dў*#`ў0*F4џ№ўћярўџџ  2dў`ў64џ№ўрў tџ§“@PџўЎ4џ(џ]ћ354џї 1џџ  :c џ%lHџќј0џ0џ§“ @_ ўš4џ2ќ‹l0џ=Hџ4џќVpFџ0џ54џ kFџєЦѕ 3џџ   tџfhў-_ W4џ4ќ4§ш 54џ” ќcћв/BlxџѕЊqxџp\ўLџ l\ўѕл} 5џџ  ќf џ%_ў˜6Œ 7џџ  kЃ ”<t$џLџpџ`џHџPџ8 dў`ў0џ4џ№ўрўаўРўАўўpўмfвмц№Шb‘!yЙщIQБс ‘Й1a С№А џџ  ѕlџ  lџќ4§ш5lџ_Wlџќ4§ш5lџ”ќcћвƒ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШ_Wlџ(\џ]ћ@5lџЮ+'ќў'џ'<џѕ:\џNlџlџ 6lџ<џџќўќШ  T(c\џ%_ў˜ _Wlџ ќ4§ш5lџ”ќcћвУЊ_Wlџ `§ч(5lџ_Wlџ ќ"™$5lџ8$M\џ@lџ ”(*F<џlџћ”џџџ  6<џlџџ