аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџРщШg№а@apcџџџџџџџџP‰БJdЯРщШg№аThe VBA Project џџџџџџџџP‰БJdЯРщШg№а_VBA_ProjectџџџџџџџџP‰БJdЯРщШg№а §џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџ'уџџџџўџџџџџџџ#џџџџџџџџ§џџџ"џџџџ§џџџџџџџ(*+,AџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџBCDEFGHIJKўџџџMNOPQRSTUWџџџџXcџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџmnopqrўџџџџџџџџџџџџџџџџџџџxyz{|}~€Root Entryџџџџџџџџ мkuёа€apcџџџџџџџџP‰БJdЯ мkuёаThe VBA Project џџџџџџџџP‰БJdЯ мkuёа_VBA_ProjectџџџџџџџџP‰БJdЯ мkuёаџџџџџџџџ§џџџ   ўџџџџџџџўџџџ §џџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџЃ$џџџџџџџџџџџџ&џџџџ-џџџџџџџџџџџџџџџџџџџџџџџџ./01234ўџџџ6789:;<=>?@VџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџYџџџџџџџџўџџџ[\]^_`abdџџџџefghijksџџџџџџџџџџџџџџџџџџџџџџџџџџџџtuvџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ  DŠБJdЯ0’iuёаVBA Project Data"џџџџоHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ ўџџџ\ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-ўџџџ/032H456789ўџџџ;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUўџџџўџџџўџџџўџџџўџџџџџџџџџџџ]ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{pч™ThisLibrary*{0ч™5{Ач™L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{№ц™ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Ац™";{Pц™$={pц™&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}И*ТTC:\Users\Floyd\Desktop\UBG-editiID="{2E683E4C-470A-4E14-B831-75D2A112F117}" Document=ThisLibrary/&H00000000 Module=UBG_Edit Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=ArtNr Name="EditUBG" HelpContextID="0" VersionCompatible32="393222000" CMG="2A28844B254F254F254F254F" DPB="C7C569EE9B163917391739" GC="6466CA89FA27FB27FBD8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C UBtД€0* pH‚dфEditUBGQ(@=­ leren-1.swpЬS-ƒros\aktive MakrosrtNrArtNrobaugruppe Eigenschaft6@NraryUBG_EditUBG_EditG,@Nrџџё‘ С  €kНКW% J< rstdole>stdoleP h%^*\G{00020А430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Aut€omation`€SldWorks>#€CdW€GrЈks€H’€ ˆ€ThisLibraryџџџџџџџџАkŠБJdЯ0’iuёаProject_Data_CurVer( џџџџ Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџ`Ј‰БJdЯ  „\ёаPROJECTwmџџџџџџџџџџџџSPROJECT џџџџ љThisLibraryџџџџџџџџ1ђUBG_EditџџџџZ JUserForm1 џџџџџџџџ0єmŸnЯ0єmŸnЯControl_Data_CurVer(џџџџџџџџX Control List Data$џџџџџџџџџџџџW(џџџџџџџџџџџџўџџџ(G_Edit=100, 100, 1517, 586, ArtNr=75, 75, 1407, 576, 576, ThisLibraryThisLibraryUBG_EditUBG_EditArU@@@@~zџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџstrPath strCompName ЁёswComplpBuffernSize ArtNrUsagefilePathReadFile inpHost Project Item Names0џџџџ  DŠБJdЯ ФшШg№аVBA Project Data"џџџџvHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ _VBA_PROJECTџџџџџџџџџџџџ їProject Item Data$џџџџV Control List Data$џџџџџџџџ0’iuёа0’iuёаReqControl List Data*џџџџџџџџ0’iuёа0’iuёаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_1џџџџџџџџЧReqControl List Data*џџџџџџџџџџџџY __SRP_4џџџџ:|__SRP_5џџџџџџџџџџџџ.Fџџџџ‚ƒ„…†‡ˆ‰ŠœџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџžŸ ЁЂўџџџуЅІўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџфЄџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџѓєѕіїјљ ћќ§ўџdirџџџџџџџџџџџџx__SRP_2џџџџњq,__SRP_3џџџџџџџџџџџџђS&ArtNr џџџџџџџџ5Фўџџџўџџџ ўџџџ\1ўџџџўџџџ !"#$%&'()*+,-ўџџџ/03ўџџџўџџџ456789ўџџџ;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUVWXYZўџџџўџџџ]ўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{ я ThisLibrary*{ я 5{ ю L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{€‰ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Р‰ ";{Š $={@Š &šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИvТьU:\VT\Pool\Zeichnungen\Vorlagen\ID="{2E683E4C-470A-4E14-B831-75D2A112F117}" Document=ThisLibrary/&H00000000 Module=UBG_Edit Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=ArtNr Name="EditUBG" HelpContextID="0" VersionCompatible32="393222000" CMG="4042EEF4F2F4F2F4F2F4F2" DPB="3E3C901470EC6FED6FED6F" GC="3C3E92126E116F116FEE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C UBG_hД€0* pH‚dфEditUBGQ(@=­ lVorlagen-TE\Makros\aktive Makros SWX\Pseudobaugruppe EigenschaftrtNrArtNrNraryUBG_EditUBG_EditG6@Nrџџё‘ С  €kНКW% J< rstdole>stdoleP h%^*\G{00020А430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Aut€omation`€SldWorks>#€CdW€GrЈks€H„€ z€a‘H@ё`§џџџџџџџџџen\UBG-editieren-1.swpЬT-„2,џџџџџџџџHidœXџџџџџџџџџџБP@q`§џџџџџџџџџџџџџџџџџџџс@`§џџџџџџџџџџџџџџџџџџџPЁ`§џџџџџџџџџџџџџџџџџџџсA81`§џџџџџџџџџџџџџџџџџџџP `§џџџџџџџџџ    ўџџџ6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ78;џџџџџџџџ<=ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџАkŠБJdЯ ФшШg№аProject_Data_CurVer( џџџџ2 Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџ`Ј‰БJdЯ€2Oz?wаPROJECTwmџџџџџџџџџџџџSPROJECT џџџџ јThisLibraryџџџџH‚UBG_Editџџџџџџџџџџџџw4_UserForm1 џџџџџџџџ0єmŸnЯ0єmŸnЯReqControl List Data*џџџџџџџџџџџџ` Control_Data_CurVer(џџџџџџџџ_ Control List Data$џџџџџџџџџџџџ^(H83A33D31-27C5-11CE-BFD4€H400513B€B57}#16IProgram Files\Soliƒ5 Corp‰(2)\sldwD‚W…J 2014 Type LРibraryEЬSwConst> SwTC\n[t\œ€ ^\4687F359-55D0-4CD3-B6CF-2EB42€C11F9897.|wcA!У-Ч8B.Т'aPnt t0l‹0 ƒA-€0mmand`СD1mmaЌn€†aŸ@•РС20AC1DE9@F-3FBCР225-868D-7D4E9139CјCE0њ2ƒ#”3’3 (SWUtilаitieР3“ЊU€Иi–iТe‚•­РЃРA462E9747A-1836-436E-827F-0AE2E0081353}#7d7.5ƒКЬ•OLIDWO˜RKSФ•Ч(3Т•uР$s\gtsw_F'ƒ7'!N56NM`SForm`!NMPSFBem`3 "4D452EE1-E08F€-101A-8-02608C4 Edit=100, 100, 1517, 586, Z ArtNr=75, 75, 1407, 576, 576, ThisLibraryThisLibraryUBG_EditUBG_EditArU@@@@~zџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџstrPath strCompName ЁёswComplpBuffernSize ArtNrUsagefilePathReadFile inp_VBA_PROJECTџџџџџџџџџџџџ)nProject Item Data$џџџџ[ Control List Data$џџџџџџџџ ФшШg№а ФшШg№аReqControl List Data*џџџџџџџџ ФшШg№а ФшШg№аD0BB4wFM20.DLL#Microsoft Ђ `} ObjˆectЅa/;€(v1)Ѓ‚0)†A(†05@C0Тs#`@0Ѕ ‡`!9A4„D9 I-DF1рd99C-A3DD-8A71FA0E7A1IŽUsers\KRIEGB~1\AppData\Local\Temp\VBE\d&.exd?ф{с.E р….`ŒM( Д‚ВBтќ!NTHhisDƒG!NT€Јiр1Libr hry2˜  HеЂ1"Й3 Х"Ђ,"6l""+ЂVЂЉРФ_СХGЂЉUBG_EkРx_j2ro ˆ7mЈ}!jaгArtNrGEЁŠAрtN šF2L/ +/ 7H) aФџџ(rU@@@џџџџџџџџџџџџP‘+pўџџџџџџџџџџџџџџџџџџџЬ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}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#S‹џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŒŽ‘’“”•–—˜™š›ЏџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАБВГДЕЖЗИЙКЛМНОПРСТУўџџџХЦ>џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџежзийклмнопрстўџџџфФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџѓєѕіїјљ ћќ§ўџ__SRP_1џџџџџџџџџџџџЧ__SRP_0џџџџдё__SRP_4џџџџ:|__SRP_5џџџџџџџџ.Fdirџџџџџџџџџџџџl__SRP_2џџџџњq,__SRP_3џџџџџџџџџџџџђS&ArtNr џџџџџџџџLЃ&olidWorks 2013 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}#16.0#0#C:\Program Files\SolidWorks Corp\SolidWorks (2)\sldworks.t    ўџџџ6џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ78;џџџџџџџџ<=ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlb#SldWorks 2014 Type Library$*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#16.0#0#C:\Program Files\SolidWorks Corp\SolidWorks (2)\swconst.tlb#SolidWorks 2014 Constant type library**\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#16.0#0#C:\Program Files\SH83A33D31-27C5-11CE-BFD4€H400513B€B57}#16IProgram Files (x86)\SoliСƒ8\sldw=‚P…C 2014 Type LibrXary>ХSwConst>‚ SwCUъnTtUŽ€ WU4687F359-55D0-4CD3-B6CF-2EB42C11F989Љ*wcСC*F0У*B$ant jt-l - С)-mаmandYСФ-€mman€5Z‘@‡РA/0AC1DE9F-3FBC@/25-868D-7D4E9139CCE0_l/ 00 €$SWUtilitiZe@0€ˆUЎiU€‹iТe‹ŸР•РС062E9747A-1836-436E-827F-0AE2E0081353}#`7d7.5А_‹u@!s\gtswЦ#[4‚’ Сf3ж‘M`SForm сHMPSFB^m 3 Ђ0D452EE1-E08F€-101A-8-02608C4 D0BB4 pINDOWSpFM20.DLL#Microsoft Ђ `v ObjeDcte\/;Р&1ЛD'Ѓ{0)A(0Р?z0Тl#`@Уcи0 ЅРL9A4DB9@J-DF1Рc99C-A3DD-8A71FA0E7A1i‹Users\KRIEGB~1\AppData\Local\Temp\VB„E\Є.exd_Фzс.E р….`ŒM Д€ЂЏ!тќPThЄis$‚GPT Ѕi6Lib‚r@iryŠ2˜  HЂj1BЖУ@Т",Q"6l""+Ђ+ТІрС_сТGТІU€BG_E`y5сaj2ro3LФmЈ}!jа€ArtNrGA‹"AрtN MF2L/ / 7H) СiСУџџџџџџџ(rU@@@џџџџџџџџџџџџP‘+pўџџџџџџџџџџџџџџџџџџџЬ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}#16.0#0#C:\Program Files (x86)\SolidWorks\swvba.tlb#SolidWorks 2014 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}#16.0#0#C:\Program Files (x86)\SolidWorks\sldworks.tlb#SldWorks 2014 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#16.0#0#C:\Program Files (x86)\SolidWorks\swconst.tlb#SolidWorks 2014 Constant type library*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#16.0#0#C:\Program Files (x86)\SolidWorks\swcommands.tlb#SolidWorks 2014 Commands type library**\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files (x86)\SolidWorks\sldutils\gtswUtilities.tlb#Solidworks Utilities 2013 Type Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\systolidWorks Corp\SolidWorks (2)\swcommands.tlb#SolidWorks 2014 Commands type libraryF*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS (3)\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{9A4D9868-DF10-499C-A3DD-8A71FA0E7A16}#2.0#0#C:\Users\KRIEGB~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM ДџџџџџџџџkНКW%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќThisLibrary0757bc0b59џџ-ThisLibraryџџ6l3џџUBG_Edit0857bc0b59џџ0UBG_EditџџЈ} 7џџ ArtNr0957bc0b59џџ ArtNrџџ7H0+џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 'Хм)N  oq—сyџџџџћ­dх\Dƒю{а nЉџџџџю%Зт@Ё2PDЕ9њ#џџџџџџџџ0€~x@= SolidWorks;VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў#EditUBGјlstdole“`€џSldWorks$SwConstœ SwCommandsœ€ SWUtilitiesѕMSFormsC ThisLibraryGЉ €џџџ_EvaluateйUBG_EditXt swDocNONEŽ  swDocPARTЮM swDocASSEMBLY…n swDocDRAWINGVбswAppы‘swAssyЬI ModelDoc2Ї^ swCompModel€ swAssyDrwЎьswConfП ConfigurationŸњ swRootComp7 Component2Ђ arrCompPropsЋ\ compDocTypeЋ assyTitležassyTitleWithoutExtЄ assyPathNameЎNassyFolderNameс™ assyArtNrБНassyArtNrShortfassyBez1ЈОassyWpNr4iassyChangeDateˆ( assyDrwNr ~sConfig–= boolstatusgо longstatusW longwarnings‡i`mainˆ, ApplicationЅ* ActiveDocк’ GetPathName GetFolderNameЁіGetTitle-GetTitleWithoutExt‹ChrK~SetCurrentWorkingDirectoryЕБGetCustomInfoValueЉ‰GetWpNrЊКInputBoxЯ MsgBox—R vbCritical+} CustomInfo2Х–vbYesNovbYesa?ArtNržGetNew vbInformationВnGetActiveConfigurationUџGetRootComponent3ѓ GetCompPropsјiOpenDoc69ƒSave3SЩCloseDoc еstrPathlч intCounter•г GetCompTitleНи strCompName’.swCompП vChildComp#ъ swChildCompmŒ vCompPropsш•strChildCompNameАІjakb GetChildren6ж IsVirtual†Name2­ПapiGetUserNameУ/lpBuffer>–nSize}“ advapi32.dll}0 ArtNrUsageF№csvPathЂ+UserЈЙsfile8aarrFileЧО lastArtNrй*newArtNrбб newArtNrUsage№$sSearchќ*rSearchЊуGetUser‹ReadFile[. MakeArray]ХCheckExistInArrayшП CreateNewLinecрfilePathЌOFileNr эFileLenзSpace юLOFcЏSplit) inputStringcЪPufferЃ PuffergroesseбŸZahl$6arr u searchStringиьlcџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ*џџ-џџџџџџ1‘џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6ayшП Ќ( rИџџџџy%ќ7HџџЖџџ0Ф џџGetUserNameAџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(+О˜џџџџџџџџџџџџџџџџX”џџџџ  iƒРџџџџџџџџџџџџџџx„iƒТџџџџџџџџџџџџџџџџџџ€+’џџџџџџџџџџџџџџџџ№џџџџџџ2ŒiƒЦџџџџџџџџџџџџџџџџџџ€`„Шџџџџџџџџџџџџџџ`„Ъџџџџџџџџџџџџџџ`„Ьџџџџџџџџџџџџџџ`„Юџџџџџџџџџџџџ џџ`„аџџџџџџџџџџџџџџ`„вџџџџџџџџџџџџџџ`„дџџџџџџџџџџџџџџ`„жџџџџџџџџџџџџџџ`„иџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ+мџџџџџџџџџџџџџџџџXџџџџџџŒiƒфџџџџџџџџџџџџџџџџџџ„`„цџџџџџџџџџџџџџџ+оџџџџџџџџџџџџџџџџш џџџџџџŒiƒмџџџџџџџџџџџџџџџџџџ„ тИџџџџџџџџџџџџџџџџ`џџџџџџџџ„iƒфџџџџџџџџџџџџџџ€„iƒ№џџџџџџџџџџџџџџџџџџ„`„цџџџџџџџџџџџџџџ+кpџџџџџџџџџџџџџџџџџџџџџџџџџџŒ`„ђџџџџџџџџџџџџџџ`„єџџџџџџџџџџџџџџ`„іџџџџџџџџџџџџ”џџ`„Єџџџџџџџџџџџџџџ+рџџџџџџџџџџџџџџџџџџџџШ џџџџџџŒiƒјџџџџџџџџџџџџ џџш„iƒњџџџџџџџџџџџџџџџџџџ€`„ќџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ„€ ,€ џџџџ€0€ џџџџH€ 8€ џџџџB @€ џџџџ€H€ џџџџ€P€X€`€ џџџџ€h€p€x€ џџџџ€€€ˆ€ џџџџ€€ џџџџ ˜€ џџџџ И€ џџџџrШ€ џџџџ€ ~@Ра€ џџџџ&р€ џџџџ € џџџџ(@H€ џџџџ`€ џџџџ h€ џџџџ€ ^x€ DиJ € џџџџ8p€ џџџџЈ€ џџџџА€ џџџџB И€Р€ џџџџ€ 0Шј€ џџџџ€  8@Ph x€ џџџџˆ€ џџџџB € џџџџ€ .˜Ш€ џџџџр€ џџџџ" ш€№€ џџџџ€ Xј€ џџџџPXh x€ џџџџ"ˆ€ џџџџА€ џџџџBИ€ џџџџ€ Р€ џџџџ€р€ш€№€ј€ џџџџ€ џџџџ € џџџџ 8H`hp€ џџџџx€ џџџџB €€ џџџџ€ˆ€ џџџџ&А и€ џџџџш€ џџџџ € џџџџџџџџ0у&### Artikelnummer automatisch beziehen&€аџџH––˜]ѕ]ѕ(]ѕ@]ѕX]ѕp]ѕˆ]ѕ ]ѕИ]ѕа]ѕш к'ЪуAnwender ermitteln[м ЪйџџЙjU:\VT\Pool\Zeichnungen\Vorlagen\Vorlagen-TE\Makros\in Arbeit\artikelnummerngenerator\artikelnummern-WP.csv'Шуxeinlessen und rausfiltern des letzten Artikelnummerneintrages der csv Datei und daraus die neue Arttikelnummer ermitteln Ш$м'Ь Ь$о'Ю Ю‘Ќ $ЮЌЌ$њ'а иКaџџџџџџ lЌ 'lџџ а lЌd 'вџџџџ в'ж Ю ж$р'иџџџџџџМџџ˜[м вйџџџџџџуWZuordnung fќr was die neue Artikelnummer verwendet wird abfragen und im Anschluss dieseџџу>Informationen (+ wer sie angefordert hat) eintragen in die csvџџџџЙVerwendung der ArtikelnummerЙArtikelnummer Zuordnung Ц$„'д Ш вЙ; дЙ; ЪЙ; ZA@т в'’iџџH–]ѕxу*Falls nicht vorhanden, nichts zurќckgeben:Ь ф$шЌ›GzjЬруDatei einlesen: А'ц ф цЋЯ ц$ь$ ъ'м цЋ м˜ цViџџp–у'Array aus der eingelesenen CSV ableiten мЌ $|$ю'оiџџ–]ѕ уQneue Zeile in der CSV mit angeforderten Artikelnummer/Verwendung/Benutzer anlegen А'ц ф цЋЯ це №й цV[м №Й in Liste ergфnztйoџџH–ИуBenutzername ermitteln]ѕ]ѕ(]ѕ@]ѕXЌ'єЌЌ$ \'ђ ђ є$О'і іЌœ ђ єЌ $ м'кdџџ˜Й'кkџџˆiџџ€–p]ѕ ќ јŠ ј‘’ ќ$јЌЌ$њ њ›Gyj ќЫ ќ ј‘Ќ œК'рdџџ№К'рkџџрiџџиџџџџаџџџџ•ЖAttribute VB_Name = "ArtNr" '### 0ikelnummer automatisch beziehen Option Exp licit$PrivaАDeclare PtrSafe FuncXapiGetUserxLib "adv32.dll" Alias "%A" (ByVal l pBuff’As SФng, n Size Loјng)xwNNew(хUsa>g‚!‚Dim csvPat>h& \‰ sf$il'  arrF Varia†n lastCq#newš […UspSear€Ь‰@r Booleaй@i–nSize}“ advapi32.dll}0Ќ(mainˆ, ApplicationЅ* ActiveDocк’ GetPathName GetFolderNameЁіGetTitle-GetTitleWithoutExt‹ChrK~GetCustomInfoValueЉ‰GetWpNrЊКInputBoxЯ MsgBox—R vbCritical+} CustomInfo2Х–vbYesNovbYesa?GetArtNrNЏOpenDoc69ƒ ActivateDoc2ч7Save3SЩCloseDoc еstrPathlч intCounter•г ArtNrUsageF№UserЈЙsfile8aarrFileЧО lastArtNrй*newArtNrбб newArtNrUsage№$sSearchќ*rSearchЊуЌ(GetUser‹Ќ(ReadFile[. Ќ(MakeArray]ХЌ(CheckExistInArrayшП Ќ(CreateNewLinecрfilePathЌOFileNr эFileLenзSpace юLOFcЏSplit) inputStringcЪPufferЃ PuffergroesseбŸZahl$6arr u searchStringиьlcvbOKOnlyѕВ _B_var_Chr\; _B_var_Midэp _B_var_Datev  _B_str_MidўX€џswOpenDocOptions_Silent—instance‹R€џSetCurrentWorkingDirectoryЕБCurrentWorkingDirectoryup€џџџ_B_var_CurrentWorkingDirectoryФpringt'Я €џџџ_B_var_DebugлЎ swRootComp7 €џComponent2ЂswConfП€џGetRootComponent3ѓTraverseComponent_swCompП vChildComp#ъ swChildCompmŒ €џGetChildren6ж€џName2­ПModul1Э Workspace3 €џџџ_B_var_swConf…9 €џConfigurationŸњswModel[ƒ€џGetActiveConfigurationUџ€џџџ_B_var_swModel^w €џџџDateiendungV€џџџ_B_var_Dateiendungі7 €џџџDurchgangр–€џџџ_B_var_DurchgangЄ€џџџNeuer  €џџџ_B_var_Neuer9ХЌ(GetNew ArtNrž€џџџ_B_var_GetArtNrз† _B_str_StringŸ _B_str_LeftVƒ _B_str_Spaceу cbinformation: vbInformationВn€џNamesЮП €џџџ_B_var_NamesЛƒ CompNamesтА arrCompNames €џџџ_B_var_arrCompNamesiE€џџџ_B_var_Function™Owhateverї…jaTraverseComponentso* GetCompPropsјi GetCompTitleНи strCompName’. €џџџ_B_var_IfPђ €џџџKUPPSTATIONљ€џџџ_B_var_KUPPSTATIONvъarrTestжy €џIsVirtual† €џџџ_B_var_WhileIfIiЋ] €џџџ_B_var_IiSђ €џџџ_B_var_ReDim•В €џџџWorkcenterЪ€џџџ_B_var_Workcenter4‡€џџџHauptbaugruppeм€џџџ_B_var_Hauptbaugruppe,'kb€џџџ_B_var_IntegerЈ €џџџ_B_var_Do ёubountъ €џџџ_B_var_ubountыd €џџџ_B_var_ForjL _B_var_Error)Ÿarrcompє€џџџ_B_var_arrcompx‘arrProps%% vCompPropsш• swDocASSEMPLYcЙ€џџџ_B_var_arrTestZ} €џџџSchlittenДё€џџџ_B_var_SchlittenљњstrTest/strChildCompNameАІџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ"џџ$џџ&џџ(џџ*џџ-1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6(џџџџџџџџџџ0 џџ€`„ џџџџшџџџџџџџџџ`„Ђxрџџџџџџџџџ`„ЄџџџџШџџџџџџџ џџ`„ІџџџџРџџџџџџџџџ`„ЈџџџџИџџџџџџџџџ`„Њ0Аџџџџџџџџџ`„ЌџџџџЈџџџџџџџџџ`„Ўџџџџ џџџџџџџ џџ`„f№˜џџџџџџџџџ+Вр`џџџџџџџџџџџџИџџџNЈџџџџ8ŒiƒКџџџџџџџџџџџџџџ„`„Мџџџџшџџџџџџџџџ+ДX џџџџH ќ7HџџЖџџ0n џџ GetUserNameAџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџ<(џџ<џџ<џџ<џџ<0џџ<8џџ<џџџџџџ0€hXрРџџџџ№џџџџџџџџPџџџџ@јџџџџџџџџџXџџџџџџџџџџ0 џџ€`„ џџџџшџџџџџџџџџ`„Ђxрџџџџџџџџџ`„ЄџџџџШџџџџџџџ џџ`„ІџџџџРџџџџџџџџџ`„ЈџџџџИџџџџџџџџџ`„Њ0Аџџџџџџџџџ`„ЌџџџџЈџџџџџџџџџ`„Ўџџџџ џџџџџџџ џџ`„f№˜џџџџџџџџџ+Вр`џџџџџџџџџџџџИџџџNЈџџџџ8ŒiƒКџџџџџџџџџџџџџџ„`„Мџџџџшџџџџџџџџџ+ДX`џџџџџџџџџџџџАџџџJ8 џџџџIŒiƒВџџџџџџџџџџџџџџ„ И`џџџџџџџџџџџџАџџџJАџџџџџџP„iƒКџџџџџџџџџџа„iƒЦџџџџџџџџџџџџџџ„`„Мџџџџшџџџџџџџџџ+АР`џџџџџџџџџџџџ˜џџџJџџџџџџџџ^Œ`„Шџџџџ№џџџџџџџџџ`„Ъџџџџшџџџџџџџџџ`„Ьџџџџрџџџџџџџ”џџ`„œџџџџиџџџџџџџџџ+Жџџџџ`џџџџџџџџџџџџџџџJ џџџџtŒiƒЮџџџџџџџџ џџ8„iƒаш џџџџџџџџџџ€`„вџџџџиџџџџџџџџџiƒjџџџџџџџџџџџџџџH„рƒџџџџџџџџШџџџџџџџџџџџџџџџџџџ%џџџџ(`„^џџџџ№џџџџџџџџџ+hhpџџџџџџџџџџџџp”џџ  iƒlџџџџџџџџџџџџџџџџџџ€+P`џџџџџџџџџџџџ(ўџџJРџџџџ22Œiƒžџџџџџџџџџџџџџџ€Ј ЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ ДњЖ„ZИпJши€џџџџџџџ џџ @ўџhџџџџџџџ џџ @ўџPџџџџџџџ џџ Hџџџџџџџџџ @ўџ0џџџџџџџ џџ ˆ(џџџџџџџ џџ @ўџџџџџџџџ џџ @ўџјўџџџџџџџџ шрўџџџџџџ џџ @ўџШўџџџџџџ џџ ИАўџџџџџџ џџ @ўџ˜ўџџџџџџ џџ ш€ўџџџџџџ џџ @ўџhўџџџџџџ џџ шˆPўџџџџџџ џџ шpHўџџџџџџџџ @ўџ@ўџџџџџџџџ @ўџ8ўџџџџџџџџ @ўџ0ўџџџџџџџџ @ўџ(ўџџџџџџџџ џџџџ˜џџџџ`Јџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @ hЈ pјџџџџџџџџџџџџџТcО–HЈ Hм<Цmˆ&‰NЃGЈ 0Рџџџџџџџ џџ И (Јџџџџџџџ џџ И  џџџџџџџџџ @ўџ˜џџџџџџџџџ Ј аџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџX  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX И p Ј 0јџџџџџџџџџ€ ŸиџџџЈ џџ`G`„Кџџџџ№џџџџџџџџџ€№ (gш@ТР№ Ÿџџш(аџџџџџџџ џџ шИџџџџџџџ џџ џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи џџџџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  И № 0шџџџџџџџ џџШ џџg:№ џџ.`„Вџџџџрџџџџџџџџџ€8 (јџџџgш@(.ш(Шџџџџџџџ џџ @ўџАџџџџџџџ џџ џџџџ˜џџџџXџџџџџџџџџџџџџџџџ8џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш А 8 0јџџџџџџџ џџ №8 8`„Юџџџџрџџџџџџџ џџ€Pј/p аџџџџџџџџџ ˆ №˜ Шџџџџџџџџ ˆ№˜шАџџџџџџџ џџ џџџџўРџџџF№№˜Șџџџџџџџ џџ ˜џџџџџџџџџ @ўџxџџџџџџџ џџ X(`џџџџџџџ џџ @ўџHџџџџџџџ џџ @ўџ0џџџџџџџ џџ ˜џџџџџџџ џџ @ўџџџџџџџџџџ џџџџГP˜џџџџ`џџџџџџџџџџџџџџџџџџџџ№џџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆP`„Кџџџџјџџџџџџџџџ€џџџџџџL№`„Цџџџџ№џџџџџџџџџ€џџџџр№џџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ kНКW%$*\Rffff*1^57babf3cпўЪ„€ ,x€ џџџџ€€ џџџџH€ И€ џџџџB € џџџџ€А€ џџџџ€€€ € џџџџ€(€0€8€ џџџџ€@€H€ џџџџ€P€ џџџџ X€ џџџџ x€ џџџџrР€ џџџџ€ ~ˆCheckExistIn3У„, „BLotopсDhCс' ZuordAA fpќr wрz ,G3 ver‚Nt wiРrd abf5ƒ;‰рqAn`lus 7ies`'Inf$or’onр<(+д wVs 7aрG@рWt hat) 9Ѕ>n NСр5 Хƒj= Inpu€tBox("VCчрWТDJH",Ѕ&3@@Nr Ђ#Cr†eРK ŽLineEŠр•Х|& ";" ў&†0CЅЂr…сT*їЃ˜ >Љ,E`хœfž&TƒЇС”Ћš*ŸAƒсYNrсƒЉЁB@mFalls n€zt vаorha€ƒnрs zurќckРgeben:@ТРСrror Res"uЫNexŸIfB ! Len(…)1€0 T ЩрЧitƒФHGoTo AV?`u@9€~ $= АFreep A†F€BinarЪyС#у e"РSpace$(LhOF(Ѓ)Р6 , 1„, ,Рƒ| рCloseEС,ж.Пgу.F&Дт.ШТ'blgрь#“РgeCєSVРa$€ џџџџ&€(€ џџџџ P€ џџџџ`&pˆ€ џџџџ Ј€ џџџџ А€ џџџџ€ ^Р€ D J|h€ џџџџ8žИ€ џџџџ№€ џџџџј€ џџџџB €€ џџџџ€ 0 @(H `€ џџџџ€ h €ˆ ˜А Р€ џџџџа€ џџџџB и€ џџџџ€ .рN€ џџџџ (€ џџџџ" 0€8€ џџџџ€ X@€ џџџџ ˜ А Р€ џџџџ"&а€ џџџџј€ џџџџB€ џџџџ€ € џџџџ€(€0€8€@€ џџџџH&P€ џџџџNh€ џџџџ €& ЈАИ€ џџџџР€ џџџџB lРЄюf тlit(Ѕ , C hr(10 сSub ъQuцщЖ , S i1Уoџ“o"d"bSА_Аp6wр8Ё d (9 5/з6/Benutz§pa ]РcsЃрІeв,ApАdŠя“jІш П L‰№7QCL€Pe0`gфnŒztђgёSubъ6Л #A;(Z5А+u n‘–;;u MP г{Sgro1nq ѓ8СZahlRŽAintCŸPdpЁЦ}a Ыx= 2Аb3Q$b”$@(20, 0№ Ш "= @™4 хБš(#, sД Œ №="<> 3= „Leftо$Я‚ ЁnР*l!]ц" If!  бџ/NАЇjг+рj46Pkџ2’C,“’м‘ЖВЭ@Dl1 &z) @I{ЫрРMг|(lu{ 6sxNo0—QQ lѓРl `Б|‚QпУАYEr1OE‚u/Aџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџ№R даџџџџ] 7ќЈ}џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ<џџ<џџџџ """>"Fi"Jџџџџ№@”2џџџџџџџџџџџџLџџ@”4џџџџџџџџџџџџLџџ@”6џџџџџџџџџџџџLџџ@”8џџџџџџџџџџџџLџџ „:џџџџџџџџџџџџx% „<џџџџџџџџџџџџ˜% „@џџџџџџџџџџџџИ% „Bџџџџџџџџџџџџи% „Dџџџџџџџџџџџџј% „Hџџџџџџџџџџџџ% „LџџџџџџџџџџџџX8 `„Nџџџџџџџџџџџџџџ`„Pџџџџџџџџџџџџџџ`„Rџџџџџџџџџџџџџџ`„Tџџџџџџџџџџџџџџ`„Vџџџџџџџџџџџџџџ`„Xџџџџџџџџџџџџџџ`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџџџ`„^џџџџџџџџџџџџџџ`„`џџџџџџџџџџџџџџ`„bџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџџџ`„jџџџџџџџџџџџџџџ`„lџџџџџџџџџџџџџџ n8џџџџџџџџџџџџџџџџџџџџџџџџџџџџМ„+vШџџџџџџџџџџџџџџџџџџџџџџŒiƒЂџџџџџџџџџџџџџџџџџџ€`„Єџџџџџџџџџџџџџџ+‚Xџџџџџџџџџџџџџџџџ џџџџџџŒiƒЂџџџџџџџџџџџџџџџџџџ€`„Єџџџџџџџџџџџџџџ+zшџџџџџџџџџџџџџџџџАџџџџџџŒiƒЂџџџџџџџџџџџџџџџџџџ€`„Єџџџџџџџџџџџџџџ+Іxџџџџџџџџџџџџџџџџ@џџџџџџŒiƒЈџџџџџџџџџџџџџџџџџџ€`„Єџџџџџџџџџџџџџџ+šџџџџџџџџџџџџџџџџџџџџа џџџџџџ+Œ)ƒЊџџџџџџџџџџџџ№џџџџ€%`„Ќџџџџџџџџџџџџ џџ „Ўџџџџџџџџџџџџ(% „АџџџџџџџџџџџџhH `„Вџџџџџџџџџџџџџџ`„Дџџџџџџџџџџџџџџ`„ЖџџџџџџџџџџџџџџИ џџџџџџрџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп*ўЪQ€ € Д€ џџџџ€H€ џџџџ€ P€ `€ p€ €€ џџџџ€€ џџџџ€˜€ €Ј€А€И€ џџџџ€Р€ џџџџ€Ш€ џџџџ€а€и€р€ш€№€ј€€€€€ џџџџ€ € џџџџ€(€0€8€ џџџџ€@€ џџџџ€ џџџџ"H€ џџџџP`€ џџџџ€ zp №  € џџџџ˜0€ џџџџШ€ џџџџ6р€ џџџџ€ R*p € џџџџ€ XА€ џџџџ€ џџџџd ˆ€ џџџџ ˜€ џџџџИH€ џџџџP€ џџџџ€ dX*Р€ џџџџ№€ џџџџј€ џџџџ€ ~,€А€ џџџџ€ џџџџ€ (Ш€ џџџџ№€ џџџџ€ € : € h`€ Ш€ џџџџ€ и€ ш€ џџџџ€ ј€ : ‚H € џџџџа ,ш € џџџџ € џџџџ> ` € џџџџh € џџџџp € x € џџџџ&ˆ € џџџџА € џџџџRа € џџџџ"( € џџџџ~P а € џџџџи € џџџџ€ hр &H € џџџџp € џџџџx € @€ .Р € џџџџ № € џџџџ` € џџџџ.`  € џџџџ˜   Ј € џџџџА € џџџџ|И € џџџџ8H€ џџџџ`€ џџџџ€ 8p€ џџџџЈ€ џџџџ$Ш€ џџџџ€ Z№€ џџџџ€ NP< € Tр€ џџџџR8€ џџџџ€ І<8€ џџџџ€ 2x*АШ€ џџџџ€а€ џџџџ2и&†ј  € џџџџ*0H PX`€ џџџџh€ џџџџџџџџ@аџџx–h]ѕx]ѕ]ѕЈ]ѕР]ѕи]ѕ№]ѕ]ѕ ]ѕ8 А' уAnwender ermitteln[м  йџџxуxeinlessen und rausfiltern des letzten Artikelnummerneintrages der csv Datei und daraus die neue Arttikelnummer ermitteln ^$В'Ђ Ђ$Д'Є Є‘Ќ $Є€ џџџџ€ Hр.(€ џџџџxX€ џџџџ€ а№€ џџџџ€ џџџџ€ 0P€ џџџџhBpИ€ џџџџ Р€ џџџџ(а€ џџџџ6ј€ L0€ џџџџV€€ џџџџ€ Lи"(€ џџџџ€ TP&Ј€ џџџџPа€ џџџџ€  @€ џџџџ*`€ џџџџ€ А€ џџџџа€ џџџџ.и€ џџџџ€ џџџџ€ џџџџB 0€ џџџџ€H€ џџџџ€ *P€ РШ а€ џџџџ€ *р€ џџџџ(€ џџџџB 60€ џџџџ€h€ џџџџ€ &p˜Иир ш€ џџџџ€ &ј € џџџџ8€ џџџџB 8@€ џџџџ€x€ џџџџ€ &€ЈШш№ ј€ џџџџ€ &0€ џџџџP€ џџџџB 8X€ џџџџ€€ џџџџ€ &˜Рр € џџџџ€ & H€ џџџџh€ џџџџB p€ џџџџ€x€€€ џџџџ€ˆ€ џџџџ€€ џџџџ€˜€ € џџџџ Ј€ џџџџ И€ џџџџШ€ џџџџр€ џџџџ№€ џџџџ€ џџџџ€ џџџџ (48 *p  И *Р №€ џџџџB€ џџџџX€ џџџџ `€ џџџџ p€џџџџуŠ### Dieses Macro dient dazu Informationen aus der Hauptbaugruppe in die Pseudobaugruppen (Unterbaugruppen) und die Zeichnung zu ќbernehmenуЎ### Wie z.B. die Artikelnummer mit Фnderung analog der Stufenbezeichnung Beispiel: Artikelnummer 40123400 der Hauptbaugruppe wird zu 401234A1 fќr die Unterbaugruppe S1-Ambossўаџџа]Ќѕў]Ќѕў]Ќѕ0]ЌѕH]ѕ`]ѕ€]ѕ ]ѕР]ѕр]ѕ]ѕ ]ѕ`]ѕx]ѕ]ѕЈ]ѕР]ѕи]ѕ№]ѕ]ѕ ]ѕ8]ѕP]ѕh]ѕ€]ѕ˜]ѕА]ѕШ–р№ p!".:№ :!r.<€уsDateipfad zur Hauptbaugruppe, Titel mit und ohne Ext. und das Arbeitsverzeichnis ermitteln (Funktion GetFolderName) <!t'T T$v'V <!x'P P$z'R€[мЙNeuer DurchgangЌ $|Й Dateipfad  TЌ $|ЙDateiname mit Endung  PЌ $|ЙDateiname ohne Endung  Rй V :%~'f[мЙArbeitsverzeichniss auf VЙ gesetztйуLWP-Nummer anhand der Eigenschaft "Bezeichnung1" ermitteln (Funktion GetWpNr)ЙStandardЙ Bezeichnung1 <%€'\ \$‚'^уQPrќfen ob WP-Nr. ermittelt werden konnte oder ggf. Bezeichnung1 (WP-Nr.) ersetzen ^К  ^ \œЙGќltige Bezeichnung1 eintragenЙBezeichnung1 korrigierenЙWerkzeugplan 31AA0-XX/X$„'\ \$‚'^ ^К  ^Й 31XX0-XX/XœЙkeine gќltige WP-Nr. erkannt:Й Й' ^Й'Ќ $|ЙMacro wird beendet ˆЙFehlerhafter EigenschaftswertA@†|џџ0dџџ(у^Falls gќltige Bezeichnung1 in der Inputbox eingetragen, wird diese in die Baugruppe ќbernommen \ЙStandardЙ Bezeichnung1 <,Škџџˆkџџ€уxArtikelnummer aus der Eigenschaft "Artikelnummer" in der Hauptbaugruppe ermitteln und die letzten 2 Zeichen wegschneidenЙStandardЙ Artikelnummer <%€'X XЌЌ$њ'Zу!Prќfen ob Artikelnummer 8 stellig XК  XЌœу###у4Bereich ohne Artikelnummerngenerator einkommentierenуa MsgBox "Artikelnummer ungќltig, VЌЌ$њ'І ЎКa fЌ 'f І fЌd 'Ј Ј'Ќ Є Ќ$Ж'ЎМџџш[м ЈйуWZuordnung fќr was die neue Artikelnummer verwendet wird abfragen und im Anschluss dieseу>Informationen (+ wer sie angefordert hat) eintragen in die csvЙVerwendung der ArtikelnummerЙArtikelnummer Zuordnung ž$„'Њ ^ ЈЙ; ЊЙ;  Й; ZA@И Ј'iџџ˜–P]ѕШу*Falls nicht vorhanden, nichts zurќckgeben:ЬP К$ОЌ›GzjЬ0уDatei einlesen: А'М К МЋЯ М$Т$ Р'В МЋ В˜ МViџџР–ру'Array aus der eingelesenen CSV ableiten ВЌ $~$Ф'Дiџџh–X]ѕ№уQneue Zeile in der CSV mit angeforderten Artikelnummer/Verwendung/Benutzer anlegen А'М К МЋЯ Ме Цй МV[м ЦЙ in Liste ergфnztйoџџ˜–уBenutzername ermittelnџ€]ѕ`]ѕx]ѕ]ѕЈЌ'ЪЌЌ$ \'ШЖv] Ш Ъ$h'Ь ЬЌœ Ш ЪЌ $ м'АdџџшЙ'Аkџџиiџџа–Р]ѕX в ЮŠ Ю‘’ в$ЮЌЌ$њ а›Gyj вЫ в Ю‘Ќ œК'Жdџџ@К'Жkџџ0iџџ(џџџџју&### Artikelnummer automatisch beziehenџџџџј]ѕи–№ЙjU:\VT\Pool\Zeichnungen\Vorlagen\Vorlagen-TE\Makros\in Arbeit\artikelnummerngenerator\artikelnummern-WP.csv'^џџџџ№џџџџ•ЖAttribute VB_Name = "ArtNr" '### 0ikelnummer automatisch beziehen Option Exp licit$PrivaАDeclare PtrSafe FuncXapiGetUserxLib "adv32.dll" Alias "%A" (ByVal l pBuff’As SФng, n Size Loјng)xwNNew(хUsa>g‚!‚Dim csvPat>h& \‰ sf$il'  arrF Varia†n lastCq#newš […UspSear€Ь‰@r Booleaй@in NСр5 Хƒj= Inpu€tBox("VCчрWТDJH",Ѕ&3@@Nr Ђ#Cr†eРK ŽLineEŠр•Х|& ";" ў&†0CЅЂr…сT*їЃ˜ >Љ,E`хœfž&TƒЇС”Ћš*ŸAƒсYNrсƒЉЁB@mFalls n€zt vаorha€ƒnрs zurќckРgeben:@ТРСrror Res"uЫNexŸIfB ! Len(…)1€0 T ЩрЧitƒФHGoTo AV?`u@9€~ $= АFreep A†F€BinarЪyС#у e"РSpace$(LhOF(Ѓ)Р6 , 1„, ,Рƒ| рCloseEС,ж.Пgу.F&Дт.ШТ'blgрь#“РgeCєSVРalРЄюf тlit(Ѕ , C hr(10 сSub ъQuцщЖ , S i1Уoџ“o"d"bSА_Аp6wр8Ё d (9 5/з6/Benutz§pa ]РcsЃрІeв,ApАdŠя“jІш П L‰№7QCL€Pe0`gфnŒztђgёSubъ6Л #A;(Z5А+u n‘–;;u MP г{Sgro1nq ѓ8СZahlRŽAintCŸPdpЁЦ}a Ыx= 2Аb3Q$b”$@(20, 0№ Ш "= @™4 хБš(#, sД Œ №="<> 3= „Leftо$Я‚ ЁnР*l!]ц" If!  бџ/NАЇjг+рj46Pkџ2’C,“’м‘ЖВЭ@Dl1 &z) @I{ЫрРMг|(lu{ 6sxNo0—QQ lѓРl `Б|‚QпУАYEr1OE‚u/Aџџџ1”џџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџ ""d">P"ю <"џџШАҘ60 џџџџBџџџџџџџџџџџџџџЂ€;` џџџџx@џџџџџџџџ%Ш%р %`„œџџџџ№џџџџџџџџџ%`„HџџџџАџџџџџџџ џџ%Ш%№worgang wird abgebrochen", vbCritical, "Artikelnummer prќfen"у EndуEnd Ifу###у######у3Bereich mit Artikelnummerngenerator einkommentierenЙArtikelnummer ist ungќltig.Ќ $|ЙNeue Artikelnummer anfordern? Œ ˆ ЙArtikelnummer ungќltig$† Žœ \ %’'X XЙStandardЙ Artikelnummer <,ŠdџџрЙMacro wird beendet ”ЙFehlender EigenschaftswertA@†gџџ˜kџџkџџˆу######ЙЙZeichnungsnummer <%€'b bК  bЙDUMMYœЙZeichnungsnummer eintragenЙZeichnungsnummer fehltЙ 33-12345-10$„'b bК  bЙ 33-12345-10œЙ*Keine gќltige Zeichnungsnummer eingetragenЌ $|ЙMacro wird beendet ˆЙFehlerhafter EigenschaftswertA@†|џџ(dџџ уbFalls gќltige Zeichnungsnummer in der Inputbox eingetragen, wird diese in die Baugruppe ќbernommen bЙЙZeichnungsnummer <,Škџџˆkџџ€у9Eigenschaft "Aenderungsdatum" der Hauptbaugruppe auslesenЙStandardЙAenderungsdatum <%€'` `К œЙ'Soll heutiges Datum eingetragen werden? ŒЙFehlerhafter Eigenschaftswert$† Žœ ZЙStandardЙAenderungsdatum <,Š Z'`dџџ`gџџXkџџPkџџH[мЙArtikelnummer Hauptbaugruppe: XЌ $|Й WP-Nummer:  ^Ќ $|ЙZeichnungsnummer:  bй№ <!–.D№К D%˜.H H$š'Lу2Schleife ќber alle mіglichen Unterparts/baugruppen lЌ$LЌ‘’ VЌ l$L$~ЙœуTZum іffnen der Komponente den Dokumententyp auswerten der im Arry mit hinterlegt istуGKomponente (Part oder Baugruppe) mit Hilfe der Arryinformationen іffnen№Ќ l$LЌ l$LЌЙ h j :%œ.@уMswApp.ActivateDoc2 arrCompProps(i, 0) & arrCompProps(i, 1), False, longstatus[мЙ жffnen von Ќ l$LЙ Error:  hЙ Warning:  jй Jџџџџ-LќЈ}џџЖ0 џџ eџџontGetUserNameArџџџџџџЈџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ0hџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@1”џџ1”џџ> џџџџ<аџџ<џџ< џџ<(џџLџџџџџџџџPџџџџLџџџџPџџџџџџџџ1”џџš џџџџџџџџџџџџџџџџџџџџLџџџџPџџџџLџџџџPџџџџLџџџџ”џџџџ1”џџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџ ""d">P"ю <"џџ  Ҙ60 џџџџBџџџџџџџџџџџџџџЂ€;` џџџџx@џџџџџџџџ%Ш%р %`„œџџџџ№џџџџџџџџџ%АА Ш%Ш%№ %Ш%h%Рiƒ@џџџџџџџџџџџџџџ€X@јт€J€ Hџџџџџџ @џџџџџџџџт€NА Xџџџџџџ @џџџџџџџџт€Rр hџџџџџџ @џџџџџџџџт€V xџџџџџџ@џџџџџџџџт€Z@ ˆџџџџџџ@џџџџџџџџ „ћџџџџШџџџџџџџр`„8џџџџАџџџџџџџџџт€b  œџџџџџџ@џџџџџџџџт€fџџџџЄџџџџџџ@џџџџџџџџ`„\џџџџЈџџџџџџџџџP`„œџџџџ№џџџџџџџџџ€Ђ€D 0џџџџp @џџџџџџџџџџџџ)ƒїџџџџџџџџРџџџџ€и pА`џџџџџџџџџџџџHџџџџџџџџџџММ*„+x@`џџџџџџџџ џџџkџџџџцŒiƒšџџџџџџџџџџџџџџ€ „pшРџџџџџџџа+‚а`џџџџџџџџxџџџk˜џџџџіŒiƒšџџџџџџџџџџџџџџ€`„œџџџџ№џџџџџџџџџ+|ˆ`џџџџџџџџ@xџџџk(џџџџŒiƒšџџџџџџџџџџџџџџ€`„œџџџџ№џџџџџџџџџЂ€э(џџџџh @џџџџџџџџ€@x+<џџџџ`џџџџџџџџHџџџk0 џџџџ++&ŒЈ<LxNH|Ђ€ё` џџџџш@џџџџџџџџџџџџ+>ш`џџџџџџџџШxџџџkјџџџџŒXџџџџ џџџџџџџџ0џџџџџџџџр џџџџџџџџА џџџџџџџџа џџџџ@ џџџџ шџџџџџџџџџџџџXџџџџ( шH  џџџџˆИџџџџˆ@Аа`0 Р ` P € Xp x№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ €џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ р xџџџџџџџ џџ @ўџ`џџџџџџџ џџ € @Hџџџџџџџ џџ @ўџ0џџџџџџџ џџ @ўџџџџџџџџ џџ @ўџџџџџџџџ џџ А шўџџџџџџ џџ @ўџаўџџџџџџ џџ № Иўџџџџџџ џџ H Ҙ2 џџџџBџџџџџџџџџџџџџџТ˜4џџџџBџџџџџџџџџџџџџџТ˜80џџџџBџџџџџџџџџџџџџџЂ€= џџџџ˜@џџџџџџџџЂ€AР џџџџИ@џџџџџџџџЂ€CXџџџџи@џџџџџџџџа ( ўџџџџџџ џџ @ўџˆўџџџџџџ џџ т€FP 8џџџџџџ @џџџџџџџџт€H(@џџџџџџ @џџџџџџџџт€LXPџџџџџџ @џџџџџџџџт€Pˆ`џџџџџџ @џџџџџџџџт€TИpџџџџџџ@џџџџџџџџт€Xш€џџџџџџ@џџџџџџџџт€\p џџџџџџ@џџџџџџџџт€`H˜џџџџ џџ@џџџџџџџџт€dx џџџџџџ@џџџџџџџџј иpўџџџџџџ џџ  Xўџџџџџџ џџ @ўџ@ўџџџџџџ џџ H (ўџџџџџџ џџ @ўџ ўџџџџџџ џџ Ј (ўџџџџџџџџ @ўџўџџџџџџџџ xњRŒŽ(ј Z№ь<Dfј ƒ0џџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџр џџџџш аўџџџџџџџџ @ўџўџџџџџџџџ @ўџј§џџџџџџџ hxxd@8Bџџџџџџџџ›(๧џџџџџџџџ шџџ џџџџ@џџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџшџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџ@И`xџџџџјџџџџџџџџџ€џџџџ@ўџшџџџџџџџџџ Јh@ўџџџџџрџџџџ/џџџџ џџџџџџџџџџњи(Аџџџџџ@ўџ(Шџџџџџџџ џџ @ўџџџџџАџџџџџџџ џџ @ўџџџџџЈџџџџџџџџџ џџџџ џџџџџџ@ўџџџџџџџџџџџџ џџ џџџџџџџџџџџџџџџџрHџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџАџџџџ˜џџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџруŸEintragen der neuen Artikelnummer abgeleitet von der Artikelnummer der Hauptbaugruppe (ersten 6 Stellen wie Hauptbaugruppe + 2 Stellen definiert im Arry (2,i)) ZЌ l$LЙStandardЙ Artikelnummer @,Šу+Eintragen der WP-Nummer in die Bezeichnung2 ^ЙStandardЙ Bezeichnung2 @,ŠуBEintragen des Фnderungsdatums analog des Datums der Hauptbaugruppe `ЙStandardЙAenderungsdatum @,Š[мЙArtikelnummer: ZЌ l$LЙ WP-Nummer:  ^Й Фnderungsdatum:  `Й eingetragenйуSpeichern der KomponenteЌ h j @%ž'f[мЙDokument gespeichertйуSchlieпen der KomponenteЌ l$L :B@ dџџ[мЙ8Schleife vorzeitig verlassen, weil Datei nicht vorhandenйkџџ@ lЫ V RЙ.SLDDRW$~Йœ№ RЙ.SLDDRW 8ЌЙ h j :%œ.BуEswApp.ActivateDoc2 assyTitleWithoutExt & ".SLDDRW", False, longstatus[мЙ жffnen von RЙ.SLDDRWЙ Error:  hЙ Warning:  jйуEEintragen der Bezeichnung1 analog der Bezeichnung1 der Hauptbaugruppe \ЙЙ Bezeichnung1 B,ŠуMEintragen der Zeichnungsnummer analog der Zeichnungsnummer der Hauptbaugruppe bЙЙZeichnungsnummer B,Š[мЙZeichnungsnummer: bкЙ Bezeichnung1: \Й eingetragenйуSpeichern der ZeichnungЌ h j B%ž'f[мЙ Dokument (Zeichnung) gespeichertйуSchlieпen der Zeichnung RЙ.SLDDRW :B@ dџџ( [мЙ#Keine Zeichnung zum фndern gefundenйkџџ№ oџџш –8у<$ Ermitteln des Arbeitsverzeichnisses]ѕАу# rќckwфrts bis zum Backslash suchen Є ЂЌЌ• Ђ ЄЌ$ њЙ\œyџџ8 kџџ0  ЄЫу$ alles bis zum Backslash zurќckgeben ЂЌ Є$њ'viџџа –Шу6* Ermitteln der WP-Nr. aus der Bezeichnung1]ѕ@у rќckwфrts bis zum Space suchen Є ЂЌЌ• Ђ ЄЌ$ њЙ œyџџ kџџ  ЄЫу alles ab dem Space zurќckgeben Ђ ЄЌ $њ'‚iџџР–XуA+ Ermitteln des Dokumententitels ohne Endung]ѕау rќckwфrts bis zum Punkt suchen Є ЂЌЌ• Ђ ЄЌ$ њЙ.œyџџkџџ ЄЫу alles bis zum Punkt zurќckgeben ЂЌ ЄЌ $њ'ziџџЈ–шу?+ Ermitteln des Dokumententitels ohne Endung]ѕ`у rќckwфrts bis zum Punkt suchen Є ЈЌЌ• Ј ЄЌ$ њЙ-œyџџјkџџ№ ЄЫу alles bis zum Punkt zurќckgeben ЈЌ ЄЌ $њ'Іiџџ–x]ѕј]ѕ]ѕ0]ѕp]ѕˆ]ѕ Ќ'Ж Њ!И'Ќ ДЌ Ќ‘’№ Д$Ќ.Ў Ў!ККœ ЖЌ 'ЖбЌб Жф@Ар Ў!М'В ВЙ SCHLITTEN„Ќ ВЙAMBOSS„Ќ œ Ў!М$ІЙ.SLDASMЌ Ж+А 6Ќ Ж+Аdџџ@ Ў!М$ІЙ.SLDPRTЌ Ж+А 4Ќ Ж+Аkџџ№[мЙTitel: Ќ Ж$АЙ DokType: Ќ Ж$Айkџџ  ДЫ$А'šiџџxџџџџpџџџџЭЗAttribute VB_Name = "UBG_Edit" '### Dieses Macro dient dazu Informationen aus der Hauptbaugruppe ind Pseudo,n ( Unter ) und*Zeic@hnung cќbernehmenŒWie z.B.*Artik@elnummym`it Фnƒ;a nalog‘St€ufenbezXBeispiel: ‹ 40123400dwirdHƒA1 fќrB d S1-Amboss OpŽ Explicit Const swDocNONEИ0 Ё PART 1 ASSEMBLY 2 DRAWING€ 3.Dim-App As SldWorksF.ˆssy Mpodel€$@УCXomp› ADdrwнnfJ€;figurТŽ C0RootAL mp—t& arrA €Props() РVarianWAfc@.@2Ty@Ÿ@AL(ong>a@+TiјtleТ€ОС WithoutE„xt‘PathBЩуAWŒFol€žUР™ Nr‘Shor!Bez1Q WpSChangeDўaє(j‹ „^У1щ boolsta–t {  B eaрp=&l *Gc,хwaРrnings Љ/ŠiIР~ger!2 Sub main()сSeсbљW=   fтCШW$ 8^sw€.AcАtiveр=!'!0ipfa!uM‘, 1@?el С„aohЄne st.#aрrbeitsve‚rC…is erРt@Œ (FunkёЂyGet‡= G&C6=сo. … гAD= j() џУTЉ "C BHUт Œ‚ b р9ebug.Pri З"NeuрЅDurchgF" & Chrа(13) "‡(kiх0чnЦA*EќndсЎE"ѕC/gС9шO!pp. @pCurr`аA› LDirectoryWтъ2ŒAЎ;s€жfV %ш3&€g€оt†zр ЯWP-NƒЬan@lер'EigenschaftЬ " uХЫ1"еFСvф;"{Щ;CustomaъValue("Standarјd",Ќ $ Р` I!Т  Prќ!`о ob Ar.&t werdрѕHkon@q o@K `ggf. Р (c)psetzСсw If б „Empty OrG9сA Th! Y Q†=`ƒputBox("GXќlt0›e*ra} korr0igieаБWerkzeugplan 31AA0Р-XX/X"?” / y1 "3x1XX„D  сMDsgp "k0 eL gд ka:хс%"B&"'Ѕ&r @&’75#–’†bee Œt€vbCri tical€ FeАhler!' (sPчБ*a 1ExРрUУ сSElse“—Р'Fallsі z с›In0box" getђ, k‚ ЁsfžBvŸ‚›op™cс1[‘Q—.2у_.ДŸ1")А-U#Г уSpF Ifе /пtШ хЈJ:*"ВЉР WЋ'_Љl0t 32F ВЉweg€?nќei4#Y Аu==?=› +Ё2Г€= Mid2=B, 1ј, 6`RnЧ=Р8Ш8 s jliђŽД-т ж:Not LьenЗ8 ;QПvB6р вZš0†nReа›or!kbt‚9`‘•1Zpv32,0 Vorg$abРgebroc Cэ.§ћpBMaЩ1 в% џS 0Ы € сiš?џ eє ЁА ("нi ЛPn’>.б<Ш;3Auќhј`|џџџџјџџџџџџџџџрџџ 0џџџџ@ўџ@шџџџџџџџџџ X@ўџџџџџрџџџџ/џџџџ Ш@џџџџџџџџџџњШ(Аџџџџџ@ўџиШџџџџџџџ џџ @ўџ№Аџџџџџџџ џџ @ўџџџџџЈџџџџџџџџџ џџџџ@ џџџџџџ@ўџџџџџџџџџџџџ џџ @ўџџџџџxџџџџџџџ џџ џџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџЈџџџџ˜џџџџџџџџџџџџџџџџxџџџџ`џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџЈ0Р`‚џџџџјџџџџџџџџџаЈџџ јџџџџ@ўџшџџџџџџџџџ р@ўџџџџџрџџџџ/џџџџ џџџџџџџџџџњ(Аџџџџџ@ўџ Шџџџџџџџ џџ @ўџИАџџџџџџџ џџ @ўџџџџџЈџџџџџџџџџ џџџџ џџџџџџ@ўџџџџџџџџџџџџ џџ @ўџџџџџxџџџџџџџ џџ РXш§џџџџџџџџ @ўџр§џџџџџџџџ @ўџи§џџџџџџџџ @ўџа§џџџџџџџџ `„|0Иџџџџџџџџџ00Јpџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџшш`<џџџџшџџџџџџџ џџ@џџџџџџ @ўџHџџџџџџџ џџ @ўџPˆџџџџџџџџџ h(џџH@ўџџџџџ€џџџџџџџџ `Pџџџџџџ@ўџ0hџџџџџџџ џџ @ўџџџџџ`џџџџџџџ џџ @ўџXџџџџџџџџџ hџџџџџџџџјџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџPџџџџ8џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџh€`>џџџџјџџџџџџџџџhPИџџџџџџ@ўџШшџџџџџџџџџ ј @ўџџџџџрџџџџ/џџџџ џџџџџџџџрџџџџшШџџџџџџџџџџњрџџџџ/џџџџ@ўџАШџџџџџџџ џџ @ўџШАџџџџџџџ џџ @ўџџџџџЈџџџџџџџџџ  `„јџџџџаџџџџџџџ џџџџџџ`џџџџШ џџџџџџџџџџџџџџp@ўџџџџџџџџџџџџ џџ @ўџџџџџxџџџџџџџ џџ џџџџxџџџџ>64џџ баЉ@ўџPџџџџџџџџџ @ўџџџџџHџџџџџџџџџ @ўџџџџџ0џџџџџџџ џџ @ўџ€џџџџџџџ џџ џџџџP'џџџџџџџџџџXџџџџp@ўџџџџџџџџџџџџ џџ џџџџ`Xџџџџа џџџџџџџџџџџџшџџџџxџџџџџџџџџџџџџџџџџџџџА Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2рkНКW%*\R3*#163*\R3*#1eb$*\Rffff*3@57bad08a*\R3*#199*\R3*#1ee*\R3*#30*\R0*#12*\R3*#30*\R3*#73*\R3*#73*\R0*#13$*\Rffff*1^57babf3c*\R0*#2*\R0*#1*\R0*#17*\R0*#f*\R3*#11*\R3*#11*\R3*#0*\R3*#0*\R1*#0*\R1*#3п*ўЪQ€ € Д€ џџџџ€H€ џџџџ„ P„ `„ p„ €€ џџџџ€€ џџџџ€˜€ €Ј€ €p € џџџџ„x€ џџџџ€Ш€ џџџџ€а€и€р€ш€№€ј€€€€€ џџџџ€ € џџџџ€0€8€@€ џџџџ€H€ џџџџ€ џџџџ"X€ џџџџ4`6p€ џџџџ€ z€ ,  ,  0€ џџџџ˜H€ џџџџ6 € џџџџ6<8€ џџџџ€ R@*4˜ Ш€ џџџџ€ Xи€ џџџџT0€ џџџџdŠH А€ џџџџ NР€ џџџџШрp€ џџџџ x€ џџџџ€ d€*(ш€ џџџџ€ џџџџ € џџџџ€ ~(,4ЈPи€ џџџџ€ џџџџ€ (р€ џџџџT€ џџџџ€ € :Ј€ h€ 0€ џџџџ€ @€ а€ џџџџ€ P€ :А‚@€ џџџџ ,(€€ џџџџ (€ џџџџ>Z№P€ џџџџ`€ џџџџh€ №€ џџџџ&4№€ џџџџN€ џџџџRŠ8€ џџџџ"N€ џџџџ~‚И8 € џџџџ @ € џџџџ€ hH &(А € џџџџи € џџџџр € @ш .4( € џџџџ &X € џџџџ`hh € џџџџ.BШ *8€ џџџџ ј   € џџџџ € џџџџ|аш€ џџџџ6(:x€ џџџџ>€ џџџџ€ 8( € џџџџ, € џџџџ$Ј€ џџџџ€ Zx € џџџџ€ Nи <Ў@ € Tp€ џџџџRЂp€ џџџџ€ І€ <l(€ џџџџ€ 2h*( € џџџџ€ Hа.(€ џџџџxЦH€ џџџџ€ РFр€ џџџџ€ џџџџ€  H( € џџџџ @BH€ џџџџ ` € џџџџ(`˜€ џџџџ6vР€ LШ€ џџџџV ј€ џџџџ€ LP"( € џџџџ€ TШ&( € џџџџPVH€ џџџџ€ ˜FИ€ џџџџ*и€ џџџџ€ 2(€ џџџџ H€ џџџџ.P€ џџџџ€€ џџџџˆ€ џџџџB 0€€ џџџџ€˜€ џџџџ€ * &А@8 а ј€ џџџџ€ *Hи€ џџџџ№€ џџџџB 6X€ џџџџ€€ џџџџ€ &˜&Р@р  € џџџџ€ & LH€ џџџџ`€ џџџџB 8h€ џџџџ€ € џџџџ€ &Ј&а@№   € џџџџ€ &0PX€ џџџџx€ џџџџB 8 € џџџџ€А€ џџџџ€ &P &x @˜  ИР И € џџџџ€ &Ш P№ € џџџџ€€ џџџџB € џџџџ€ш€ € џџџџ€ € џџџџ€а€ џџџџ€p€ˆ€ џџџџ € џџџџ $а€ џџџџ(р€ џџџџ.ј€ џџџџ(а€ џџџџј€ џџџџ0р€ џџџџ $р4Nи *l ,P h *l@ ,pˆ€ џџџџB|€ џџџџ € џџџџ € џџџџ @ ˜џџџџуŠ### Dieses Macro dient dazu Informationen aus der Hauptbaugruppe in die Pseudobaugruppen (Unterbaugruppen) und die Zeichnung zu ќbernehmenуЎ### Wie z.B. die Artikelnummer mit Фnderung analog der Stufenbezeichnung Beispiel: Artikelnummer 40123400 der Hauptbaugruppe wird zu 401234A1 fќr die Unterbaugruppe S1-Ambossаџџа]Ќѕа rl]Ќѕ \1]ЌѕORLA]Ќѕ0 Оv=q]ѕ0]ѕ` ]ѕ ]ѕР ]ѕШyk]ѕ ]ѕP ]ѕ(]ѕ€ ]ѕX]ѕА ]ѕˆ]ѕр ]ѕИ]ѕ ]ѕш]ѕ@ d]ѕp ]ѕH]ѕ  ]ѕxg–X№ r!".:€№ :!t.<уsDateipfad zur Hauptbaugruppe, Titel mit und ohne Ext. und das Arbeitsverzeichnis ermitteln (Funktion GetFolderName)˜g%€ <!v'L L$x'NA^ <!z'H%€ H$|'JуLWP-Nummer anhand der Eigenschaft "Bezeichnung1" ermitteln (Funktion GetWpNr) ЙStandardЙ Bezeichnung1 <%€'T‡O“ƒR' T$‚'VуQPrќfen ob WP-Nr. ermittelt werden konnte oder ggf. Bezeichnung1 (WP-Nr.) ersetzen VК  V TœЙGќltige Bezeichnung1 eintragenЙBezeichnung1 korrigierenЙWerkzeugplan 31AA0-XX/X$„'T T$‚'V VК  VЙ 31XX0-XX/XœЙkeine gќltige WP-Nr. erkannt:Й Й' VЙ'Ќ $~ЙMacro wird beendet ˆЙFehlerhafter EigenschaftswertA@†|џџdџџˆу^Falls gќltige Bezeichnung1 in der Inputbox eingetragen, wird diese in die Baugruppe ќbernommen TЙStandardЙ Bezeichnung1 <,ŠkџџшkџџруxArtikelnummer aus der Eigenschaft "Artikelnummer" in der Hauptbaugruppe ermitteln und die letzten 2 Zeichen wegschneidenЙStandardЙ Artikelnummer <%€'P PЌЌ$њ'Rcу###### If PК  PЌœw. vorу###у EndуEnd Ifу######tArtkk]ѕ0]ѕi]ѕЈ T %'PEnd= у4Bereich ohne Artikelnummerngenerator ФanвVn?‚ YesNo +ž = Хт/vb?šС 1ж"Nrёс†NewRX "Еџ_7[7 f7RU6ЁзCџS1eKђБ/тЅK™0Mr 89~KndJѓ0сС> Yвc7#­зo7h7 "6хsГтAbіl5 mE"DUMјMY"^5вQmп}с1гR_Gfа\!^"33-‘ч5-1ў0ѕkcT<•/ к/ˆ SЙKЩjCЗ Zeichnungsnummer eingetragen" & Chr(10)$"Macro wird beendet", vbCritical, "Fehl@erhaftEi„scswe@rt" E€xit Sub"aElse *'Falls gќ ltLЋin diInputbo x Л,Јdiese 'ie Baugruppe @ќbernoяn96swAssy.CustomI@nfo2("p"") = a DrwNr YEnАd If……'„( "AœrЗdatum"`Hauptb†NauslG[€M3Cha€ШDate€;RGet‡SValue("StandardY2) If[Š'Emptyp The.@ M sgBox@ol l heu_s )@ um‰X @uden?vbYesќNož€NТ „С]ƒџQ_Z4CСDCЮI‡G—€f„Rl Debug.Print€lrtikeflФЧЫj: ЩArtNr ЬWP-цNеG Wp —Ч Ф— Set s wConfJ€Activeigu`ratioqУ R€ootCompТ A.@Œonen€t3(TrueТ…arraPropsaK@Т(sw#ЅB'Sc |if#h  se mіg‚l`ˆen Unр~Рparts/†YтJ For i@ 0 To UBound(Љ(), 2 Ё3 PNot Dˆir(+Fol€|0Name +Њ0,Ш i)AJ""JXФ'Z€Uіff`BlK@eРn D0okumР @yp n!”@С‰im @Arry m€”h @erlegt 8istЁh‚ Ј (PY oц‹)bH\il%С i Šr>mЂ4р #ƒPХ;mpMРlр$€app.OpenDoc6SK%‚, !1!,І Р!–lo Йt ‹s, awarn§€Кs,‚Ѓ ЂG€Š т2Ћ i, ОJ €І1 4ВseУ sB ‹E"*fжу.vonУc L(т 9" Eprrorу]gBWяCge&0E3‚дЂ;8neu€*@puabРgeleit€gу0)y!,Џ(erst 6 Stell wрЦŒ+ 2Цdefini лт ЅF(2,€R#;v?Є:ыЪ*›Щ‹†ЫТ‰Shиort"*12=є г&ŽFоezќ2іc>Bh& БK№s Фа€Gms analogЂXumsљ r {яЊwЯ_Gsџ1?ЁAЇlu […[Г$QљЏmpгNЂ(Џ[сяВЫwˆu&p/‰”f|SpсР‡gDУbxoolc5B@QY"A.РSave3(№=w2О=# UN ges„a˜“В\ieп@.‘0НSBCloseџ BB2 00 Or ПДAMpBOSS„й‚! }‰ 0 аб7E.№(& ".SLрDASM"ч бH`1k!ŠswDocASSEMBLYmзE№Пpl&e12›) tPRTmДzPART8і‘ХDebu„g.‹nt "?шel:р{&?бn№TypeSSM‘Ir˜ вHjџС3Єr$—”eichnung1 <,ŠkџџшkџџруxArtikelnummer aus der Eigenschaft "Artikelnummer" in der Hauptbaugruppe ermitteln und die letzten 2 Zeichen wegschneidenЙStandardЙ Artikelnummer <%€'P PЌЌ$њ'Rcу###### If PК  PЌœw. vorу###у EndуEnd Ifу######tArtkk]ѕ0]ѕi]ѕЈ T %'PEnd= у4Bereich ohne Artikelnummerngenerator einkommentieren]ѕpЙa‘H@ё`§џџџџџџџџџ№вдџџџџй-ќ6lџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџБP@q`§џџџџџџџџџџџџџџџџџџџс@`§џџџџџџџџџџџџџџџџџџџPЁ`§џџџџџџџџџџџџџџџџџџџсA81`§џџџџџџџџџџџџџџџџџџџP `§џџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ@€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2JўЪџџџџџџџџxџџџвмц№ryˆ" ˆBasˆ0{801A200ШD3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatabclaIdАTru BExposeTemplate`Deriv’BuРstomizD2NџТ „С]ƒQ_Z4CСDџCЮI‡G—€f„Rl Debug@.Print€lr`tikelJArtNra ЬWP-NеG Wp —Ч Ф— Set swRoo tCompBConf.utStringarr searchString(el u`# kрX befќll!F'arrA Prрops(i с;Ѕ€name (Ta л@вмц№-‡2j0d"GRUNDWERKZEШ".SL0DPRT№т"GR0@ Š1e S1-SCHLIT8TEN-€' ASfM№# '`[мЙDokument gespeichertйуSchlieпen der Komponentedџџи[мЙ8Schleife vorzeitig verlassen, weil Datei nicht vorhandenй5Skџџˆ N JЙ.SLDDRW$~Йœ№ JЙ.SLDDRW 8ЌЙ b d :%’.B[мЙ жffnen von JЙ.SLDDRWЙ Error:  bЙ Warning:  dйуEEintragen der Bezeichnung1 analog der Bezeichnung1 der Hauptbaugruppe TЙЙ Bezeichnung1 B,ŠуMEintragen der Zeichnungsnummer analog der Zeichnungsnummer der Hauptbaugruppe ZЙЙZeichnungsnummer B,Š[мЙZeichnungsnummer: ZкЙ Bezeichnung1: TЙ eingetragenйуSpeichern der ZeichnungЌ b d B%–'`[мЙ Dokument (Zeichnung) gespeichertйуSchlieпen der Zeichnung JЙ.SLDDRW :B@˜dџџ˜[мЙ#Keine Zeichnung zum фndern gefundenйkџџ`oџџXy]ѕ€у# rќckwфrts bis zum Backslash suchen5Xk šЌ œ$њ'xi œЫу$ alles bis zum Backslash zurќckgeben5X š œЌ$ њЙ\œ–@у6* Ermitteln der WP-Nr. aus der Bezeichnung1]ѕИу rќckwфrts bis zum Space suchen œ šЌЌ• š œЌ$ њЙ œyџџkџџˆ œЫу alles ab dem Space zurќckgeben š œЌ $њ'‚iџџ0–ауA+ Ermitteln des Dokumententitels ohne Endung]ѕHу rќckwфrts bis zum Punkt suchen œ šЌЌ•5X š œЌ$ њЙ.œШyџџ€kџџx œЫу alles bis zum Punkt zurќckgeben šЌ œЌ $њ'|iџџ–Ау<$ Ermitteln des Arbeitsverzeichnisses œ šЌЌ• intCoу#####yArtу!Prќfen ob Artikelnummer 8 stellig ь$<'D'уa MsgBox "Artikelnummer ungќltig, Vorgang wird abgebrochen", vbCritical, "Artikelnummer prќfen" PЙStandardЙ Artikelnummer <,Šmer у3Bereich mit Artikelnummerngenerator einkommentierenen ˆЙMacro wird beendet (ЙFehlender EigenschaftswertA@†keџџџџј Z'Xџџџџј'[мЙNeuer DurchgangЌ $~Й Dateipfad  LЌ $~ЙDateiname mit Endung  HЌ $~ЙDateiname ohne Endung  Jйџџџџ№'[мЙArtikelnummer Hauptbaugruppe: PЌ $~Й WP-Nummer:  VЌ $~ЙZeichnungsnummer:  Zйheџџџџ8(уMswApp.ActivateDoc2 arrCompProps(i, 0) & arrCompProps(i, 1), False, longstatusуEswApp.ActivateDoc2 assyTitleWithoutExt & ".SLDDRW", False, longstatusџџџџ№' N :%т'`[мЙArbeitsverzeichniss auf NЙ gesetztйgtџџџџH(№К №%ђ.ь_1Ќ–шiџџџџШ(Ќ f$DЌ f$D$~Йœ і!ќ'ј 8Ќ ј‘’№ 8$ј.њ 8Ыџџџџh/]ѕX№ <! .№eџџџџШ"ЙArtikelnummer ist ungќltig.Ќ $~ЙNeue Artikelnummer anfordern? Œ ˆ ЙArtikelnummer ungќltig$† Žœbgebroџџџџ@) њ!JКœimбЌб \ф@pЈhi \Ќ '\ oџџџџ€Ќ'\DК  fЌ$DЌ‘’$p'<eig 6Ќ \+p \+d[мЙ жffnen von Ќ f$DЙ Error:  bЙ Warning:  dйn-lџџџџP]ѕ0 |Й SCHLITTEN„Ќ |ЙAMBOSS„Ќ œК њ!ў$>Й.SLDASMЌ \+peig њ!ў$>Й.SLDPRTЌ \+p s 4Ќ \+pFЌkџџ0[мЙTitel: Ќ \$pЙ DokType: Ќ \$pйError:џџџџј њ!ў'|џџџџаџџџџЭЗAttribute VB_Name = "UBG_Edit" '### Dieses Macro dient dazu Informationen aus der Hauptbaugruppe ind Pseudo,n ( Unter ) und*Zeic@hnung cќbernehmenŒWie z.B.*Artik@elnummym`it Фnƒ;a nalog‘St€ufenbezXBeispiel: ‹ 40123400dwirdHƒA1 fќrB d S1-Amboss OpŽ Explicit Const swDocNONEИ0 Ё PART 1 ASSEMBLY 2 DRAWING€ 3.Dim-App As SldWorksF.ˆssy Mpodel€$@УCXomp› ADdrwнnfJ€;figurТŽ C0RootAL mp—t& arrA €Props() РVarianeinkommentieren]ѕpЙЙZeichnungsnummer <%€'Z ZК  ZЙDUMMYœЙZeichnungsnummer eintragenЙZeichnungsnummer fehltЙ 33-12345-10$„'Z5S ZК  ZЙ 33-12345-10œЙ*Keine gќltige Zeichnungsnummer eingetragenЌ $~ЙMacro wird beendet ˆЙFehlerhafter EigenschaftswertA@†|џџшdџџруbFalls gќltige Zeichnungsnummer in der Inputbox eingetragen, wird diese in die Baugruppe ќbernommen ZЙЙZeichnungsnummer <,ŠkџџHkџџ@у9Eigenschaft "Aenderungsdatum" der Hauptbaugruppe auslesenЙStandardЙAenderungsdatum <%€'X XК œЙ'Soll heutiges Datum eingetragen werden? ŒЙFehlerhafter Eigenschaftswert$† Žœ ZЙStandardЙAenderungsdatum <,Šdџџ(gџџ kџџkџџ–ˆу?+ Ermitteln des Dokumententitels ohne Endungу rќckwфrts bis zum Punkt suchen0) œ @ЌЌ•0 @ œЌ$ њЙ-œng ( œЫу alles bis zum Punkt zurќckgebenAr @Ќ œЌ $њ'>KZEU]ѕ]ѕ(kу2Schleife ќber alle mіglichen Unterparts/baugruppen fЫ‘a]ѕ`уTZum іffnen der Komponente den Dokumententyp auswerten der im Arry mit hinterlegt ist5XуGKomponente (Part oder Baugruppe) mit Hilfe der Arryinformationen іffnenЌ f$D :B@˜№Ќ f$DЌ f$DЌЙ b d :%’.@en vуŸEintragen der neuen Artikelnummer abgeleitet von der Artikelnummer der Hauptbaugruppe (ersten 6 Stellen wie Hauptbaugruppe + 2 Stellen definiert im Arry (2,i)) RЌ f$DЙStandardЙ Artikelnummer @,Šу+Eintragen der WP-Nummer in die Bezeichnung2їr VЙStandardЙ Bezeichnung2 @,Š5SуBEintragen des Фnderungsdatums analog des Datums der Hauptbaugruppe XЙStandardЙAenderungsdatum @,Š[мЙArtikelnummer: RЌ f$DЙ WP-Nummer:  VЙ Фnderungsdatum:  XЙ eingetragenйуSpeichern der KomponenteЌ b d @%–'`[мЙDokument gespeichertйуSchlieпen der Komponentedџџи[мЙ8Schleife vorzeitig verlassen, weil Datei nicht vorhandenй5Skџџˆ N JЙ.SLDDRW$~Йœ№ JЙ.SLDDRW 8ЌЙ b d :%’.B[мЙ жffnen von JЙ.SLDDRWЙ Error:  bЙ Warning:  dйуEEintragen der Bezeichnung1 analog der Bezeichnung1 der Hauptbaugruppe TЙЙ Bezeichnung1 B,ŠуMEintragen der Zeichnungsnummer analog der Zeichnungsnummer der Hauptbaugruppe ZЙЙZeichnungsnummer B,Š[мЙZeichnungsnummer: ZкЙ Bezeichnung1: TЙ eingetragenйуSpeichern der ZeichnungЌ b d B%–'`[мЙ Dokument (Zeichnung) gespeichertйуSchlieпen der Zeichnung JЙ.SLDDRW :B@˜dџџ˜[мЙ#Keine Zeichnung zum фndern gefundenйkџџ`oџџXy]ѕ€у# rќckwфrts bis zum Backslash suchen5Xk šЌ œ$њ'xi œЫу$ alles bis zum Backslash zurќckgeben5X š œЌ$ њЙ\œ–@у6* Ermitteln der WP-Nr. aus der Bezeichnung1]ѕИу rќckwфrts bis zum Space suchen œ šЌЌ• š œЌ$ њЙ œyџџkџџˆ œЫу alles ab dem Space zurќckgeben š œЌ $њ'‚iџџ0–ауA+ Ermitteln des Dokumententitels ohne Endung]ѕHу rќckwфrts bis zum Punkt suchen œ šЌЌ•5X š œЌ$ њЙ.œШyџџ€kџџx œЫу alles bis zum Punkt zurќckgeben šЌ œЌ $њ'|iџџ–Ау<$ Ermitteln des Arbeitsverzeichnisses œ šЌЌ• intCoу#####yArtу!Prќfen ob Artikelnummer 8 stellig ь$<'D'уa MsgBox "Artikelnummer ungќltig, Vorgang wird abgebrochen", vbCritical, "Artikelnummer prќfen" PЙStandardЙ Artikelnummer <,Šmer у3Bereich mit Artikelnummerngenerator einkommentierenen ˆЙMacro wird beendet (ЙFehlender EigenschaftswertA@†keџџџџј Z'Xџџџџј'[мЙNeuer DurchgangЌ $~Й Dateipfad  LЌ $~ЙDateiname mit Endung  HЌ $~ЙDateiname ohne Endung  Jйџџџџ№'[мЙArtikelnummer Hauptbaugruppe: PЌ $~Й WP-Nummer:  VЌ $~ЙZeichnungsnummer:  Zйheџџџџ8(уMswApp.ActivateDoc2 arrCompProps(i, 0) & arrCompProps(i, 1), False, longstatusуEswApp.ActivateDoc2 assyTitleWithoutExt & ".SLDDRW", False, longstatusџџџџ№' N :%т'`[мЙArbeitsverzeichniss auf NЙ gesetztйgtџџџџH(№К №%ђ.ь_1Ќ–шiџџџџШ( NЌ f$D$~ЙœЙ і!ќ'ј 8Ќ ј‘’№ 8$ј.њ 8Ыџџџџh/]ѕX№ <! .№eџџџџШ"ЙArtikelnummer ist ungќltig.Ќ $~ЙNeue Artikelnummer anfordern? Œ ˆ ЙArtikelnummer ungќltig$† Žœbgebroџџџџ@) њ!JКœimбЌб \ф@pЈhi \Ќ '\ oџџџџ€Ќ'\DК  fЌ$DЌ‘’$p'<eig 6Ќ \+p \+d[мЙ жffnen von Ќ f$DЙ Error:  bЙ Warning:  dйn-lџџџџP]ѕ0 |Й SCHLITTEN„Ќ |ЙAMBOSS„Ќ œК њ!ў$>Й.SLDASMЌ \+peig њ!ў$>Й.SLDPRTЌ \+p s 4Ќ \+pFЌkџџ0[мЙTitel: Ќ \$pЙ DokType: Ќ \$pйError:џџџџј њ!ў'|џџџџаџџџџџџџџЭЗAttribute VB_Name = "UBG_Edit" '### Dieses Macro dient dazu Informationen aus der Hauptbaugruppe ind Pseudo,n ( Unter ) und*Zeic@hnung cќbernehmenŒWie z.B.*Artik@elnummym`it Фnƒ;a nalog‘St€ufenbezXBeispiel: ‹ 40123400dwirdHƒA1 fќrB d S1-Amboss OpŽ Explicit Const swDocNONEИ0 Ё PART 1 ASSEMBLY 2 DRAWING€ 3.Dim-App As SldWorksF.ˆssy Mpodel€$@УCXomp› ADdrwнnfJ€;figurТŽ C0RootAL mp—t& arrA €Props() РVarianWAfc@.@2Ty@Ÿ@AL(ong>a@+TiјtleТ€ОС WithoutE„xt‘PathBЩуAWŒFol€žUР™ Nr‘Shor!Bez1Q WpSChangeDўaє(j‹ „^У1щ boolsta–t {  B eaрp=&l *Gc,хwaРrnings Љ/ŠiIР~ger!2 Sub main()сSeсbљW=   fтCШW$ 8^sw€.AcАtiveр=!'!0ipfa!uM‘, 1@?el С„aohЄne st.#aрrbeitsve‚rC…is erРt@Œ (FunkёЂyGet‡= G&C6=сo. … гAD= j() џУTЉ "C BHUт Œ‚ b р9ebug.Pri З"NeuрЅDurchgF" & Chrа(13) "‡(kiх0чnЦA*EќndсЎE"ѕC/gС9шO!pp. @pCurr`аA› LDirectoryWтъ2ŒAЎ;s€жfV %ш3&€g€оt†zр ЯWP-NƒЬan@lер'EigenschaftЬ " uХЫ1"еFСvф;"{Щ;CustomaъValue("Standarјd",Ќ $ Р` I!Т  Prќ!`о ob Ar.&t werdрѕHkon@q o@K `ggf. Р (c)psetzСсw If б „Empty OrG9сA Th! Y Q†=`ƒputBox("GXќlt0›e*ra} korr0igieаБWerkzeugplan 31AA0Р-XX/X"?” / y1 "3x1XX„D  сMDsgp "k0 eL gд ka:хс%"B&"'Ѕ&r @&’75#–’†bee Œt€vbCri tical€ FeАhler!' (sPчБ*a 1ExРрUУ сSElse“—Р'Fallsі z с›In0box" getђ, k‚ ЁsfžBvŸ‚›op™cс1[‘Q—.2у_.ДŸ1")А-U#Г уSpF Ifе /пtШ хЈJ:*"ВЉР WЋ'_Љl0t 32F ВЉweg€?nќei4#Y Аu==?=› +Ё2Г€= Mid2=B, 1ј, 6`RnЧ=Р8Ш8 s jliђŽД-т ж:Not LьenЗ8 ;QПvB6р вZš0†nReа›or!kbt‚9`‘•1Zpv32,0 Vorg$abРgebroc Cэ.§ћpBMaЩ1 в% џS 0Ы € сiš?џ eє ЁА ("нi ЛPn’>.б<Ш;3AuќФanвVn?‚ YesNo +ž = Хт/vb?šС 1ж"Nrёс†NewRX "Еџ_7[7 f7RU6ЁзCџS1eKђБ/тЅK™0Mr 89~KndJѓ0сС> Yвc7#­зo7h7 "6хsГтAbіl5 mE"DUMјMY"^5вQmп}с1гR_Gfа\!^"33-‘ч5-1ў0ѕkcT<•/ к/ˆ SЙKЩjCЗ Zeichnungsnummer eingetragen" & Chr(10)$"Macro wird beendet", vbCritical, "Fehl@erhaftEi„scswe@rt" E€xit Sub"aElse *'Falls gќ ltLЋin diInputbo x Л,Јdiese 'ie Baugruppe @ќbernoяn96swAssy.CustomI@nfo2("p"") = a DrwNr YEnАd If……'„( "AœrЗdatum"`Hauptb†NauslG[€M3Cha€ШDate€;RGet‡SValue("StandardY2) If[Š'Emptyp The.@ M sgBox@ol l heu_s )@ um‰X @uden?vbYesќNož€NТ „С]ƒџQ_Z4CСDCЮI‡G—€f„Rl Debug.Print€lrtikeflФЧЫj: ЩArtNr ЬWP-цNеG Wp —Ч Ф— Set s wConfJ€Activeigu`ratioqУ R€ootCompТ A.@Œonen€t3(TrueТ…arraPropsaK@Т(sw#ЅB'Sc |if#h  se mіg‚l`ˆen Unр~Рparts/†YтJ For i@ 0 To UBound(Љ(), 2 Ё3 PNot Dˆir(+Fol€|0Name +Њ0,Ш i)AJ""JXФ'Z€Uіff`BlK@eРn D0okumР @yp n!”@С‰im @Arry m€”h @erlegt 8istЁh‚ Ј (PY oц‹)bH\il%С i Šr>mЂ4р #ƒPХ;mpMРlр$€app.OpenDoc6SK%‚, !1!,І Р!–lo Йt ‹s, awarn§€Кs,‚Ѓ ЂG€Š т2Ћ i, ОJ €І1 4ВseУ sB ‹E"*fжу.vonУc L(т 9" Eprrorу]gBWяCge&0E3‚дЂ;8neu€*@puabРgeleit€gу0)y!,Џ(erst 6 Stell wрЦŒ+ 2Цdefini лт ЅF(2,€R#;v?Є:ыЪ*›Щ‹†ЫТ‰Shиort"*12=є г&ŽFоezќ2іc>Bh& БK№s Фа€Gms analogЂXumsљ r {яЊwЯ_Gsџ1?ЁAЇlu […[Г$QљЏmpгNЂ(Џ[сяВЫwˆu&p/‰”f|SpсР‡gDУbxoolc5B@QY"A.РSave3(№=w2О=# UN ges„a˜“В\ieп@.‘0НSBCloseџ BB2 00 Or ПДAMpBOSS„й‚! }‰ 0 аб7E.№(& ".SLрDASM"ч бH`1k!ŠswDocASSEMBLYmзE№Пpl&e12›) tPRTmДzPART8і‘ХDebu„g.‹nt "?шel:р{&?бn№TypeSSM‘Ir˜ вHjџС3Єr$—”"џџџџџџџџџџџџџџџџ5;‚Sџ‚OІЊЂI(ђў фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџс bфiНќ6lџџ#ˆЖџџџџџџџџџџџџфQЬхОFЊP—R–-Ь( €lІгЈН†ЛжчХT”GъN€†ЋЁPOџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџР€ўџџџџџ џџџџ0џџџџџџџџџџ%€%џџџџџџџџ8ƒўџџџџџџџџџxџџџџџџџџџџџџџџ4-30%‚ ,џџџџўџџџџџџџАџџўџџџџџџџџџџџ%џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€Hxhhџџџџџџџџџџџџџџџџџџџџџџ8kНКW%пўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2NџТ „С]ƒQ_Z4CСDџCЮI‡G—€f„Rl Debug@.Print€lr`tikelJArtNra ЬWP-NеG Wp —Ч Ф— Set swRoo tCompBConf.utStringarr searchString(el u`# kрX befќll!F'arrA Prрops(i с;Ѕ€name (Ta л@вмц№-‡2j0d"GRUNDWERKZEШ".SL0DPRT№т"GR0@ Š1e S1-SCHLIT8TEN-€' ASfM№# WAfc@.@2Ty@Ÿ@AL(ong>a@+TiјtleТ€ОС WithoutE„xt‘PathBЩуAWŒFol€žUР™ Nr‘Shor!Bez1Q WpSChangeDўaє(j‹ „^У1щ boolsta–t {  B eaрp=&l *Gc,хwaРrnings Љ/ŠiIР~ger!2 Sub main()сSeсbљW=   fтCШW$ 8^sw€.AcАtiveр=!'!0ipfa!uM‘, 1@?el С„aohЄne st.#aрrbeitsve‚rC…is erРt@Œ (FunkёЂyGet‡= G&C6=сo. … гAD= j() џУTЉ "C BHUт Œ‚ b р9ebug.Pri З"NeuрЅDurchgF" & Chrа(13) "‡(kiх0чnЦA*EќndсЎE"ѕC/gС9шO!pp. @pCurr`аA› LDirectoryWтъ2ŒAЎ;s€жfV %ш3&€g€оt†zр ЯWP-NƒЬan@lер'EigenschaftЬ " uХЫ1"еFСvф;"{Щ;CustomaъValue("Standarјd",Ќ $ Р` I!Т  Prќ!`о ob Ar.&t werdрѕHkon@q o@K `ggf. Р (c)psetzСсw If б „Empty OrG9сA Th! Y Q†=`ƒputBox("GXќlt0›e*ra} korr0igieаБWerkzeugplan 31AA0Р-XX/X"?” / y1 "3x1XX„D  сMDsgp "k0 eL gд ka:хс%"B&"'Ѕ&r @&’75#–’†bee Œt€vbCri tical€ FeАhler!' (sPчБ*a 1ExРрUУ сSElse“—Р'Fallsі z с›In0box" getђ, k‚ ЁsfžBvŸ‚›op™cс1[‘Q—.2у_.ДŸ1")А-U#Г уSpF Ifе /пtШ хЈJ:*"ВЉР WЋ'_Љl0t 32F ВЉweg€?nќei4#Y Аu==?=› +Ё2Г€= Mid2=B, 1ј, 6`RnЧ=Р8Ш8 s jliђŽД-т ж:Not LьenЗ8 ;QПvB6р вZš0†nReа›or!kbt‚9`‘•1Zpv32,0 Vorg$abРgebroc Cэ.§ћpBMaЩ1 в% џS 0Ы € сiš?џ eє ЁА ("нi ЛPn’>.б<Ш;3AuќФanвVn?‚ YesNo +ž = Хт/vb?šС 1ж"Nrёс†NewRX "Еџ_7[7 f7RU6ЁзCџS1eKђБ/тЅK™0Mr 89~KndJѓ0сС> Yвc7#­зo7h7 "6хsГтAbіl5 mE"DUMјMY"^5вQmп}с1гR_Gfа\!^"33-‘ч5-1ў0ѕkcT<•/ к/ˆ SЙKЩj?З Zeichnungsnummer eingetragen" & Chr(10)$"Macro wird beendet", vbCritical, "Fehl@erhaftEi„scswe@rt" E€xit Sub"aElse *'Falls gќ ltLЋin diInputbo x Л,Јdiese 'ie Baugruppe @ќbernoяn96swAssy.CustomI@nfo2("p"") = a DrwNr YEnАd If……'„( "AœrЗdatum"`Hauptb†NauslG[€M3Cha€ШDate€;RGet‡SValue("StandardY2) If[Š'Emptyp The.@ M sgBox@ol l heu_s )@ um‰X @uden?vbYesќNož€NТ „С]ƒџQ_Z4CСDCЮI‡G—€f„Rl Debug.Print€lrtikeflФЧЫj: ЩArtNr ЬWP-цNеG Wp —Ч Ф— Set s wConfJ€Activeigu`ratioqУ R€ootCompТ A.@Œonen€t3(TrueТ…arraPropsaK@Т(sw#ЅB'Sc |if#h  se mіg‚l`ˆen Unр~Рparts/†YтJ For i@ 0 To UBound(Љ(), 2 Ё3 PNot D„ir‹0, i‘Э*1СJ""ЪX Ф'ZVіffрТlKР‚eРn D0okum@!@yp €nЁ”РAŠim @Arry m•h @erlegt 8ist!i‚ Ј (PY€ ofŒ)bH\il€%С i Šr>m"5р #QE 00 Or ПДAMpBOSS„й‚! }‰ 0 аб7E.№(& ".SLрDASM"ч бH`1k!ŠswDocASSEMBLYmзE№Пpl&e12›) tPRTmДzPART8і‘ХDebu„g.‹nt "?шel:р{&?бn№TypeSSM‘Ir˜ вHjџС3Єr$—”џџџџџџџџџџџџџџџџ€Hxhhџџџџџџџџџџџџџџџџџџџџџџ8kНКW%пўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A200bфiНќ6lџџ#ˆЖџџџџџџџџџџџџфQЬхОFЊP—R–-Ь( €lІгЈН†ЛжчХT”GъN€†ЋЁPOџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџР€ўџџџџџ џџџџ0џџџџџџџџџџ%€%џџџџџџџџ8ƒўџџџџџџџџџxџџџџџџџџџџџџџџ4-30%‚ ,џџџџўџџџџџџџАџџўџџџџџџџџџџџ%џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€Hxhhџџџџџџџџџџџџџџџџџџџџџџ8kНКW%пўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2NџТ „С]ƒQ_Z4CСDџCЮI‡G—€f„Rl Debug@.Print€lr`tikelJArtNra ЬWP-NеG Wp —Ч Ф— Set swRoo tCompBConf.utStringarr searchString(el u`# kрX befќll!F'arrA Prрops(i с;Ѕ€name (Ta л@вмц№-‡2j0d"GRUNDWERKZEШ".SL0DPRT№т"GR0@ Š1e S1-SCHLIT8TEN-€' ASfM№# “K*šџџџџrUРР@@~~~~~~~~~~,~~~~~~~~~~~,~&,~P"џџџџџџџџџџџџџџџџLЉћ ыKH˜ˆ/Э * фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAHџџџџџџџџџџ“K*šџџџџrUРР@@~~~~~~~~~~,~~~~~~~~~~~,~&,~P"џџџџџџџџџџџџџџџџ7…^ŸХђCЄгфЮ'Auq фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAHџџџџџџџџџџџџџџџџс 1Q‘СџџџџџџџџџџˆaЁ.џџџџџџџџPџџџџџџџџс*‘-Б-с-.A.a.џџџџџџџџџџџџџџџџџџAЁ    ThisLibraryUBG_EditArtNrEditUBGяРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ€lІгЈН†Лж +C:\Program Files (x86)\SolidWorks\swvba.tlb SolidWorks џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0РFC:\Windows\system32\stdole2.tlbstdole Ёџџџџџџџџб!џџџџџџџџ1=ЃƒХ'ЮПд@ЛW .C:\Program Files (x86)\SolidWorks\sldworks.tlbSldWorks бџџџџџџџџqџџџџџџџџYѓ‡FаUгLЖЯ.Д,љ‰ -C:\Program Files (x86)\SolidWorks\swconst.tlbSwConstMSForms 1џџџџџџџџaбџџџџџџџџŸоС М?%L†}N‘9Ьр0C:\Program Files (x86)\SolidWorks\swcommands.tlb SwCommands ЁџџџџџџџџбQ џџџџџџџџztщb6nC‚ трS<C:\Program Files (x86)\SolidWorks\sldutils\gtswUtilities.tlb SWUtilities  џџџџџџџџзA б џџџџџџџџс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLL ‘ ‘ С ёџџџџџџџџh˜MšпœIЃнŠqњz4C:\Users\KRIEGB~1\AppData\Local\Temp\VBE\MSForms.exd Ё ‘ б ёџџџџџџџџmain GetFolderNameGetWpNrGetTitleWithoutExt GetCompTitle GetCompProps*o]eATбEŒКг_Вiˆф Bezeichnung1 4Zeichnungsnummer eintragen$ ŒŒА (0ndet", vbC@HPX`hpx€ˆ €lІгЈН†Лж€lІгЈН†ЛжAqџџџџџџџџ&mq"=ЃƒХ'ЮПд@ЛW 0Arbeitsverzeichniss auf  ˆ&m1ћ“Й=я€KЅФ™•œлlы&mQ Neuer DurchgangVBE7.DLL!џџџџџџџџ` џџџџџџџџ Standard a Dateipfad *Dateiname mit Endung  ,Dateiname ohne Endung  Œ&t1  gesetzt*{Q <Gќltige Bezeichnung1 eintragen 0Bezeichnung1 korrigieren .Werkzeugplan 31AA0-XX/X!џџџџџџџџT  џџџџџџџџ!џџџџџџџџS $џџџџџџџџ0œ 31XX0-XX/X :keine gќltige WP-Nr. erkannt:   ' $Macro wird beendet :Fehlerhafter Eigenschaftswert Bezeichnung2(~*{Q Artikelnummer!џџџџџџџџx (џџџџџџџџ DUMMY  Warning: $o 6Artikelnummer ist ungќltig. :Neue Artikelnummer anfordern? ,Artikelnummer ungќltigapiGetUserName advapi32.dll GetUserNameA!+a+,.™ GetNewReadFile MakeArray CreateNewLineGetUserCheckExistInArray  4Fehlender Eigenschaftswert Zeichnungsnummer . ,Zeichnungsnummer fehlt 33-12345-10 TKeine gќltige Zeichnungsnummer eingetragen Aenderungsdatum NSoll heutiges Datum eingetragen werden?!џџџџџџџџb 4€!џџџџџџџџ… 8РZ <Artikelnummer Hauptbaugruppe:  WP-Nummer: $Zeichnungsnummer: ˜=ЃƒХ'ЮПд@ЛW&t q6 a .SLDPRT<П1 жffnen von   Error:  Artikelnummer:   WP-Nummer: " Фnderungsdatum:   eingetragen.ŠQ (Dokument gespeichert FKeine Zeichnung zum фndern gefunden&m1 pSchleife vorzeitig verlassen, weil Datei nicht vorhanden .SLDDRW  Bezeichnung1:  Hˆ @Dokument (Zeichnung) gespeichertA \!џџџџџџџџw ‘D "h&mё whatever -$ ŒŒА (0icati@HPX`hpx€ˆ Schlitten Amboss .SLDASM Titel:   DokType:  SCHLITTEN AMBOSSssen, weil Datei nicht vorhanden .SLDDRW  Bezeichnung1:  Hˆ @Dokument (Zeichnung) gespeichert FKeine Zeichnung zum фndern gefundenС№б/џџџџџџџџџџq‘PbМ*\G{00020430-0000-0000-C00rUР@@@~xџџџџџџџџџџџџџџџџHihHiPHiрHiXHiHiР  a Z с Z "a "a  S  (y &Woџџџџџџс 1Q‘СџџџџџџџџџџˆaЁ.џџџџџџџџPџџџџџџџџс*‘-Б-с-.A.a.џџџџџџџџџџџџџџџџџџAЁ    ThisLibraryUBG_EditArtNrEditUBGяРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ€lІгЈН†Лж +C:\Program Files (x86)\SolidWorks\swvba.tlb SolidWorks џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0РFC:\Windows\system32\stdole2.tlbstdole Ёџџџџџџџџб!џџџџџџџџ1=ЃƒХ'ЮПд@ЛW .C:\Program Files (x86)\SolidWorks\sldworks.tlbSldWorks бџџџџџџџџqџџџџџџџџYѓ‡FаUгLЖЯ.Д,љ‰ -C:\Program Files (x86)\SolidWorks\swconst.tlbSwConstMSForms 1џџџџџџџџaбџџџџџџџџŸоС М?%L†}N‘9Ьр0C:\Program Files (x86)\SolidWorks\swcommands.tlb SwCommands ЁџџџџџџџџбQ џџџџџџџџztщb6nC‚ трS<C:\Program Files (x86)\SolidWorks\sldutils\gtswUtilities.tlb SWUtilities  џџџџџџџџзA б џџџџџџџџс.E р….`ŒM ДC:\WINDOWS\system32\FM20.DLL ‘ ‘ С ёџџџџџџџџh˜MšпœIЃнŠqњz4C:\Users\KRIEGB~1\AppData\Local\Temp\VBE\MSForms.exd Ё ‘ б ёџџџџџџџџmain GetFolderNameGetWpNrGetTitleWithoutExt GetCompTitle GetCompProps*o]eATбEŒКг_Вiˆф Bezeichnung1 4Zeichnungsnummer eintragen$ ŒŒА (0ndet", vbC@HPX`hpx€ˆ €lІгЈН†Лж€lІгЈН†ЛжAqџџџџџџџџ&mq"=ЃƒХ'ЮПд@ЛW 0Arbeitsverzeichniss auf  ˆ&m1ћ“Й=я€KЅФ™•œлlы&mQ Neuer DurchgangVBE7.DLL!џџџџџџџџ` џџџџџџџџ Standard a Dateipfad *Dateiname mit Endung  ,Dateiname ohne Endung  Œ&t1  gesetzt*{Q <Gќltige Bezeichnung1 eintragen 0Bezeichnung1 korrigieren .Werkzeugplan 31AA0-XX/X!џџџџџџџџT  џџџџџџџџ!џџџџџџџџS $џџџџџџџџ0œ 31XX0-XX/X :keine gќltige WP-Nr. erkannt:   ' $Macro wird beendet :Fehlerhafter Eigenschaftswert Bezeichnung2(~*{Q Artikelnummer!џџџџџџџџx (џџџџџџџџ DUMMY  Warning: $o 6Artikelnummer ist ungќltig. :Neue Artikelnummer anfordern? ,Artikelnummer ungќltigapiGetUserName advapi32.dll GetUserNameA!+a+,.™ GetNewReadFile MakeArray CreateNewLineGetUserCheckExistInArray  4Fehlender Eigenschaftswert Zeichnungsnummer . ,Zeichnungsnummer fehlt 33-12345-10 TKeine gќltige Zeichnungsnummer eingetragen Aenderungsdatum NSoll heutiges Datum eingetragen werden?!џџџџџџџџb 4€!џџџџџџџџ… 8РZ <Artikelnummer Hauptbaugruppe:  WP-Nummer: $Zeichnungsnummer: ˜=ЃƒХ'ЮПд@ЛW&t q6 a .SLDPRT<П1 жffnen von   Error:  Artikelnummer:   WP-Nummer: " Фnderungsdatum:   eingetragen.ŠQ (Dokument gespeichert FKeine Zeichnung zum фndern gefunden&m1 pSchleife vorzeitig verlassen, weil Datei nicht vorhanden .SLDDRW  Bezeichnung1:  Hˆ @Dokument (Zeichnung) gespeichertA \!џџџџџџџџw ‘D "h&mё whatever -$ ŒŒА (0icati@HPX`hpx€ˆ Schlitten Amboss .SrU@@@џџџџџџџџџџџџА8ё`§џџџџџџџџџџџџџџџџџџџ@a`ќџџџџџџџџџџџџџџџџџџџБP@`ќџџџџџџџџџџџџџџџџџџџБP@‘`ќџџџџџџџџџџџџџџџџџџџБP@`ќџџџџџџџџџџџџџџџџџџџбPH! `ќџџџџџџџџџџџџџџџџџџџA^bё&ё%џџџџџџџџё&С*!.A-Б.‘./‘#‘+A/0с0A14Б45A7Q9Б9ё9!:q:Б:с:!;Q;Ё;б;q7Ё73Б3с#бб/С<a<‘<б<=Q==С=ё=Q>>б>?a?‘?с?@a@‘@с@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁBC‘IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŠРgg4ŸјџџџпZєp˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg,Ÿ№џџџ.єи"№џџџGpg /pGxg,Ÿ№џџџ.єа"№џџџG`g /`Ghg№ Ÿиџџџџ№ Ÿ0џџџџ№ Ÿ ўџџџўРџџџ–иџџџOЈџџџўџџџOxџџџ'pq`џџџOHџџџ–0џџџOџџџўџџџOшўџџ'`qаўџџOИўџџ– ўџџOˆўџџўpўџџOXўџџ'hq@ўџџO(ўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџg6Ÿ ўџџ'x.є‘ ўџџAРg<ї'xPg№џџџїPgўџџb^ы№џџџўџџg4Ÿ№џџџї ї!.єh"№џџџGg /G˜gT'˜qџџџХ№РџџџCиџџџ'˜'D[`џџџ+ЈџџџlМ`џџџЧ4gŠёшўџџёџџџё0џџџёHџџџў`џџџ"IxџџџŸxџџџўџџџ#IЈџџџŸЈџџџўРџџџ$IиџџџŸиџџџї 8GъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџg /G˜gN'˜qџџџХ№РџџџCиџџџ'˜ї%D[`џџџ+ЈџџџlМ`џџџЧgШ№ Ÿиџџџџёшўџџёџџџўџџџ&I0џџџŸ0џџџ№ї'ї(Pg№џџџї)Pgўџџ'˜Pgўџџї)PqЈџџџ–иџџџOxџџџўРџџџ*OHџџџџ (ы№џџџўџџўџџъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџg{Ц.gg('ї ї!.єр ggg4Ÿ№џџџї+ї!.єh"№џџџG€gPјиџџџ№/€ЗРџџџ@ŸЈџџџџ –Јџџџ`GˆъиџџџЈџџџgT'€qџџџХ№РџџџCиџџџ'€L№? [`џџџ+ЈџџџlМ`џџџЧtgZёHџџџёxџџџўџџџ,IЈџџџŸЈџџџ№ўРџџџ-IиџџџŸиџџџџ (ъиџџџЈџџџxџџџHџџџgkgg4Ÿ№џџџї.ї/.єh"№џџџGЈgN'ЈqџџџХ№РџџџCиџџџ'Јї0D[`џџџ+ЈџџџlМ`џџџЧ˜gŠёшўџџёџџџё0џџџёHџџџў`џџџ1IxџџџŸxџџџўџџџ2IЈџџџŸЈџџџўРџџџ3IиџџџŸиџџџї 8GЈъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgN'ЈqџџџХ№РџџџCиџџџ'Јї1D[`џџџ+ЈџџџlМ`џџџЧdg‚№ Ÿиџџџџёџџџё0џџџў`џџџ&IHџџџŸHџџџ№ўРџџџ4–иџџџOЈџџџўџџџ*Oxџџџџ (ъ иџџџЈџџџxџџџHџџџ0џџџџџџg{Ц’gg('Јї.ї/.єр ggg4Ÿ№џџџї5ї!.єh"№џџџG g&' qџџџХ№РџџџKЧц ghёHџџџёxџџџўџџџ&IЈџџџŸЈџџџ№ўРџџџ6IиџџџŸиџџџђ (№?ъиџџџЈџџџxџџџHџџџЧв gBŸиџџџџ –иџџџa№џџџї5ї!.єр Н№џџџМиџџџg*Ÿиџџџџ –иџџџ`G МиџџџЦр ggkgggа№ Ÿиџџџџ№ Ÿџџџџї7'€PqЈџџџ–иџџџOxџџџўРџџџ8OHџџџ'˜qџџџO0џџџ–џџџrUР@@@~xџџџџџџџџ]ёa‘Q‘‘a%'ёб2Ё6! Q3a9q=@СCЁ1QС!qсaaбс!б‘qЁ!1#ё!"Ё"С"С&a*A)б)с.‘/q/‘'‘00qс0Б125Б56q6ё!9Q;Ё;С'С#<q<С<!=ё>QAQB‘BёB!Ca?DёCё/БEёF1GAIIСIJAJ‘JбJRˆgg4ŸјџџџпZєp˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg,Ÿ№џџџ.єи"№џџџGPg /PGXg,Ÿ№џџџ.єа"№џџџG@g /@GHg№ Ÿиџџџџ№ Ÿ0џџџџ№ Ÿ ўџџџўРџџџ–иџџџOЈџџџўџџџOxџџџ'Pq`џџџOHџџџ–0џџџOџџџўџџџOшўџџ'@qаўџџOИўџџ– ўџџOˆўџџўpўџџOXўџџ'Hq@ўџџO(ўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџg6Ÿ ўџџ'X.є‘ ўџџA˜g<ї'XPg№џџџїPgўџџb^ ы№џџџўџџg4Ÿ№џџџї!ї".єh"№џџџGpg /pGxgT'xqџџџХ№РџџџCиџџџ'x'pD[`џџџ+ЈџџџlМ`џџџЧ4gŠёшўџџёџџџё0џџџёHџџџў`џџџ#IxџџџŸxџџџўџџџ$IЈџџџŸЈџџџўРџџџ%IиџџџŸиџџџї 8GpъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџg /pGxgN'xqџџџХ№РџџџCиџџџ'xї&D[`џџџ+ЈџџџlМ`џџџЧgШ№ Ÿиџџџџёшўџџёџџџўџџџ'I0џџџŸ0џџџ№ї(ї)Pg№џџџї*Pgўџџ'xPgўџџї*PqЈџџџ–иџџџOxџџџўРџџџ+OHџџџџ (ы№џџџўџџўџџъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџg{Ц.gg('pї!ї".єр ggg4Ÿ№џџџї,ї".єh"№џџџG`gPјиџџџ№/`ЗРџџџ@ŸЈџџџџ –Јџџџ`GhъиџџџЈџџџgT'`qџџџХ№РџџџCиџџџ'`L№? [`џџџ+ЈџџџlМ`џџџЧ^g№ Ÿиџџџџёџџџё0џџџў`џџџ-IHџџџŸHџџџ№ўРџџџ.–иџџџOЈџџџўџџџ/Oxџџџђ (№?ъ иџџџЈџџџxџџџHџџџ0џџџџџџЧ№g /p G`g('`ї,ї".єр ЦXggZёHџџџёxџџџўџџџ0IЈџџџŸЈџџџ№@ўРџџџ+IиџџџŸиџџџџ (ъиџџџЈџџџxџџџHџџџgkggg4Ÿ№џџџї1ї2.єh"№џџџGˆgN'ˆqџџџХ№РџџџCиџџџ'ˆї3D[`џџџ+ЈџџџlМ`џџџЧ‚ gŠёшўџџёџџџё0џџџёHџџџў`џџџ4IxџџџŸxџџџўџџџ5IЈџџџŸЈџџџўРџџџ6IиџџџŸиџџџї 8GˆъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgN'ˆqџџџХ№РџџџCиџџџ'ˆї4D[`џџџ+ЈџџџlМ`џџџЧN g‚№ Ÿиџџџџёџџџё0џџџў`џџџ'IHџџџŸHџџџ№ўРџџџ7–иџџџOЈџџџўџџџ+Oxџџџџ (ъ иџџџЈџџџxџџџHџџџ0џџџџџџg{Ц| gg('ˆї1ї2.єр ggg4Ÿ№џџџї8ї".єh"№џџџG€g&'€qџџџХ№РџџџKЧа ghёHџџџёxџџџўџџџ'IЈџџџŸЈџџџ№ўРџџџ9IиџџџŸиџџџђ (№?ъиџџџЈџџџxџџџHџџџЧМ gBŸиџџџџ–иџџџa№џџџї8ї".єр Н№џџџМиџџџg*Ÿиџџџџ–иџџџ`G€МиџџџЦЪ ggkgggа№ Ÿиџџџџ№ Ÿџџџџї:'`PqЈџџџ–иџџџOxџџџўРџџџ;OHџџџ'xqџџџO0џџџ–џџџOшўџџў`џџџ<OИўџџ'ˆqџџџO ўџџb^ъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџg6Ÿјџџџ.є ˜јџџџU=R Ојџџџg:Ÿјџџџэџџ. є8˜јџџџU>R(Ојџџџg>/(Ÿиџџџ–иџџџ‡ ўџџ/0SМиџџџg,p/Є+0rn††ј§џџДg„№№!Є‘+0†№!Є‘+0†Oиџџџїg№џџџї2D Н№џџџМиџџџЧ|gЎŸјџџџ/ /œї2№№!Є‘+0†–№!Є‘+0†a№џџџ.є€˜јџџџURН№џџџОјџџџgЂўРџџџ@№!Є‘+0†OиџџџўџџџAOЈџџџ"œl`џџџOxџџџўџџџBOHџџџ" lаўџџO0џџџb^ъ иџџџЈџџџxџџџHџџџ0џџџgl'hqРџџџ№!Є‘+0†Oиџџџa№џџџї,ї".єр Н№џџџМиџџџg('xїCї".єр g('€ї8ї".єр gЦїD'hPqиџџџ№!Є‘+0†OЈџџџўРџџџEOxџџџ'xqџџџOHџџџў`џџџFO0џџџ'€qџџџOџџџўаўџџGOшўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgFŸ ўџџ/ /œ№.є ‘ ўџџA˜gїHb^ gH№!Є‘+0†a№џџџ.єˆН№џџџЦ”ggїIb^ gg/ЄЄј§џџ€ g`№'X'HPg№џџџїJPqиџџџїgўџџї2D ы№џџџўџџМиџџџЧ`gvŸјџџџ/ /œї2№№'HїJPg№џџџ.є€˜јџџџURН№џџџОјџџџg ї@'HPg№џџџїJPgўџџїAPgўџџ"œbg№§џџPgш§џџїBPgр§џџ" bgи§џџPgа§џџb^ ы№џџџўџџўџџ№§џџш§џџр§џџи§џџа§џџg('pї!ї2.єр g('ˆї1ї2.єр gVїK'pPgўџџїGPgўџџї<'ˆPg№џџџb^Lы№џџџўџџўџџgFŸ ўџџ/ /œ№.є ‘ ўџџA˜gїMb^ g2'HїJPg№џџџ.єˆН№џџџЦxggїNb^ gg{0ˆ8’№џџџўџџўџџ№§џџш§џџр§џџи§џџа§џџјџџџиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџDфgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїPDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gHŸ№џџџЗџџџ@№яЗШџџџ@ŸАџџџџ –Аџџџ`ЗјџџџМАџџџgvpф@јџџџ ЈџџџАџџџNшgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџї)DНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gLёАџџџ‘№џџџqУ‘яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆш@јџџџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїQDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїUDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ€&ЈџџџАџџџxџџџ pggэџџБЈџџџg$Ÿџџџює8R–џџџЖаџџџg(pŸАџџџŸаџџџЕхqn††€џџџJg.ŸАџџџЖ@ŸаџџџцџџџV>ТШџџџМџџџg(Ÿ`џџџžШџџџєR‘`џџџp>Ч.g‘ЈџџџqУБЈџџџg0№№№‘Јџџџ‘ŸРџџџТ €g$ŸXџџџžШџџџє(R"XџџџЗИџџџgN№—Иџџџї[№N№”№—ИџOшўџџў`џџџ9OИўџџ'ЈqџџџO ўџџb^ъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџgDŸјџџџ.є ˜јџџџU:žаВОјџџџgHŸјџџџэџџžаŽє8˜јџџџU;R Ојџџџg/ g.ўРџџџ<№№/0Гg.ўРџџџ=№№/0Гg.ўРџџџ>№№/0Гg.ўРџџџ?№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџA№№/0Гg.ўРџџџB№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџC№№/0Гg.ўРџџџD№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџE№№/0Гg.ўРџџџF№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџG№№/0Гg.ўРџџџH№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџI№№/0Гg.ўРџџџJ№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџK№№/0Гg.ўРџџџL№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџM№№/0Гg.ўРџџџN№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџO№№/0Гg.ўРџџџP№ №/0Гg.ўРџџџ@№ №/0Гg.ўРџџџQ№ №/0Гg.ўРџџџR№ №/0Гg.ўРџџџ@№ №/0Гg.ўРџџџS№ №/0Гg.ўРџџџT№ №/0Гg.ўРџџџ@№ №/0Гg.ўРџџџU№ №/0Гg.ўРџџџV№ №/0Гg.ўРџџџ@№ №/0Гg.ўРџџџW№ №/0Гg.ўРџџџX№ №/0Гg.ўРџџџ@№ №/0Гg.ўРџџџY№ №/0Гg.ўРџџџZ№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџ[№№/0Гg.ўРџџџ\№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџ]№№/0Гg.ўРџџџ^№№/0Гg.ўРџџџ@№№/0Гg.ўРџџџ_№№/0Гg.ўРџџџ`№№/0Гg.ўРџџџ=№№/0Гg.ўРџџџa№№/0Гg.ўРџџџb№№/0Гg.ўРџџџ=№№/0Гg.ўРџџџc№№/0Гg,p/Ь/0qn††ўџџюg„№!Ь‘№/0†!Ь‘№/0†Oиџџџїg№џџџї/D Н№џџџМиџџџЧЖg>!Ь‘№/0†ўРџџџ=ХKЧІg№BXЦТgg№BXggТŸјџџџ/Ш/Фї/№"X!Ь‘№/0†!Ь‘№/0†Oиџџџa№џџџ.є€˜јџџџURН№џџџОјџџџМиџџџgвўРџџџd!Ь‘№/0†Oиџџџ!Ь‘№/0†OЈџџџўџџџeOxџџџ"Фl`џџџOHџџџўџџџfO0џџџ"ШlаўџџOџџџb^ъ иџџџЈџџџxџџџHџџџ0џџџџџџgl'ˆqРџџџ!Ь‘№/0†Oиџџџa№џџџї+ї!.єр Н№џџџМиџџџg('˜їgї!.єр g(' ї5ї!.єр gЦїh'ˆPqиџџџ!Ь‘№/0†OЈџџџўРџџџiOxџџџ'˜qџџџOHџџџў`џџџjO0џџџ' qџџџOџџџўаўџџkOшўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgFŸ ўџџ/Ш/Ф№.є ‘ ўџџAРgїlb^gz!Ь‘№/0†!Ь‘№/0†Oиџџџa№џџџ.єˆН№џџџМиџџџЦЮggїmb^gg/ЬЄўџџШg`№'x'hPg№џџџїnPqиџџџїgўџџї/D ы№џџџўџџМиџџџЧšgvŸјџџџ/Ш/Фї/№№'hїnPg№џџџ.є€˜јџџџURН№џџџОјџџџg їd'hPg№џџџїnPgўџџїePgўџџ"Фbgј§џџPg№§џџїfPgш§џџ"Шbgр§џџPgи§џџb^ы№џџџўџџўџџј§џџ№§џџш§џџр§џџи§џџg('ї ї/.єр g('Јї.ї/.єр gVїo'PgўџџїkPgўџџї9'ЈPg№џџџb^pы№џџџўџџўџџgFŸ ўџџ/Ш/Ф№.є ‘ ўџџAРgїqb^g2'hїnPg№џџџ.єˆН№џџџЦВggїrb^gg{(Р8’№џџџўџџўџџј§џџ№§џџш§џџр§џџи§џџјџџџиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџHiАHi@HiаHiа  џџџџџџџџS џџџџџџџџ Z  Z  Z  Z\џџї\№N№”&ЧglŸXџџџžШџџџє(R"Xџџџ PџџџSgHџџџїXPqџџџ№‘Јџџџ‘›РџџџІыPџџџHџџџМџџџg,јhџџџ№‘Јџџџ‘›РџџџІЦЌgglŸXџџџžШџџџє(R"Xџџџ PџџџSgHџџџї?Pqџџџ№‘Јџџџ‘›РџџџІыPџџџHџџџМџџџg,јhџџџ№‘Јџџџ‘›РџџџІgg|ўhџџџY№‘Јџџџ‘›Рџџџ†Oџџџў0џџџZOџџџ№‘Јџџџ‘›Рџџџ†Oџџџb^ъџџџџџџџџџggŸАџџџЄ€џџџbg›LDASM Titel:   DokType:  SCHLITTEN AMBOSSssen, weil Datei nicht vorhanden .SLDDRW  Bezeichnung1:  Hˆ @Dokument (Zeichnung) gespeichert FKeine Zeichnung zum фndern gefundenС№Woџџџџџџџџџџq‘PbМ*\G{00020430-0000-0000-C00rUР@@@~xџџџџџџџџџџџџџџџџHihHiPHiрHiXHiHiР  a Z с Z "a "a  S  (y &WorU@@@џџџџџџџџџџџџА8ё`§џџџџџџџџџџџџџџџџџџџ@a`ќџџџџџџџџџџџџџџџџџџџБP@`ќџџџџџџџџџџџџџџџџџџџБP@‘`ќџџџџџџџџџџџџџџџџџџџБP@`ќџџџџџџџџџџџџџџџџџџџбPH! `ќџџџџџџџџџџџџџџџџџџџA^bё&ё%џџџџџџџџё&С*!.A-Б.‘./‘#‘+A/0с0A14Б45A7Q9Б9ё9!:q:Б:с:!;Q;Ё;б;q7Ё73Б3с#бб/С<a<‘<б<=Q==С=ё=Q>>б>?a?‘?с?@a@‘@с@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁBC‘IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŠРgg4ŸјџџџпZєp˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg,Ÿ№џџџ.єи"№џџџGpg /pGxg,Ÿ№џџџ.єа"№џџџG`g /`Ghg№ Ÿиџџџџ№ Ÿ0џџџџ№ Ÿ ўџџџўРџџџ–иџџџOЈџџџўџџџOxџџџ'pq`џџџOHџџџ–0џџџOџџџўџџџOшўџџ'`qаўџџOИўџџ– ўџџOˆўџџўpўџџOXўџџ'hq@ўџџO(ўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџg6Ÿ ўџџ'x.є‘ ўџџAРg<ї'xPg№џџџїPgўџџb^ы№џџџўџџg4Ÿ№џџџї ї!.єh"№џџџGg /G˜gT'˜qџџџХ№РџџџCиџџџ'˜'D[`џџџ+ЈџџџlМ`џџџЧ4gŠёшўџџёџџџё0џџџёHџџџў`џџџ"IxџџџŸxџџџўџџџ#IЈџџџŸЈџџџўРџџџ$IиџџџŸиџџџї 8GъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџg /G˜gN'˜qџџџХ№РџџџCиџџџ'˜ї%D[`џџџ+ЈџџџlМ`џџџЧgШ№ Ÿиџџџџёшўџџёџџџўџџџ&I0џџџŸ0џџџ№ї'ї(Pg№џџџї)Pgўџџ'˜Pgўџџї)PqЈџџџ–иџџџOxџџџўРџџџ*OHџџџџ (ы№џџџўџџўџџъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџg{Ц.gg('ї ї!.єр ggg4Ÿ№џџџї+ї!.єh"№џџџG€gPјиџџџ№/€ЗРџџџ@ŸЈџџџџ –Јџџџ`GˆъиџџџЈџџџgT'€qџџџХ№РџџџCиџџџ'€L№? [`џџџ+ЈџџџlМ`џџџЧtgZёHџџџёxџџџўџџџ,IЈџџџŸЈџџџ№ўРџџџ-IиџџџŸиџџџџ (ъиџџџЈџџџxџџџHџџџgkgg4Ÿ№џџџї.ї/.єh"№џџџGЈgN'ЈqџџџХ№РџџџCиџџџ'Јї0D[`џџџ+ЈџџџlМ`џџџЧ˜gŠёшўџџёџџџё0џџџёHџџџў`џџџ1IxџџџŸxџџџўџџџ2IЈџџџŸЈџџџўРџџџ3IиџџџŸиџџџї 8GЈъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgN'ЈqџџџХ№РџџџCиџџџ'Јї1D[`џџџ+ЈџџџlМ`џџџЧdg‚№ Ÿиџџџџёџџџё0џџџў`џџџ&IHџџџŸHџџџ№ўРџџџ4–иџџџOЈџџџўџџџ*Oxџџџџ (ъ иџџџЈџџџxџџџHџџџ0џџџџџџg{Ц’gg('Јї.ї/.єр ggg4Ÿ№џџџї5ї!.єh"№џџџG g&' qџџџХ№РџџџKЧц ghёHџџџёxџџџўџџџ&IЈџџџŸЈџџџ№ўРџџџ6IиџџџŸиџџџђ (№?ъиџџџЈџџџxџџџHџџџЧв gBŸиџџџџ –иџџџa№џџџї5ї!.єр Н№џџџМиџџџg*Ÿиџџџџ –иџџџ`G МиџџџЦр ggkgggа№ Ÿиџџџџ№ Ÿџџџџї7'€PqЈџџџ–иџџџOxџџџўРџџџ8OHџџџ'˜qџџџO0џџџ–џџџrUР@@@~xџџџџџџџџ]ёa‘Q‘‘a%'ёб2Ё6! Q3a9q=@СCЁ1QС!qсaaбс!б‘qЁ!1#ё!"Ё"С"С&a*A)б)с.‘/q/‘'‘00qс0Б125Б56q6ё!9Q;Ё;С'С#<q<С<!=ё>QAQB‘BёB!Ca?DёCё/БEёF1GAIIСIJAJ‘JбJRˆgg4ŸјџџџпZєp˜јџџџURОјџџџg6Ÿјџџџ.є8˜јџџџURОјџџџg,Ÿ№џџџ.єи"№џџџGPg /PGXg,Ÿ№џџџ.єа"№џџџG@g /@GHg№ Ÿиџџџџ№ Ÿ0џџџџ№ Ÿ ўџџџўРџџџ–иџџџOЈџџџўџџџOxџџџ'Pq`џџџOHџџџ–0џџџOџџџўџџџOшўџџ'@qаўџџOИўџџ– ўџџOˆўџџўpўџџOXўџџ'Hq@ўџџO(ўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџg6Ÿ ўџџ'X.є‘ ўџџA˜g<ї'XPg№џџџїPgўџџb^ ы№џџџўџџg4Ÿ№џџџї!ї".єh"№џџџGpg /pGxgT'xqџџџХ№РџџџCиџџџ'x'pD[`џџџ+ЈџџџlМ`џџџЧ4gŠёшўџџёџџџё0џџџёHџџџў`џџџ#IxџџџŸxџџџўџџџ$IЈџџџŸЈџџџўРџџџ%IиџџџŸиџџџї 8GpъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџg /pGxgN'xqџџџХ№РџџџCиџџџ'xї&D[`џџџ+ЈџџџlМ`џџџЧgШ№ Ÿиџџџџёшўџџёџџџўџџџ'I0џџџŸ0џџџ№ї(ї)Pg№џџџї*Pgўџџ'xPgўџџї*PqЈџџџ–иџџџOxџџџўРџџџ+OHџџџџ (ы№џџџўџџўџџъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџg{Ц.gg('pї!ї".єр ggg4Ÿ№џџџї,ї".єh"№џџџG`gPјиџџџ№/`ЗРџџџ@ŸЈџџџџ –Јџџџ`GhъиџџџЈџџџgT'`qџџџХ№РџџџCиџџџ'`L№? [`џџџ+ЈџџџlМ`џџџЧ^g№ Ÿиџџџџёџџџё0џџџў`џџџ-IHџџџŸHџџџ№ўРџџџ.–иџџџOЈџџџўџџџ/Oxџџџђ (№?ъ иџџџЈџџџxџџџHџџџ0џџџџџџЧ№g /p G`g('`ї,ї".єр ЦXggZёHџџџёxџџџўџџџ0IЈџџџŸЈџџџ№@ўРџџџ+IиџџџŸиџџџџ (ъиџџџЈџџџxџџџHџџџgkggg4Ÿ№џџџї1ї2.єh"№џџџGˆgN'ˆqџџџХ№РџџџCиџџџ'ˆї3D[`џџџ+ЈџџџlМ`џџџЧ‚ gŠёшўџџёџџџё0џџџёHџџџў`џџџ4IxџџџŸxџџџўџџџ5IЈџџџŸЈџџџўРџџџ6IиџџџŸиџџџї 8GˆъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgN'ˆqџџџХ№РџџџCиџџџ'ˆї4D[`џџџ+ЈџџџlМ`џџџЧN g‚№ Ÿиџџџџёџџџё0џџџў`џџџ'IHџџџŸHџџџ№ўРџџџ7–иџџџOЈџџџўџџџ+Oxџџџџ (ъ иџџџЈџџџxџџџHџџџ0џџџџџџg{Ц| gg('ˆї1ї2.єр ggg4Ÿ№џџџї8ї".єh"№џџџG€g&'€qџџџХ№РџџџKЧа ghёHџџџёxџџџўџџџ'IЈџџџŸЈџџџ№ўРџџџ9IиџџџŸиџџџђ (№?ъиџџџЈџџџxџџџHџџџЧМ gBŸиџџџџ–иџџџa№џџџї8ї".єр Н№џџџМиџџџg*Ÿиџџџџ–иџџџ`G€МиџџџЦЪ ggkgggа№ Ÿиџџџџ№ Ÿџџџџї:'`PqЈџџџ–иџџџOxџџџўРџџџ;OHџџџ'xqџџџO0џџџ–џџџOшўџџў`џџџ<OИўџџ'ˆqџџџO ўџџb^ъЈџџџиџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџg6Ÿјџџџ.є ˜јџџџU=R Ојџџџg:Ÿјџџџэџџ. є8˜јџџџU>R(Ојџџџg>/(Ÿиџџџ–иџџџ‡ ўџџ/0SМиџџџg,p/Є+0rn††ј§џџДg„№№!Є‘+0†№!Є‘+0†Oиџџџїg№џџџї2D Н№џџџМиџџџЧ|gЎŸјџџџ/ /œї2№№!Є‘+0†–№!Є‘+0†a№џџџ.є€˜јџџџURН№џџџОјџџџgЂўРџџџ@№!Є‘+0†OиџџџўџџџAOЈџџџ"œl`џџџOxџџџўџџџBOHџџџ" lаўџџO0џџџb^ъ иџџџЈџџџxџџџHџџџ0џџџgl'hqРџџџ№!Є‘+0†Oиџџџa№џџџї,ї".єр Н№џџџМиџџџg('xїCї".єр g('€ї8ї".єр gЦїD'hPqиџџџ№!Є‘+0†OЈџџџўРџџџEOxџџџ'xqџџџOHџџџў`џџџFO0џџџ'€qџџџOџџџўаўџџGOшўџџb^ъиџџџЈџџџxџџџHџџџ0џџџџџџшўџџgFŸ ўџџ/ /œ№.є ‘ ўџџA˜gїHb^ gH№!Є‘+0†a№џџџ.єˆН№џџџЦ”ggїIb^ gg/ЄЄј§џџ€ g`№'X'HPg№џџџїJPqиџџџїgўџџї2D ы№џџџўџџМиџџџЧ`gvŸјџџџ/ /œї2№№'HїJPg№џџџ.є€˜јџџџURН№џџџОјџџџg ї@'HPg№џџџїJPgўџџїAPgўџџ"œbg№§џџPgш§џџїBPgр§џџ" bgи§џџPgа§џџb^ ы№џџџўџџўџџ№§џџш§џџр§џџи§џџа§џџg('pї!ї2.єр g('ˆї1ї2.єр gVїK'pPgўџџїGPgўџџї<'ˆPg№џџџb^Lы№џџџўџџўџџgFŸ ўџџ/ /œ№.є ‘ ўџџA˜gїMb^ g2'HїJPg№џџџ.єˆН№џџџЦxggїNb^ gg{0ˆ8’№џџџўџџўџџ№§џџш§џџр§џџи§џџа§џџјџџџиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџDфgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїPDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gHŸ№џџџЗџџџ@№яЗШџџџ@ŸАџџџџ –Аџџџ`ЗјџџџМАџџџgvpф@јџџџ ЈџџџАџџџNшgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџї)DНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gLёАџџџ‘№џџџqУ‘яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆш@јџџџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїQDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїOgЈџџџїUDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ€&ЈџџџАџџџxџџџ pggэџџБЈџџџg$Ÿџџџює8R–џџџЖаџџџg(pŸАџџџŸаџџџЕхqn††€џџџJg.ŸАџџџЖ@ŸаџџџцџџџV>ТШџџџМџџџg(Ÿ`џџџžШџџџєR‘`џџџp>Ч.g‘ЈџџџqУБЈџџџh0№№№‘Јџџџ‘ŸРџџџТ €g$ŸXџџџžШџџџє(R"XџџџЗИџџџgN№—Иџџџї[№N№”№—Иџџџї\№N№”&ЧglŸXџџџžШџџџє(R"Xџџџ PџџџSgHџџџїXPqџџџ№‘Јџџџ‘›РџџџІыPџџџHџџџМџџџg,јhџџџ№‘Јџџџ‘›РџџџІЦЌgglŸXџџџžШџџџє(R"Xџџџ PџџџSgHџџџї?Pqџџџ№‘Јџџџ‘›РџџџІыPџџџHџџџМџџџg,јhџџџ№‘Јџџџ‘›РџџџІgg|ўhџџџY№‘Јџџџ‘›Рџџџ†Oџџџў0џџџZOџџџ№‘Јџџџ‘›Рџџџ†Oџџџb^ъџџџџџџџџџggŸАџџџЄ€џџџbh›РџџџЗhџџџ УшџџџgИџџpd>шџџџаџџџРџџџаџџџРџџџШџџџИџџџШџ8XџџџPџџџHџџџџџџџџџџџџ aS б Z  Z  Z  Z ‘ "a*єˆ€Н№џџџЦ,ggїlb^fgg{џџ(<8’№џџџўџџўџџј§џџ№§џџш§џџр§џџи§џџјџџџиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџDфgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџїnDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gHŸ№џџџЗџџџ@№яЗШџџџ@ŸАџџџџ –Аџџџ`ЗјџџџМАџџџgvpф@јџџџ ЈџџџАџџџNшgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџї"DНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gLёАџџџ‘№џџџqУ‘яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆш@јџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџїoDНЈџџџМАџџџЧxg Ц”ggРџџџЗhџџџ УшџџџgИџџpd>шџџџИџџџаџџџРџџџРџџџШџџџШџџџШџ8XџџџPџџџHџџџџџџџџџџџџ aS б Z  Z  Z  Z ‘ "a*єˆ€Н№џџџЦ,ggїlb^fgg{џџ(<8’№џџџўџџўџџј§џџ№§џџш§џџр§џџи§џџјџџџиџџџЈџџџxџџџHџџџ0џџџџџџшўџџИўџџ ўџџˆўџџXўџџ(ўџџDфgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџїnDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gHŸ№џџџЗџџџ@№яЗШџџџ@ŸАџџџџ –Аџџџ`ЗјџџџМАџџџgvpф@јџџџ ЈџџџАџџџNшgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџї"DНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gLёАџџџ‘№џџџqУ‘яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆш@јџџџ&ЈџџџАџџџxџџџRьgg&чL†Ÿ№џџџqэџџ’рџџџ”g@јАџџџ‘№џџџ‘чїmgЈџџџїoDНЈџџџМАџџџЧxg Ц”ggŸ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ&ЈџџџАџџџxџџџHi`HiАHi@HiИHihHi  aS б Z  Z  Z  Z ‘  Z  S"a Ÿ№џџџАрџџџ,gP‘№џџџqЯkАџџџ№яЗШџџџ@Ÿxџџџџ –xџџџ`ЗјџџџъАџџџxџџџgvˆь@јџџџ&ЈџџџАџџџxџџџHi`HiАHi@HiИHihHi  aS б Z  Z  Z  Z ‘  Z  S"a Ё "a      (y T