аЯрЁБс>ўџ ўџџџ 5џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџакИУукР8apcџџџџџџџџЋMs"какИУукThe VBA Project џџџџџџџџЋMs"какИУук_VBA_ProjectџџџџџџџџЋMs"какИУук§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ#'џџџџ$%ўџџџџџџџџџџџџџџџ§џџџ§џџџџџџџ&ўџџџ8,џџџџџџџџ.џџџџ0џџџџ12346џџџџ7ўџџџ9Hџџџџ<=>?@ABCDEFўџџџџџџџIJKLM‡OPQRS~џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€Root Entryџџџџџџџџ€€…їкР,apcџџџџџџџџЋMs"к€€…їкThe VBA Project џџџџџџџџЋMs"к€€…їк_VBA_ProjectџџџџџџџџЋMs"к€€…їкџџџџџџџџ§џџџ %њј§џџџ џџџџџџџџџџџџ*џџџџџџџџџџџџџџџџџџџџџџџџ-џџџџџџџџџџџџ+ўџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџ"џџџџ џџџџ\џџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџUVWXYZ[ўџџџ]j_`abcdefghiўџџџklmnoyqrstuvwxўџџџН{|}џџџџџџџџHost Project Item Names0џџџџ №єOs"к0Н…їкVBA Project Data"џџџџHHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ !3ўџџџ'žўџџџ#$ўџџџўџџџўџџџ()*ўџџџ,-./012ўџџџ4ўџџџ6789:;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopўџџџrstuvwxўџџџz{|}ўџџџ€Эє{Аgg*ThisLibrary*{0bg*5{аgg*L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{Pbg* L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{№ag*";{hg*$={аbg*&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И_ТО‚ƒ„…†‡ˆўџџџŠ‹ŒŽ‘’“”•–—˜ўџџџš›œўџџџŸўџџџЁўџџџЃЄЅІЇЈўџџџЊЋЌ­ЎўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџC:\Users\Unger\Desktop\Nc\SolidcID="{09BC3F32-49D7-4A58-BA17-CD7ED1090853}" Document=ThisLibrary/&H00000000 Module=Macro11 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Modul1 Module=Modul2 Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="57558929B959D75DD75DD75DD75D" DPB="7173AF50B050B050" GC="8B89557D6E7E6E7E91" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace]am Makro\Farben Definitinition E1538, 639, Modul2=60, 347, 1379, 933, ‘ThisLibraryThisLibraryMacro11Macro11UserForm1UserForm1Modul1Modul1Modul2Modul2Macro1 ThisLibraryMacro6@erForm1Modul1,яРF1C:\PROGRA~1\COMMOУМTahoma2*€€Label6E4" ї€declaIdАTru BExposeTemplate`Deriv’BuРstomizD2PreVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Farben Definition 1.2" ClientHeight = 6375 ClientLeft = 120 ClientTop = 465 ClientWidth = 4695 TypeInfoVer = 34 End @@@~xval\Farben Definition V1.2 .swpЬD-iџџџџ‚ƒ„…†ЂџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЃІџџџџџџџџўџџџЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМўџџџОђРСТУФХЦдџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџежзьџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџэюя№ёўџџџ џџџџџџџџџџџџџџџџџџџџљћ/ўџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџ№єOs"к0Н…їкProject_Data_CurVer( џџџџ& Host Project Item List Data8џџџџџџџџџџџџ%VBAџџџџџџџџ№єOs"к@ф…їкPROJECTwmџџџџџџџџџџџџ"†PROJECT џџџџ jThisLibraryџџџџџџџџ‰њMacro11џџџџџџџџџџџџП#Host Project Item Names0џџџџ №єOs"к>ИУукVBA Project Data"џџџџ№Host Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ !3ўџџџ'ўџџџўџџџ#$ўџџџўџџџўџџџ()*ўџџџ,-./012ўџџџ4ўџџџ6789:;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopўџџџrstuvwxўџџџz{|}~ўџџџ€Эє{`эThisLibrary*{ч5{ юL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ш L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ ш";{@ю$={Рч&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И3ТfUserForm1 џџџџp‡ .к€€…їкo!џџџџЂ„CompObjџџџџџџџџ aVBFrameџџџџџџџџџџџџ™ C:\Users\Unger\Desktop\Nc\SolidcID="{09BC3F32-49D7-4A58-BA17-CD7ED1090853}" Document=ThisLibrary/&H00000000 Module=Macro11 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Modul1 Module=Modul2 Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="2527FB890B110F110F110F110F" DPB="B1B36F9070907090" GC="3D3FE391E31CE41CE4E3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace]am Makro\Macro1.swpЬD-1538, 639, Modul2=60, 347, 1379, 933, I ‘ThisLibraryThisLibraryMacro11Macro11UserForm1UserForm1Modul1Modul1Modul2Modul2Macro1 ThisLibraryMacro6@erForm1Modul1,яРF1C:\PROGRA~1\COMMOУМTahoma*€€Label6 4" ї€ThisLibraryџџџџџџџџ№єOs"к>ИУукProject_Data_CurVer( џџџџ& Host Project Item List Data8џџџџџџџџџџџџ%VBAџџџџџџџџ№єOs"к>ИУукPROJECTwmџџџџџџџџџџџџ"†PROJECT џџџџ kThisLibraryџџџџџџџџŠњMacro11џџџџџџџџџџџџи#UserForm1 џџџџp‡ .к0дA†Šкo!џџџџж„CompObjџџџџџџџџдaVBFrameџџџџџџџџџџџџа§ ThisLibrary=0, 0, 0, 0, C Macro11=142, 56, 833, 564, UserForm1=784, 7, 1475, 515, I, 254, 25, 983, 645, C Modul1=193, 87, rU@@@@~~~~~~fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ qсswFeat Qб0 QP џџџџџџџџp ThisLibrary=0, 0, 0, 0, C Macro11=142, 56, 833, 564, UserForm1=784, 7, 1475, 515, I, 254, 25, 983, 645, C Modul1=193, 87, rU@@@@~~~~~~fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ qсswFeat Qб0 QP p__SRP_2џџџџЛProject Item Data$џџџџš Control List Data$џџџџџџџџ%>ИУук>ИУукReqControl List Data*џџџџџџџџ$>ИУук>ИУук‚ƒ„…†‡ˆ‰ўџџџ‹ŒŽ‘’“”•–—˜™ўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџбвгўџџџеўџџџзийклмўџџџопрстўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCompObjџџџџџџџџџџџџpControl List Data$џџџџџџџџџџџџ›(џџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ(__SRP_2џџџџ~ЋProject Item Data$џџџџЏ Control List Data$џџџџџџџџ%0Н…їк0Н…їкReqControl List Data*џџџџџџџџ$0Н…їк0Н…їкReqControl List Data*џџџџџџџџџџџџВ Control_Data_CurVer()џџџџџџџџБ fџџџџџџџџџџџџ+сo&(џџџџ CompObjџџџџџџџџџџџџpControl List Data$џџџџџџџџџџџџА(џџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ(Modul1 џџџџџџџџNžModul2"џџџџH- _VBA_PROJECTџџџџџџџџџџџџ;”fџџџџџџџџџџџџнFўџџџџџџџџџџџџџџџџџџџџџџџџџџџв‰Š‹ŒŽ‘’“”ўџџџ–—˜™š›œžŸ ЁЄџџџџџџџџЅШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЩЬЪЫѓЭЮЯабўџџџгъџџџџџџџџџџџџџџџџйклмнопрстуфхцчшщўџџџыєџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџѕіїЧџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџModul1 џџџџџџџџpžModul2"џџџџH- _VBA_PROJECTџџџџџџџџџџџџ^”fџџџџџџџџџџџџЉFdirџџџџџџџџџџџџ5Кi15џџџџ' n`єЮ›ЭЊ`ŽРеn†к0дA†Šк__SRP_0#џџџџ)E__SRP_1џџџџџџџџџџџџ__SRP_3џџџџџџџџџџџџyLUserForm1џџџџ•™*__SRP_4џџџџˆ`__SRP_5џџџџџџџџџџџџqњџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџReqControl List Data*џџџџџџџџџџџџ Control_Data_CurVer()џџџџџџџџœ fџџџџџџџџџџџџ+сo&(џџџџ  Qџџџџџџџџ Qџџџџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџџџџ *€€Label14# ї€@УМTahoma*€€Label44" ї€@УМTahoma*€€Label24" ї€@УМTahoma*€€Label34" ї€@УМTahoma*€€Label54" ї€@2DLabel5'q(ѕ€ 2DLabel6'Ї(ѕ€ 2DLabel7 ЖЇ(ѕ€2DLabel8 ЖqdWorks ‘џџџџџџџџџА featColors selection*E-BFD4€H400513BB@57}#1eIProgram FileLOLIЖД€0* pH‚dф€Macro1$@T=­j €4y>g J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#“K*šџџџџrU€@@@~~~~~~~~~~~ ~~~~0"џџџџџџџџQ$чrvwІEˆ‡@З_хй фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџqAЁ џџџџџџџџџџџџџџџџџџџџџџџџQЁџџЁƒ€adirџџџџџџџџџџџџ5Кi15џџџџ' n`єЮ›ЭЊ`ŽРеn†к№Йн|їк__SRP_0#џџџџ:•__SRP_1џџџџџџџџџџџџ__SRP_3џџџџџџџџџџџџy8UserForm1џџџџЇЈ*__SRP_4џџџџzœ__SRP_5џџџџџџџџџџџџqібџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСёq‘  A Macro1  QЁ Qўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџџџџ *€€Label114# ї€@УМTahoma1*€€Label4U4" ї€@УМTahomaC*€€Label2C4" ї€@УМTahomaL*€€Label3y4" ї€@УМTahomaU*€€Label524" ї€@ThisLibraryMacro11 UserForm1Modul1Modul2яРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA 1џџџџџџџџ aсџџџџџџџџ€lІгЈН†ЛжYѓ‡FаUгLЖЯ.Д,љ‰SwConst5C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb SolidWorks ‘џџџџџџџџ‘2DLabel52'q(ѕ€ 2DLabel60'Ї(ѕ€ 2DLabel7EЖЇ(ѕ€2DLabel82ЖqdWorks ‘џџџџџaА featColors selection*513BB@57}#1eIProgram FileLOLIЖД€0* pH‚dф€Macro1$@T=­j €4y>g J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#џџџџџџџџ0РFC:\Windows\System32\stdole2.tlbstdole Qџџџџџџџџбџџџџџџџџ1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlbSldWorks џџџџџџџџБAџџџџџџџџ7C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb СџџџџџџџџёџџџџџџџџŸоС М?%L†}N‘9Ьр:C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb SwCommands ! џџџџџџџџQ с џџџџџџџџztщb6nC‚ трSFC:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb SWUtilities \нОkз‰Й@’дщ•7И- Ё џџџџџџџџзб q џџџџџџџџс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms Ё Ё б ! џџџџџџџџEўЅLŸDЊI‚tяš8жѓ1C:\Users\Unger\AppData\Local\Temp\VBE\MSForms.exd б Ё ! џџџџџџџџDetermineHoleTypes ShowUserFormmainHoleTypeBestimmen8=ЃƒХ'ЮПд@ЛWДІеTс€CdW€Grkдs€HŽ€ „€H83A33D31-27C5-11€CE-BFD4€H400513BB@57}#1eIProgram FileLOLIDWORKS Corp\S†\sldwB‚U…H 2022 Type €LibraryC€SwC€onst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ч6B-AТ&ant t/l ‹/ A,€/mmand^СD0mmАan€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E913р9CCE0і1ƒ"”2 ’2 'SWUt@ilitieР2ЋU€Еi“iТje‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}#7d7,.5ƒЗщ’uР#s\№gtswF&6 L15ЖLMSFormрЁLMSF•Bcmр3 "3D452EE1-E08F-101A-8-02608C4D0BB4 uINDOWS\suFM20.@DLL#MiрŒsPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@B0Тq#`Ч@ƒgи0ЂР%~4CA5FE45ˆ-44 O49A@@274-EF NA`38D6FР4fUsers\Unger\AppData\Local\Temp\VB„E\D.exdџ$~с.E р….`ŒM Д "Д!т•ŽaQThЄis„…GaQT@Њi 5Lib‚r`kryŠ2˜  HЂj1тК;РЦ",Q"Kф""+ЂSb”уЦ1Gb”M`cQ o1  2CЏ­Эє!Њ  0сGрЖС eр%W1 йЪ2г/K€H-”eТу(@ ЅaЂцodul€спMq€edu‚СЇ27bрЉЏ–­Љ!гы& 2G, 2РЇiэ 2џарe§™љ‘rџџџџџџ“K*šџџџџrU€@@@~~~~~~~~~~~ ~~~~0"Q,aѓ@w2FžQ~G2щ# фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџqˆaџџџџџџџџЁ џџџџџџџџpџџџџџџџџQЁџџЁЬašџ фў*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SolidWorks 2022 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}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2022 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2022 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2022 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4CA5FE45-449F-49AA-8274-EF139A38D6F3}#2.0#0#C:\Users\Unger\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дџџџџџџ4y>gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ•ŽThisLibrary07673f420aџџ-ThisLibraryџџKф;џџMacro110<673f420aџџ0Macro11џџЭ0џџџџџџUserForm10=673f420aџџOUserForm1џџeТ0K#џџ Modul10:673f420aџџР Modul1џџЉ!H– џџ Modul20;673f420aџџо Modul2џџ™`аџџx€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџR‡{Р‚Д|LНYИyџџџџыл{ju‘аN—š јtЖЌ€џџџџˆТoњxJ‰žрFТyWнџџџџ&B(› ЭM‘—z,DJХџџџџ$ФLFŽ1F 'ЉхбУџџџџџџџџ€{ј= SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Macro1еNstdole“`ˆ џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕMSFormsC ThisLibraryGЉ €џџџ_Evaluateй Macro11n Ќ(DetermineHoleTypes”УswAppы‘swModel[ƒ ModelDoc2Ї^swFeatчиFeature!>holeTypeє@ ApplicationЅ* ActiveDocк’ FirstFeatureaн GetTypeNameoшЌ(HoleTypeBestimmenЅ>GetNextFeatureХ; Ќ(ShowUserFormЧ UserForm1)жShowѕ vbModelessZ Ќ(mainˆ,holeDefkф featColors#2faceArr>oneFace<swFaceОУFace2ћswEnt ЇEntityŠѓ GetDefinitionьMaterialPropertyValuesјKGetFaces# IsEmpty љ ForceRebuild35Ъ ErrorHandlerOholeDataѓ{isBlind&W vbTextCompare QErroŠ DescriptionО UserForm_ActivateZsTop5кcmdAutoColor_Click­тComboBox1_Changea colorValuesЕySetColorForSelectionЌ$ ComboBox1'иValueфK ColorDisplay'v BackColorоƒCommandButton1_ClickфСswSelMgr#% SelectionMgr0SelectionManagerХѓGetSelectedObject6а/MsgBox—R vbExclamation…ШЌ(ApplyColorToSelectedFeatures­hCommandButton2_ClickєљЌ(RemoveFaceColorsI7UserForm_ClickлјUserForm_Initialize5cAddItem‡  ListIndexїQLabel1,CaptionxLabel2Ž,Label3,Label4,Label5‘,Label6’,Label7“,Label8”, selectionZЎ Modul1Э swSelDatavэ SelectDataЌƒ swFaceFeatЈ^status’+ materialProps­ЉCreateSelectData‘ GetFaceCountр ClearSelection2Ј§ GetFeatureЋ;Select4ЦГЌ(DelaySsecondsиƒendTimeК7TimerX Modul2ЮswPartЂ~PartDocЛІ swFeatureHvFaceArrТчbRet\i`GetType)J swDocPARTЮMRemoveMaterialPropertyЊ#UserFormNCommandButton1|д cmdAutoColorНFCommandButton2}дFrame1Й€џActivate—|€џClickŠу€џChangeЃЧ €џInitializeгNџџЈ1џџџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOСџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ*џџ-џџџџџџZ  First†K‡ While No&t  IshiќngЧ †NA С+?ATЦ† С€4AIs@Empty(Х)ƒ 3… For iРЄ@LBound‰ oќ UЬK%EZС"€yƒ€aџџџџџџџџбџџџџџџџџё1qБё1aЁџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСёq‘  A №тдџџџџюЪ•Ž™џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџ<џџ<<џџ <0џџ<8џџ<џџџџџџ("""8"т"<"`џџџџP Ђџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$$„ „4џџџџџџџџџџџџp% „6џџџџџџџџџџџџ% „рџџџџџџџџџџџџА% „фџџџџџџџџџџџџа% „^џџџџџџџџџџџџ№ %`„цџџџџџџџџџџџџ џџ`„шџџџџџџџџџџџџ џџ`„ъџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@4y>gпўЪ&€€ џџџџ"€€€ €(€0€8€@€H€ џџџџP`€ џџџџp €€ џџџџ   А Ра№ F h p € ˆ˜ Ј€ џџџџИ€ џџџџ€ џџџџџџџџШаџџx–]ѕX]ѕx]ѕ˜]ѕИ]ѕи]ѕј]ѕ]ѕ(№ @!".4№ 4!B.6 6!ь юœ№ 6.р№ р!D.ф фВї ф%j'ц ц$lœ ъ цŠ ц‘’№ ъ$ц.^ ^Вœ ^%№'ш[мЙFace from Feature ф!Й Material removed?  шйkџџ ъЫkџџx№ ф!J.фіџџ`kџџXК 6B@noџџ@џџџџ8џџџџYВAttribute VB_Name = "Modul2" Option Explicit Sub RemoveFaceColors()  Dim swApp As SldWorksЮ. FТel JDoc2 &Part %$ #Fea№ture & &­ #lvgArrVarianwjbRe‚CBooPlean‡+iIРntegerŽfS€ƒ‚= €…€œa/ЂŒƒƒƒƒ=ƒš.A`ctive‚o1If€ ‚.GetT$ypЯsw€PAРRT The„E‡;џ™(#‡–Р.First†K‡ While No&t  IshiќngЧ †NA С+?ATЦ† С€4AIs@Empty(Х)ƒ 3… For iРЄ@LBound‰ oќ UЬK%EZС"€y…(i„ЌE Х„'sўw G<”'… ˆ‚?@•B.УЧMateР‘lРProperР:”СDebug.P@rint "‚from E^" &…Чa.‚щ& " E$ rфd?Р& С"“BEnd IfЯNext iыqD)nЌ=ф' W˜endЃх swуY;ceRРild3 (False9$ €ŒЁi rU@@@џџџџџџџџџџџџш8с`˜8џџџџџџџџџџџџџџџџ8џџџџџџџџ` 8џџџџџџџџџџџџџџџџ8џџџџџџџџ`Ј8џџџџџџџџџџџџџџџџ8џџџџџџџџ`А8џџџџџџџџџџџџџџџџ8џџџџџџџџ`И8џџџџџџџџџџџџџџџџ8џџџџџџџџ`Р@џџџџџџџџџџџџџџџџ8џџџџџџџџ`ШHџџџџџџџџџџџџџџџџPџџџџџџџџ`‘џџџџџџџџџџџџџџџџџџ№JдџџџџX •ŽЉ!џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџ џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџ<џџ<џџ< <џџ(<(0<џџџџџџ8"""8"”"Ф"<"`"dџџџџЈ žџџџџџџџџџџџџџџџџXџџџџџџџџ99„iƒXџџџџџџџџџџџџ џџџџџџ€ „4џџџџџџџџџџџџ% „6џџџџџџџџџџџџА% „’џџџџџџџџџџџџа% „Тџџџџџџџџџџџџ№% „:џџџџџџџџџџџџ % „Цџџџџџџџџџџџџ0 %`„Zџџџџџџџџџџџџ џџ`„\џџџџџџџџџџџџ џџ „^џџџџџџџџџџџџ€(% „bџџџџџџџџџџџџ 0%`„Шџџџџџџџџџџџџ џџ „Ъџџџџџџџџџџџџји жџџџџџџџџџџџџџџџџџџџџXџџџџџџџџ „iƒиџџџџџџџџџџџџџџџџџџ€`„кџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4y>gпўЪC" € џџџџ€€€€ €(€0€8€@€H€P€X€`€ џџџџp€ Р€ џџџџ8а$€ џџџџ 0€ џџџџ€ (@h€˜А€ џџџџ ар€ џџџџј  (€ џџџџ€ D8 €  Ј АР BШ€ џџџџ€ џџџџ: `€ џџџџp€ џџџџ€ џџџџ" x€€ˆ ˜ЈАИ€ џџџџ€ џџџџ€ џџџџџџџџШ–]ѕx]ѕ˜]ѕИ]ѕи]ѕј]ѕ]ѕ8]ѕP]ѕh]ѕˆ]ѕЈ]бЌѕР№ @!".4№ 4!B.6№ 6!–.’№ЌЌ ’%˜.:№ ’!Ь.Т[мЙ Feature = :! Й [ :!F Й] й[мЙ Face count = :!ЮйК 6B@ау! Setze die MaterialPropertyValuesЌ$XЌ+ЪЌ$XЌ+ЪЌ$XЌ+ЪЌЌ+Ъу Glanzgrad :!j'Z Z$l›G|j \ Z“№ \.^№ ^.b№ ^!в.Цу= мberprќfen, ob das Face von mehreren Features verwendet wird Ц :œК Т b%д'Ш ШE Ъ ^(hdџџ8[мЙ Anderes Feature = Ц!Й [ Ц!F Й] йkџџшЪрЌA@жу( OptioMacro1 ThisLibraryMacro11 UserForm1Modul1Modul2яРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA 1џџџџџџџџ aсP€lІгЈН†ЛжYѓ‡FаUгLЖЯ.Д,љ‰SwConst5C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb SolidWorks ‘џџџџџџџџ‘p0РFC:\Windows\System32\stdole2.tlbstdole Qџџџџџџџџб1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlbSldWorks џџџџџџџџБAА7C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb СџџџџџџџџёаŸоС М?%L†}N‘9Ьр:C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb SwCommands ! џџџџџџџџQ с №ztщb6nC‚ трSFC:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb SWUtilities hЛ@ Lэ–EЁГлr+›‰O Ё џџџџџџџџзб q с.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLLMSForms Ё Ё б ! 0EўЅLŸDЊI‚tяš8жѓ1C:\Users\Unger\AppData\Local\Temp\VBE\MSForms.exd б Ё ! PDetermineHoleTypes ShowUserFormmainHoleTypeBestimmen8=ЃƒХ'ЮПд@ЛW[+8ехRAƒјSие^Ж(х„€ЭУдoBžPУаУЫ†M{—ŽЙ]J“ЗGбБˆ2Pј тЭЛ“NД'kj?Яl0"žŒ—АдЮП-Њ?@аLabel3!ш-ЌЂ6Я€SЊ` њ !џџџџџџџџџџџџџџџџ! Label42в‹BьЮž Њ`ѓ ComboBox1Label5 ColorDisplayLabel6Label7Label8Ш[qJ—І eР‹UserFormœтUzptB™_џюD F3Dynamic ш qџџџџџџџџџџџџџџџџЁ С{lЏЮŸFЊWJOCommandButton1 cmdAutoColorCommandButton2 ”?ЯFѕЮ›ЮЊ`ŽFrame1Label1Label2UserForm_ActivatecmdAutoColor_ClickComboBox1_ChangeCommandButton1_ClickCommandButton2_ClickUserForm_ClickUserForm_InitializeSetColorForSelection Gewinde VHM&mс 3в‹BьЮž Њ`ѓ&tџџџџџџџџ Gewinde HSS Bohrung VHM Bohrung HSS&mџџџџџџџџVBE7.DLLџџџџџџџџџџџџџџџџL џџџџџџџџ@"hСYl†ЯЋ|ЊРЯ Zapfen-Senkung Kegel-Senkung&mџџџџџџџџ Gewinde Blind&mџџџџџџџџ Gewinde Durch Bohrung Durch Bohrung Blind Stiftloch Blind Stiftloch Durch&tЁ R:  , G:  , B:  Œ&\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SOLE AutoРmation`€SldW€orks>€CdW€Grkдs€HŽ€ „€H83A33D31-27C5-11€CE-BFD4€H400513BB@57}#1eIProgram FileLOLIDWORKS Corp\S†\sldwB‚U…H 2022 Type €LibraryC€SwC€onst>PwCZnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F98ђ93-wcA У,Ч6B-AТ&ant t/l ‹/ A,€/mmand^СD0mmАan€„_›@‘РС10AC1DE9F-3FBCР125-868D-7D4E913р9CCE0і1ƒ"”2 ’2 'SWUt@ilitieР2ЋU€Еi“iТje‚’ЉРŸРA362E9747A-1836-436E-827F-0AE2E0081353}#7d7,.5ƒЗщ’uР#s\№gtswF&6 L15ЖLMSFormрЁLMSF•Bcmр3 "3D452EE1-E08F-101A-8-02608C4D0BB4 uINDOWS\suFM20.@DLL#MiрŒsPoft Ђ `{ @Object%`/Д;(1„(Ѓ€0)„ЋA(„0@B0Тq#`Ч@ƒgи0ЂР%~4CA5FE45ˆ-44 O49A@@274-EF NA`38D6FР4fUsers\Unger\AppData\Local\Temp\VB„E\D.exdџ$~с.E р….`ŒM Д "Д!т•ŽaQThЄis„…GaQT@Њi 5Lib‚r`kryŠ2˜  HЂj1тК;РЦ",Q"Kф""+ЂSb”уЦ1Gb”M`cQ o1  2CЏ­Эє!Њ  0сGрЖС eр%W1 йЪ2г/W€H-”eТу(@ ЅaЂцodul€спMq€edu‚СЇ27bрЉЏ–­Љ!гы& 2G, 2РЇiэ 2џарe§™љ‘rџџџџџџЬašџ фў*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SolidWorks 2022 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}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2022 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2022 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2022 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{4CA5FE45-449F-49AA-8274-EF139A38D6F3}#2.0#0#C:\Users\Unger\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дџџџџџџ4y>gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ•ŽThisLibrary1>673f6543џџ-ThisLibraryџџKф;џџMacro111C673f657bџџ0Macro11џџЭ0џџџџџџUserForm11D673f657bџџOUserForm1џџeТ0W#џџ Modul11A673f6543џџР Modul1џџЉ!H– џџ Modul21B673f6543џџо Modul2џџ™`аџџx€џџџџџџџџџџџџ0џџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ+eД=И1K~+UaЉ№tџџџџр жБЛ?E•œŽWљМ™Аџџџџ3hs*[UJœšђ*ПлџџџџпюЌеСdнBВh/‘ѕдžœџџџџЉ …я!AЖ_кƒЎA'Дџџџџџџџџ€{ј= SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Macro1еNstdole“`ˆ џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕMSFormsC ThisLibraryGЉ €џџџ_Evaluateй Macro11n Ќ(DetermineHoleTypes”УswAppы‘swModel[ƒ ModelDoc2Ї^swFeatчиFeature!>holeTypeє@ ApplicationЅ* ActiveDocк’ FirstFeatureaн GetTypeNameoшЌ(HoleTypeBestimmenЅ>GetNextFeatureХ; Ќ(ShowUserFormЧ UserForm1)жShowѕ vbModelessZ Ќ(mainˆ,holeDefkф featColors#2faceArr>oneFace<swFaceОУFace2ћswEnt ЇEntityŠѓ GetDefinitionьMaterialPropertyValuesјKGetFaces# IsEmpty љ ForceRebuild35Ъ ErrorHandlerOholeDataѓ{isBlind&W vbTextCompare QErroŠ DescriptionО UserForm_ActivateZsTop5кcmdAutoColor_Click­тComboBox1_Changea colorValuesЕySetColorForSelectionЌ$ ComboBox1'иValueфK ColorDisplay'v BackColorоƒCommandButton1_ClickфСswSelMgr#% SelectionMgr0SelectionManagerХѓGetSelectedObject6а/MsgBox—R vbExclamation…ШЌ(ApplyColorToSelectedFeatures­hCommandButton2_ClickєљЌ(RemoveFaceColorsI7UserForm_ClickлјUserForm_Initialize5cAddItem‡  ListIndexїQLabel1,CaptionxLabel2Ž,Label3,Label4,Label5‘,Label6’,Label7“,Label8”, selectionZЎ Modul1Э swSelDatavэ SelectDataЌƒ swFaceFeatЈ^status’+ materialProps­ЉCreateSelectData‘ GetFaceCountр ClearSelection2Ј§ GetFeatureЋ;Select4ЦГЌ(DelaySsecondsиƒendTimeК7TimerX Modul2ЮswPartЂ~PartDocЛІ swFeatureHvFaceArrТчbRet\i`GetType)J swDocPARTЮMRemoveMaterialPropertyЊ#UserFormNCommandButton1|д cmdAutoColorНFCommandButton2}дFrame1Й€џActivate—|€џClickŠу€џChangeЃЧ €џInitializeгNџџЈ1џџџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOСџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ*џџ-џџџџџџZ  џџџџџџџџџџџџџџ@4y>g$*\Rffff*1i673ea20d*\R3*#1d4*\R3*#25c№тдџџџџюЪ•Ž™џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџ<џџ<<џџ <0џџ<8џџ<џџџџџџ("""8"т"<"`џџџџP Ђџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$$„ „4џџџџџџџџџџџџp% „6џџџџџџџџџџџџ% „рџџџџџџџџџџџџА% „фџџџџџџџџџџџџа% „^џџџџџџџџџџџџ№ %`„цџџџџџџџџџџџџ џџ`„шџџџџџџџџџџџџ џџ`„ъџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@4y>gпўЪ&€€ џџџџ"€€€ €(€0€8€@€H€ џџџџP`€ џџџџp €€ џџџџ   А Ра№ F h p € ˆ˜ Ј€ џџџџИ€ џџџџ€ џџџџџџџџШаџџx–]ѕX]ѕx]ѕ˜]ѕИ]ѕи]ѕј]ѕ]ѕ(№ @!".4i№ 4!B.6V 6!ь юœ№ 6.р№ р!D.ф фВї ф%j'ц ц$lœ ъ цŠ ц‘’№ ъ$ц.^ ^Вœ ^%№'ш[мЙFace from Feature ф!Й Material removed?  шйkџџ ъЫkџџx№ ф!J.фіџџ`kџџXК 6B@noџџ@џџџџ8џџџџYВAttribute VB_Name = "Modul2" Option Explicit Sub RemoveFaceColors()  Dim swApp As SldWorksЮ. FТel JDoc2 &Part %$ #Fea№ture & &­ #lvgArrVarianwjbRe‚CBooPlean‡+iIРntegerŽfS€ƒ‚= €…€œa/ЂŒƒƒƒƒ=ƒš.A`ctive‚o1If€ ‚.GetT$ypЯsw€PAРRT The„E‡;џ™(#‡–Р.First†K‡ While No&t  IshiќngЧ †NA С+?ATЦ† С€4AIs@Empty(Х)ƒ 3… For iРЄ@LBound‰ oќ UЬK%EZС"€y…(i„ЌE Х„'sўw G<”'… ˆ‚?@•B.УЧMateР‘lРProperР:”СDebug.P@rint "‚from E^" &…Чa.‚щ& " E$ rфd?Р& С"“BEnd IfЯNext iыqD)nЌ=ф' W˜endЃх swуY;ceRРild3 (False9$ €ŒЁi rU@@@џџџџџџџџџџџџџџџџџџџџш8џџџџџџџџ`˜8џџџџџџџџџџџџџџџџ8!` 8џџџџџџџџџџџџџџџџ8џџџџџџџџ`Ј8џџџџџџџџџџџџџџџџ8џџџџџџџџ`А8џџџџџџџџџџџџџџџџ8џџџџџџџџ`И8џџџџџџџџџџџџџџџџ8џџџџџџџџ`Р@џџџџџџџџџџџџџџџџ8џџџџџџџџ`ШHџџџџџџџџџџџџџџџџPџџџџџџџџ`‘џџџџџџџџџџџџџџџџџџQ№JдџџџџX •ŽЉ!џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџ џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџ<џџ<џџ< <џџ(<(0<џџџџџџ8"""8"”"Ф"<"`"dџџџџЈ žџџџџџџџџџџџџџџџџXџџџџџџџџ99„iƒXџџџџџџџџџџџџ џџџџџџ€ „4џџџџџџџџџџџџ% „6џџџџџџџџџџџџА% „’џџџџџџџџџџџџа% „Тџџџџџџџџџџџџ№% „:џџџџџџџџџџџџ % „Цџџџџџџџџџџџџ0 %`„Zџџџџџџџџџџџџ џџ`„\џџџџџџџџџџџџ џџ „^џџџџџџџџџџџџ€(% „bџџџџџџџџџџџџ 0%`„Шџџџџџџџџџџџџ џџ „Ъџџџџџџџџџџџџји жџџџџџџџџџџџџџџџџџџџџXџџџџџџџџ „iƒиџџџџџџџџџџџџџџџџџџ€`„кџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4y>gпўЪC" € џџџџ€€€€ €(€0€8€@€H€P€X€`€ џџџџp€ Р€ џџџџ8а$€ џџџџ 0€ џџџџ€ (@h€˜А€ џџџџ ар€ џџџџј  (€ џџџџ€ D8 €  Ј АР BШ€ џџџџ€ џџџџ: `€ џџџџp€ џџџџ€ џџџџ" x€€ˆ ˜ЈАИ€ џџџџ€ џџџџ€ џџџџџџџџШ–]ѕx]ѕ˜]ѕИ]ѕи]ѕј]ѕ]ѕ8]ѕP]ѕh]ѕˆ]ѕЈ]бЌѕР№ @!".4№ 4!B.6№ 6!–.’№ЌЌ ’%˜.:№ ’!Ь.Т[мЙ Feature = :! Й [ :!F Й] й[мЙ Face count = :!ЮйК 6B@ау! Setze die MaterialPropertyValuesЌ$XЌ+ЪЌ$XЌ+ЪЌ$XЌ+ЪЌЌ+Ъу Glanzgrad :!j'Z Z$l›G|j \ Z“№ \.^№ ^.b№ ^!в.Цу= мberprќfen, ob das Face von mehreren Features verwendet wird Ц :œК Т b%д'Ш ШE Ъ ^(hdџџ8[мЙ Anderes Feature = Ц!Й [ Ц!F Й] йkџџшЪрЌA@жу( Optionale Verzіgerung von einer SekundeК 6B@noџџˆ–]ѕx м и 'к м к bA@„МџџHoџџ@џџџџ8џџџџДAttribute VB_Name = "Modul1" Sub ApplyColorToSelectedFeatures(f 6s As Variant)  Dim sw€8SldРWorks. Fqel %DocЦ2 &Mgr M’ion *Datўa+ )f „nŠ(aceŸf€Ar‡‚O…‡!oneFГ4Ž sw ….1 }Ent R€ityˆQtЩ‚ТBoolean mateЬlProps(4)#DoubLleƒj УSet„l=B~ica^tW mC m=У .РActive@l wlСB .@kaрnager X !C .Getƒ edObj€ 6(1,ј -1Р—,!@ТyщШ Cr@Ѕeƒ{CDebug.Pr:i€S"€БМ + €1С.С+ " ["€"TypeХ]РЦ J Bq˜couР@б &…;@CAƒ!Csw5ECРkrУ+@F2 ˜Tru„fУ ' Р:ze die MsertyVal˜uesУ z0)6йш(0ФMK 1ЌЅ+UЋ2Ќ2r 3Ё1 ' GlanрzgradЃХcA5B-ф"ЄIf I€sEmpty($) Then E0xit @‘ХŠFo€r Each ejxIn $ ЇC"2=џ­aj‚s1`(?УsСQFg'' мberprќfen, ob dasBvon m`ehrer`$s verwendёРmwirФ$с  у П!"dH"!Ї !s#~Ї$k4(G, ?рI_5a#VAsКs`G #Ќ b‘.гLG€!ъBGElsЊ‰ к lcA` Ц  ў"d`/aяn DqoЁEnd IfЅ!уNextаelay (`\' Op™al нerzBі`ung 3einer@lku`Gƒ%s@MceR`†i€ld3 (FaРЙ * !DRУфDA €(secondТАРSingleФ/!сy =TiьхЉЏХ=: ЁraŽƒ#Do0 Whi Ѓ< фЃB:oEvenBtЄhLoopЬ Шџџџ˜џџџgLё˜џџџўрџџџIШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџgLё˜џџџўрџџџIШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџgLё˜џџџўрџџџ IШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџg4јШџџџŸјџџџСє žјџџџєОјџџџМШџџџg6pэџэџђŸјџџџСєHžјџџџє@Ојџџџg*ї OPbєhrU@@@џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџHџџџџџџџџ`§џџџџџџџџџџџџџџџџџџџё^БbbrU€@@@~xРџџџџџџrUР@@8 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAqЁџџџџџџџџс `бйййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhбскккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpQ1ббб`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxбaлллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€бвввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆбБмммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџббнннџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜бёоооџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‘Aџџџџџџџџџџџџ0€`Ј§џџ`њџџџ`iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЈЁббгггЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ АЁбдддЈ§џџ`9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ИЁбnale Verzіgerung von einer SekundeК 6B@noџџˆ–]ѕx м и 'к м к bA@„МџџHoџџ@џџџџ8џџџџДAttribute VB_Name = "Modul1" Sub ApplyColorToSelectedFeatures(f 6s As Variant)  Dim sw€8SldРWorks. Fqel %DocЦ2 &Mgr M’ion *Datўa+ )f „nŠ(aceŸf€Ar‡‚O…‡!oneFГ4Ž sw ….1 }Ent R€ityˆQtЩ‚ТBoolean mateЬlProps(4)#DoubLleƒj УSet„l=B~ica^tW mC m=У .РActive@l wlСB .@kaрnager X !C .Getƒ edObj€ 6(1,ј -1Р—,!@ТyщШ Cr@Ѕeƒ{CDebug.Pr:i€S"€БМ + €1С.С+ " ["€"TypeХ]РЦ J Bq˜couР@б &…;@CAƒ!Csw5ECРkrУ+@F2 ˜Tru„fУ ' Р:ze die MsertyVal˜uesУ z0)6йш(0ФMK 1ЌЅ+UЋ2Ќ2r 3Ё1 ' GlanрzgradЃХcA5B-ф"ЄIf I€sEmpty($) Then E0xit @‘ХŠFo€r Each ejxIn $ ЇC"2=џ­aj‚s1`(?УsСQFg'' мberprќfen, ob dasBvon m`ehrer`$s verwendёРmwirФ$с  у П!"dH"!Ї !s#~Ї$k4(G, ?рI_5a#VAsКs`G #Ќ b‘.гLG€!ъBGElsЊ‰ к lcA` Ц  ў"d`/aяn DqoЁEnd IfЅ!уNextаelay (`\' Op™al нerzBі`ung 3einer@lku`Gƒ%s@MceR`†i€ld3 (FaРЙ * !DRУфDA €(secondТАРSingleФ/!сy =TiьхЉЏХ=: ЁraŽƒ#Do0 Whi Ѓ< фЃB:oEvenBtЄhLoopЬ џџџџџџА” „Xџџџџџџџџџџџџ№а „4џџџџџџџџџџџџ % „6џџџџџџџџџџџџ0(% „œџџџџџџџџџџџџP0% „:џџџџџџџџџџџџp8% Ња`џџџџџџџџџџџџJџџџџџџџџИ2” Ў(`џџџџџџџџџџџџ1еееЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРa‘пппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШбБжжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаббиииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkџџџџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœPgg эДmшџџџžл€g э~mшџџџžл€gјn0P8HiXЎєgg`Ÿ џџџŸИџџџСє žИџџџєx– џџџ` xџџџŸШџџџ˜џџџЗ€џџџ `ѓНxџџџОИџџџМ џџџg†№ŸШџџџ&ј0џџџџјџџџŠ№ŸШџџџ&ј`џџџџјHџџџŠ№ŸШџџџ&ј€џџџџј џџџŠђŸИџџџСє(žИџџџє@ОИџџџgјшєˆbШџџџ˜џџџg4ШџџџŸјџџџС’ pэшџџџђ2xџџџИџџџ џџџHџџџџџџHi`HixHiаЪlggLё˜џџџўрџџџIШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџgLё˜џџџўрџџџIШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџgLё˜џџџўрџџџIШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџgLё˜џџџўрџџџ IШџџџŸШџџџŸјџџџСє žјџџџє ОјџџџъШџџџ˜џџџg4јШџџџŸјџџџСє žјџџџєОјџџџМШџџџg6pэџэџђŸјџџџСєHžјџџџє@Ојџџџg*ї ŸјџџџСєHžјџџџє€Ојџџџg4pэџpђŸјџџџСєPžјџџџє@Ојџџџg*ї ŸјџџџСєPžјџџџє€Ојџџџg6э€pэ€ђŸјџџџСєXžјџџџє@Ојџџџg*ї ŸјџџџСєXžјџџџє€Ојџџџg6pэІэџђŸјџџџСє`žјџџџє@Ојџџџg*ї ŸјџџџСє`žјџџџє€Ојџџџg4эџppђŸјџџџСєhžјџџџє@Ојџџџg*їŸјџџџСєhžјџџџє€Ојџџџg6эџэџpђŸјџџџСєpžјџџџє@Ојџџџg*їŸјџџџСєpžјџџџє€Ојџџџg4ppэџђŸјџџџСєxžјџџџє@Ојџџџg*їŸјџџџСєxžјџџџє€Ојџџџg6эРэРpђŸјџџџСє€žјџџџє@Ојџџџg*їŸјџџџСє€žјџџџє€Ојџџџgјhl8(&јџџџШџџџ˜џџџTаggєчФјџџџg—јџџџїDЧКg0јрџџџэ€ЉэџЉnАџџџяшg$јрџџџјАџџџяшg0јрџџџэ€ЉэџЉnАџџџяшЦњQOPbєhrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ8`§џџџџџџџџџџџџџџџџџџџH`§џџџџџџџџџџџџџџџџџџџё^БbџџO0џџџb^ыPџџџHџџџъˆџџџ`џџџ0џџџggrU€@@@~xrUР@@8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAqЁџџџџџџџџс `бйййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhбскккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpQ1ббб`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxбaлллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€бвввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆбБмммџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџббнннџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜бёоооџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‘Aџџџџџџџџџџџџ0€`Ј§џџ`њџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ЈџџџџџџџџбџџџџџџџџгггЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ АџџџџџџџџбџџџџџџџџдддЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ИџџџџџџџџбџџџџџџџџеееЈ§џџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџпппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШбџџџџџџџџжжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџабџџџџџџџџиииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkџџџџџџџџщџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœPgg эДmшџџџžл€g э~mшџџџžл€gјѓ0P8HiXЎєgg`Ÿ џџџŸИџџџСє žИџџџєx– џџџ` xџџџŸШџџџ˜џџџЗ€џџџ `ѓНxџџџОИџџџМ џџџg†№ŸШџџџ&ј0џџџџјџџџŠ№ŸШџџџ&ј`џџџџјHџџџŠ№ŸШџџџ&ј€џџџџј џџџŠђŸИџџџСє(žИџџџє@ОИџџџgјшєˆbШџџџF8GI;JL=LNO=LN Farbe und Beschriftung fќr "Stirnsenkung" einstellen (Label5)ЌЌЌџ$@ (˜у& Blauу= Farbe und Beschriftuофє3щE#•ŽeТџџˆЖџџџџџџџџрџџДІеTс"џџџџLџџџџLџџџџџџџџLџџџџџџџџg$*\Rffff*0=673f420a*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41пй`кhбpлxв€мˆно˜џџџџ гЈдАеИпРжШиаўЪ‚€ џџџџ€ џџџџ€ џџџџ€ џџџџ"  (€ џџџџ€ џџџџ"0€ џџџџ 8€ џџџџH€ џџџџ"P€X€`€ џџџџ`p>†ˆШ€ џџџџ€ џџџџ"а€и€ш€№€ј€€ џџџџ€  0@P€ џџџџ€ 0p  bА € џџџџ€ "(P hx€ џџџџ€ џџџџ"€ˆ€ џџџџ"˜€ V ј€ џџџџ"LL(LHLh 4ˆ€ џџџџ€ >˜€ Fи&6 *H€ џџџџ€ Fh&4А*и€ џџџџ€ Fј&6@*h€ џџџџ€ Fˆ(6а*ј€ џџџџ€ D&4`*ˆ€ џџџџ€ DЈ&6№*€ џџџџ€ H8$4€*Ј€ џџџџ€ HШ(6*8€ џџџџX€ џџџџ" `€ џџџџ€ џџџџh p 0 $А 0Ш ш 0  0(  $H `  $€  0˜  0И и  $ј  $  $(  @  $H  $`  $x  € џџџџJؘ € џџџџш € џџџџџџџџј –ЌД џџ(~Z5ЦПЌ~ џџ(мlЦПoџџP–X 0B@T|ГG`Љ?oџџ0–А]ѕ]бЌѕ ЁП X ˆ!ŠA@†xЌ$XЌџЌ$XЌџЌ$XЌџ$@ Œ(Žoџџ0–`]бЌѕИ]ѕј]ѕ]ѕ8]ѕXу Initialisierung№ @!".4№ 4!B.6№ 6!–.’№ЌЌ ’%˜.:у* мberprќfen, ob ein Feature ausgewфhlt ist :ВœЙ7g—јџџџїDЧ\g0јрџџџэџЉэџЉnАџџџяшg0јрџџџэЅЉэџЉnАџџџяшg$јрџџџјАџџџяшЦњg—јџџџїDЧўg$јрџџџјАџџџяшg0јрџџџэџЉэџЉnАџџџяшg0јрџџџэџЉэџЉnАџџџяшЦњg—јџџџї DЧˆg$јрџџџјАџџџяшg$јрџџџјАџџџяшg$јрџџџјАџџџяшЦњgg$јрџџџјАџџџяшg$јрџџџјАџџџяшg$јрџџџјАџџџяшggШјрџџџяц€џџџј8џџџяцџџџјЈўџџяцxўџџўАџџџ–€џџџOhџџџў˜џџџOPџџџ–џџџO№ўџџўиўџџOРўџџ–xўџџO`ўџџb^ъ€џџџhџџџPџџџџџџ№ўџџРўџџxўџџ`ўџџgј а@јџџџэD€џџџhџџџPџџџџџџ№ўџџРўџџxўџџ`ўџџ џџџџџџџџ Z  ZАбсBitte wфhlen Sie ein Feature aus, bevor Sie fortfahren. œЙFeature nicht ausgewфhltA@š|џџрkџџиу Farbauswahl und -anwendung X ˆ!ŠA@† XA@žoџџ€–xA@Ђoџџh–ауP Kann leer bleiben, es sei denn, Sie wollen hier eine bestimmte Aktion ausfќhrenoџџ–(Й Gewinde VHM ˆB@ЈЙ Gewinde HSS ˆB@ЈЙ Bohrung VHM ˆB@ЈЙ Bohrung HSS ˆB@ЈЌ ˆ(Њу8##########Farbtabele----SolidWorks----Feature###########у? Farbe und Beschriftung fќr "Gewinde Blind" einstellen (Label1)ЌџЌџЌ$@ Ќ(Žу( GelbЙ Gewinde Blind Ќ(Ўу? Farbe und Beschriftung fќr "Gewinde Durch" einstellen (Label2)ЌЌџЌ$@ А(Žу& GrќnЙ Gewinde Durch А(Ўу? Farbe und Beschriftung fќr "Bohrung Durch" einstellen (Label3)Ќ€ЌЌ€$@ В(Žу( LilaЙ Bohrung Durch В(Ўу? Farbe und Beschriftung fќr "Bohrung  Z Zpџџџџџџџџџџџџџџџџ Z ZЈџџџџџџџџџџџџџџџџ Z ZИџџџџџџџџџџџџџџџџ Z Z џџџџџџџџџџџџџџџџ Z Z џџџџџџџџџџџџџџџџ Z Zџџџџџџџџџџџџџџџџ$hXўЪ‚€ џџџџ€ џџџџ€ џџџџофє?ѕQ#•ŽeТџџˆЖџџџџџџџџрџџ[+8ехRAƒјSие^Ж(х„€ЭУдoBžPУаУЫ†M{—ŽЙ]J“ЗGбБˆ2Pј тЭЛ“NД'kj?Яl0џџџџџџџџџџџџxј тЭЛ“NД'kj?Яl0[+8ехRAƒјSие^Ж(џџMEџџџџџџџџџџпџџpџџџџџџџџ џџџџ8џџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<(>"џџџџLџџџџLџџџџџџџџLџџџџџџџџg$*\Rffff*1D673f657b*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41пй`кhбpлxв€мˆно˜џџџџ гЈдАеИпРжШиаўЪ‚€ џџџџ€ џџџџ€ џџџџ€ џџџџ"  (€ џџџџ€ џџџџ"0€ џџџџ 8€ џџџџH€ џџџџ"P€X€`€ џџџџ`p>†ˆШ€ џџџџ€ џџџџ"а€и€ш€№€ј€€ џџџџ€  0@P€ џџџџ€ 0p  bА € џџџџ€ "(P hx€ џџџџ€ џџџџ"€ˆ€ џџџџ"˜€ V ј€ џџџџ"LL(LHLh 4ˆ€ џџџџ€ >˜€ Fи&6 *H€ џџџџ€ Fh&4А*и€ џџџџ€ Fј&6@*h€ џџџџ€ Fˆ(6а*ј€ џџџџ€ D&4`*ˆ€ џџџџ€ DЈ&6№*€ џџџџ€ H8$4€*Ј€ џџџџ€ HШ(6*8€ џџџџX€ џџџџ" `€ џџџџ€ џџџџh p 0 $А 0Ш ш 0  0(  $H `  $€  0˜  0И и  $ј  $  $(  @  $H  $`  $x  € џџџџJؘ € џџџџш € џџџџџџџџј –ЌД џџ(~Ќ~ џџ(мoџџP–X 0B@Toџџ0–А]ѕ]бЌѕ  X ˆ!ŠA@†xЌ$XЌџЌ$XЌџЌ$XЌџ$@ Œ(Žoџџ0–`]бЌѕИ]ѕј]ѕ]ѕ8]ѕXу Initialisierung№ @!".4№ 4!B.6№ 6!–.’№ЌЌ ’%˜.:у* мberprќfen, ob ein Feature ausgewфhlt ist :ВœЙ7Bitte wфhlen Sie ein Feature aus, bevor Sie fortfahren. œЙFeature nicht ausgewфhltA@š|џџрkџџиу Farbauswahl und -anwendung X ˆ!ŠA@† XA@žoџџ€–xA@Ђoџџh–ауP Kann leer bleiben, es sei denn, Sie wollen hier eine bestimmte Aktion ausfќhrenoџџ–(Й Gewinde VHM ˆB@ЈЙ Gewinde HSS ˆB@ЈЙ Bohrung VHM ˆB@ЈЙ Bohrung HSS ˆB@ЈЌ ˆ(Њу8##########Farbtabele----SolidWorks----Feature###########у? Farbe und Beschriftung fќr "Gewinde Blind" einstellen (Label1)ЌџЌџЌ$@ Ќ(Žу( GelbЙ Gewinde Blind Ќ(Ўу? Farbe und Beschriftung fќr "Gewinde Durch" einstellen (Label2)ЌЌџЌ$@ А(Žу& GrќnЙ Gewinde Durch А(Ўу? Farbe und Beschriftung fќr "Bohrung Durch" einstellen (Label3)Ќ€ЌЌ€$@ В(Žу( LilaЙ Bohrung Durch В(Ўу? Farbe und Beschriftung fќr "Bohrung Blind" einstellen (Label4)ЌџЌІЌ$@ Д(Žу( OrangeЙ Bohrung Blind Д(Ўу> Farbe und Beschriftung fќr "Stirnsenkung" einstellen (Label5)ЌЌЌџ$@ Ж(Žу& BlauЙZapfen-Senkung Ж(Ўу= Farbe und Beschriftung fќr "Formsenkung" einstellen (Label6)ЌЌџЌџ$@ И(Žу( CyanЙ Kegel-Senkung И(ЎуA Farbe und Beschriftung fќr "Stiftloch Blind" einstellen (Label7)ЌџЌЌ$@ К(Žу& RotЙStiftloch Blind К(ЎуA Farbe und Beschriftung fќr "Stiftloch Durch" einstellen (Label8)ЌЌРЌР$@ М(Žу( TќrkisЙStiftloch Durch М(Ўoџџ –€ ОэЙ Gewinde VHMKTу,lillaЌ€ЌџЌ+Xу,RЌЌ+Xу,GЌ€ЌџЌ+Xу,BЙ Gewinde HSSKTу,OrangeЌџЌџЌ+Xу,RЌЅЌџЌ+Xу,GЌЌ+Xу,BЙ Bohrung VHMKTу,cyanЌЌ+Xу,RЌџЌџЌ+Xу,GЌџЌџЌ+Xу,BЙ Bohrung HSSKTу,RotЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BSџџИЌЌ+Xу!RЌЌ+Xу!GЌЌ+Xу!Bnџџh[мЙR: Ќ$XЙ, G: Ќ$XЙ, B: Ќ$XйoџџџџџџџџџџРЖAttribute VB_Name = "UserForm1" " €Bas€0{CD8084E5-D4C3-426F-9E50-C3D003C3CB86}{97907B4D-B98E-4A5D-93B7-47D1B1883250} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹D ƒP! Sub Њ_ActivA€ () M e.TopQ18B0†Left 1b5€ End!)cmdAutoColor_Click* Macro11.main IComboBox1_ChangeE$Dim cСValues As VariиantУ'Сf€_Т0s(2)JУSe†t‚Р‘SeleРManaxger‰ТAЃ.GetУedObjР6(1, -1 6У' мberprќfen, ob ein d ausgew€фhlt isdT If€Т Is Nothing Theрa!#aMsgС€_ "BitрŸс@en Siem ,@ bevorBfortfahren.", vbEŠx`Œm', "рnichtШ@œ…pExitƒy!ARIfAtЁ' Farb wahl u ~-anwend_i6"bПjЉjЁ;yтT–oХ,Dsh ?d!d2GRemovьeFРДТ sJВŸІ”Kann leШer @Йib;Ž€sei den =ЁС1woll 3h€WA3eР1stimm™€6AkAV!-fќ2џEazІ‘AddItem "Gewind`тHMD7˜HSS—BohЙ!n V9 …1 L ZКI`x€ ФУ$b#ЁF`с@„-SolоicЁф<‡#jЁeЂLBeschriftp& fќr)Blp"QsteR(Label9УžZ’YB€Z'` GelbSєCќaprА†Ѕ“›0п Aл Durchп l–2`Cж 2о 0,Ѓc™Г rќ$AВ 2.П ц sП d ŸЕП “3Й 3О 128 , p) ' аLila˜3й ›Пп п  Nф(г 4й Ц4о "166 б ,OrQƒј 4џ g ŸrbŸ“StiРrnsenk(єl5щ 5ю p @ ЁС BlauЈ 5Љ ШZappd-S„ПOПР]БЏ n “6Љ 6Џ 4'Ф CyaY'6Щ KegelП ВavftloЌchд;7љ 7ў gp r'21RoDt"17ŸЩ ŠЏЏ "W+o1у8щ 8я, 192BБTќrьkiРfF>8? Сг?S ЊaЙBkЙt(BpyRef8qБ•ДЏ,, sE˜QS€гngЯa ѕбуu Cвц?сrъeQ;'lœilU?•ЋЏ= рAЬ /QL'R7!cјPБ= 0te'žGџ|бМџ'Bїя; 1kЬр'ЉAхM 0'O ХpM 165џћO 3Ч"ЩOO %TбyѓˆЄ'cV:Х- ~џ% r./ * ў~З% 1 'І< (А>=ŠА 1 'R  ˆfeatColors(1) =D 0 И 'G^2^B^Case аElseB0B"—"Œ'End Select Debug.Print "R:` " & ˆ}D&р ", GŽ €Š‚ 2BŽ 2),3ub€0628€ џџџџ€ Fp(DИр ш   &J(P X p x ˜ И   ( @ H € J`  А &И џџHi|0gg"љшџџџпZи€g{008Hi(Hi˜ џџџџџџџџS џџџџџџџџS џџџџџџџџS џџџџџџџџ Z №кдџџџџс5•ŽKфџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2№ŠдPџџџџњ•ŽЭџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџHџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ1”<џџ< 6 џџџџџџџџš"џџџџџџџџџџџџџџџџџџџџџџ L(`џџџџџџџџИаџџџkџџџџџџџџџџ„ T˜`џџџџџџџџџџџџ џџџџџџџџџџ[[„ „4џџџџџџџџџџџџ˜% „6џџџџџџџџџџџџИ% „:џџџџџџџџџџџџи%`„Vџџџџџџџџџџџџ џџ`„Xџџџџџџџџџџџџ џџ`„Zџџџџџџџџџџџџ џџ`„\џџџџџџџџџџџџ џџ „^џџџџџџџџџџџџX% „bџџџџџџџџџџџџx %`„>џџџџџџџџџџџџџџ+Hџџџџ`џџџџџџџџџџџџ №џџџџ33sŒ)ƒ;џџџџџџџџџџџџџџџџ€%`„rџџџџџџџџџџџџ џџ`„>џџџџџџџџџџџџџџ`„tџџџџџџџџџџџџ џџ˜џџџџаџџџџ(џџџџƒ0џџџџџџџџАџџџџџџџџџџџџџџџџџџ(%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџRN@ўџˆшџџџџџџџ џџ @ўџџџџџаџџџџџџџ џџ џџџџXџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`4y>g*\R3*#1db$*\Rffff*1C673f657b*\R0*#25$*\Rffff*1D673f657bпўЪІ"€€€€ € џџџџ(8H€ џџџџ Xh €€ R 2ш (8@€ џџџџ"H"P`€ џџџџ"h€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџРар€ џџџџ № € џџџџ (€ џџџџ€ 08 h€ џџџџ x&€ЈРи€ џџџџ&№0H€ џџџџ&`ˆЈР€ џџџџ(р @€ џџџџ$X€˜А€ џџџџ$Ш№ € 8џџџџ(8`x€ џџџџ*Ји№€ џџџџ€ џџџџ€ џџџџ€ n0€ џџџџ  € џџџџ€ Ј Р ар №    (08H€ џџџџ€ &Pxˆ€ џџџџ€ џџџџ€ џџџџB ˜€ џџџџ€ €Ј€ џџџџА Р€ џџџџаирј€(60€ џџџџ€ Fh(Аи рј   & H  P h  p ˆ  ˜ А И Р и р ј  € J h p  € џџџџ˜ € џџџџ€  Ј S бS S ё Z SџџџџS”џџџџ<џџџџџџN0{801A2џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}Blind" einstellen (Label4)ЌџЌІЌ$@ Д(Žу( OrangeЙ Bohrung Blind Д(Ўу> Farbe und Beschriftung fќr "Stirnsenkung" einstellen (Label5)ЌЌЌџ$@ Ж(Žу& BlauЙZapfen-Senkung Ж(Ўу= Farbe und Beschriftung fќr "Formsenkung" einstellen (Label6)ЌЌџЌџ$@ И(Žу( CyanЙ Kegel-Senkung И(ЎуA Farbe und Beschriftung fќr "Stiftloch Blind" einstellen (Label7)ЌџЌЌ$@ К(Žу& RotЙStiftloџџџџH€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ84y>gпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2*VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 6375 ClientLeft = 120 ClientTop = 465 ClientWidth = 4695 TypeInfoVer = 34 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq.`€ џџџџ,p(AE€H€, €SгBohren VHMSЗ€@hМTahoma,(€Farbe Fќr Werkzeug MaterialS" ї€@№МTahomad,(€Farben Fќr WKZ Typ SetzenOu€ЅTahoma((€Automatisch EinfфrbenOu€ЅTahoma0(€Alle Farben Vom Modell LіschenOu€ЅTahoma!ф цœ№ 6.и№ и!D.м мВї$ €"}Y э+†(х €LComboBox1oі ,ѕ €2TColorDisplayіO,х€LCommandButton13иch Blind К(ЎуA Farbe und Beschriftung fќr "Stiftloch Durch" einstellen (Label8)ЌЌРЌР$@ М(Žу( TќrkisЙStiftloch Durch М(Ўoџџ –€ ОэЙ Gewinde VHMKTу,lillaЌ€ЌџЌ+Xу,RЌЌ+Xу,GЌ€ЌџЌ+Xу,BЙ Gewinde HSSKTу,OrangeЌџЌџЌ+Xу,RЌЅЌџЌ+Xу,GЌЌ+Xу,BЙ Bohrung VHMKTу,cyanЌЌ+Xу,RЌџЌџЌ+Xу,GЌџЌџЌ+Xу,BЙ Bohrung HSSKTу,RotЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BSџџИЌЌ+Xу!RЌЌ+Xу!GЌЌ+Xу!Bnџџh[мЙR: Ќ$XЙ, G: Ќ$XЙ, B: Ќ$XйoџџџџџџџџџџНЖAttribute VB_Name = "UserForm1" " €Bas€0{CACCB429-5F2A-4C74-89F2-8E4D9D6EB2A1}{0502D00C-6BE0-465C -B7B5T744C430ED} dGlobal‹SpacoFalse ŠCreatablPredeclaIdдTru BExpo se0TemplateDeriv–CustomЄiz‹D ƒPA! Sub Њ_ Activ€ () Me.TDopQ180†LHeft 15€ E nd!)cmdAutoColor@_Click* Macro11р.main IComboBox1_ChangeAE$Dim cСValues As VariantУ'Сf€_Тs(2Ц)JУSet‚Р‘SeleРManager‰ТAЃ.GetAУedObjР6Р(1, -1 6У' мberprќfen, ob ein d ausgewфhlt isdTIf€Т Is Noth€ing Theрa#!#aMsg€_ "BitрŸсen Siem , bevorBfortfahren."@, vbEx`Œm', "nichtШ@œ…ExiЮtƒy!ARIfAtЁ@' Farb w ahl u ~-aрnwendi6"bПjЫЉjЁ;yтToХ,DВsh ?d!d2G€RemoveFРД=Т sJВŸІ”Kann leer @Йib;Žsei0 den =С1woДll 3h€WA3eР1 stimm€6AksAV!-fќ2џEazІ‘AddItem "Gewin2d`тHMD7˜HS"S—Boh!n VW9 …1 L ZI`xї€ ФУ$b#ЁF`с@„Т-SolicЁ[ф<‡#jЁeЂLBeschrift!p& fќrBlEp"QsteR(рLabel9УžZ’YB€Z' GeŒlbSєCapr?А†Ѕ“›0п л DuШrchп l2`Cж 22о 0,ЃcГ rќг$AВ 2.П sП Мd ŸЕП “3Й ‚3О 128, p) ' Lilњa˜3й ›п п  Nзф(г 4й 4о "˜166 б OrQƒ%ј 4џ g ŸrbŸ“Stirns˜enk(l5щ >5ю p @ С BlauЈ 5Љ Zapљpd-S„ППР]БЉЏ n “6Љ 6Џ Ѓ4'Ф CyaY'6Щ рKegelП Вavftlochдѕ;7љ 7ў p r'21ьRoDt"17Щ ŠsЏЏ "Wo1у8щ 8я, 192ƒBБTќrkiРf§F>8? СгS ЊaЙBkЙt(ByReŽf8qБ•ДЏ, sE˜хQS€гnga ѕбљуu Cвцсr‡ъeQ;'lilU?“•ЋЏ= рA /QLy'R7!јPБ=Ь 0te'Gџ|ѓбМџ'Bї; 1kЬ§р'ЉAхM 0'O ХуpM 165ћO 3Ч"ЩOO %TбyˆЄ'ўcV:Х- ~% rџ./ * ў~% 1 'І< (А>=ŠА 1 'R  ˆfeatColors(1) =D 0 И 'G^2^B^Case аElseB0B"—"Œ'End Select Debug.Print "R:` " & ˆ}D&р ", GŽ €Š‚ 2BŽ 2),3ub0х BѓЏЭЫD!ЃЮrќ ЖЄ ў ЭЦпп€ ш ЮUBohrungТ RLilaс щЎ .5a ŸbЉЂ ІŸЎ ѕŸ  SЅ O(3Oraќng„# WЭ o(гјУ .6в'Я ‚јo(ЋЯ 8"St€irnsenkРУ(6Blau_‘џЈ6/(ћјЋвџјЂ ІЏ Є {ž ёЅ Cyaп5­Џ K­ І _‚Џ ѓ'Џ ƒ_OЃ+аfœtl \TU_Roя§( "& FВны O Ћ+ Pп н YFе TќrkiџаfђL ц* “ ќ.7Ѓ8  o—+ €ќgtЗ@zusфtџџџџџџџџHi|0gg"љшџџџпZи€g{008Hi(Hi˜ aS бS S ё Z  6№кдџџџџс5•ŽKфџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(Ш € џџџџџџџџи –]ѕX]ѕx]ѕ˜]ѕИ№ @!".4№ 4!B.6№ 6!D.: :Вb :!FЙHoleWzdœ :$H'>у K Hier kіnnen Sie weitere Aktionen basierend auf dem holeType durchfќhren...[мЙ Feature: :!Й; Typ:  >йkџџи№ :!J.:МџџРoџџИ–а R NB@Poџџ˜–(]ѕ€]ѕ ]ѕР]ѕр]ѕј]ѕ]ѕ(]ѕ@]ѕ`]ѕ€№ @!".4№ 4!B.6№ 6!D.: :Вb :!FЙHoleWzdœ№ :!f.V :$H'>у * Farbe basierend auf dem Lochtyp auswфhlen 6!h'X >эЙ Gewinde BlindKTу, Farbe GelbЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ Gewinde DurchKTу, Farbe GrќnЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ Bohrung DurchKTу, Farbe LilaЗр?Ќ+Xу,RЌЌ+Xу,GЗр?Ќ+Xу,BЙ Bohrung BlindKTу, Farbe OrangeЌЌ+Xу,RЗЭЬЬЬЬЬф?Ќ+Xу,GЌЌ+Xу,BЙ StirnsenkungKTу, Farbe BlauЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ FormsenkungKTу, Farbe CyanЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙStiftloch BlindKTу, Farbe RotЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙStiftloch DurchKTу, Farbe TќrkisЌЌ+Xу,RЗш?Ќ+Xу,GЗш?Ќ+Xу,Bуg Fќgen Sie zusфtzliche Fфlle hier hinzu, wenn Sie andere Farben fќr andere Bohrungstypen haben mіchten.nџџXу  Farbe zuweisen :!j'Z Z$lœ \ Z“№ \.^№ ^.b X ^(hЪиkџџаkџџШ№ :!J.:МџџАу Rebuild nach der FarbzuteilungК 6B@noџџp–˜Ьp`]ѕ]ѕ0№ :!f.r r!l'> >эЌ1K№ŠдPџџџџњ•ŽЭџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџHџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ1”<џџ< 6 џџџџџџџџš"џџџџџџџџџџџџџџџџџџџџџџ L(`џџџџџџџџИаџџџkџџџџџџџџџџ„ T˜`џџџџџџџџџџџџ џџџџџџџџџџ[[„ „4џџџџџџџџџџџџ˜% „6џџџџџџџџџџџџИ% „:џџџџџџџџџџџџи%`„Vџџџџџџџџџџџџ џџ`„Xџџџџџџџџџџџџ џџ`„Zџџџџџџџџџџџџ џџ`„\џџџџџџџџџџџџ џџ „^џџџџџџџџџџџџX% „bџџџџџџџџџџџџx %`„>џџџџџџџџџџџџџџ+Hџџџџ`џџџџџџџџџџџџ №џџџџ33sŒ)ƒ;џџџџџџџџџџџџџџџџ€%`„rџџџџџџџџџџџџ џџ`„>џџџџџџџџџџџџџџ`„tџџџџџџџџџџџџ џџ˜џџџџаџџџџ(џџџџƒ0џџџџџџџџАџџџџџџџџџџџџџџџџџџ(%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџRN@ўџˆшџџџџџџџ џџ @ўџџџџџаџџџџџџџ џџ џџџџXџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`4y>g*\R3*#1db$*\Rffff*0<673f420a*\R0*#25$*\Rffff*0=673f420aпўЪІ"€€€€ € џџџџ(8H€ џџџџ Xh €€ R 2ш (8@€ џџџџ"H"P`€ џџџџ"h€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџРар€ џџџџ № € џџџџ (€ џџџџ€ 08 h€ џџџџ x&€ЈРи€ џџџџ&№0H€ џџџџ&`ˆЈР€ џџџџ(р @€ џџџџ$X€˜А€ џџџџ$Ш№ € 8џџџџ(8`x€ џџџџ*  ЈРр€ џџџџ€ џџџџ€ џџџџ€ n€ џџџџ p€ џџџџ€ x   А Р а р№ ј€ џџџџ€ & HX€ џџџџ€ џџџџ€ џџџџB `h€ џџџџ€p€x€ џџџџ€ € џџџџ ЈАШаш€ј6€ џџџџ€ F8(€Ј АШ аш&№   8  @ X ` h € ˆ  Ј А Ш а € Jш 8 @ ` € џџџџh € џџџџ€p x ˜ € џџџџџџџџи –]ѕX]ѕx]ѕ˜]ѕИ№ @!".4№ 4!B.6№ 6!D.: :Вb :!FЙHoleWzdœ :$H'>у K Hier kіnnen Sie weitere Aktionen basierend auf dem holeType durchfќhren...[мЙ Feature: :!Й; Typ:  >йkџџи№ :!J.:МџџРoџџИ–а R NB@Poџџ˜–(]ѕ€]ѕ ]ѕР]ѕр]ѕј]ѕ]ѕ(]ѕ@]ѕ`]ѕ€№ @!".4№ 4!B.6№ 6!D.: :Вb :!FЙHoleWzdœ№ :!f.V :$H'>у * Farbe basierend auf dem Lochtyp auswфhlen 6!h'X >эЙ Gewinde BlindKTу, Farbe GelbЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ Gewinde DurchKTу, Farbe GrќnЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ Bohrung DurchKTу, Farbe LilaЗр?Ќ+Xу,RЌЌ+Xу,GЗр?Ќ+Xу,BЙ Bohrung BlindKTу, Farbe OrangeЌЌ+Xу,RЗЭЬЬЬЬЬф?Ќ+Xу,GЌЌ+Xу,BЙ StirnsenkungKTу, Farbe BlauЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙ FormsenkungKTу, Farbe CyanЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЙStiftloch BlindKTу, Farbe RotЌЌ+Xу,RЌЌ+Xу,GЌЌ+Xу,BЌЌ+Xу,RЗш?Ќ+Xу,GЗш?Ќ+Xу,Bуg Fќgen Sie zusфtzliche Fфlle hier hinzu, wenn Sie andere Farben fќr andere Bohrungstypen haben mіchten.nџџXу  Farbe zuweisen :!j'Z Z$lœ \ Z“№ \.^№ ^.b X ^(hЪиkџџаkџџШ№ :!J.:МџџАу Rebuild nach der FarbzuteilungК 6B@noџџp–˜Ьp`]ѕ]ѕ0№ :!f.r r!l'> >эЌ1KTЙ Gewinde Durch'HЌ/KTЙ Gewinde Blind'HЌKЌKT]ѕH r!lЌ'tу# 23 ist Blind, 27 ist Durchу? мberprќfen Sie, ob der Name "Stiftloch" oder "Bohrung" enthфltЌ :!Й Stiftloch v†Ќ œ tœЙStiftloch Blind'HdџџЙStiftloch Durch'HkџџрЌ :!ЙBohrung v†Ќ e tœЙ Bohrung Blind'HdџџЙ Bohrung Durch'HkџџpdџџhЙ Unbekannt'HkџџHЌKTЙ Bohrung Durch'HЌKTЙ Stirnsenkung'HЌ,KTЙ Formsenkung'HуC ... und so weiter fќr andere Werte, wenn Sie sie in Zukunft kennenSџџЙ Unbekannt: >'Hnџџhzџџ`ЃpXЙFehler: x!z'Hiџџ0ЙStiftloch DurchKTу, Farbe Tќrkisџџџџ(џџџџ”ЕAttribute VB_Name = "Macro11" Sub DetermineHoleTypes()  Dim swApp As SldWorks. FModelC J"Doc2 &Feat %ure#hƒ%Кng " SetŒ= ’licatio.n Ž%Ž=/.Aрctive€E $E‚.FirstŠFDo Whi`le No?‚IrshiM“I†f6.GetЂ…ЕЊWzd" T8henƒ)…†u= НBestimmрen(sw&Ф…' Hier kіnnen Si e wei€оe ŒAk† basend auf dem †durchfќhren...Ы"Debug.Print "A@e: " &ƒ…5Т3& "; @7—CGE€IfЧCc€C4СGNexЫZLoop AЃЄ|Pubx ЇShowUser0FormІХ1.A vbqessC AmainПГsF.ГГDefAГO`bjectУFжfРТColorsA@Varian‰a ceArrвonќeF€в@Y„ьaЪpE€<)zрityїG; S„pAP#ƒ:?Ё‚qТ&b?рqelџ qdŸp"dŸppЁсЁ4СUaTрiniџjc €Ћ&%_xы' Farbe ЏvLochty‚p xswфhlm‡ЈG‡˜Ma`ialProperty`Value`bkSelQ Casefƒ+AТ"Gew€inde BlР"D 'ƒGelŽbЇ(0)Р?R1$'Rў1ъGеў2с0х BѓЏЭЫD!ЃЮrќ ЖЄ ў ЭЦпп€ ш ЮUBohrungТ RLilaс щЎ .5a ŸbЉЂ ІŸЎ ѕŸ  SЅ O(3Oraќng„# WЭ o(гјУ .6в'Я ‚јo(ЋЯ 8"St€irnsenkРУ(6Blau_‘џЈ6/(ћјЋвџјЂ ІЏ Є {ž ёЅ Cyaп5­Џ K­ І _‚Џ ѓ'Џ ƒ_OЃ+аfœtl \TєSRoє~џэ  џEЂјЯџЭ№ј~+Ÿ  F” `Tќrki€fП ŸЯRDFƒЮ .7O8џ4aЮ ѕяŸ* @zќgєЖzusфtzАЉhe F4фl€СhЙРРzuЊ,аИncЙa@srС}n fќr ДLs }habPќmі ~0Й•ЮХ ђАТzseƒzu№П 6Kf ЁЃщŒ1  а’AЭI€sEmpty(T)ЪђР< Eacєh ХЇIp ƒ/#џcЂq€DŸ—AЉ я@qЃ­._ŽQŽ@џ— џ!Ч[бЙЪ§є ы‰ПЫВЫГ' RApдild nЁdЫАкЁ’z№їil^S”swbБ. ce3 (False3пSu•Q ШFun№ыon?т4т/RКХљсЋ л)ЅЛ|В ng On Error GoToPHand ler „Dim holeData As Object lTyp‚e6IntegtSett= swFeat.GetDefiniti\onG_C=/.Ї Sel{р Case(#4490HВBestimmen = "Gewinde Durch–"ƒ7ЄBl С‰23, 2„•Lis†Bo€Aaуq… = (…ІqK23) ' 23р ist ‚)‚T…Ф' мberprќf€fSie, ob der Name "S@tiftlol o "Bohrung" enthфl„йIf InРStr(1,EdС, , vbTextCompare) > 0 TќheФ2d€…4 _Ц'У8Q Elsˆz Щond I>fƒpз8ХD8le?Ž—ѕ7…]7œЊUn€bekanntDX~EGЛ…Ћ-#0|`gпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2J§џџџџџџџџџџџџџџџџџџџH`§џвмц№^БbШ&‘b@@@~xџџџџџџџџџџџџџџџџ0HiTЙ Gewinde Durch'HЌ/KTЙ Gewinde Blind'HЌKЌKT]ѕH r!lЌ'tу# 23 ist Blind, 27 ist Durchу? мberprќfen Sie, ob der Name "Stiftloch" oder "Bohrung" enthфltЌ :!Й Stiftloch v†Ќ œ tœЙStiftloch Blind'HdџџЙStiftloch Durch'HkџџрЌ :!ЙBohrung v†Ќ e tœЙ Bohrung Blind'HdџџЙ Bohrung Durch'HkџџpdџџhЙ Unbekannt'HkџџHЌKTЙ Bohrung Durch'HЌKTЙ Stirnsenkung'HЌ,KTЙ Formsenkung'HуC ... und so weiter fќr andere Werte, wenn Sie sie in Zukunft kennenSџџЙ Unbekannt: >'Hnџџhzџџ`ЃpXЙFehler: x!z'Hiџџ0џџџџ(џџџџ”ЕAttribute VB_Name = "Macro11" Sub DetermineHoleTypes()  Dim swApp As SldWorks. FModelC J"Doc2 &Feat %ure#hƒ%Кng " SetŒ= ’licatio.n Ž%Ž=/.Aрctive€E $E‚.FirstŠFDo Whi`le No?‚IrshiM“I†f6.GetЂ…ЕЊWzd" T8henƒ)…†u= НBestimmрen(sw&Ф…' Hier kіnnen Si e wei€оe ŒAk† basend auf dem †durchfќhren...Ы"Debug.Print "A@e: " &ƒ…5Т3& "; @7—CGE€IfЧCc€C4СGNexЫZLoop AЃЄ|Pubx ЇShowUser0FormІХ1.A vbqessC AmainПГsF.ГГDefAГO`bjectУFжfРТColorsA@Varian‰a ceArrвonќeF€в@Y„ьaЪpE€<)zрityїG; S„pAP#ƒ:?Ё‚qТ&b?рqelџ qdŸp"dŸppЁсЁ4СUaTрiniџjc €Ћ&%_xы' Farbe ЏvLochty‚p xswфhlm‡ЈG‡˜Ma`ialProperty`Value`bkSelQ Casefƒ+AТ"Gew€inde BlР"D 'ƒGelŽbЇ(0)Р?R1$'Rў1ъGеў2с0х BѓЏЭЫD!ЃЮrќ ЖЄ ў ЭЦпп€ ш ЮUBohrungТ RLilaс щЎ .5a ŸbЉЂ ІŸЎ ѕŸ  SЅ O(3Oraќng„# WЭ o(гјУ .6в'Я ‚јo(ЋЯ 8"St€irnsenkРУ(6Blau_‘џЈ6/(ћјЋвџјЂ ІЏ Є {ž ёЅ Cyaп5­Џ K­ І _‚Џ ѓ'Џ ƒ_OЃ+аfœtl \TєSRoє~џэ  џEЂјЯџЭ№ј~+Ÿ  F” `Tќrki€fП ŸЯRDFƒЮ .7O8џ4aЮ ѕяŸ* @zќgєЖzusфtzАЉhe F4фl€СhЙРРzuЊ,аИncЙa@srС}n fќr ДLs }habPќmі ~0Й•ЮХ ђАТzseƒzu№П 6Kf ЁЃщŒ1  а’AЭI€sEmpty(T)ЪђР< Eacєh ХЇIp ƒ/#џcЂq€DŸ—AЉ я@qЃ­._ŽQŽ@џ— џ!Ч[бЙЪ§є ы‰ПЫВЫГ' RApдild nЁdЫАкЁ’z№їil^S”swbБ. ce3 (False3пSu•Q ШFun№ыon?т4т/RКХљсЋ л)ЅЛ|В ng On Error GoToPHand ler „Dim holeData As Object lTyp‚e6IntegtSett= swFeat.GetDefiniti\onG_C=/.Ї Sel{р Case(#4490HВBestimmen = "Gewinde Durch–"ƒ7ЄBl С‰23, 2„•Lis†Bo€Aaуq… = (…ІqK23) ' 23р ist ‚)‚T…Ф' мberprќf€fSie, ob der Name "S@tiftlol o "Bohrung" enthфl„йIf InРStr(1,EdС, , vbTextCompare) > 0 TќheФ2d€…4 _Ц'У8Q Elsˆz Щond I>fƒpз8ХD8le?Ž—ѕ7…]7œЊUn€bekanntDX~EGЛ…Ћ-#0|`gпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPre(х €HcmdAutoColorЮ,х€PCommandButton2т$е€#Frame1дФtion Explicit Sub RemoveFaceColors()  Dim swAJWorksЮ. FТel JDoc2 &Part %$ #Fea№ture & &вмц№n‡+iIРntegerŽfS€ƒ‚ШŒƒƒƒƒ=ƒš.A`ctive‚o1If€ ‚.GetT$ypЯsw€PAРRT The„E‡b‡–Р.First†K‡ While No&t  IshiќngЧ †NA С+?ATЦ† С€4AIs@Empty(Х)ƒ 3… For iРЄ@LBound‰ oќ UЬK%EZС"€y|0gg"љшџџџпZи€g{008Hi(Hi˜ aS бS S ё Z џџџЧRgŸшџџџЗрџџџg`Ÿаџџџžшџџџє8ї —аџџџPgШџџџї PgРџџџ—рџџџPgИџџџb^ ыаџџџШџџџРџџџИџџџgg.ŸиџџџžшџџџєX˜иџџџU ТшџџџОиџџџg Ц’g{йHœP,рџџџшџџџ№џџџјџџџ2аџџџШџџџРџџџИџџџиџџџHiаHi(рpgg Ю$g$Ÿрџџџює@eрџџџТ№џџџg"ž№џџџбШџџџŠБшџџџМШџџџgО‘шџџџБРџџџg‘Рџџџэ1>Ч˜gїФјџџџЦg‘Рџџџэ/>ЧЦgїФјџџџЦg*‘Рџџџэ>Ъ№‘Рџџџэ>Ч`g2ž№џџџбШџџџј џџџХCˆџџџлБИџџџМШџџџgD№Ÿ€џџџює8—€џџџї№N№”Н€џџџЧАg‘ИџџџЧŽgїФјџџџЦЄggїФјџџџgЦTgD№Ÿ€џџџює8—€џџџї№N№”Н€џџџЧ>g‘ИџџџЧgїФјџџџЦ2ggїФјџџџgЦTggїФјџџџgЦg‘Рџџџэ>ЧŽgїФјџџџЦg‘Рџџџэ>ЧМgїФјџџџЦg‘Рџџџэ,>ЧъgїФјџџџЦgg&ї‘шџџџag€џџџPЗјџџџН€џџџggvgBїŸ€џџџјТрџџџžрџџџєX—€џџџPЗјџџџН€џџџОрџџџgv€pD јџџџ№џџџ,€џџџрџџџШџџџˆџџџ aўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вqicrosoft Forms 2.0 FrameEm(AE€H€, €SгBohren VHM‡hЗ€@hМTahomaO,(€Farbe Fќr Werkzeug MaterialS" ї€@№МTahomaC,(€Farben Fќr WKZ Typ SetzenalOu€ЅTahomaU((€Automatisch EinfфrbenOu€ЅTahoma>0(€Alle Farben Vom Modell LіschenOu€ЅTahomaUУМTahoma*€€Label74" ї$ €"}Y э+†m(х €LComboBox1eі ,ѕ €2TColorDisplayіO,х€LCommandButton18и(х €HcmdAutoColorЮ,х€PCommandButton2aт$е€#Frame1BдФLabel4EЇ(ѕ€2DLabel2дJ€ 2DLabel3Eq(ѕ€ @УМTahomaE*€€Label7u4" ї€@УМTahoma0*€€Label834" ї€@УМTahomaEPJ  €€€џџ}—: Solidworks Bohrungs-FeatureRу ‘ЮуЊKИQМDBTahomadˆ(ѕ€2DLabel12дЇ(ѕ€ 2DLabel40EЇ(ѕ€2DLabel2/дq(ѕ€ 2DLabel35Eq(ѕ€ вмц№Шџџџџџџџџџp џџџџџџџџџџџџџџџџb џџџџџџџџџџџџџџџџА \џџџџџџџџа џџџџџџџџџџџџџџџџ№ dџџџџџџџџ џџџџџџџџџџџџџџџџ0 џџџџџџџџџџџџџџџџP џџџџџџџџџџџџџџџџp џџџџџџџџџџџџџџџџ xџџџџџџџџА џџџџџџџџџџџџџџџџа џ