ࡱ> 7Root Entry`/_>b-DapcЎRR`/_>b-The VBA Project ЎRR`/_>b-_VBA_ProjectЎRR`/_>b- T#,U(+'56Q9ABCDHJKLMNOPRS_`abcdefghijklopquvwxRoot EntryxSIapcЎRRxSThe VBA Project ЎRRxS_VBA_ProjectЎRRxS  {%/|-&)E1234:;<=>?@FGyVWXYZ[\]mnrstz !}Host Project Item Names0 ܼRRxSVBA Project Data"fHost Project Items&4VBA Project Signature, I J !"#$%&'()*+,-./012356789:;<=>?@ABCDEFGHNKLZOQRSTUVWXY[\^]_`abcdefghiklmnpqrstuwxyz{}{Є&'ThisLibrary*{&'5{P&'L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{&' L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{&'";{&'$={Ѓ&'&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}n     !".$* D:\0-Dydaktyka\0-NOWY_Przedmiot-ID="{4D6F347B-49D8-4933-B175-C377285B7ED8}" Document=ThisLibrary/&H00000000 Module=Zoenie_lista_materiaw1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Formularz BaseClass=Pomoc BaseClass=Licencja Name="Zoenie_lista_materiaw" HelpContextID="0" VersionCompatible32="393222000" CMG="2527FD1A07FB0BFB0BFB0BFB0B" DPB="0A08D205B606B606B6" GC="EFED3720F9E0DFE1DFE120" [Host Extender Info] &H00000001={3832D640-CF90-11CFbalSpacoFalse CreatablPredeHclaIdTru BExpose0TProgramowanie\CWICZENIA\OrginaB rmularz=64, 64, 1227, 491, Z, 32, 32, 1195, 459, Pomoc=32, 32, 1052, 613, , 128, 128, 1148, 709, Licencja=192, 192, 1236, 654, , 160, 160, 1204, 622, ryZoenie_lista_materiaw1ZThisLibraryThisLibraryZoenie_lista_materiaw1ZemplateDerivCustomizDP Sub CommandButton1_Click() .HidL FormuWz.Show End SS<8bedded ObjectForms.Frame.19q0@ }Frame4pR KQ Tahoma 2023\Dodatkowe makra\Makro-ListaMaterialow.swpD-ME(ThisLibraryܼRRxSProject_Data_CurVer( Host Project Item List Data8VBAЎRRxSHost Project Item Names0 ܼRR`/_>b-VBA Project Data"Host Project Items&4VBA Project Signature, PROJECTwmMPROJECT ThisLibraryZBo|enie_lista_materiaBw165Formularzlowny& 3PS`/_>b-ffi13% n``b]-`/_>b-Licencja 96y`%"*o1:CompObj;aVBFrame"-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Zoenie_lista_materiaw1=64, 64, 1238, 603, ForU@@@@~~~~~~~~~Z A 0 AQP ApI J !"#$%&'()+,-./0123456789:;<=>?@ABCEFGHNKLZOPQRSTUVWXY[\^]_`abcdeghijklmnopqrstuwxyz{}{)ThisLibrary*{)5{)L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{) L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{0)";{)$={P)&&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}/^D:\0-Dydaktyka\KMK\SW-Makro-ListID="{4D6F347B-49D8-4933-B175-C377285B7ED8}" Document=ThisLibrary/&H00000000 Module=Zoenie_lista_materiaw1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=Formularz BaseClass=Pomoc BaseClass=Licencja Name="Zoenie_lista_materiaw" HelpContextID="0" VersionCompatible32="393222000" CMG="797BA157A557A557A557A5" DPB="6062B83BB93BB93B" GC="47459FFA610649074907B6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43- aMaterialow.swpC-enia\ZBo|eniz=64, 64, 1227, 491, , 32, 32, 1195, 459, Z Pomoc=32, 32, 1052, 613, , 128, 128, 1148, 709, Licencja=192, 192, 1236, 654, , 160, 160, 1204, 622, 22, ryZoenie_lista_materiaw1ZThisLibraryThisLibraryZoenie_lista_materiaw1ZPSPSSS<8ThisLibraryܼRR`/_>b-Project_Data_CurVer( Host Project Item List Data8VBAЎRR3b`-PROJECTwmMPROJECT ThisLibraryfZBo|enie_lista_materiaBw16Formularzlowny& 3PS`/_>b-ffi13% n``b]-`/_>b-Licencja 96y`%"*o1:CompObj;aVBFrame"00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Zoenie_lista_materiaw1=64, 64, 1238, 603, Formular0* pHdZoenie_lista_materiaDw8@  =  cJ J<9s@tdole>stdol@e h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE Autofion0SldWorks>#CdWGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#1dIProgram FileLOLIDWORKS C orp\S\s8ldwBUH 2021 Type Li %XPHBo|enie_lista_materiaBw1FormularzFcormularzPomocPomocLicencjaLicencja@ = "PLIK ISTNIEJE!" ClientHeight "  ( 8 B@pCommandButton1C &,@CommandButton2"&,@CommandButton5&(2Label6*$#6@eriaBw.swpC-pFrame5$!#Frame6$ #Frame2alH+.JZ LIST MATERIAAWu# Tahoma*LICENCJA u *,@ 1. Otwrz plik (nale|y wybra filtr TXT). 2. Wybierz typ pliku: ROZDZIELONY. 3. Wybierz pochodzenie pliku: 1250, Zrodkowoeuropejski (WINDOWS) w celu poprawnego wy[wietlenia polskich znakw. 4. Ograniczniki: {B2D7A69B-7021-4A03-B1C7-EEB79A5023DB} |Bo|enie_lista_materiaBw1FormularzF ormularzPomocPomocLicencjaLicencja@ = "PLIK ISTNIEJE!" ClientHeight Xx%%(pCommandButton1C &,@CommandButton2"&,@CommandButton5&(2Label6*$#6@eriaBw.swpC-pFrame5$!#Frame6$ #Frame2alH+.  ZN Tahoma*LICENCJA uFormularz^6Project Item Data$ Control List Data$6`/_>b-`/_>b-ReqControl List Data*5`/_>b-`/_>b-,@ 1. Otwrz plik (nale|y wybra filtr TXT). 2. Wybierz typ pliku: ROZDZIELONY. 3. Wybierz pochodzenie pliku: 1250, Zrodkowoeuropejski (WINDOWS) w celu poprawnego wy[wietlenia polskich znakw. 4. Ograniczniki: __SRP_2oProject Item Data$" Control List Data$DxSxSReqControl List Data*CxSxSCompObjp_VBA_PROJECTIdir__SRP_00~CompObjpReqControl List Data* Control_Data_CurVer(7 Control List Data$(Pomoc DVLicencja*Kfo~PCompObj0|aVBFramevdPomoc 6BPLicencja4i33< n``plnx`/_>b-f fi28* n`` S^`/_>b-CompObj0|aVBFramevd_VBA_PROJECT8dirbrary#CSwConst>wCZnY:tZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant t/l/ A,/mma4nd^D0m`man_ @10AC1DE9F-3FBC125-868D-7D4E9139CCE01"22 'SWUtilitie2VUiieA362E9747A-1836-436E-827F-0AE2E0081353}#7dX7.5u#s\gtswF&M L15LMSFo rmLMS*FBcm3 "3D452EE1-E08F-101A-8-02608C4D0BB4 uINDOWS\suFM20.DLL#Microsoft  `{ Object%`/;(1(]0)A(0@B0=q#`@g0 A4@B08E21C8-AEBF-411NCF56__SRP_3jFormularz~Y7fo~Po>ACompObjp__SRP_17nReqControl List Data*%  A Aq A! q( 1+"A362E97470* pHdZoenie_lista_materiaDw8@  =  Xe#J J<9s@tdole>stdol@e h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\System32\e2.tlb#OLE Autofion0SldWorks>#CdK*rU@@~~~~~~~~~~~~~ ~~~~~~ ~~ ~~j"1B^DF =(  1aa!a Qqa  ! A ThisLibraryZoenie_lista_materiaw1 FormularzPomocLicencjaZoenie_lista_materiawF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  1Pl5C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb SolidWorks p0FC:\Windows\System32\stdole2.tlbstdole Q1='@W8C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlbSldWorks AYFUL.,7C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlbSwConst A ?%L}N9:C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb SwCommands q  1 ztb6nC SFC:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb SWUtilitiesMSForms ! .E .`M 15B7A6AAF5HUsers\JD\AppData\Local\Temp\VBE\.exd}.E .`PM ShellExtens`>"e@OlExEOeisi5nTLb|`agAD8CB-E288-40B7-9F7D-"64EA A8kFold@".dll\1# 1.0AT32hl@3,21w50A7E9B0-70E`M1D1-B75A@>A0C9@0564FEWOW64\s a(0ntrols AndY!aThisGaT/ic-r`ry2@H1Z; ","w a=+@ V1G4pZBo|!i _  t` _WtPr0"a Y1pOC|12,c x}!w AularzG-r u `arz@ j2oba)t(wѐP@omocGlP0m0c2M+.Licencj,aG!&cncj:2?0A#ё}.E^eYA#AI-ȓ/8ACO>!ԱxME 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}#1d.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#SolidWorks 2021 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}#1d.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SC:\WINDOWS\system32\FM20.DLL  0|hK9r .C:\Users\JD\AppData\Local\Temp\VBE\MSForms.exd  P:@}kzN *C:\Windows\System32\WorkFoldersShell.dll\1ShellExtensionLibTextBox1Label2 pPpZdC:\Windows\SysWOW64\shell32.dllShell32 !main BrowseFolderTest_Folder_Exist 88H08(.9J&eTB>pL)=q8,GVEpu2NϤMh6sYeN]jҋB `!-6S`   TextBox2ȏ[qJ eUserForm5d2cLID3l F3Dynamic a"-?@{lFWJOCommandButton1CommandButton2?F`Frame2CommandButton3CommandButton4CommandButton5Label6Frame4Frame5Frame6RҋB ` OptionButton2 OptionButton1Label8BҋB ` CheckBox1CommandButton6Label9CommandButton1_ClickCommandButton2_ClickCommandButton3_ClickCommandButton4_ClickCommandButton5_ClickCommandButton6_ClickOptionButton1_ClickOptionButton2_Click  TPrzed uruchomieniem makra OTWRZ ZAO{ENIE.VBE7.DLLS (~=Kęli $pPL4KDL|HB~*߿7&m  FOTWRZ wcze[niej zapisane ZAO{ENIE. \ "0$o"h&mҋB `&mq&"rxdNіs ɑGi6{lQuCD~  A(&m'xFt]܉l8E{ sg:EII}p8Q.@=V pC`ɯ:A._r +&mA*VaterialPropertyName2 ShowConfiguration Extension CreateMassPropertyoG Mass- GetPathName InStrRevĈ OptionButton2l@ OptionButton1k@ PropertiesUnicK CheckBox1 CreateTextFile WriteLine Hide9z CommandButton2_Click CommandButton3_ClickFA CommandButton4_ClickVy CommandButton5_Click Pomocl CommandButton6_Click ldWorks 2021 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1d.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2021 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1d.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2021 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{008E21C8-AEBF-4115-8CF5-4315B7A6AAF5}#2.0#0#C:\Users\JD\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{913AD8CB-E288-40B7-9F7D-6B7A4EA08EA8}#1.0#0#C:\Windows\System32\WorkFoldersShell.dll\1#WorkFoldersShell 1.0 Type Library*\G{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}#1.0#0#C:\Windows\SysWOW64\shell32.dll#Microsoft Shell Controls And AutomationWGrksH H83A33D31-27C5-11CE-BFD4H400513BB57}#1eIProgram FileLOLIDWORKS C orp\S\s8ldwBUH 2022 Type Library#CSwConst>wCZnY:tZ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA ,6B-&ant t/l/ A,/mma4nd^D0m`man_ @10AC1DE9F-3FBC125-868D-7D4E9139CCE01"22 'SWUtilitie2VUiieA362E9747A-1836-436E-827F-0AE2E0081353}#7dX7.5u#s\gtswF&M L15LMSFo rmLMS*FBcm3 "3D452EE1-E08F-101A-8-02608C4D0BB4 uINDOWS\suFM20.DLL#Microsoft  `{ Object%`/;(1(]0)A(0@B0=q#`@g0A4@A7C1`1@95-F2C4B@68-B3A~6A98039721 ~fUsers\JD\AppData\Local\Temp\VBE\.exd}.E .`M( ShellExtens`>"e@OlExO"eisi5nLb|`agAD8CB-E288-40B7-9F7D-6B7A4EA08xEA8kFold@".dll\1# 1.0A32hbl@321w50A7E9B 0-70E`M1D@1-B75A@>A0C90564FEWOW64\>s a(0ntrols AndEYaThisGaT/ic-r`ry2@Hբ1; ","w a=+%@ V1G4pZBo|!i _ U t` _WtPrU0"a Y1pOC12CT}l!w AularzG-r u arz@ j2ob)(wѐPomocGlP0m0cm2. Lice`ncjaG!&cAncj]:2?0w A#ёELqYA#xMEcYThisLibrary0Y641ae4551ThisLibraryw ;4ZBo|enie_lista_materiaBw12q641af8f644ZBo|enie_lista_materiaBw1,Formularz2r641af8f6SFormularz0a) Pomoc0m641aed93a  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swvba.tlb#S Pomoc.H+Licencja0n641aed93LicencjaA#`x`0H{YA-Sh(JJn`a=M2}A,hMi=C$#IoDNJLoiXA SolidWorks, VBA Win16 Win32 Win64F Mac VBA6# VBA7# Zoenie_lista_materiaw4 stdole` SldWorks SwConstR SwCommandsZ SWUtilities MSFormsC ShellExtensionLibV Shell32t ThisLibraryK _Evaluate Zoenie_lista_materiaw1 [ swAppW swModel ModelDoc2^ swFeatj Feature!> swCustPropMgr CustomPropertyManager1U zastap{ FilePathO istnieje3 Path2 main, Application* ActiveDocڒ Formularz Show BrowseFolder SH_ ShellV Fold FolderQ Captionx InitialFolder% BIF_RETURNONLYFSDIRS0 BrowseForFolderF Environ, Items`h Itemz Test_Folder_Existd FSO FolderPath% CreateObject FolderExists MsgBoxR vbLfT% CommandButton1_Click vCompsh swCompP Component2 swAssemblyV AssemblyDocJ i` ja kb NazwaKomponentu NazwaMaterialuA nStatus swModelExt(W ModelDocExtension swMassProperties_ ConfigName Properties+ swConfig Configuration swSelMgrl SelectionMgr0 FileNamej swCompPartIb PartDoc TextBox1S TextBox2S 100o MyStringx oFile FileExists GetType_ swDocASSEMBLY GetComponents GetModelDoc2^ GetTitle- ReferencedConfiguration GetMaterialPropertyName2 ShowConfiguration Extension CreateMassPropertyoG Mass- GetPathName InStrRevĈ OptionButton2l@ OptionButton1k@ PropertiesUnicK CheckBox1 CreateTextFile WriteLine Hide9z CommandButton2_Click CommandButton3_ClickFA CommandButton4_ClickVy CommandButton5_Click Pomocl CommandButton6_Click Licencja OptionButton1_Clickc ForeColor Enabled۪ ValueK OptionButton2_Click/ UserFormN Label2, CommandButton1| CommandButton2} Frame2 CommandButton3~ CommandButton4 CommandButton5 Label6, Frame4 Frame5 Frame6 Label8, CommandButton6 Frame1 Label1, Label3, Label4, Click _B_var_LeftQ Title~ _B_var_Environ/ Label9, Label9_Click@ S "$&(*,. 15  Z H |`@H Xx%%PSPSSS<8<<(<00{2A3013B7-779B-4078-9B13-BB0A9850E8A4}{D58044A9-A998-409D-9334-3ADDEACB14E5}H |`@H Xx%% %8 %XPHc"  (8 B@ RB@ToPH(Attribute VB_Name = "Licencja"  Bas|0{2A3013B7-779B-4078-9B13-BB0A9850E8A4}{D58044A9-A998J9D-9334-3ADDEACB14E5} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustom4izDP Sub CommandButton1_Click() .HidALFormuWz.Show End ru BEx0pose0TemplateDerivCustomizDP Sub^e%Y.jdCJwmst4rݶI{!ЮLxME<<(<00{FA574C4A-7AC9-40F1-A351-648098ECB10A}{8D026D2E-2941-44A9-A43E-26ED30835E73}H |`@H Xx%% %8 RB@ToPH'Attribute VB_Name = "Pom oc" Basp0{FA574C4A-7AC9-40F1-A351-648098ECB10A}{8D026D2E-2941-44A9-A436ED3083 5E73} GlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizDP Sub CommandButton1_Click() !.HidKFormuUz.Show End "5L80} GlobalSpacoFalse Creatabl5Yw #olidWorks 2022 Extensibility Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\System32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldworks.tlb#SldWorks 2022 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swconst.tlb#SOLIDWORKS 2022 Constant type library"*\G{0AC1DE9F-3FBC-4C25-868D-7D4E9139CCE0}#1e.0#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\swcommands.tlb#SOLIDWORKS 2022 Commands type library>*\G{62E9747A-1836-436E-827F-0AE2E0081353}#7d7.5#0#C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\sldutils\gtswUtilities.tlb#SOLIDWORKS Utilities 2015 Type Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{7C108195-F2C6-4B68-B3AE-B6A980397217}#2.0#0#C:\Users\JD\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{913AD8CB-E288-40B7-9F7D-6B7A4EA08EA8}#1.0#0#C:\Windows\System32\WorkFoldersShell.dll\1#WorkFoldersShell 1.0 Type Library*\G{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}#1.0#0#C:\Windows\SysWOW64\shell32.dll#Microsoft Shell Controls And AutomationXe#YThisLibrary3D65589db81ThisLibraryw ;4ZBo|enie_lista_materiaBw13k65589e1544ZBo|enie_lista_materiaBw1TFormularz4965589ea1SFormularz0) Pomoc3G65589db8 Pomoc.HLicencja3H65589db8LicencjaA#`wx0`Hғ{l"K߅C';AgnyxKh?ĸƌ%5LISA3 (SFn@/*9F$u@Hendifthen SolidWorks, VBA Win16 Win32 Win64F Mac VBA6# VBA7# Zoenie_lista_materiaw4 stdole` SldWorks SwConstR SwCommandsZ SWUtilities MSFormsC F S [)Y[jRjE}q]JOrjxMEP(0@H@SPSSS<< <<<8 <(<<X  <     *..       TZ px  0 &62 . ,  |   ( 00 .@ P ` $@  T* *(0@0X8p &.j    |   >.2,. "  J0HVPL,     F .h 2p , .  "  @ HV L,P          (  4 ( J0 2 6  B  B  B  B  B0  BP  p     . DJ . "* 0 *.8 .h  . > .  P  (8 .@H .*..0H .XLp    (8@  H:\X  " " $ H "  4LHP  &X$Rh H "   "   ",,  (0 2@P "X,`,p *  Dim swModel As ModelDoc2nB]X]p]]dc]o](]@]`]x]]]]]( !d'F !d''H<wywoanie funkcji sprawdzajcej istnienie folderu domylnegoA@n HFk !dListaMateriaw'%DOMYLNA NAZWA PLIKU TEKSTOWEGOk` F\ .txt']H]`]x'DScripting.FileSystemObject$t.p  p%  :W wybranej lokalizacji plik o podanej nazwie ju istnieje. z-Nadpisanie pliku tekstowego jest zablokowane. z z/PODAJ INN NAZW PLIKU LUB ZMIE FOLDER ZAPISU.A@xFk 8%Nie otwarto adnego pliku SolidWorks. zOTWRZ ZOENIE.A@xFk' 8!  8. %'~ ~  ~ $~. !.8 8 6Wszystkie czci musz mie status "W penej pamici". z zPo zamkniciu okna makra, klinij prawym przyciskiem myszy w najwyszy poziom drzewa operacji (nazwa zoenia) i wybierz "Zmie odcione do penej pamici".A@xFk 8!  8!' 8.Nazwa konfiguracji czci !'  %'M WANE: pokazuje odniesion konfiguracj w celu przechwycenia jej waciwoci  B@ !%.  +  +  + ! + 8!'J J J\$ $ +  'k  d 'Aktywny plik nie jest plikiem zoenia. z z1ShellExtensionLibV Shell32t ThisLibraryK _Evaluate Zoenie_lista_materiaw1 [ swAppW swModel ModelDoc2^ swFeatj Feature!> swCustPropMgr CustomPropertyManager1U zastap{ FilePathO istnieje3 Path2 main, Application* ActiveDocڒ Formularz Show BrowseFolder SH_ ShellV Fold FolderQ Captionx InitialFolder% BIF_RETURNONLYFSDIRS0 BrowseForFolderF Environ, Items`h Itemz Test_Folder_Existd FSO FolderPath% CreateObject FolderExists MsgBoxR vbLfT% CommandButton1_Click vCompsh swCompP Component2 swAssemblyV AssemblyDocJ i` ja kb NazwaKomponentu NazwaMaterialuA nStatus swModelExt(W ModelDocExtension swMassProperties_ ConfigName Properties+ swConfig Configuration swSelMgrl SelectionMgr0 FileNamej swCompPartIb PartDoc TextBox1S TextBox2S 100o Otwrz plik zoenia lub kliknij przycisk Anuluj.A@xFkp7Znajdowanie powtarzajcych si komponentw: TYLKO nazwa     +     $ $ $ +8dodawanie kolejnego wystpienia +%4zerowanie pierwszej nazwy gdy komponent sie powtarzakk  k@Znajdowanie powtarzajcych si komponentw: nazwa i konfiguracja     +     $ $ $ $ $ +8dodawanie kolejnego wystpienia +%4zerowanie pierwszej nazwy gdy komponent sie powtarzakXkP  k(]!przedefiniowanie rozmiaru tablicy  ('Cprzesuwanie w tablicy do gry wasciwoci, ktre nie powtarzaj si   $ $ + $ + $ + $ + $ + $ +  'kx zapisywanie pliku Lp.; Nazwa czci;Liczba wystpie'  ; Folder pliku'kScriptiMyStringx oFile FileExists GetType_ swDocASSEMBLY GetComponents GetModelDoc2^ GetTitle- ReferencedConfiguration GetMaterialPropertyName2 ShowConfiguration Extension CreateMassPropertyoG Mass- GetPathName InStrRevĈ OptionButton2l@ OptionButton1k@ PropertiesUnicK CheckBox1 CreateTextFile WriteLine Hide9z CommandButton2_Click CommandButton3_ClickFA CommandButton4_ClickVy CommandButton5_Click Pomocl CommandButton6_Click Licencja OptionButton1_Clickc ForeColor Enabled۪ ValueK OptionButton2_Click/ UserFormN Label2, CommandButton1| CommandButton2} Frame2 CommandButton3~ CommandButton4 CommandButton5 Label6, Frame4 Frame5 Frame6 Label8, CommandButton6 Label9, Frame1 Label1, Label3, Label4, Click _B_var_LeftQ _B_var_IfP S "$&(*,. 15  Z  (8 .@H .*..0H .XLp    (8ng.FileSystemObject$t.p  p%.  B@    ; $; $'  ; $'k  B@ k  Lp.; Nazwa czci;Nazwa konfiguracji;Nazwa materiau; Masa [kg];Liczba wystpie' kScripting.FileSystemObject$t.p  p%.  B@   #  ; $; $; $; $; $'  B@ k B@B.p. RB@$Lista materiaw zostaa utworzona: z A@xFoX0gHo@ V'J J R(o 8 RB@*Przed uruchomieniem makra OTWRZ ZOENIE.A@xgk 8!'J J J\$ $'J J R(oX8 RB@ B@To( RB@ B@To  ( ( ( (o @ ( ( (oh ` Attribute VB_Name = "Formularz" " Bas0{E122D911-229E-4DE9-91D3-9E250AFC873D}{08C19FBD-2A21-4506-99BC-3E241776E4B2} dGlobalSpaco False Cr@eatablP redecedDIdTru BE`xpose0TemplateDerivCustomizDP Sub CommandButton1_Click() ' Dim swModel As Doc2 vpsVariant sw  SldWorks.onent swAssemxbly  i@, j, k I@ntegerNazwaKompu, M9%Llung n StatuB/Lo X      *      Tpx          ( 0 @ P `   T (@Xp .    >  0HPL     F h p     @ H LP        (   ( J0            0  P  p     D  " 0 *8 h   >    (8 @H *0H Xp    (8@  H:X  " "   "  4LHP  &X  .L $Rh H "   "   "  0 @P "X`p   Dim swModel As ModelDoc2]X]p]]]](]@]`]x]]]]]( !d'F !d''H<wywoanie funkcji sprawdzajcej istnienie folderu domylnegoA@n HFk !dListaMateriaw'%DOMYLNA NAZWA PLIKU TEKSTOWEGOk` F\ .txt']H]`]x'DScripting.FileSystemObject$t.p  p%  :W wybranej lokalizacji plik o podanej nazwie ju istnieje. z-Nadpisanie pliku tekstowego jest zablokowane. z z/PODAJ INN NAZW PLIKU LUB ZMIE FOLDER ZAPISU.A@xFk 8%Nie otwarto adnego pliku SolidWorks. zOTWRZ ZOENIE.A@xFk' 8!  8. %'~ ~  ~ $~. !.8 8 6Wszystkie czci musz mie status "W penej pamici". z zPo zamkniciu okna makra, klinij prawym przyciskiem myszy w najwyszy poziom drzewa operacji (nazwa zoenia) i wybierz "Zmie odcione do penej pamici".A@xFk 8!  8!' 8.Nazwa konfiguracji czci !'  %'M WANE: pokazuje odniesion konfiguracj w celu przechwycenia jej waciwoci  B@ !%.  +  +  + ! + 8!'J J J\$ $ +  'k  d 'Aktywny plik nie jest plikiem zoenia. z z1Otwrz plik zoenia lub kliknij przycisk Anuluj.A@xFkp7Znajdowanie powtarzajcych si komponentw: TYLKO nazwa     +     $ $ $ +8dodawanie kolejnego wystpienia +%4zerowanie pierwszej nazwy gdy komponent sie powtarzakk  k@Znajdowanie powtarzajcych si komponentw: nazwa i konfiguracja     +     $ $ $ $ $ +8dodawanie kolejnego wystpienia +%4zerowanie pierwszej nazwy gdy komponent sie powtarzakXkP  k(]!przedefiniowanie rozmiaru tablicy  ('Cprzesuwanie w tablicy do gry wasciwoci, ktre nie powtarzaj si   $ $ + $ + $ + $ + $ + $ +  'kx zapisywanie pliku Lp.; Nazwa czci;Liczba wystpie'  ; Folder pliku'kScripting.FileSystemObjt_F_ExIf$TheDa zoeni a)0 Bierz ""Z o`dcib ? |- Z5,<>*,u k7AG 1π P DimUnic() As Variant 'przedefinirozmiaru tablic`y Revkwy6 s uw do gry wasciwocktre jW OI+AKn"!vn MM@1)2233kқ5/ 5, !:k~ g P%AN`>z apisyliPku 2HMyString"Lp." & ";N@a c zCLiczdba"@ CheckBox7aH F Folder pD kSet FSOCreateObject("Scri@ng.FiHleSemc"'!o` .T(Name".WriteLine a*aj`o0=߅W Uc4d )HF iI+! %U$H $Jw$"&ko6pix&m0RuMasa [kg]7_a "O**{^''''+'# 8'|';iA;''rXSsS%\_S_(-_U_'Close NothK#2>#Fkmul.HDidMsgI !!sta %w zoa utworzona: %vbLfB1 100:cSub!Pri v`* Command2_C90|k(p=4?te ?37"PathP B0seR I %rW o n4FswModel Is _8bc1P uruchomaemkra OTWRZ ZOENIE.]3  .GetYLeft(Q, InS trRev"\")A@A1on5Pomoc.Showת6z4(Ieny$zjB. eCol=@ &HFF0 * 92<8!012 O.EnedFal5ValueQ`@.  } ο l Tru= (@1111< < (> <<8<@ <<8<@"B.Z.^`0% %@8R %` % %H @4 L8`@  V` @  Y % \(%@` `b`d n`@ -`p `r7@98@=00X@A`8x@D@F@J(@`088@HPHc*\R3*#1bf*\R3*#247*\R3*#1c6*\R3*#2b2$*\Rffff*2q641af8f6 ?    ( 8HPX` "h4p6   PB      ,0<` "P  0(L (b0H P  X B ` 8h *.  , * H 6X px  xx] D] D]D]D0] `] ] ]  N!".6 6!P.8 RB@ToXIFunkcja wymaga Tools>References "Microsoft Shell Controls and automation"8]] .X]#Wybierz folder do zapisu pliku TXT:'`\'b+mona poda pocztkowy folder przesukiwania]'d ` d b X%f.\ \ \Desktop USERPROFILE$h\Desktop'Vd \!j!l!J'Vkki2No need to set a reference if you use Late binding]p]scripting.filesystemobject$t.p F'r% If Right(FolderPath, 1) <> "\" Then# FolderPath = FolderPath & "\" End If r p%v'HkiH   2FOLDER ZAPISU LISTY MATERIAW NIE ZOSTA WYBRANY. z"(lub niepoprawnie wpisano ciek) z z9Wska folder zapisu za pomoc jednego z dwch przyciskw.A@xxAttribute VB_Name = "Zoenie_lista_materiaw1" Option Explici@t Pub swAppAs SldWorks. hModel 6 4!Doc25DiBmgFeat 1 # 2ure 0CustPropMgNr7 0omertyManagLermzap!2InteFilePathBng jeBoolean  Sub m ain()Set= a=.Acptive$~Formularz .ShowpEn d 'Funkcja wym aga T+s>References "Microsoft Shell Cont@rols a@auto@@BrowseF older4 qSHK32"A  A8= New  ACa, InitialCfDWybierz fB& do zapisu ku TXT:1K\" 'mona poda@cztkowyEprzesukiwania5BIF_RETURNONLYF SDIRS&LoR= &H1G2,SH.ESr6(0&, = C If NHot Isahing ThedSDesktxop"H: Environ("USERPROFILE") & "\cPElsdsa.Items.acKIf)U'L!&NTest_a er_ExpN'No need to s@*a rZ if you use L@ bind"CBRSO5ObjecABG/xaUF= Crec("scri!Tng.fsyso "b3ac = 勡' @3Right(, 1) <>`-?4 / 3[ '*!A?SO. 'sH )`=Fa`8AMsgBox "FOLDER ZAPISU LISTY MATERIAW NIE ZOSTA WYBRANY."DvbL:f_.e"(lpopraw wtano ciek)Wska %wza{moc jedneg dwch @{yciskw.'F= Tru[T(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H 0%@8xME(SLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H 0%@8   #  ; $; $; $; $; $'  B@ k B@B.p. RB@$Lista materiaw zostaa utworzona: z A@xFoX0gHo@ V'J J R(o 8 RB@*Przed uruchomieniem makra OTWRZ ZOENIE.A@xgk 8!'J J J\$ $'J J R(oX8 RB@ B@To( RB@ B@To  ( ( ( (o @ ( ( (oh k J#OTWRZ wczeniej zapisane ZOENIE.A@xA@g  Attribute VB_Name = "Formularz" " Bas0{0BF3BF0D-5856-4F75-B95E-6A29FF33FEE4}{CF4E32D0-12A4-4DEE-AB84-1500F71C68C4} dGlobalSpaco False Cr@eatablP redecedDIdTru BE`xpose0TemplateDerivCustomizDP Sub CommandButton1_Click() ' Dim swModel As Doc2 vpsVariant sw  SldWorks.onent swAssemxbly  i@, j, k I@ntegerNazwaKompu, M9%Llung n StatuB/Lo a zoeni a)0 Bierz ""Z o`dcib ? |- Z5,<>*,u k7AG 1π P DimUnic() As Variant 'przedefinirozmiaru tablic`y Revkwy6 s uw do gry wasciwocktre jW OI+AKn"!vn MM@1)2233kқ5/ 5, !:k~ g P%AN`>z apisyliPku 2HMyString"Lp." & ";N@a c zCLiczdba"@ CheckBox7aH F Folder pD kSet FSOCreateObject("Scri@ng.FiHleSemc"'!o` .T(Name".WriteLine a*aj`o0=߅W Uc4d )HF iI+! %U$H $Jw$"&ko6pix&m0RuMasa [kg]7_a "O**{^''''+'# 8'|';iA;''rXSsS%\_S_(-_U_'Close NothK#2>#Fkmul.HDidMsgI !!sta %w zoa utworzona: %vbLfB1 100:cSub!Pri v`* Command2_C90|k(p=4?te ?37"PathP B0seR I %rW o n4FswModel Is _8bc1P uruchomaemkra OTWRZ ZOENIE.]3  .G|etY "" $wczeҜj oa[_d_ Left(, InStrRev"\")ᕠAPO H 5w}Pomoc.Show56z-@Oen*j. eCol= &HFF0 9 2<8!012 " U.En@ed1Fal;Valuee  A} Կ bl TruB Pf$RHiHi8Hi aS  ZVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Formularz Caption = "Lista materiaw do pliku TXT ->*XNY@xMEh(1111< < (> "Bt.Z.^@0% %@8R8%` %x%H @4 L8`J  V`  X % \(%@` `b`d n` -`p `r7@98@=00X@A`8x@D@F@J(@`08HXe#*\R3*#1d4*\R3*#25c*\R3*#1db*\R3*#2c7$*\Rffff*3k65589e15 ?    ( 8HPX` "h4p6   PB      ,0<` "  ((0H P X B ` 8h *  , * H X p@H P`x] D] DzN]D@]D0] `] ] ]  N!".6 6!P.8 RB@ToXIFunkcja wymaga Tools>References "Microsoft Shell Controls and automation"8]] .X]#Wybierz folder do zapisu pliku TXT:'`\'b+mona poda pocztkowy folder przesukiwania]'d ` d b X%f.\ \ \Desktop USERPROFILE$h\Desktop'Vd \!j!l!J'Vkki2No need to set a reference if you use Late binding]p]scripting.filesystemobject$t.p F'r% If Right(FolderPath, 1) <> "\" The8cxAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2 = VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Formularz Caption = "Lista materiaw do pliku TXT -> TYLKO CZʌCI, bez struktury zoenia" ClientHeight = 6576 ClientLeft = 108 ClientTop = 456 ClientWidth = 6564 StartUpPosition = 1 'CenterOwner TypeInfoVer = 112 End osoft Forms 2.0 FrameEm Microsoft Forms 2.0 FormEmbedded Object9qr1Nazwa plik0(Nazwa NOWEGO pliku tekstowego:S{5Calibri8@H 'ListaMateriaBwat5CalibriH+.ZAPISZ LIST MATERIAAWpaSN @Calibri +ANULUJ NuCalibri +POMOC NuCalibri)@@@Wszystkie cz[ci w zBo|eniu musz mie status "W peBnej pamici"./z5Calibri( xCheckBox1ria ,  'p}:-O-R KQ n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qx1me.{(L+4Zapisz w FOLDERZE zBo|eniaruCalibri0+Zapisz w innym FOLDERZEruCalibri#HO*5Calibri(vPoni|ej wpisz [cie|k zapisu L pod wzgldem nazwy oraz konfiguracji. Zapisywane s: - Nazwa pliku cz[ci, - Nazwa konfiguracji, - Nazwa materiaBu, - Masa [kg], - Liczba wystpieD. 2. Grupowanie cz[ci tylko pod wzpTahoma c(2PLabel2-"$XTextBox2!,o! CompObjpo+Pf$Ro|i25#4@ n``b]-`/_>b-Pomocrm2  8"PVIY`%"*CompObj?(ao2=CompObjpfmi04 n``aJy)`%"*n# FolderPath = FolderPath & "\" End If r p%v   2FOLDER ZAPISU LISTY MATERIAW NIE ZOSTA WYBRANY. z"(lub niepoprawnie wpisano ciek) z z9Wska folder zapisu za pomoc jednego z dwch przyciskw.A@x'HkiAttribute VB_Name = "Zoenie_lista_materiaw1" Option Explici@t Pub swAppAs SldWorks. hModel 6 4!Doc25DiBmgFeat 1 # 2ure 0CustPropMgNr7 0omertyManagLermzap!2InteFilePathBng jeBoolean  Sub m ain()Set= a=.Acptive$~Formularz .ShowpEn d 'Funkcja wym aga T+s>References "Microsoft Shell Cont@rols a@auto@@BrowseF older4 qSHK32"A  A8= New  ACa, InitialCfDWybierz fB& do zapisu ku TXT:1K\" 'mona poda@cztkowyEprzesukiwania5BIF_RETURNONLYF SDIRS&LoR= &H1G2,SH.ESr6(0&, = C If NHot IsahingVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Licencja Caption = "Licencja" ClientHeight = 5640 ClientLeft = 108 ClientTop = 456 ClientWidth = 4284 StartUpPosition = 1 'CenterOwne n``Microsoft Forms 2.0 FrameEm n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q EXCELU:(Otwieranie pliku w EXCELU:I5TahomaR KQ(H  }"R KQ0Tahoma0ho(2 Label2r TypeInfoVer = 7 End d na bezpBatne Microsoft Forms 2.0 FormEmbedded Object9q nieusuwania z ((Wyra|am zgod na bezpBatne u|ytkowanie i modyfikacj makra, pod warunkiem nieusuwania z pierwszej strony makra imienia i nazwiska Autora.quTahoma,(Jerzy DomaDski @Tahoma,(Wr do makras; OuTahoma\(LMakro powstaBo w celach edukacyjnych i byBo wielokrotnie testowane. VBFramef:o),i02'. n``ĠY`%"*CompObjpfo-/tCompObjpUB kliknij jeden z przyciskw5{5Calibriy oraz konfiguraD  ' }+ Folder zapisurR KQCalibrit,lCommandButton4e,PCommandButton3S$&<TextBox1i('2Label9  n``Microsoft Forms 2.0 FrameEmMo|e jednak nie dziaBa prawidBowo, gdy zablokowany bdzie dostp do plikw komponentw zBo|enia (np. ustawienia PDM, ograniczenia antywirusa itp.) U|ytkownik makra mo|e je stosowa wyBcznie na wBasn odpowiedzialno[.I5Calibri$(WNT, UWM w Olsztbedded ObjectForms.Frame.19q`k(l*XAutor makra: Jerzy DomaDski, WNT UWM Olsztyn"{5 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qt materT(BMakro zapisuje list materiaBw (tylko cz[ci) w dwch wersjach: 1. Grupowanie cz[ci ThedSDesktxop"H: Environ("USERPROFILE") & "\cPElsdsa.Items.acKIf)U'L!&NTest_a er_ExpN'No need to s@*a rZ if you use L@ bind"CBRSO5ObjecABG/xaUF= Crec("scri!Tng.fsyso "b3ac = 勡' @3Right(, 1) <>`-?4 / 3[ '*!A?SO. 'sH )`=Fa`8AMsgBox "FOLDER ZAPISU LISTY MATERIAW NIE ZOSTA WYBRANY."DvbL:f_.e"(lpopraw wtano ciek)Wska %wza{moc jedneg dwch @{yciskw.'F= Tru[T[ciCalibriTahoma +POMOC #,J  $}+`(#2Label8G,$<CommandButton6!Gj pamici"./z5 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qKQpgldem nazwy cz[ci. Zapisywane s: - Nazwa pliku cz[ci, - LSLSS<N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}H 0%@88Xe#xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-iczba wystpieD, - Folder zapisu cz[ci (po zaznaczeniu opcji).xFPr1abeNazwa pliku i nazwa konfiguracji cz[ci 5CalibriLF$9r0.Nazwa pliku cz[ci5CalibriTG,(r0ramZapisz folder cz[ci7 @Calibrir11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2i).JPr1aliNazwa plikji cz[ci CalibriLF$9rbwa pliku cz[ci5CalibriTG,(r0extZapisz folder cz[ci7 @Calibrir0Tahoma0ho(2tLabel1G Caption = "POMOC" ClientHeight = 5292 ClientLeft = 108 ClientTop = 456 ClientWidth = 10968 StartUpPosition = 1 'CenterOwner TypeInfoVer = 5 End ClientTop = 456 Clien Microsoft Forms 2.0 FormEmb  OptionButton1r5Yw #\  (!}+ Zliczanie cz[ci wg:R KQCalibrit, OptionButton1r$#Frame4,q, lOptionButton2ie( xCheckBox1me.VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Pomoc %5TahomaKQ(H  }&R KQ0Tahoma0ho(2tLabel1G Caption = "POMOC" ClientHeight = 5292 ClientLeft = 108 ClientTop = 456 ClientWidth = 10968 StartUpPosition = 1 'CenterOwner TypeInfoVer = 5 End ClientTop = 456 Clien Microsoft Forms 2.0 FormEmb  OptionButton1r, lOpxedded Object9q Bas0{801A2004-A66C-11D0*Wr do makratwOuTahoma9qDerivBustomizD2X  }Kw$o,PCommandButton1? $#Frame1$#Frame2(,ZREDNIK. Makro nie uwzgldnia mo|liwo[ci wystpowania r|nych materiaBw przyporzdkowanych do bryB w cz[ci wieloobiektowej. W danej konfiguracji cz[ci wszystkie obiekty musz mie ten sam materiaB. Ka|da z konfiguracji mo|e mie inny materiaB.!26r( xCheckBox1iboma &I''edded Object9q Bas0{801A2004-A66C-11D0*Wr do makratwOuTahoma9qDerivBustomizD2X  }Kw$o,PCommandButton1? $#Frame1$#Frame2(,    o>ACompObjpControl_Data_CurVer(E$ Control List Data$#(ynieuTahomadButton1CE"(  }&,(2HLabel1(2TLabel2 ,LCommandButton1E"(2|Label3](2DLabel4; wy[wietlenia polskich zw. 4. Ograniczniki: ZREDNIK n``Microsoft Forms 2.0 FrameEmynieuTahomadButton1CE"(  }&,(2HLabel1(2TLabel2 ,LCommandButton1E"(2|Label3](2DLabel4; wy[wietlenia polskich zw. 4. Ograniczniki: ZREDNIK n``Microsoft Forms 2.0 FrameEm