аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ€<гбЈ)Я@apcџџџџџџџџАrš№BвЬ€<гбЈ)ЯThe VBA Project џџџџџџџџАrš№BвЬ€<гбЈ)Я_VBA_Projectџџџџџџџџ Аrš№BвЬ€<гбЈ)Я§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ§џџџ!ўџџџ&ўџџџ$џџџџџџџџ%H(@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџABCDEFGўџџџIJŸLMNOPQRSTUVWXYZ[\]^_`abeџџџџџџџџvџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџyz{|–џџџџџџџџџџџџRoot Entryџџџџџџџџ`ŸYKкЬapcџџџџџџџџАrš№BвЬ`ŸYKкЬThe VBA Project џџџџџџџџАrš№BвЬ`ŸYKкЬ_VBA_Projectџџџџџџџџ Аrš№BвЬ`ŸYKкЬџџџџџџџџ§џџџ  б§џџџ Ьўџџџџџџџџџџџ’џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџ#)џџџџџџџџџџџџџџџџџџџџ*+,-./01234ўџџџ6789:;<=>?cџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdfџџџџghijklmnopqrstuwџџџџ}џџџџџџџџџџџџџџџџџџџџ~€Host Project Item Names0џџџџ 0Ћ›№BвЬ`ŸYKкЬVBA Project Data"џџџџxHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ2 ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./01634ўџџџўџџџ789:;<=>?@ABCDEFGHIJKLMNQPqrSTUVWXYZ[\ўџџџ^_`abcdefghijklmnoўџџџўџџџўџџџstuvwxўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџЭє{ Q~ThisLibrary*{ Q~5{ R~L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ R~ L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ S~";{ S~$={ T~&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИwТюR:\G_TE\WH01-SW-Vorlagen\SW-VorlID="{D460734C-C96B-4A41-8020-5AB1B15321B5}" Document=ThisLibrary/&H00000000 Module=Konfigurationen HelpFile="" Name="Konfigs" HelpContextID="0" VersionCompatible32="393222000" CMG="1E1CBF77438B098F098F098F098F" DPB="E8EA498A4A8A4A8A" GC="B2B0139BDC9CDC9C23" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Konfigurationen=138, 138, 1104, 651, Z 1, ZeName =  ˆ $ Current sheet =    SheetName[ ] = agen-BMK\SolidWorks-Makros-BMK\Konfigurationen auslesen und auf Zeichnung schreiben.swpЬR•ОR•Оџџ,@n!ThisLibrary ŒActivateSheet \˜=ЃƒХ'ЮПд@ЛWGetFirstView ,GetRef‚ƒ„…†‡ˆ‰Š‹ŒŽ‘ўџџџ“”гџџџџ˜™ џџџџџџџџџџџџџџџџџџџџџџџџМџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџНОПРСТУФЦџџџџЧЫџџџџџџџџџџџџыЮџџџџаџџџџв•ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџа1№BвЬ`ŸYKкЬProject_Data_CurVer( џџџџ5 Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџАrš№BвЬАrš№BвЬPROJECTwmџџџџџџџџџџџџVPROJECT џџџџ И_VBA_PROJECTџџџџџџџџџџџџ"ThisLibraryџџџџ]ЁThisLibraryThisLibraryKonfigurationenKonfigurationenibraryKonfigurationenKonfig6@nen_auslesen_rU€€€ џџџџџџџџџџџџџџџџ t0* pH‚dф4Konfigurationen_@auslesu“K*mџџџџrU€€€~~~~~~~~~~~~~~S ‰H(qЉjжFdirџџџџџџџџџџџџRŒProject Item Data$џџџџp Control List Data$џџџџџџџџ`ŸYKкЬ`ŸYKкЬReqControl List Data*џџџџџџџџ`ŸYKкЬ`ŸYKкЬ__SRP_1џџџџџџџџџџџџFReqControl List Data*џџџџџџџџџџџџ{ Control_Data_CurVer(џџџџџџџџz Control List Data$џџџџџџџџџџџџy(Konfigurationen џџџџџџџџ5Сd__SRP_2џџџџ—О!__SRP_3џџџџџџџџџџџџOŒ__SRP_0џџџџJHost Project Item Names0џџџџ 0Ћ›№BвЬ`ювбЈ)ЯVBA Project Data"џџџџpHost Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ2 ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./01634ўџџџўџџџ789:;<=>?@ўџџџBCDEFGHIJKLўџџџNOPўџџџRSTUVWXYZ[\]^_`abcdўџџџfghijklmnopqrstўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџџџџџi  !џџџџk ( !џџџџЪ ˆВ€0* pH‚dфKonfigsQ(@=­ l €ƒјЕPp J< rstd ole>stdol e h%^*\G{0002`0430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE Automation#`€SldWorks>F€CdW€GrPks€HŽ€ „€H83A33D31-27C5-11CE-BFD4€H400513€BB57}#1IProgram FileLoliƒ5 Corp\SС†\sldwB‚U…H 2010 Type LibrXaryCЪSwConst>‚ SwCZЊnYtZŠ€ €€Z4687F359-55D0-4CD3-B6CF-2EB42C1 1F989 -ROGRA~1\SOLIDW swcСC)G3Т)B#antT t,l ,B“Тn! !Р&ThisФ5G@i0Li@braРyT 2 €HB1‚ т,B,B ")Š"B+BР‰УИurТ‡enG (K‚TfР#gŠuB$tРonРЊ6n@&2 O)†RqO)’Y!Т'C)ЇNextView‘ €џGetReferencedModelNameŒ7 €џLфzˆмn!")џџ#ˆЖџџџџџџџџ<џџo­ЉнvIŠ>гыИд €lІгЈН†ЛжЧbАТQ&Iƒ%ЮdM~Ќ&џџџџџџџџџџџџxЧЭє{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}ИsТцV:\SW_Templates\2185\SolidWorks-ID="{D460734C-C96B-4A41-8020-5AB1B15321B5}" Document=ThisLibrary/&H00000000 Module=Konfigurationen HelpFile="" Name="Konfigs" HelpContextID="0" VersionCompatible32="393222000" CMG="7674D7692F99AF9DAF9DAF9DAF9D" DPB="F2F053EDCEEECEEECE" GC="6E6CCF713791B292B2924D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Konfigurationen=138, 138, 1104, 651, Z Z SwCommands Ёџџџџџџџџбa №mainMakros-BMK\Sonstige Makros\Konfigurationen auslesen und auf Zeichnung schreiben.swpЬS-ƒR•ОR•Оџџ,@n!ThisLibraryDelete_BOM_Nomenclature  €lІгЈН†Лж€lІгЈН†ЛжС џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџšџџџџџџџџџџџџ›œžўџџџЁџџџџЂўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџа1№BвЬ`ювбЈ)ЯProject_Data_CurVer( џџџџ5 Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџАrš№BвЬ`ювбЈ)ЯPROJECTwmџџџџџџџџџџџџVPROJECT џџџџ ОThisLibraryџџџџeњKonfigurationen џџџџџџџџKTIThisLibraryThisLibraryKonfigurationenKonfigurationenibraryKonfigurationenKonfig6@nen_auslesen_rU@@@џџџџџџџџџџџџџџџџџџџџџџџџџџџџjlesu“K*šџџџџrUР@@@~~~~~~~~~T__SRP_2џџџџQ§Project Item Data$џџџџu Control List Data$џџџџџџџџ`ювбЈ)Я`ювбЈ)ЯReqControl List Data*џџџџџџџџ`ювбЈ)Я`ювбЈ)Я__SRP_1џџџџџџџџџџџџzReqControl List Data*џџџџџџџџџџџџx Control_Data_CurVer(џџџџџџџџw Control List Data$џџџџџџџџџџџџv(__SRP_3џџџџџџџџџџџџMЮ_VBA_PROJECTџџџџџџџџџџџџ'dirџџџџџџџџџџџџAѕ__SRP_0џџџџЯ ё џџџџџџџџ&mё "=ЃƒХ'ЮПд@ЛW&mQ 3=ЃƒХ'ЮПд@ЛW"&mСP=ЃƒХ'ЮПд@ЛW&mQЉ=ЃƒХ'ЮПд@ЛW"&mС$хђMDЧ‹L’е–ьЅ а*{ С  SelectionManagerY=ЃƒХ'ЮПд@ЛW*{AEditDeleteС @DZŠ€ €€Z4687F359-55D0-4CD3-B6CF-2EB42C1 1F9ёВ€0* pH‚dфKonfigsQ(@=­ l €КАT 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Ž€ „€H83A33D31-27C5-11CE-BFD4€H400513B@B57}#1IProgram Files\Sol‚iƒ5 Corpˆр\sldwB‚U…H 2010 Type Libra,ryCЪSwConst>A SwCZnеYtZŠ€ €€Z4687F359-55D0-4CD3-B6CF-2EB42C11F989џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"Q ;цœМЩKŸЖ‡Hƒ>tN фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџqˆa џџџџџџџџџџџџџџџџ! A џџЁЁAС‘ Konfigs ThisLibraryKonfigurationenяЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsњ*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\PROGRA~1\COMMON~1\SOLIDW~1\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2010 Type LibrРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA бџџџџџџџџ P€lІгЈН†Лж5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb SolidWorks 1џџџџџџџџaсp0РFC:\Windows\system32\stdole2.tlbstdole Ёџџџџџџџџб!1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks бџџџџџџџџ‘АYѓ‡FаUгLЖЯ.Д,љ‰ )C:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlbSwConst QџџџџџџџџёаŸоС М?%L†}N‘9Ьр:C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb -ROGRA~1\SOLˆIDW swcСC)G3Т)B#ant jt,l , Р",mаmand€ZСФ,€mman5[›@‘РA.0AC1DE9F-3FBC@.25-868D-7D4E9139CCE0}@.5E€Ї[Р1ƒ"23@g2ЦAТn! +Tˆhis„hGВiРbLibrР7ry 2 €HеB1Bг;@ыBЂ,B ")"B+B˜Рƒыur‚К`enGB‡fQР#guB$t`oUр.e`2qЏ7𠉈тЃ’Y!ЂЃсlџџџџџџџџџџџrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџbЬ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#SolidWorks 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}#12.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#Sary*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library АџџџџџџƒјЕPpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџn!ThisLibrary0950b4b619џџThisLibraryџџ")тџџKonfigurationen0450bcc4edџџKonfigurationenџџ’Y †Rџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџm К/#“ЗBЗ„ ЌvgCџџџџџџџџ`YНе˜~_–FЖN˜№ѕсM џџџџџџџџ€ЩбџшD€€џ0 €џAs=€џDim_€џIfЇ€џsingleЏ€џSubВ€џThen SolidWorks; VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` VBAProject19‚ж4Konfigurationen_auslesen_und_auf_Zeichnung_schreibensЕ ThisLibraryGЉ €џ_EvaluateйModul1ЭKonfigurationen_auslesen_Я4swAppы‘Ќ(mainˆ, €џApplicationЅ*Œ(џSldWorks$ SwConstœЌ(swCustomInfoType_e’/Ј swCustomInfoUnknownІЃЈ swCustomInfoText kЈ swCustomInfoDatehњЈ swCustomInfoNumberДBЈ swCustomInfoYesOrNo.; sModelName^…lRetValЅlCount(А varPropNamesžaswTableЃЇ€џTableAnnotationЦ> „џswDocDRAWINGVбswModel[ƒ €џModelDoc2Ї^swConfigу €џConfigurationŸњ vConfNameЪЗ vPropName€" vPropValueэ‡ vPropTypeж/nNumProp 2i`jakbbRet\swAnnŸ‘ €џAnnotationЫs €џActiveDocк’ swDrawing/:€џInsertTableAnnotation2џœ €џswBOMConfigurationAnchor_TopLeft|>€џRowCountu €џRowHiddenДqthA_ €џGetRowHeight p €џSetRowHeight“4€џswTableCellRange_AllГŸ&€џswTableRowColChange_TableSizeCanChangeN•€џGetColumnWidthм4 €џSetCellRangeі‘xxх_€џSetColumnWidthљ€џswTableCellRange_CurrentЭ№ €џSetHeaderМ<€џswTableHeader_TopŒ€џSetColumnTitleк)DATEIVERZEICHNISлr €џGetPathNameInStrRevФˆ DateinameORight  CreateObjectјŠoDwgшЩ€џGetType)JMsgBox—R vbCritical+}oViewls €џGetFirstViewMМ €џGetNextView‘ €џGetReferencedModelNameŒ7 €џIsModelLoadedЩК €џLoadModel!ŒoModelK €џActivateDoc2ч7€џGetConfigurationNamesИ/€џGetConfigurationByName8 €џGetCustomProperties Ipg Konfigsj €џџџ_B_var_swDrawingѓ3 €џџџ_B_var_thщѓ €џџџ_B_var_xxє _B_var_LeftQс€џџџ_B_var_DATEIVERZEICHNISе _B_var_Right9й€џџџ_B_var_DateinameЫH €џџџ_B_var_NameX €џџџ_B_var_oDwg/ €џџџ_B_var_oViewY7 €џџџ_B_var_oModelНХ€џџџ_B_var_pЂ CloseDoc2”ЌSswAppžj€џCloseDoc е €џџџ_B_var_IfPђswDrawѓ’swSheet}Œ€џGetCurrentSheetЦ~€џGetNameг< vSheetNamesj €џGetSheetNamesрlc „џDrawingDocс€џSheet[ж €џActivateSheetЈ SheetNamesЁ €џџџ_B_var_SheetNames €џџџ_B_var_DrawingDocШO Blattanzahl[œ€џџџ_B_var_Blattanzahl<~Anzahl_Konfigsї)€џџџ_B_var_Anzahl_Konfigsб Ben_Blattoе€џџџ_B_var_Ben_BlattДо €џџџ_B_var_ElseIfqm Anzahl_Blattђє€џџџ_B_var_Anzahl_Blatt=Fehlendes_Blatt\§€џџџ_B_var_Fehlendes_BlattяцBlatt_NЉк€џџџ_B_var_Blatt_N-оBlatt3)Blфtterыж €џџџ_B_var_Blatt_э€џџџ_B_var_Blфtteroк hinzufќgenЛC Anzahl_Blatt1 0Lefttg €џџџ_B_var_LefttTS€џџџ_B_var_Anzahl_Blatt1Љ KonfigurationenпX Boolstatusgо€џRunMacroXRiTabellen_loeschen1NЌ(Delete_BOM_Nomenclaturegћ€џџџ_B_var_Tabellen_loeschen1г€џџџ_B_var_Delete_BOM_NomenclatureЖЅ€џџџ_B_var_boolstatus’L Identnummerбќ€џџџ_B_var_Identnummer3ю Abmessungeѕ Workspace3swView~I„џViewаI swSelDatavэ €џSelectDataЌƒswBOM—€џBomTableAnnotationЁswSelMgr#% €џSelectionMgr0€џGetFirstAnnotation3№€џswTableAnnotationB€џSelect3ХГ€џSelectionManagerХѓ€џGetSelectedObjectType3xZ €џEditDeleteљ‘€џGetNext3_$€џџџ_B_var_swModel^wwertK6 Create_Tableu6ActivateswTablehБ€џEdit+Funktion=RoundЌ€€џ,0aY vbSystemModal.NurџКfќr7 ZeichnungenH‰€џInsertTableAnnotationу€џXo€џYliiЋ] €џGetAnnotation‰T€џSetName[*textfШ~ €џGetTextFormatиr €џCharHeight€Ѕ €џSetTextFormat$+€џџџ_B_var_XЂ€џџџ_B_var_YЂ €џџџ_B_var_iiSђ €џџџ_B_var_textfЕBGetAnnotation2Dи€џBorderLineWeightм"€џGridLineWeight сSetBorderLineWeightZоSetGridLineWeightтТ vbSystemModam _B_var_Error)ŸrefЮџџ`џџџџ"џџ$џџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџ џџџџџџ џџџџџџџџџџџџџџџџџџ $@@€f"ў џџџџа.dVn!’YџџЖџџџџџџџџџџџџџџџџџџџџџџxџџRRџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџdџџџџџџџџџџ<8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Hџџ&!”џџ!”!”џџ!” !”џџ !”џџ8џџџџLџџџџF#ў џџџџH'€Rn!’YџџЖџџџџџџџџџџџџџџџџџџџџџџxџџRRџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџџџџџџџџџџџ<8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Hџџ&!”џџ!”!”џџ!” !”џџ !”џџ8<Єџџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџ џџџџ!”P!”@H!”@<0џџ Bџџ`„2џџџџxџџџџџ`„4џџџџtџџџџџ`„6џџџџpџџџџџbi`„*шдўџџџџџџ% „џџџџXџџџ% „AјTџџџ0 % „EЈPџџџP%`„Hџџџџ@џџџ џџ`„Jџџџџ0џџџ џџx`„Lџџџџ џџџ џџMM`„Nџџџџџџџ џџS~`„PX џџџџџ\V`„Rpџџџџџsu`„Tџџџџџџџџџor`„Vџџџџќўџџџџon`„Xџџџџњўџџ џџ „[џџџџєўџџHG{%џџџџЈjš(€Cџџџџџџџџџџџџџџџџjš*ЈCџџџџџџџџџџџџџџџџjš,а@Cџџџџџџџџџџџџџџџџjš.јCџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš(˜Cџџџџџџџџџџџџџџџџ%ƒџџџџџџxџџџџџџџџџџџџџџ4% „;џџџџ\џџџHjš*HCџџџџџџџџџџџџџџџџ „г€№ўџџиџџџџ”% „еьўџџјџџџџ˜%`„кИмўџџ џџџџџџ`„рˆџџџ џџ–`„оРиўџџџџ џџjš,p@Cџџџџџџџџџџџџџџџџjš.˜Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš(шCџџџџџџџџџџџџџџџџjš*Cџџџџџџџџџџџџџџџџjš,8@Cџџџџџџџџџџџџџџџџjš.`Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџ „џџџџhџџџ№`„.8аўџџџџ џџjš(рCџџџџџџџџџџџџџџџџjš*Cџџџџџџџџџџџџџџџџjš,0@Cџџџџџџџџџџџџџџџџjš.XCџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџ „гџџџџdџџџ˜0”%%%jš(ш CџџџџџџџџџџџџџџџџџџџџŽ`” ˆмŒ\ „3џџџџ`џџџ џџџџ „[џџџџ\џџџЈџџџџ „7џџџџXџџџ8џџџџ@%`„иVџџџ џџ` „;џџџџPџџџp<% „?€Lџџџ џџ8%jš(РCџџџџџџџџџџџџџџџџjš*шCџџџџџџџџџџџџџџџџjš,@Cџџџџџџџџџџџџџџџџjš.8Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš(РCџџџџџџџџџџџџџџџџjš(˜ Cџџџџџџџџџџџџџџџџˆ џџџџ jš*шCџџџџџџџџџџџџџџџџjš, @Cџџџџџџџџџџџџџџџџjš.8 Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš(˜ CџџџџџџџџџџџџџџџџР џџџџшjš*Р Cџџџџџџџџџџџџџџџџjš,( @CџџџџџџџџџџџџџџџџldWorks 2010 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#12.0#0#C:\PROGRA~1\SOLIDW~1\SOLIDW~1\swconst.tlb#SolidWorks 2010 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swcommands.tlb#SolidWorks 2013 Commands type libraryџџџџџџКАT џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџn!ThisLibrary0b54b01aa7џџ'ThisLibraryџџ");џџKonfigurationen0e54b01abdџџ*Konfigurationenџџ’Y7џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ):%F}јMŘлyфТtџџџџ›™K€йM^Э УйџџџџџџџџH€y`> SolidWorks; VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў# Konfigsj stdole“`ˆ џSldWorks$SwConstœ ThisLibraryGЉ €џ_Evaluateй KonfigurationenпXЌ(swCustomInfoType_e’/Ј swCustomInfoUnknownІЃЈ swCustomInfoText kЈ swCustomInfoDatehњЈ swCustomInfoNumberДBЈ swCustomInfoYesOrNo.;Ќ(mainˆ, sModelName^…lRetValЅlCount(А varPropNamesžaswTableЃЇTableAnnotationЦ>swAppы‘swModel[ƒ ModelDoc2Ї^swConfigу ConfigurationŸњ vConfNameЪЗ vPropName€" vPropValueэ‡ vPropTypeж/nNumProp 2i` DrawingDocсjakbbRet\swAnnŸ‘ AnnotationЫsswDrawѓ’swSheet}ŒSheet[ж vSheetNamesjlc Identnummerбќ AbmessungeѕViewаI swDocDRAWINGVб CreateObjectјŠ ActiveDocк’MsgBox—R vbSystemModal.GetType)J ApplicationЅ* swDrawing/:GetCurrentSheetЦ~ GetPathNameGetNameг< GetSheetNamesр ActivateSheetЈ Blattanzahl[œDATEIVERZEICHNISлrInStrRevФˆ DateinameORight  GetFirstViewMМGetReferencedModelNameŒ7 GetNextView‘ oModelK ActivateDoc2ч7GetConfigurationNamesИ/Anzahl_Konfigsї) Anzahl_Blattђє Anzahl_Blatt1 0RoundЌFehlendes_Blatt\§Blatt_NЉкGetConfigurationByName8 GetCustomProperties IЌ(Delete_BOM_NomenclaturegћInsertTableAnnotation2џœ swBOMConfigurationAnchor_TopLeft|>BorderLineWeightм"GridLineWeight сthA_ GetRowHeight p SetRowHeight“4swTableCellRange_AllГŸ&swTableRowColChange_TableSizeCanChangeN•GetColumnWidthм4 SetCellRangeі‘xxх_SetColumnWidthљswTableCellRange_CurrentЭ№ SetHeaderМ<swTableHeader_TopŒSetColumnTitleк)pgswView~I swSelDatavэ SelectDataЌƒ BoolstatusgоswBOM—BomTableAnnotationЁswSelMgr#% SelectionMgr0GetFirstAnnotation3№swTableAnnotationBSelect3ХГSelectionManagerХѓGetSelectedObjectType3xZ EditDeleteљ‘GetNext3_$ SwCommandsœ€€џџџ_B_var_swModel^wџџlџџџџџџџџџџ џџ"џџ$џџ'ќџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$@@€џџпџџ„џџџџџџџџџџ<8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Hџџ&!”џџ!”!”џџ!” !”џџ !”џџ8џџџџLџџџџ џџџџh(дMn!’YџџЖџџrU@@@@~x  Б! Q СQСQсAqHitgg0Ÿ џџџпZєp˜ џџџU ТрџџџО џџџg.Ÿ џџџžрџџџє8˜ џџџU ТиџџџО џџџg.Ÿ џџџžиџџџєP˜ џџџU ТаџџџО џџџg$Ÿ џџџžрџџџє8e џџџПˆџџџg˜аџџџь& Чjg.Ÿ џџџžаџџџєˆ ˜ џџџU ТШџџџО џџџg˜Шџџџь& Ч0g,№Ÿ€џџџžШџџџєX’€џџџ?Ч№g<Ÿxџџџ˜РџџџU Р џџџpžШџџџєј‘xџџџБИџџџО џџџg$Ÿˆџџџ‘`џџџVТЈџџџМ`џџџg8Ÿ€џџџ№џџџџ№žЈџџџєX’€џџџ№b?Чъgžиџџџаggg.Ÿ џџџžШџџџє0˜ џџџU ТШџџџО џџџg Цќg.Ÿ џџџžаџџџєH˜ џџџU ТаџџџО џџџg ЦЖgИ tpJ шџџџЈџџџиџџџРџџџˆџџџрџџџАџџџаџџџШџџџ  џџџ`џџџ aS б Zџ№кдџџџџс5n!")џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџx0 Nџџџџ 7n!’YџџЖџџџџџџџџџџџџџџџџџџџџџџxџџRRџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџаџџџџџџџџџџџџ џџ0(8@џџџџџџџџџџџџџџџџџџџџџџџџџџHXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Hџџ,<џџ!”џџ<џџ<!”џџ !”џџ(<џџ0!”џџ8!”џџ@!”џџH!”PP6 џџџџ”џџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџLџџџџPџџџџџџџџLџџџџPџџџџLџџџџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџX"D"""J"N"f"\"l"v"т**"ш"ьџџџџP,џџџџ€џџџџџџ 80`џџџџџџџџџџџџџџџџџџџџџџрр$„`„:џџџџџџџџџџџџџџ`„<џџџџџџџџџџџџџџ`„>џџџџџџџџџџџџџџ`„@џџџџџџџџџџџџ џџ „Bџџџџџџџџџџџџш% „Fџџџџџџџџџџџџ% „Hџџџџџџџџџџџџ(% „LџџџџџџџџџџџџH %`„Pџџџџџџџџџџџџ џџ`„Rџџџџџџџџџџџџ џџ`„Tџџџџџџџџџџџџ џџ`„Vџџџџџџџџџџџџ џџ`„Xџџџџџџџџџџџџџџ`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџ џџ`„^џџџџџџџџџџџџџџ`„`џџџџџџџџџџџџџџ`„bџџџџџџџџџџџџ џџ „dџџџџџџџџџџџџX(% „hџџџџџџџџџџџџx0% „jџџџџџџџџџџџџ˜8%`„nџџџџџџџџџџџџ џџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ`„tџџџџџџџџџџџџџџ`„vџџџџџџџџџџџџ џџ@”xџџџџџџџџџџџџLџџ Иџџџџ`џџџџџџџџр`џџџkџџџџ џџџџ++Œ „Gџџџџрџџџџџџџ % „iџџџџиџџџџџџџР0% „пџџџџаџџџџџџџр@% „eџџџџШџџџџџџџ(% „сџџџџРџџџџџџџ H%`„ф€Иџџџџџџџ џџ „чџџџџАџџџџџџџXP% „ыЈЈџџџџџџџxX%jš.АџџџџCџџџџџџџџџџџџџџџџ****jš0рџџџџCџџџџџџџџџџџџџџџџ'0jš2@џџџџCџџџџџџџџџџџџџџџџўjš4@џџџџCџџџџџџџџџџџџџџџџOOLjš6џџџџ џџџџCџџџџџџџџџџџџџџџџАрџџџџџџџџџџџџ@џџџџ€0џџџџ№ƒ*џџџџџџџџиџџџџџџџџџџџџџџџџџџ`%џџџџџџџџџџџџ`џџџџџџџџ(џџџџџџџџџџџџш@џџџџШшџџџџџџџџа0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€И˜@Иџџџџшџџџџџџџ џџЈ€ѕD џџџџџџџџѕDИџџџџ„№]ѕDа џџџџ@ўџџџџџ џџџџџџџ џџ @Hˆˆџџџџџџџ џџ@ўџџџџџ€џџџџџџџџџ @ўџџџџџxџџџџџџџ џџ @ўџџџџџ`џџџџџџџ џџ џџџџАџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџ pКАT $*\Rffff*0e54b01abd(*\Rffff*0e54b01abd\0*\R3*#15f*\R3*#19e*\R3*#163*\R3*#173*\R3*#248*\R3*#24d*\R3*#179*\R1*#3*\R1*#0*\R3*#0*\R3*#0*\R3*#b8*\R3*#b8*\R3*#1e*\R3*#1e*\R3*#21*\R4*#6c*\R3*#21*\R3*#2*\R3*#2п$ўЪ/€ N€ FP€ L˜€ Bш€ B0€ (x€ 4 € @и€ .€ LH€ R˜€ №€ <ј€ 08€ h€ Hp€ @И€ ј€ 8€ :8€ Nx€Ш€ џџџџ€а€ џџџџ€и€ џџџџ€№€ џџџџ€€ џџџџ€(€ џџџџ€@€ џџџџ€ џџџџ"H€ џџџџ€ P€ `€ p€ €€ €  € А€ Р€ а€ р€ №€ € € € 0€ @€ P€ `€ p€ €€ €  € А€ Р€ а€ р€ џџџџ€ џџџџ€ №€ џџџџ€ $ € џџџџ€ 6H€ 4 ир€ џџџџ€ .шh0˜ € џџџџЈИ Ш иш ј&  @ € џџџџ P € џџџџ€ P` А 2Ш   ( @ € џџџџ€ HP &˜ 2Р ј € џџџџ € џџџџ€ џџџџ€ T h € џџџџ x  ˆ ˜ Ј € џџџџА  а Bр ( 0 € џџџџ€ H8 €   € џџџџ  € џџџџ И  а  р  ј     € џџџџ€ :  ` p € џџџџ €    Ј  И € џџџџ Р  р   ј € џџџџ˜ € :Ј€ џџџџ€ Nш8X€ џџџџ(x€ џџџџ  DИ€ џџџџ 08Xh€ џџџџ p€ џџџџ(€€ џџџџ€ џџџџTЈ€ џџџџ€ џџџџ 0 HX p€ ˜Ј Ра шј  8€ џџџџ€ џџџџ€ >@€€ >ˆ€ џџџџ€ nШ*8€ nh€ џџџџ€ Nи ( 8 HX€ N`€ џџџџ€ fА0PhˆЈР"р € f@€ џџџџ€ ,Ји№€ ,0`€ џџџџ hxˆ Иаш0H`x€˜€ џџџџ€ @ рј€ @( h€ џџџџx€ џџџџ€ џџџџ€ џџџџB €€ џџџџ€ ˆ€Ј€А€И€Р€Ш€а€и€р€ џџџџ0ш.ј.$€ џџџџ€ B( p€ џџџџ.€ , € џџџџ<А€ џџџџ€ џџџџ$Ш€ џџџџ€ ,и€ џџџџ8 (8€ џџџџ@.H X.` p€ џџџџ x€ џџџџџџџџˆуG **********************************************************************у@ * Makro lieпt die Konfigurationspezifischen Eigenschaften allerуF * vorhandenen Konfiguration aus, erstellt dann auf der Zeichnung eineяGу< * Tabelle und trфgt dort die gewќnschten Eigenschaften ein.џџџџџџу< * Nach 30 Konfigurationen wird das nфchste Blatt aktiviert,џџџџџџу! * eine neue Tabelle erstellt undу- * es folgen die nфchsten 30 Konfigurationen.џџџџу9 * Zur Zeit wird eine Tabelle mit 2 Zeilen und 31 Spaltenу( * pro Blatt ( max 7 Blфtter ) erstellt.уE * Ausgelesen werden hier die Konfigurationspezifischen EigenschaftenуL * Identnummer und Abmessung, welche dann in die Tabelle eingetragen werden.Iу *у5 * Fest werden in der ersten Spalte die мberschriften”у) * Identnummer und Abmessung eingetragen.у *уB * Wird das Makro erneut ausgefќhrt, werden vorher die vorhandenenу9 * Tabellen gelіscht und danach neu erstellt und gefќllt.у *у1 * Gestartet wird das Makro von der Zeichnung ausу4 * Zeichnung und Teil mќssen vorher gespeichert sein]уG **********************************************************************ѓ Ќ'.Ќ'0у VT_LPSTRЌ@'2у VT_FILETIMEўЌ'4у  VT_I4Ќ '6у VT_BOOLџџИ–]ѕDp [1]ѕDˆ ]ѕD  ]ѕDИ ]ѕDа џџџџџџ]ѕD№ џџџџџџ]ѕD џџџџџџ]ѕD0 џџџџџџ]ѕDP џџџџџџ]ѕDh џџџџџџ]ѕD€ џџџџџџ]ѕD˜ џџџџџџ]ѕDА џџџџџџ]ѕDШ џџџџџџ]ѕDр џџџџџџ]ѕDј џџџџџџ]ѕD џџџџџџ]ѕD( џџџџџџ]ѕD@ џџџџџџ]ѕD` џџџџџџ]ѕD€ џџџџџџ]ѕD  џџџџџџ]ѕDИ џџџџџџ]ѕDа џџџџџџ]ѕDш џџџџџџ]ѕD џџџџџџ]Ќѕџџџџуan SolidWorks anhфngenџџџџ№ЙSldWorks.Application$z.Fџџџџу/prќfen, ob ќberhaupt ein Dokument offen ist ...џџ№ F!|.\џџ \ВœџџџџџџЙKein Dokument offen €Й FehlermeldungA@~џџџџ|џџ kџџу' ... und ob das auch eine Zeichnung istџџ \!‚ xœџџџџџџЙHNur fќr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten! €Й FehlermeldungA@~|џџ`kџџX№ „!".Fџџ№ F!|.Hб№ H.†€€џ№ H.hџA№ h!ˆ.jim[мЙ FileName = H!Š й[мЙ Current sheet = j!ŒйWo[мЙйBAїт h!Ž'nWinуJ-----------Anzahl der vorhandenen Blфtter ermitteln----------------------- pЌ n‘’f_[мЙ SheetName[ pЙ] =  p$nйvaluat pЫul1ЭЌ$n \B@le n‘Ќ '’Ќ(№ F!|.\џуB------------DATEIVERZEICHNIS und Dateiname der Zeichnung ermitteln H!Š H!ŠЙ\$–$м'” H!Š H!Š H!ŠЙ\$– $š'˜tehњ ” ˜'omЬ№уM--------Das referenzierte Model ermitteln und laden--------------------------ropN№ \!œ.vbl vВїTab v!ž':Ц>№ v! .vRAіџџP№ :К < F%Є.ЂDoc2Ї^ ЂВœigуЙError in activating the model. €ЙGot a Problem hereA@~eэ‡ |џџаkџџШуB-----------Anzahl der konfigurationen ermitteln-------------------№ F!|.Hti H!І'PwDra ZЌ P‘’Ta P‘Ќ 'Ј €џ ЈЌ'Њra ЊЌ$Ў'Ќ|>€ Ќ Њ œntu ЌЌ 'Ќidkџџру4-----------zu wenig Blфtter?????????????------------џs Ќ ’ œnge_ Ќ ’ 'Аs АЌ œChanЙBlatt'ВnCdџџXЙBlфtter'Вkџџ@№ К < F%Є.ЂxxхЌ$n \B@dtЙ4Es sind nicht genќgend Blфtter vorhanden. Es werden ЌЙ Blфtter benіtigt. Bitte  АЙ  ВЙ hinzufќgen! €Й FehlermeldungA@~|џџ`kџџXу4----------------------------------------------------џGeуG--------------Werte der Konfigurationen auslesen-----------------------№ Z$P H%Д.LRefere R T V L%Ж'XsModel[мЙ Config = Z$Pй ^Ќ XЌ ’[мЙ ^$RЙ < ^$VЙ> =  ^$Tй€ ^$RЙ IDENTNUMMERœ ^$T'rkџџШ ^$RЙ ABMESSUNGœ ^$T'tkџџ ^Ы[мЙ rЙ &  tЙй ZЌ ZЌ ZЌ< ZЌZ ZЌx ZЌ– ZЌДœ№ К < F%Є.Ђ ZЌœЌ$n \B@ ZЌeЌ$n \B@ ZЌ<eЌ$n \B@ ZЌZeЌ$n \B@ ZЌxeЌ$n \B@ ZЌ–eЌ$n \B@ ZЌДeЌ$n \B@kџџР у8----------Lіscht die vorhandene Tabelle-----------------A@Иу8--------------------------------------------------------уg--------------Erstellt eine Tabelle mit 31 Zeilen und 2 Spalten----------------------------------------№КЌЌ МЙЌЌ †%К.Bуg-------------------------------------------------------------------------------------------------------уG---------Setzt die Linienstфrke der Tabelle auf 0,25mm----------------- BВœЌ B(ОЌ B(Рkџџ  уG---------------№ Ш<џџџџ0 џџџџј `„4аЬўџџ џџџџџџш jš.P Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš(  Cџџџџџџџџџџџџџџџџjš*Ш Cџџџџџџџџџџџџџџџџjš, @Cџџџџџџџџџџџџџџџџ№ р<џџџџџџH jš.0 Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџ "џџџџ`џџџџџџџџј џkџџџџ џџџџ++Œjš*ˆ Cџџџџџџџџџџџџџџџџ€ jš( Cџџџџџџџџџџџџџџџџ р>џџџџ jš*@ Cџџџџџџџџџџџџџџџџџџџџи џџџџ0 jš,˜ @Cџџџџџџџџџџџџџџџџ@ўџјМўџџ џџ џџА џџџџ№ џџџџˆ jš.Р Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš* Cџџџџџџџџџџџџџџџџjš,8 @Cџџџџџџџџџџџџџџџџjš.` Cџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџjš,Р @CџџџџџџџџџџџџџџџџИџџџџp jš.ш Cџџџџџџџџџџџџџџџџ--------------------------------------------------------у_---------------Tabelle anpassen----------------------------------------------------------------Ќ B%Ф'Т ШЗ вo_Юy? Ъ BB@ЦЌ B%Ь'ТЌ аЌЌ BB@Ю д ТЌ Ъ BB@вЌ B%Ь'ТЌ аЌЌ BB@Ю д ТЗј? Ъ BB@вЌ B%Ь'ТЌ аЌЌ BB@Юу`-----------------------------------------------jš0џџџџ Cџџџџџџџџџџџџџџџџjš(8Cџџџџџџџџџџџџџџџџjš*`Cџџџџџџџџџџџџџџџџjš,ˆ@Cџџџџџџџџџџџџџџџџjš.АCџџџџџџџџџџџџџџџџjš0џџџџ Cџџџџџџџџџџџџџџџџ8`џџџџџџџџџџџџАџџџџˆX џџџџ џџXˆ0p xаРH0р`pџџџџˆАh џџџџШИ pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџАш @ўџџџџџИўџџ џџ @@ўџрЈўџџ џџ @ўџ˜ўџџ џџ @ўџ(ˆўџџ џџ @ўџ@xўџџ џџ @ўџXhўџџ џџ p@ўџXўџџ џџ @ўџ`Hўџџ џџ @`08ўџџ џџ(@ўџ 4ўџџџџ @ўџ(0ўџџџџ иџџџџИ @ўџр,ўџџџџ Ј@ўџˆ(ўџџџ ј@ьўџџ џџА@„јўџџ џџИ@ўџ˜ўџџџџ @Šџџџџє§џџ џџ@ ф§џџ џџ@Єџџџџд§џџ џџ@ўџАа§џџџџ Шˆ]џџ@ўџ8Ь§џџџ џџPА]џџ џџ˜џџџџЈ@№@М§џџ џџ@њЌ§џџ џџ@œ§џџ џџ џџ@ўŒ§џџ џџ џџ@џџџџ|§џџ џџ џџ@ўџxl§џџ џџ џџ@ўџЈ\§џџ џџ џџ@ўџРL§џџ џџ @ўџи<§џџ џџ @ўџ№,§џџ џџ @ўџ§џџ џџ џџ@ўџШ §џџ џџ џџ@ўџџџџџќќџџ џџ џџ@ўџџџџџјќџџџџ џџ@ўџ`єќџџџџ џџx8~џџ џџ@ўџџџџџ№ќџџџ џџˆ`~ўџш`ˆ џџ@ўџџџџџьќџџџџ џџи"dpr|€ џџ@ўџрмќџџ џџ џџ@ўџјЬќџџ џџ @@ўџМќџџ џџ (@ўџ(Ќќџџ џџ €@ўџ@œќџџ џџ ˜@ўџXŒќџџ џџ @@ўџџџџџ|ќџџ џџ џџџџ@ўџџџџџtќџџџџ џџџџ@jиdќџџ џџџџџџ@x Tќџџ џџџџџџ@ўџџџџџRќџџ џџ и@Ўш@ќџџ џџ џџџџџџАкџџџџџџџџџџџџxџџџџџџџџ @џџџџџџџџџџџџ@Xџџџџ№џџџџџџџџ(ˆџџџџџџџџpXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи№џџџџџџџџџџџџ џџџџЈџџџџАџџџџИџџџџРџџџџШ@"џџџџlџџџ џџЈи€џџџџџџџџˆџџџџ Dџџџџи@ўџџџџџHџџџ џџ џџџџ@@ˆ8џџџ џџџџџџ@ўџџџџџ4џџџџџ џџџџ@ўџџџџџ2џџџ џџ @ўџџџџџ џџџ џџ џџџџџџџџ џџџџџџџџџџџџџџџџX џџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ иƒјЕPp$*\Rffff*0450bcc4ed(*\Rffff*0450bcc4ed\0*\R3*#229*\R3*#13f*\R3*#1c7*\R3*#175*\R3*#17e*\R3*#153*\R3*#143*\R3*#16a*\R3*#159*\R3*#22d*\R3*#228*\R3*#4f*\R3*#6a*\R0*#f*\R3*#57*\R3*#11*\R3*#a6*\R1*#0*\R3*#0*\R3*#2*\R3*#2*\R3*#21*\R4*#64*\R3*#21*\R3*#1e*\R3*#1e*\R4*#14f*\R4*#154*\R4*#150*\R3*#4f*\R3*#4f*\R4*#10e*\R3*#6a*\R3*#6a*\R0*#15*\R0*#f*\R0*#f*\R3*#57*\R3*#11*\R3*#57*\R3*#a6*\R3*#a6*\R3*#11*\R1*#0*\R1*#3*\R0*#1*\R3*#0*\R3*#0*\R0*#14п$ўЪ/€ Nш€ F8€ L€€ Bа€ B€ (`€ 4ˆ€ @Р€ .€ L`€ R0€ ˆ€ <€ 0а€ € Hи€ @ € € 8€ :H€ Nˆ€€ џџџџ€€ џџџџ€€ џџџџ€0€ џџџџ€P€ џџџџ€h€ џџџџ€€€ џџџџ€ џџџџ"ˆ€ џџџџ€ P€ p€ € `€ @€ А€ Р€ а€ р€ №€ € € € 0€ @€ @€ P€ `€ p€ ˜€ Ј€ И€ Ш€ а€ € h€ џџџџ€ џџџџ€  € џџџџ€  $H € џџџџ€ 6p Ј  И 43шШ а € џџџџ€ .№  h3а8 @ € џџџџ€   АР &а&&№ € џџџџ (€ џџџџ€ Pи82IP ˆ(( 0€ џџџџ€ HH&Hа2\ј0€ џџџџ@€ џџџџ€ џџџџ€ Tи˜€ џџџџ Ј ИШx€ џџџџ€  B3Ај€ џџџџ€ H € џџџџ(€ џџџџ  X   №  р  € џџџџ€ :X  ˜ € џџџџ   0 € џџџџ #8     gH€ џџџџx  € :Ј € џџџџ€ N( 3HP€ џџџџ(/p€ џџџџ˜ DА€ џџџџ @Р 0АШ€ џџџџ ј€ џџџџ(4р€ џџџџ€ џџџџTJА€ џџџџ#€ џџџџ (ш  h8 АP №x   0Р @иP€ џџџџ€ џџџџ€ >€ X€ >€€ џџџџ€ n*BР€ nЈ€ џџџџ€ N˜ p Р `€€ Nш€ џџџџ€ fи№ x ˜ А %а №  ",( P h € f@€ џџџџ€ ,xˆ Ј Ш € ,Јp€ џџџџ ј  р h @ ˜ € А XpШ ˆ€ џџџџ€ @0(P€ @8 h€ џџџџx€ џџџџ€ џџџџ€ џџџџB Ј€ џџџџ€ X€x€€€ˆ€€˜€ €Ј€А€ џџџџИШиш€ џџџџ€ Bј @€ џџџџP `p€ џџџџ!€€ џџџџ€ џџџџ˜€ џџџџ€ ,Ј€ џџџџ#и ј€ џџџџ(0@€ џџџџH€ џџџџџџџџИ№ Ќ'(Ќ'*р VT_LPSTRџџџџPЌ@',р VT_FILETIME6}Ќ'.р  VT_I4Ќ '0р VT_BOOLџџ8–]ђDР ]ЌђxИ]ђDј h]ђD ]ђD8 ]ђDX ]ђDp ]ђDˆ ]ђD  ]ђDИ ]ђDа ]ђDш ]ђD ]ђD x]ђD0 э !".э !^.@э @.` RЌ RЌ RЌ< RЌZ RЌx RЌ– RЌДœB@~э З 4 %І.Єrschri RЌœnЌ$к рB@фawЌ$к рB@фvS RЌe rЌ$к рB@фawЌ$к рB@фvS–X RЌ<ehЌ$к рB@фawЌ$к рB@фvS RЌZef њЌ$\'ahl_blk RЌxeht w RЌ–eowin RЌДe'k A@"Ќ :(ˆhk|р8----------Lіscht die vorhandene Tabelle-----------------d Ќ :(†the @!† @!†Ж\$ˆ$м'„ @!† @!† @!†Ж\$ˆ $Œ'Š „ Š-------------------------------------------------у&--Spaltenќberschriften einfќgen------- иЌ BB@жЌЙ Identnummer BB@кЌЙ Abmessung BB@ку&--------------------------------------kџџ˜ ZЌ œ ZЌ 'м ZЌ ZЌ< e ZЌ Ќ 'м ZЌ; ZЌZ e ZЌ Ќ< 'м ZЌY ZЌx e ZЌ ЌZ 'м ZЌw ZЌ– e ZЌ Ќx 'м ZЌ• ZЌД e ZЌ Ќ– 'м'Щэ R$H @%Њ.Dthe mo]ђD ђѓэ 2З 4 %І.Є% џўЎ ЄАœЄў§ўШўЖError in activating the model. `ЖGot a Problem hereA@”ў џ|џџ№kџџшэ !^.@ @!Ј'H0§џ RўЌ H‘’]ђD Њ. J L N D%Ќ'Pxџ[йЖ Config = R$Hжџ TўЌ PЌ ’[йЖ T$JЖ < T$NЖ> =  T$Lжџ TўШ RЌ œ RЌ 'Ў € Ў :B@~dџџ€ ZЌ ЌД 'мkџџ`у9----------Werte in die Tabelle schreiben----------------- и м BB@жЌ r BB@кЌ t BB@ку9--------------------------------------------------------- ZЫoџџ€–0уDelete existing SW tables]ѕˆ]ѕЈ]ѕШ]ѕш]ѕ]ѕ(]ѕ@]ѕ`№ „!".F№ F!|.h№ h!œ.о№ F!|.Hу;Loop through the views and delete the SW BOM if they exists оВї№ о!ю.d dВї № d!‚œК р d%ђ'ф№ H!є.ъу&I've noticed that a BOM Table ID is 98ЌЌ ъ%іЌbœ hB@јkџџРkџџИ№ d!њ.dіџџ № о! .оіџџˆiџџ€џџџџxџџџџ3ЗAttribute VB_Name = "Konfigurationen" ' *B’ Makro lieпt die ospezifischen Eigen aft allerBvorhandež > aus, ersteDll^annf der Zeichnung eˆineHTabe und trdфgorKgxewќ>= D.Nach 30‹AUwird d€as nфch€E Blatt aktiviert,C neue …C†\H„s fмol€ƒ‚•„'n:IфZu‚tt ‚A‚0. mit 2ƒlQx31 Spal@8УpРeC*( max 7Р-фtt РN)ЦT„Ausgeles;er@b\ h6щsƒI€t0numm$Abmessi, wœel@€QРpin‚†IingetraEw‚ƒ%УFesЛ€?‚ €ТUnD; ‚мbРchriпС–м"ŒХ W…yƒДerРr@yFfќhп€yР0ТFСЋ@!d€•ˆЎSCФ4n РSіЛtёЃdanС–GГСGАgefќ@ЖI!G€;parte„|У#vўo@M€О@Ч‡ Teil mќssЁ9Dge qрe€U s HТŸ€?* Public EР> swCustomInfoTyˆpe_s )Unknown “0 ЯText`q ' VT_LPSTRбDaž= 64ЃФFILETˆIME1NumРEA I4qYesOrNo€11ЁЁƒBOOLЁEƒa Subm0in()сЁDim sModel‡ТБAfAs SрЕ ng# AlRet8ValЪ@LoA Countю varProp ЁsЩVariHantЇsw€WleЎ `SldWorks."AnnotaсЩ‰App§N !†Љ‚#ZЁ"Doc2ЩCЂкпэ)#фоGvс1ћс"vE'ь Р s`7Ÿ ПЊvСcџ n€UяСLсKBi-єс‹DrawWA€Objec!jwж>kŽb.Пb"BooleќanY€&ЯЁ&%Џ(§7w!РvGљјShepWy'ўvђо5! "o=ƒрџ ItЙq CіuyАСЏ View\т es Q“ 2 wsw "DRAWINNG1SГS'aPxoliгA anhфK |4SАswaA=0 Cre`Zƒ("йчppАcЂD"@SЇ'prќfen, ob ќРZhaupt{ DokHumeРOof ђi ..tБ—ЃР т.Ac€šeP C If HIs Noth1 TPЊ#СMsgBoxД№r\", vb@SystemаIa€l, "Feh№Ќ№meldаŽ@Ж1wW)Ÿ ’ 2NРЄfќЈГрžsinnvoll. œ|kџџР!эЖSldWorks.Application$Ž.р/prќfen, ob ќberhaupt ein Dokument offen ist ...э !^.р рАœ|џџ№ kџџш џџџџА Ќ '  њ œ'd ўЌ œ= Lek€ЖBlatt'AnЖBlфtter'џџџџ8#рB------------DATEIVERZEICHNIS und Dateiname der Zeichnung ermittelnрB-----------Anzahl der konfigurationen ermitteln-------------------рM--------Das referenzierte Model ermitteln und laden--------------------------р9----------Werte in die Tabelle schreiben-----------------џџџџ˜"џџџџ#џџџџЈ(џџџџ T$JЖ IDENTNUMMERœ T$L'. vkџџШ(k]ђDи if[йЖ *Ж &  .Жж]ђD  mЌ * :B@‚ swTa T$JЖ ABMESSUNGœ›Gџџџџp(рDelete existing SW tables]ђˆ]ђ€]ђ№]ђ]ђ ]ђ@]ђX]ђxэ !".э !^.вэ в!š.2э !^.@р;Loop through the views and delete the SW BOM if they exists 2Аєэ 2!B.Z ZАє D Z!’œЗ 6 Z%F'э @!H.>р&I've noticed that a BOM Table ID is 98ЌЌ >%JЌbœ вB@Lkџџа'kџџШ'э Z!N.ZѓџџА'э 2!œ.2ѓџџ˜'iџџ'џџџџx' RЌ• RЌД e RЌ Ќ– 'Ўџџџџ№& H‘Ќ '№џџџџH0џџџџџџџџРIџџџџHџџџџАЖHNur fќr Zeichnungen sinnvoll. Bitte das Makro von der Zeichnung starten! `Ж FehlermeldungA@”џџџџРџџџџЈЖ4Es sind nicht genќgend Blфtter vorhanden. Es werden Ж Blфtter benіtigt. Bitte  ўЖ  Ж hinzufќgen! `Ж FehlermeldungA@”ЖKein Dokument offen `Ж FehlermeldungA@”џџџџ`Ќ$к рB@фџџџџ0џџџџџџџџРџџџџјџџџџјџџџџа :Аœkџџ˜џџџџиџџџџррG---------Setzt die Linienstфrke der Tabelle auf 0,25mm-----------------ouрG-----------------------------------------------------------------------џџр9---------------------------------------------------------р&--Spaltenќberschriften einfќgen-------B@р&--------------------------------------... р_---------------Tabelle anpassen----------------------------------------------------------------р`------------------------------------------------------------------------------------------------рg-------------------------------------------------------------------------------------------------------џџрg--------------Erstellt eine Tabelle mit 31 Zeilen und 2 Spalten----------------------------------------џџџџџџHџџџџ€э р!š.4 4Ає 4!ž'2(э 4!œ.4 џџџџ џџџџ˜рG **********************************************************************р@ * Makro lieпt die Konfigurationspezifischen Eigenschaften allerрF * vorhandenen Konfiguration aus, erstellt dann auf der Zeichnung eineр< * Tabelle und trфgt dort die gewќnschten Eigenschaften ein.р< * Nach 30 Konfigurationen wird das nфchste Blatt aktiviert,р! * eine neue Tabelle erstellt undр- * es folgen die nфchsten 30 Konfigurationen.р9 * Zur Zeit wird eine Tabelle mit 2 Zeilen und 31 Spaltenр( * pro Blatt ( max 7 Blфtter ) erstellt.рL * Identnummer und Abmessung, welche dann in die Tabelle eingetragen werden.р *р5 * Fest werden in der ersten Spalte die мberschriftenр) * Identnummer und Abmessung eingetragen.р *р *р1 * Gestartet wird das Makro von der Zeichnung ausр4 * Zeichnung und Teil mќssen vorher gespeichert seinрG **********************************************************************рB * Wird das Makro erneut ausgefќhrt, werden vorher die vorhandenenр9 * Tabellen gelіscht und danach neu erstellt und gefќllt.рE * Ausgelesen werden hier die Konfigurationspezifischen Eigenschaftenџџџџџџџџ3ЗAttribute VB_Name = "Konfigurationen" ' *B’ Makro lieпt die ospezifischen Eigen aft allerBvorhandež > aus, ersteDll^annf der Zeichnung eˆineHTabe und trdфgorKgxewќ>= D.Nach 30‹AUwird d€as nфch€E Blatt aktiviert,C neue …C†\H„s fмol€ƒ‚•„'n:IфZu‚tt ‚A‚0. mit 2ƒlQx31 Spal@8УpРeC*( max 7Р-фtt РN)ЦT„Ausgeles;er@b\ h6щsƒI€t0numm$Abmessi, wœel@€QРpin‚†IingetraEw‚ƒ%УFesЛ€?‚ €ТUnD; ‚мbРchriпС–м"ŒХ W…yƒДerРr@yFfќhп€yР0ТFСЋ@!d€•ˆЎSCФ4n РSіЛtёЃdanС–GГСGАgefќ@ЖI!G€;parte„|У#vўo@M€О@Ч‡ Teil mќssЁ9Dge qрe€U s HТŸ€?* Public EР> swCustomInfoTyˆpe_s )Unknown “0 ЯText`q ' VT_LPSTRбDaž= 64ЃФFILETˆIME1NumРEA I4qYesOrNo€11ЁЁƒBOOLЁEƒa Subm0in()сЁDim sModel‡ТБAfAs SрЕ ng# AlRet8ValЪ@LoA Countю varProp ЁsЩVariHantЇsw€WleЎ `SldWorks."AnnotaсЩ‰App§N !†Љ‚#ZЁ"Doc2ЩCЂкпэ)#фоGvс1ћс"vE'ь Р s`7Ÿ ПЊvСcџ n€UяСLсKBi-єс‹DrawWA€Objec!jwж>kŽb.Пb"BooleќanY€&ЯЁ&%Џ(§7w!РvGљјShepWy'ўvђо5! "o=ƒрџ ItЙq CіuyАСЏ View\т es Q“ 2 wsw "DRAWINNG1SГS'aPxoliгA anhфK |4SАswaA=0 Cre`Zƒ("йчppАcЂD"@SЇ'prќfen, ob ќРZhaupt{ DokHumeРOof ђi ..tБ—ЃР т.Ac€šeP C If HIs Noth1 TPЊ#СMsgBoxД№r\", vb@SystemаIa€l, "Feh№Ќ№meldаŽ@Ж1wW)Ÿ ’ 2NРЄfќЈГрžsinnvoll. …yCWend 6 ƒo%ZswApp.Acti&vЈ€]2(B, FalsхlRetValЪIf ƒ„G0 ThenGMsgBox "aCcin aCР: the m‚‹", vbSystemР#al, "GGa ProblPem h€h"GE€xit SubCРEnd Ifw@jAnzahl der konfigurationьen‡xt-ƒGФГЭЫGe@GƒvC@Di_„ jAЦs'F€Єi@0 To шUBo€—(DUƒЇСЉСƒ0_K‚/s€!N + 1в Blatt@ Œ/ 3ъ0з 1 RТ%„ Bx, 0D'Х%Р~ 1ј < щЬ@(т Ё ЫŽЅ:AУЦv@6zu wenig ШBlф ur? I:лCЎ> #aDkVFehlРees_їb'(D-iу ЃAЧa  m< 2P"щ‚ _N  "BШ\С§aE`o+ Ё ‚ Lџ)(aЫ=€aWt FD‡…‡She€Ё(цvтТ_(0хИХц‚s siрwnic€ht genќ`d, vorh„anРЏ. Es >Вr@ " О‹G&`A benіtiрgt. BaИЂ­1сЁE(сРЏzuf С!а‘"rmel№dungь,g*ѓ’aПiWЩSz Ч ŒW"ж›Ѓƒ‡›ausle~s–ж' cœу• Pu˜B&yС8'•(iщ9nNtum€ZpГRPusto‚p ies|(vAа^Ё€duУ0ebTypeF`‡ Debug.Pаrint  ‘ў `БfTР хVё!Wnj0"WІ -=S  #r# (j)@'" о<’С  T>F €Ї Aл0Bк= "IDENTNРUMMER"ЯBA I№/tnummљm= Rбџ??2Аr“2€  AB€MESSUNG3AbmessА/џАo3To€q‰ќ jЌ!yС93ЯG№H8Ч pvˆOr 30 ”J6–9–12Ї5§Ї8Р"bŒ“oR‹’3-џ.’g ”‘У gхПTўeПTПTс!bЄяЧ1яяs(1­ZьŸ`яяbЄп (2яќ и АяяяAјs(3яъџџћџѓ4џћP$џџћџѓ5џћІ)19уппs(6џ№Д#'+ИfLіsСydieїxe Tabellel'Delete_BOM_@Nomenc№Јuќre?OpйCLqfEажp t @сF рм 31 ZepзCн2 Spalt?rЏg Cs№0м= sw”.InsƒnrAnnotЂЦP2(TrQn0 Д,РаУkдzAnchor_TopLe ft€ЯР‡31, ў2иp, Go!рzt бLinienstф8rkeBеА1 œД auf 0,25mm- If Not swTable Is8hing 0ThenN@.BorderLineWeight = 0JGridFEnd If3>'3QWpelqanpassefn=;‡4th€‚G@etRowHŽ(l0)‡S…ЛC€LRange_All, 0.0063,…€'Col ChcleSiрzeCan D@ umnWidthЧ•"F€Š xxР€--Current, РB* 1ЛП.‰.1SQŽ.€1О.,.5?/ /2$/2,| 2/?ХœЗF jSpaltenќberschrif€ einfќgЧf(ZHeaР‚хBЃ_Top, 92Titr0, "Id Gnumme А29 A œ! 6> \ -Р /Ш 5Ч 9Бп - 6(ВА8Ч D12џ - 9ћ 1Ъ1 5 - РД14( 8? 5tчя F8/18б дE(O NWerte €in die EЭёaheibpЭo Ÿi€iўpњid€j85oшЌ5–5O6_FГN€ext i 8SubЁ1Function Delete_BOM_NomenclРature(@T 'у existЁ1ŠSW tq‹sРDim№GApp As SldWo0rks.…DrawАDocq6Vie;жAŒnn №otaс &SelDatacj0ectadBools€usqyбea—ƒ ъB,omЂпwMgОrкУ€ P‡‰д= 0lic —љ#ђ=Г.AP|veЃуЂсq.СРŽFirstє#рModel‘€)Ap'Loop@‚roughpe vёАs a07PАBгpёifбyѓ1јWhicЋ’їЊYп! & w3p‰xЏРP\ф1Gѓ nтnёTyp0>тБаhA .г3(F>a0aс„R, c0Q1T1a nager 'I've noticedаat a БТ ID i№s 98Вr ca ƒ'edObjp‰A 3( s-1)Р $98nswЂEdќitу50 rЅ$Дaа=ђendp“ ’q QБW‚€qe?р Fehlermeldung PASSUNGSTABELLECharHeightЙ=ЃƒХ'ЮПд@ЛW *InsertTableAnnotationSetName &SetBorderLineWeight "SetGridLineWeight nameXY test bАТQ&Iƒ%ЮdM~Ќ&o­ЉнvIŠ>гыИдџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџА€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0џџџџ(ƒўџџџџџџџpџџџџџџџџџџџџџџ %‚ џџџџўџџџ џџўџџџџџџџџџџџ %џџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxH@44џџџџџџџџџџџџџџџџџџџџџџ8ƒјЕPp$*\Rffff*0950b4b619пџџџџ4ўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2Љ pJmain  (SldWorks.Antion"=ЃƒХ'ЮПд@ЛW &Kein DokH Ich bin vorne Titel Fehlermeldung PASSUNGSTABELLECharHeightЙ=ЃƒХ'ЮПд@ЛW *InsertTableAnnotationSetName &SetBorderLineWeight "SetGridLineWeight nameXY test nagerY=ЃƒХ'ЮПд@ЛWEditDelete" row:  HNbr of rows after hiding third row:  JNbr of rows after showing third row:  Identnummer AbmessungVBE6.DLL !џџџџЬ ЈGetAnnotation2 !џџџџS Ш !џџџџХ ш !rU€€€ џџџџџџџџ$(НBГЉ-DATEIVERZEIC0HNISТ;AЈin!їМщ•ƒО= L@eft(sw$,ˆ In№ЁRevпdmeG\"UХbЖe = Right(swModel.GetPathName, Len`) - I€nStrRevp"\")) ’ЪDATEIVERZEICHNIS & Dapteinh(On Error Resume N`ext L'-Das referenzierte О ermitteln und laden2qSet ViewRraw@ingDocƒFpirst ‚W(hilJoIs` Noth€ М s‚Cz$RƒTјced†…ˆ>…yCWend 6 ƒo%ZswApp.Acti&vЈ€]2(B, FalsхlRetValЪIf ƒ„G0 ThenGMsgBox "aCcin aCР: the m‚‹", vbSystemР#al, "GGa ProblPem h€h"GE€xitrU€€€€~| :‘Бљ!!Щ ‘‘ i Й с 1 q ‰ щ  I q ‰ Щ yщ I Б y щ Yй 1‘Љс a‰ЉбIiЉ‰ёYЩёA‘ЙP h ѕМў  Мў§ѓXџ5МўИўXџ QИўџ lџќcћвv3'Hў'hў:˜ўNˆўˆўѕ:ЈўNМўМў 6МўˆўhўHўџWМў(Јў]ћ@5МўЦ3'Hў'hў:˜ўNˆўˆўѕ:ЈўNМўМў 6МўˆўhўHўИў$ 8 lИў=XџИўИўXџ lИў= TџИў lTџќћ8ў lTџ= №ўИў№ў 0 lИў= ьўИў&4ўTџ l l4ў*#0ўџџ  24ў0ў&4ўьў $ l4ў*#0ўџџ  24ў0ў џџ  Мў№ў  Мўќімўѕиўмўќ5IєќЫўd(ўIиў§“@мўўЎˆўќ‹lиўћў#4ў*#0ў*FМўˆўћяhўџџ  24ў0ў6Мўˆўhў иўf(ўБ(Јў%мўўЎˆў%џў˜5ˆўмўќ5IєќЫѕЊ§iЈўќіўИўXџ QИўџH4ўTџ l 0ўTџ l ѕѕџџџџl0ў^>4ўFМўˆў  ˆўќіў/0ў5Мў\4ўTџ l ўTџ l 0ўTџ l l0ўJѕѕџџџџlў^Ў>4ўFМўˆў  ˆўќіє§20ўў5Мўўє§ћяМўќіф§KџџџWМўќ4ќјЬў5Мў lЬўќcћвУQЬўWМў`1xџ5МўЬўWМўќ4ќјЬў5МўИўtџєlxџXџ QИўќќд§д§ќqќcћвБ3'Hў'hў:˜ўNˆўˆўѕ:ЈўNМўМў 6МўˆўhўHўИўXџ lИў= TџИўМўTџ , Мўќі@џѕ SubCРEnd Ifw@jAnzahl der konfigurationьen‡xt-ƒGФГЭЫGe@GƒvC@Di_„ jAЦs'F€Єi@0 To шUBo€—(DUƒЇСЉСƒ0_K‚/s€!N + 1в Blatt@ Œ/ 3ъ0з 1 RТ%„ Bx, 0D'Х%Р~ 1ј < щЬ@(т Ё ЫŽЅ:AУЦv@6zu wenig ШBlф ur? I:лCЎ> #aDkVFehlРees_їb'(D-iу ЃAЧa  m< 2P"щ‚ _N  "BШ\С§aE`o+ Ё ‚ Lџ)(aЫ=€aWt FD‡…‡She€Ё(цvтТ_(0хИХц‚s siрwnic€ht genќ`d, vorh„anРЏ. Es >Вr@ " О‹G&`A benіtiрgt. BaИЂ­1сЁE(сРЏzuf С!а‘"rmel№dungь,g*ѓ’aПiWЩSz Ч ŒW"ж›Ѓƒ‡›ausle~s–ж' cœу• Pu˜B&yС8'•(iщ9nNtum€ZpГRPusto‚p ies|(vAа^Ё€duУ0ebTypeF`‡ Debug.Pаrint  ‘ў `БfTР хVё!Wnj0"WІ -=S  #r# (j)@'" о<’С  T>F €Ї Aл0Bк= "IDENTNРUMMER"ЯBA I№/tnummљm= Rбџ??2Аr“2€  AB€MESSUNG3AbmessА/џАo3To€q‰ќ jЌ!yС93ЯG№H8Ч pvˆOr 30 ”J6–9–12Ї5§Ї8Р"bŒ“oR‹’3-џ.’g ”‘У gхПTўeПTПTс!bЄяЧ1яяs(1­ZьŸ`яяbЄп (2яќ и АяяяAјs(3яъџџћџѓ4џћP$џџћџѓ5џћІ)19уппs(6џ№Д#'+ИfLіsСydieїxe Tabellel'Delete_BOM_@Nomenc№Јuќre?OpйCLqfEажp t @сF рм 31 ZepзCн2 Spalt?rЏg Cs№0м= sw”.InsƒnrAnnotЂЦP2(TrQn0 Д,РаУkдzAnchor_TopLe ft€ЯР‡31, ў2иp, Go!рzt бLinienstф8rkeBеА1 œД auf 0,25mm- If Not swTable Is8hing 0ThenN@.BorderLineWeight = 0JGridFEnd If3>'3QWpelqanpassefn=;‡4th€‚G@etRowHŽ(l0)‡S…ЛC€LRange_All, 0.0063,…€'Col ChcleSiрzeCan D@ umnWidthЧ•"F€Š xxР€--Current, РB* 1ЛП.‰.1SQŽ.€1О.,.5?/ /2$/2,| 2/?ХœЗF jSpaltenќberschrif€ einfќgЧf(ZHeaР‚хBЃ_Top, 92Titr0, "Id Gnumme А29 A œ! 6> \ -Р /Ш 5Ч 9Бп - 6(ВА8Ч D12џ - 9ћ 1Ъ1 5 - РД14( 8? 5tчя F8/18б дE(O NWerte €in die EЭёaheibpЭo Ÿi€iўpњid€j85oшЌ5–5O6_FГN€ext i 8SubЁ1Function Delete_BOM_NomenclРature(@T 'у existЁ1ŠSW tq‹sРDim№GApp As SldWo0rks.…DrawАDocq6Vie;жAŒnn №otaс &SelDatacj0ectadBools€usqyбea—ƒ ъB,omЂпwMgОrкУ€ P‡‰д= 0lic —љ#ђ=Г.AP|veЃуЂсq.СРŽFirstє#рModel‘€)Ap'Loop@‚roughpe vёАs a07PАBгpёifбyѓ1јWhicЋ’їЊYп! & w3p‰xЏРP\ф1Gѓ nтnёTyp0>тБаhA .г3(F>a0aс„R, c0Q1T1a nager 'I've noticedаat a БТ ID i№s 98Вr ca ƒ'edObjp‰A 3( s-1)Р $98nswЂEdќitу50 rЅ$Дaа=ђendp“ ’q QБW‚€qe?р Њ‡vСcС)Dvп…NЬ€г РnuЬOж ћЧрnЋ!Œ С+‹„iMФ Drapwing@TK OаbjecH„j+ІЅn k !\b \q BooleaўnЉ<M`FJSQAщ‡ щ SheeяЏjщ"GvтЎkВIЯzCР 4Idenzt Љm`”ЉџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџH€ўџџџџџ џџџџ0џџџџџџџџџџ%џџџџ@џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џќ5IєќЫўdЬ§d @џќ5IєќЫѕЊ§iЈўќіМ§М§(ЈўћММўќіЌ§ѕЌ§Мў  Мўќіœ§ œ§Ќ§ћg^œ§(Јўћ”Мўќіœ§ œ§ўћtUœ§ўћœМўќіŒ§Œ§(Јў]ћg› :Јў §|§Ј :Јў!§|§#Иўtџєф§§ў4ўXџ QИўќќд§/4ў(Јў%мўўЎˆў%џў˜5ˆўg'ќќ'§:L§N<§<§ѕ:Јў"œ§ћяМў:˜ў#ћяˆўŒ§ћяhў:xў$ћяHў|§ћяl§:Xў%ћя\§ 6МўˆўhўHўl§\§<§§ќќ3Иўџ§“@@џўЎМў§ў4ўTџ d lИў=&Pџ/4ўИў5Мўјќџ џ0џPџ ”&lјќq џ/џ§“@@џўЎМўќ‹:˜ў'Мўћяˆўџџ  6Мўˆўѕџl џѕџџџџџџџџџџџџџџџџџџ8КАT пўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2On ErJЁГВa"fDpOrefe 7zie0F тw)2laP+п*aЂn=H^С5рFiвмц№edжѕие‡!Б#WendХьШ(А. 0k2(G, FaќlsР„ТT/PaєЯlпq0Хlг`ta1q€wA ƒthe m1ba cЈСm h Яmbпs Хmг93шGkћуЏGџƒсє1ћ}GНaQџЂЁОЖъA№Q3ЁLўiаЊLсQT“єъ # _уяs PVЇE<BI,/ 3_ряЕqђ1Rу"VY, 0д uАНk<Ѕ c;_=ъ1I юЕ End IfL Р('-zu wenig Blфtter? N-tIf Anzahl_BlРatt1 >p‚a( ThenPкFehlendЄes, = ;- ;6<@m C< 2O e(_Ne"  " KElseџ ‚ ‰ # #Set oModel?swApp.ActivateDoc2(Na@me, Fa€?, lRetVal) !DrawinFgShe€+(†v‚!s(0) MsgBox " Es si€єnicht genќ €dX4 vorDha€bn. @ werden " &Ld&Р‚ benіtigt. ќBi@†B McС