аЯрЁБс>ўџ  ўџџџ0`^]OE&dUлŸЉqџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ &ž&яа €Bapcџџџџџџџџ ѕcтк!Ы &ž&яаThe VBA Project џџџџџџџџ ѕcтк!Ы &ž&яа_VBA_Projectџџџџџџџџ ѕcтк!Ыџ&яа §џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџј+џџџџџџџџ4џџџџџџџџ=џџџџџџџџ§џџџџџџџ%џџџџЄZџџџџџџџџџџџџџџџџ@џџџџKNџџџџ3[§џџџS,.Ёџџџџџџџџџџџџџ78ёџџџџYўџџџџN§џџџџˆ§џџџ§џџџDЩ§џџџ5эџџџџўџџџ;­џџџџџџџџ (џџџџ"џџџџ*џџџџџџџџXџџџџ§џџџёџџџџ\LGЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџpљм’(яа€Bapcџџџџџџџџ ѕcтк!Ыpљм’(яаThe VBA Project џџџџџџџџ ѕcтк!Ыpљм’(яа_VBA_Projectџџџџџџџџ ѕcтк!Ыpљм’(яаџџџџџџџџ§џџџaџџџџџџџџ!џџџџџџџџ§џџџџџџџ<6џџџџ3§џџџџџџџSџџџџџџџџџџџџf@ПJџџџџ§џџџџџџџ[џџџџџџџџџџџџџџџџџџџџџџџџ5§џџџџQ7џџџџё"9џџџџMNeGџџџџџџџџџџџџIЩџџџџџџџџџџџџ§џџџўџџџ;­2 џџџџџџџџ(џџџџ§џџџHTXW§џџџёф\џџџџџџџџЁ§џџџ§џџџR§џџџb_/§џџџHghѓjЅlmnopqrstuvwxyz{|}~€VBA Project Data"џџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџ ѕcтк!ЫP:к’(яаVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ"ўџџџ # !1к$%&ўџџџ()*+,-./0л2Ю456789:;<=>?@ABCDEFGHI\KўџџџMNўџџџPQRSўџџџUўџџџWXYўџџџ[№]^_`abўџџџdefgфijklmnopvrўџџџtu~wxyz{|}€‚ƒ„†‡ˆ‰Š‹Œ•Žўџџџ’“”ш–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАпВГДоЖЗИЙКЛМНОПРСТвФХЦЧШЩЪўџџџЬЭЮЯабвгдежзийъўџџџмнўџџџўџџџрстфўџџџхцчшщHыьэюя№ёђєѕіїјўџџџњўџџџќ§ўџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}И<ТxC:\Users\Public\Documents\Autode+Щ'ŽdŠ/$œ93D82F2A9F3}" Module=Module1 PacID="{A387C575-BDD6-4EFD-B75E-593D82F2A9F3}" Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Class=clsSelecџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџsk\Inventor 2015\Default.ivbЬt 928, C CreatePartsListWithThumbnail=200, 200, 1323, 878, C a_PDF_EXPORT=250, 250, 1373, 928, C TEST=125, 125, 1285, 698, C Print_Macro=200, 200, 1614, 805, C iLogic_start=225, 225, 1639, 830, , erForm1clsSelectclsSelectfrmVUserForm1UserForm1clsSelectclsSelectfrmVVBA Project Data"џџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџ ѕcтк!ЫUš&яаVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ"ўџџџ # !1к$%&ўџџџ()*+,-./0л2Ю456789:;<=>?@ABCDEFGHI\KўџџџMNўџџџPQRSўџџџUўџџџWXYўџџџ[№]^_`abўџџџdefgфijklmnopvrўџџџtu~wxyz{|}€дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџж\@@@~x_PDF_EXPORTa_PDF_EXPORTTESTTESTPrint_MacroPrint_MacroiLogic_startiLogic_start@ЁБ*с*6@A+‘+,Q,eate the placement point for the table]ѕ˜№З333333§?З333‚ƒ„†‡ˆ‰Š‹Œ•Žўџџџ’“”ш–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАпВГДўџџџЖЗИЙКЛМНОПРСТвФХЦЧШЩЪўџџџЬЭЮЯабвгдежзийъўџџџмнўџџџўџџџрстфўџџџхцчшщHыьэюя№ёђєѕіїјўџџџњўџџџќ§ўџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}И<ТxC:\Users\Public\Documents\Autode+Щ'ŽdŠ/$œ93D82F2A9F3}" Module=Module1 PacID="{A387C575-BDD6-4EFD-B75E-593D82F2A9F3}" Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Class=clsSelec1џџџџџџџџ џџџџџџџџџџџџ  џџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ !"#$%&'()*+,-./012DџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџEwџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX џџџџџџџџЬ]I_Рџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxyz{|…џџџџџџџџџџџџProject_Data_CurVer(џџџџ џџџџу Host Project Item List Data8џџџџџџџџџџџџоVBAџџџџ r ѕcтк!ЫРШЈсь_аPROJECTwmџџџџџџџџџџџџ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџsk\Inventor 2015\Default.ivbЬt28, C CreatePartsListWithThumbnail=200, 200, 1323, 878, C a_PDF_EXPORT=250, 250, 1373, 928, C TEST=125, 125, 1285, 698, C Print_Macro=200, 200, 1614, 805, C iLogic_start=225, 225, 1639, 830, Z , erForm1clsSelectclsSelectfrmVUserForm1UserForm1clsSelectclsSelectfrmVPROJECTlk\ џџџџCreatePartsListWithThumbnail:џџџџџџџџџџџџнxUserForm2џџџџџџџџџџџџXа GENERALџџџџџџџџџџџџТоPROJECTџџџџџџџџџџџџˆa_PDF_EXPORTџџџџџџџџџџџџAUserForm1&џџџџѓ frmStartWindow+џџџџиЂдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџж\@@@~x_PDF_EXPORTa_PDF_EXPORTTESTTESTPrint_MacroPrint_MacroiLogic_startiLogic_start@ЁБ*с*6@A+‘+,Q,eate the placement point for the table]ѕ˜№З333333§?З333fџџџџџџџџџџџџOoˆ‹џџџџLИfrmIProp 8№i*ЦмЮž˜ЊWJO€.Nv‡ЧЭPz]“дЭCompObjџџџџџџџџџџџџJpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPЃЄ!ІЇ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђiџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1џџџџѓџџџџџџџџџџџџ Ѕџџџџџџџџџџџџџџџџџџџџўџџџ3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ456789:;<=>?@ABCFџџџџџџџџGHIJKLMNOPўџџџRSTUVYXZ`Ь]I_‰aўџџџcdefghijklmnopqrstuv}џџџџџџџџџџџџџџџџџџџџџџџџ~ўџџџfrmIProp2ockџџџџџџџџ`№i*ЦмЮž˜ЊWJOр‚аiУЭ@јъSˆЧЭfџџџџ^џџџџ 7oџџџџџџџџџџџџ,\CompObjigџџџџ*nProject_Data_CurVer(џџџџ џџџџу Host Project Item List Data8џџџџџџџџџџџџоVBAџџџџ r ѕcтк!ЫРШЈсь_аPROJECTwmџџџџџџџџџџџџ't BaseClass=frmVisible Class=clsSelect1 BaseClass=frmCalendar Module=GENERAL Module=a_DXF_EXPORT BaseClass=frmIProp Module=a_IDW_PRINT_ALL Module=waterjet Module=change_draw_prop Module=c_GenFunc Module=b_GenModul BaseClass=frmStartWindow Module=StartWindow BaseClass=UserForm2 Module=CreatePartsListWithThumbnail Module=a_PDF_EXPORT Module=TEST Module=Print_Macro Module=iLogic_start Name="ApplicationProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0B0928A5B5A9B5A9B5A9B5A‚ƒ„…†‡ˆ‰Š‹ŒŽž‘’“”ўџџџ–ўџџџ˜šВўџџџœБŸўџџџЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАГўџџџЕДФЖЗИЙКЛМНОПРСТУЦХўџџџЧШЩЪЫЬЭЮЯабдгиежзўџџџлкўџџџмнИџџџџџџџџџџџџџџџџџџџџџџџџхцчшщъџьэюя№ёўџџџѓєѕіїјљњћўџџџ§ўўџџџPROJECTlk\ џџџџCreatePartsListWithThumbnail:џџџџџџџџџџџџжxUserForm2џџџџџџџџџџџџXа GENERALџџџџџџџџџџџџоrU@@@@~~~~nџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ9" DPB="9496B730C9B8CAB8CAB8" GC="1D1F3ECB4E554F554FAA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] UserForm1=225, 225, 1348, 903, C, 50, 50, 1042, 503, C clsSelect=350, 350, 1161, 1083, C frmVisible=0, 0, 0, 0, C, 300, 300, 892, 1017, C clsSelect1=0, 0, 811, 733, C frmCalendar=250, 250, 1640, 907, C, 225, 225, 1323, 958, C GENERAL=200, 200, 1348, 863, a_DXF_EXPORT=225, 225, 1373, 888, frmIProp=0, 0, 1066, 517, C, 225, 225, 1291, 742, C a_IDW_PRINT_ALL=0, 0, 993, 470, C waterjet=200, 200, 1348, 863, C change_draw_prop=200, 200, 1323, 889, C c_GenFunc=724, 0, 1448, 481, Z b_GenModul=724, 481, 1448, 962, C frmStartWindow=0, 0, 724, 1003, C, 724, 0, 1448, 1003, C StartWindow=75, 75, 1198, 753, C UserForm2=275, 275, 1398, 953, C, 250, 250, 1373,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџisiblefrmVisibleclsSelect1clsSelect1frmCalendarfrmCalendarGENERALGENERALa_DXF_EXPORTa_DXF_EXPORTfrmIPropfrmIPropa_IDW_PRINT_ALLa_IDW_PRINT_ALLwaterjetwaterjetchange_draw_propchange_draw_propc_GenFuncc_GenFuncb_GenModulb_GenModulfrmStartWindowfrmStartWindowStartWindowStartWindowUserForm2UserForm2CreatePartsListWithThumbnailCreatePartsListWithThumbnailaџџџџџџџџџџџџџџoBOMRowslevel DWGFileNameFileNameRuMЗ€0* pH‚dфApplicationProjeˆctT@ j = ‚ 4_ИW-” J< 9€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE рAutomh0€MSFo@rms>SFFrmHs3€ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#MicrosPooџџџџ tCompObjџџџџџџџџ nVBFrameџџџџџџџџџџџџhfџџџџџџџџџџџџ5333@ 2!"%$.2]ЌЌѕИ]ЌЌ ѕјЙa Ќ+&Йb Ќ+& dЌЌ ’џџЙ d+(Ъу5 Create the table by specifying the source Excel fi,@@џџleуP This assumes that the first row in the Excel sheet specifies the column headersуT You can specify a different row using the last argument of the AddExcelTable methodџџ˜]ѕ8№Й REF-Table 2ЌЌ & ( !.%œ.*]fџџџџџџџџџџџџUZobџџџџўџџџCompObjџџџџџџџџSaVBFrameџџџџџџџџџџџџM#fџџџџџџџџџџџџsІo46џџџџgќCompObjџџџџ7џџџџenVBFrameџџџџџџџџџџџџ`&џџ<џџџџ˜р ўџџџџ`џџџџџџџџџџџџ4џ@џџџџџџџџџџ„џџџџџџџџџџџџџџџџ@ƒўџџџџџџˆџџџџџџџџџџџџџџ%џџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,Žalђ(Š/, †‚&ШРD2ƒUnload< MР­!ХƒЩ‘Sub btnOK_ђC€Œџџџџџџџџџџџџџџ0џџџџџџџџ Шџџџџˆlџџџ џџ   0 ќЦ8 PROJECTџџџџџџџџџџџџ†a_PDF_EXPORT,yџџџџQAUserForm1џџџџ:џџџџ6 frmStartWindow џџџџ%Ђўџџџ     џџџџ0џџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;<>?A@ŽBCJџџџџџџџџџџџџџџџџ#ЮKLўџџџџџџџTЂџџџџџџџџSUXVfџџџџY\џџџџџџџџ`џџџџџџџџџџџџa$џџџџџџџџџџџџџџџџkџџџџџџџџџџџџџџџџ„џџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfџџџџџџџџџџџџOoˆ‹џџџџLИfrmIProp 8№i*ЦмЮž˜ЊWJO€.Nv‡ЧЭPz]“дЭCompObjџџџџџџџџџџџџJpџџџџџџџџџџџџўџџџ9џџџџџџџџџџџџўџџџџџџџџџџџџџџџўџџџљfџџџџџџџџџџџџbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPЃЄ!ІЇfџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfrmIProp2ockџџџџџџџџ`№i*ЦмЮž˜ЊWJOр‚аiУЭ@јъSˆЧЭfџџџџ^џџџџ 7oџџџџџџџџџџџџ,\CompObjigџџџџ*nt BaseClass=frmVisible Class=clsSelect1 BaseClass=frmCalendar Module=GENERAL Module=a_DXF_EXPORT BaseClass=frmIProp Module=a_IDW_PRINT_ALL Module=waterjet Module=change_draw_prop Module=c_GenFunc Module=b_GenModul BaseClass=frmStartWindow Module=StartWindow BaseClass=UserForm2 Module=CreatePartsListWithThumbnail Module=a_PDF_EXPORT Module=TEST Module=Print_Macro Module=iLogic_start Name="ApplicationProject" HelpContextID="0" VersionCompatible32="393222000" CMG="8486A7D659515D515D515D5rU@@@@~~~~nџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ15D" DPB="0301205B9E5C9E5C9E" GC="8280A1DC21DD21DDDE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] UserForm1=225, 225, 1348, 903, C, 50, 50, 1042, 503, C clsSelect=350, 350, 1161, 1083, C frmVisible=0, 0, 0, 0, C, 300, 300, 892, 1017, C clsSelect1=0, 0, 811, 733, C frmCalendar=250, 250, 1640, 907, C, 225, 225, 1323,bMР>l‰#„jteS€Žalђ(Š/, †‚&ШРD2ƒUnload< MР­!ХƒЩ‘Sub btnOK_ђC€Œk(ФL@  ?nыŠ-;AcmиdClРg SGT`Fx0, A| “ˆBasˆ0,-0673-4CC1-9846-E7A6D04EA6CD}{4A20DFFE-5F25-40@7FџџџџџџbFalse ŠCr@eatablP€redecl`ќџџџџџџџџџџџџџџџџџџџ^бb 8ў€g—ФјџџџgNпZйаџџџ VТШџџџžШџџџйАџџџVТшџџџОШџ 958, C GENERAL=200, 200, 1348, 863, a_DXF_EXPORT=225, 225, 1373, 888, frmIProp=0, 0, 1066, 517, C, 225, 225, 1291, 742, C a_IDW_PRINT_ALL=0, 0, 993, 470, C waterjet=200, 200, 1348, 863, C change_draw_prop=200, 200, 1323, 889, C c_GenFunc=724, 0, 1448, 481, Z b_GenModul=724, 481, 1448, 962, C frmStartWindow=0, 0, 724, 1003, C, 724, 0, 1448, 1003, C StartWindow=75, 75, 1198, 753, C UserForm2=275, 275, 1398, 953, C, 250, 250, 1373, 9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPrint_Macro(,џџџџ €,iLogic_start ?џџџџ–__SRP_6u•џџџџЕLfџџџџ|џџџџNЫ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘“џџџџ”•ўџџџ—˜™š›œžŸўџџџЁЂЃЄЅІЇЈЊ§џџџЋЌ­ЎЏАБВГДЕЖЗўџџџЙКЛМНОт[СвУФХЦЧШЩЪЫЬЭЮЯабўџџџ˜дДжзийПм§џџџопрсфу\хцчшщъыьўџџџџџџџџџџџЂђўџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBFrameџџџџџџџџџџџџY*џџџџџџџџџџџџўџџџl#џџџџџџџџџџџџўџџџіџџџџџџџџџџџџўџџџE1frmCalendarџџџџџџџџџџџџТј frmIProp–*џџџџН‘waterjetџџџџџџџџџџџџВДa_DXF_EXPORT%yџџџџдXi139 џџџџџџџџ’ n`єЮ›ЭЊ`ŽmЂђэЧЭ@S]“дЭi78{Ž‰ n`єЮ›ЭЊ`ŽUNv‡ЧЭ0,]“дЭi85џџџџ† n`єЮ›ЭЊ`ŽUNv‡ЧЭ@S]“дЭi114 џџџџџџџџƒ n`єЮ›ЭЊ`ŽUNv‡ЧЭ@S]“дЭisiblefrmVisibleclsSelect1clsSelect1frmCalendarfrmCalendarGENERALGENERALa_DXF_EXPORTa_DXF_EXPORTfrmIPropfrmIPropa_IDW_PRINT_ALLa_IDW_PRINT_ALLwaterjetwaterjetchange_draw_propchange_draw_propc_GenFuncc_GenFuncb_GenModulb_GenModulfrmStartWindowfrmStartWindowStartWindowStartWindowUserForm2UserForm2CreatePartsListWithThumboџџџџџџџџџџџџйдCompObjŒ~џџџџзnVBFrameџџџџџџџџџџџџв*fџџџџџџџџџџџџ Сa_IDW_PRINT_ALL џџџџџџџџx`7change_draw_prop"џџџџ9џџџџ-dUserForm1ŠЎ0–ЫФЭњБBЙЭc_GenFuncџџџџџџџџџџџџѕгi128 }€ n`єЮ›ЭЊ`ŽUNv‡ЧЭ@S]“дЭfџџџџџџџџџџџџ›Хo‘“џџџџ—œCompObjџџџџџџџџџџџџ•pnailCreatePartsListWithThumbnailaџџџџџџџџџџoBOMRowslevel DWGFileNameFileNameRuleNaMЗ€0* pH‚dфApplicationProjeˆctT@ j = ‚ 4_ИW-” J< 9€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE рAutomh0€MSFo@rms>SFFrmHs3€ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#MicrosPo__SRP_7џџџџџџџџџџџџБw__SRP_8”—џџџџЫ~ __SRP_9џџџџџџџџџџџџУњ__SRP_16™џџџџђpS бS "a  Z  Z ‘ "a  S^1Фў/ЌўeѕФўMHџ@lџ 0 ѕѕџџџџѕ,яXџ:ќў2ћя џ§ўˆўlџ§ўЌўlФў 3FŒўќіxў2Ќўˆў6Xџlџ џxўќFlџ% џ,K5lџ-lџ§oHџ%lџ§oќў%lџ§oмў%l џ§ohў%0џў  0DcHџ%$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џfџџџџџџџџџџџџ–гoDFџџџџ“ЌCompObjџџџџџџџџџџџџ‘nVBFrameEџџџџџџџџ…*TEST H;џџџџ…EfrmCalendar3ЅG№i*ЦмЮž˜ЊWJOа~ШcКiЭ Œ™lЧЭfrmTitleBlockџџџџџџџџO№i*ЦмЮž˜ЊWJO№§hКiЭ0NHsyУЭ_VBA_PROJECTџџџџџџџџџџџџkS333@ 2!"%$.2]ЌЌѕИ]ЌЌ ѕјЙa Ќ+&Йb Ќ+& dЌЌ ’џџЙ d+(Ъу5 Create the table by specifying the source Excel fi,@@џџleуP This assumes that the first row in the Excel sheet specifies the column headersуT You can specify a different row using the last argument of the AddExcelTable methodџџ˜]ѕ8№Й REF-Table 2ЌЌ & ( !.%œ.*]џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџу\џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџї§џџџџџџџџџџџўџџџџџџџ§џџџѕ§џџџHљњєCџџџџH‚ƒ„…†‡ˆ‰Š‹ŒŽ‘џџџџ’“”•–ўџџџ˜™š›œžŸ ЁЂўџџџЄЇџџџџџџџџЈЉЊЋЌ­ЎЏАБВўџџџџџџџЕИџџџџџџџџЙКЛФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџХЦЧШЩЭџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџхцчшщъыьэюяіџџџџџџџџџџџџџџџџџџџџџџџџїјќџџџџџџџџџџџџ§џџџџџџџџo!џџџџћi21џџџџ#1 n`єЮ›ЭЊ`ŽpК€TЉPЭUi+‘Эi26џџџџџџџџ. n`єЮ›ЭЊ`ŽpК€TЉPЭ|i+‘ЭCompObj"$џџџџљnЖ KWiK-ObroundЖSettingsЖLeftЖ100$Ф Р(мoџџHџџџџ@џџџџфБAttribute VB_Name = "Obround" Option Explicit Pub, SHub œ(). Dim oDo c As um enf2Sketch8Planar kPartObject And ј_ X†kID""{28EC8354-9024-440F-A8A2-0E0E55D635B0}"€Ren {MsgBox "Must b e in F doc‚€ГExi–t­EPIfƒƒ‚„Ѓ†EditGƒpƒ‰Err•IUST BE IN ACTIVE SKETCH TРO RUN!о&Уfrmƒ.Shoˆw Top•Get/ting€("KWiK-Ф а", "sС@ a200"€•ˆLИeftш 1™SРw fџџџџAџџџџ‚“oџџџџџџџџџџџџ!CompObjXCџџџџnVBFrameџџџџџџџџџџџџ /oKMџџџџјCompObjџџџџџџџџџџџџіpfџџџџџџџџџџџџё i72@WT n`єЮ›ЭЊ`Ž€iI‡@wЭаНzsУЭVBFrameџџџџџџџџџџџџѓQfrmVisiblexџџџџ7nvb_GenModul:'џџџџ)JclsSelect1џџџџџџџџџџџџ,clsSelect˜џџџџfrmObround= №i*ЦмЮž˜ЊWJOpК€TЉPЭ|i+‘Эfrmrecholepattern$џџџџџџџџ№i*ЦмЮž˜ЊWJOАП=ŸБPЭ`W*ŸДPЭfџџџџџџџџџџџџ clsSelectџџџџџџџџџџџџ—frmObround= №i*ЦмЮž˜ЊWJOpК€TЉPЭ|i+‘Эfrmrecholepattern$џџџџџџџџ№i*ЦмЮž˜ЊWJOАП=ŸБPЭ`W*ŸДPЭfџџџџџџџџџџџџ __SRP_17џџџџџџџџы__SRP_14)šџџџџhœ__SRP_15џџџџџџџџџџџџc џџџџџџџџџџџџўџџџ __SRP_17џџџџџџџџџџџџы__SRP_14)šџџџџhœ__SRP_15џџџџџџџџџџџџc џџџџџџџџџџџџўџџџ a_IDW_PRINT_ALL џџџџџџџџџџџџф`7change_draw_prop"9џџџџДdUserForm1ŠЎ0–ЫФЭњБBЙЭc_GenFunc˜џџџџЃЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,ўџџџ.0џџџџ13џџџџ49џџџџџџџџџџџџџџџџ:VџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџWX[џџџџџџџџ\ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџi114 џџџџџџџџZ n`єЮ›ЭЊ`Ž0ПВrАЭрфzsУЭfџџџџџџџџџџџџAoY[џџџџ˜CompObjџџџџџџџџџџџџpStartWindowџџџџџџџџџџџџ fџџџџџџџџџџџџ2Еo-/џџџџ/œCompObjџџџџџџџџџџџџ-pўџџџƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜ўџџџšўџџџœžŸ ЁўџџџЃЄЅІЇўџџџЉўџџџЋЌ­ўџџџЏАБўџџџГДЕЖЗКЙўџџџЛМНОПРСўџџџУФХЦЧШЩЪЫЬЭаЯќбгдежўџџџиўџџџклмнопрстуфхцчшщъыьэюяёўџџџѓўџџџѕіїјљњўџџџќ§ўџi78]fp n`єЮ›ЭЊ`Žр‚аiУЭpќшSˆЧЭi85џџџџџџџџm n`єЮ›ЭЊ`Ž№8‚аiУЭ€#щSˆЧЭi02џџџџd n`єЮ›ЭЊ`ŽvЭцAЙЭњБBЙЭfџџџџџџџџџџџџ\ўџџџўџџџ   ўџџџ ўџџџK !"#$6&'()ўџџџ+ўџџџ-./012345a789:;<=>?@ABCDEFGHIJўџџџLMOP™QRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|}~€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТџџџџ%џџџџ"#$&Ѕџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ‚ƒ„…†‡ˆ‰Šўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ƒ„…†‡ˆ‰Š‹ŒŽž‘’“”ўџџџ–ўџџџ˜šВўџџџœБŸўџџџЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАГўџџџЕДФЖЗИЙКЛМНОПРСТУЦХўџџџЧШЩЪЫЬЭЮЯабдгиежзўџџџлкўџџџмнИпрстухцчшщъџьэюя№ёўџџџѓєѕіїјљњћўџџџ§ўўџџџoceџџџџ[8CompObjџџџџџџџџџџџџYpi114 a_j n`єЮ›ЭЊ`Ž№8‚аiУЭ€#щSˆЧЭVBFrameџџџџџџџџџџџџ%+__SRP_7џџџџџџџџџџџџБЮ__SRP_8”—џџџџЫ~ __SRP_9џџџџџџџџџџџџУњ__SRP_16™џџџџђpTEST H;џџџџ…EfrmCalendar3ЅG№i*ЦмЮž˜ЊWJOа~ШcКiЭ Œ™lЧЭfrmTitleBlockџџџџџџџџO№i*ЦмЮž˜ЊWJO№§hКiЭ0NHsyУЭ_VBA_PROJECTџџџџџџџџџџџџ mRџџџџџџџџџџџџўџџџьџџџџџџџџџџџџўџџџдџџџџџџџџџџџџўџџџŒџџџџџџџџџџџџўџџџ№fџџџџџџџџџџџџЂAi128 џџџџџџџџJ n`єЮ›ЭЊ`Ž@•aСjУЭ@јъSˆЧЭohkџџџџ›˜CompObjџџџџџџџџџџџџ™p‚ƒ„…†ёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭт^џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџстуфцџџџџЦџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџђѓєўџџџіїјљџџџџџџџџџџџџџџџџџџџџџџџџ     ўџџџˆ §џџџ§џџџКЦ !"#$%&'(ўџџџ*+,-./0123456ўџџџ89:;<=?џџџџ@ABCDEFGHIJKLMNOPQRSTUVW]џџџџџџџџџџџџџџџџџџџџ^_`abcdhџџџџџџџџџџџџijklmnpџџџџqrstvџџџџwxyz{}џџџџ~ўџџџ€ўџџџўџџџ    ўџџџўџџџўџџџўџџџ$%"#:ўџџџВ'ўџџџ)*ўџџџ,-./ўџџџ1ўџџџ345ўџџџ789ўџџџ;<=>?@ABCDEFGHIJKLNOWPQRўџџџTўџџџVўџџџX_Zўџџџўџџџ]^ўџџџ`abcdefghijklmnopqrstuvwxyz{|}~€џџџџџџџџџџџџџџџџџџџџŠџџџџџџџџџџџџџџџџ‹Ўџџџџџџџџр§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ™šгџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЏАБўџџџГДЕЖЗИЙКЛМўџџџОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеоџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпрстуфхцчшщъыьэюя№ёђѓєѕіїјљњћќ§ўџўџџџ ўџџџ ўџџџ ўџџџўџџџ !"9$ўџџџ&'(ўџџџ*+,ўџџџ.ўџџџ01ўџџџ34ўџџџ678:;<?=>@AўџџџBCDEFGўџџџIJKLMNOPQRSTUVWўџџџYZ[\]^_~abcdўџџџfўџџџhijklmnopqrўџџџtuvwxyz{|}ўџџџ€Т‚ƒ„Š†‡ˆ‰ўџџџ‹Œ Žš’ўџџџ”•ўџџџ—˜™ўџџџ›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСйУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчщъыўџџџэўџџџя№ўџџџђѓєѕўџџџїўџџџљњћќ§ўўџџџ__SRP_4џџџџџџџџџџџџбm__SRP_5sџџџџџџџџЧ™__SRP_0<wџџџџRŽ"__SRP_1џџџџџџџџџџџџдџџџџcџџџџџџџџ…™џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџš›œž§џџџ §џџџЃжПЉџџџџІЇИџџџџ­џџџџџџџџџџџџЏџџџџўџџџџџџџ:џџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЩцСТУФХехШЫЪўџџџЬЭЮЯаОвгдоўџџџOџџџџџџџџџџџџџџџџџџџџџџџџџџџџпрсеуWVЁчшБџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџ3\fџџџџџџџџџџџџЎхoIVџџџџЊєfџџџџџџџџџџџџџAft ‚: €^ ObЎ Libr@ary/;D1?€„uˆˆ00h}#0‚#€04Ѕ€‡€ 562199F9-3CAA-4ED3-8AE7-37518CF922DQUsers\AGIDRA~1\Data\Local\Te€mp\VBE\ФLp.exd`4@"€с.E р….`ŒM Д РС”ADODB> ADTOРB€‚™РРA12A€+96C-D9EB-4129-B803-931327F7а2D5CС_8ƒ‚Ќgram Files\Commo nSB‡\adoШ\ms@28Т‡ЧeActiveX ыС=„fs€i8Хg@$€AC.ExcelC.EPxc€Аl@.šРA.@k208Ь13pБ1.R.G%Office 1€5\Root\ƒ@EXCEL.EœXEШaB%€ .0Œ–‹€$@Т|т–4Тpa_PDF_EXPORTGрa_ŠP`1FрEX`€ORTюŠ2њ` HЂj1Т‚ [",QтLl!"+Ђœ рQСd1G"’ЂU@rert1@mЪ2д/j€}-‰tц"b(ЂхЁ‚f€rmStart#ŒTGс fm …ta tWiДn™wРЏ2О!Џ‚­э$Б`a_IDW_PRINT_A(LLG@€_ЊI€8W‚9R`N@8 _AL 2bk:)omкk: change_draw_propG ЋЁПaр'g h_ (*rw@p`+ovp *q2`я*7oаЛяOc_G@enFuncуOcUGn Pu€cПРсOЦуOЯ/l -;E0lsSeжl`я%l``S`Ёхъc чecХ%ЭM/Р­hП%rY0VisiblАeG№г/V0/Њs0bТ{œ2Ÿ&“пє\1( пгbqModu*lгb†M{dОu№г—гŸlП,Ьг Н-ИлбjWfJQcps0Aeхpeа`t!J›sEŸ1D_ц"'_ 1rmCalendarшGFC 4б"СIЕЁJЭ2ЯР-d`2r? Œр Н‡Oб? 3 IРxP>ыё;S#IdrpQ=92?pr_h—wat@erjetGвwEP tр3rjPtП<5=ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџ(€Checkaalg O ї€@сМTahomaal(€Drawinglg O ї€@сМTahomaglA€H€,№N5€ДTahomaglС@H  € €џџ}№Related FileCut5€ДTahoma4FР€€€€ €ў{0w Sheet Cutme.5€ДTahoma`˜џџџџџџџ<H  Š€ €џџ?}g ЖRough Cutme.Rу ‘ЮуЊKИQ_Tahoma„ƒo(х €ˆPп*€ =8Щћ!AЏa_DњX?uDАt?u§7uџ"T_]C_§ я; Q"ŠlQ"SPD/lS"GШS"Яowпfі0ЦшлqCre№PАusLisvthThumPbnaiА=8$CU`eTPprр s­ ki€PSwtАcT0Њu0Лb+aIlѓџћ2џƒџџ‹бp)_CцЊ;эщŠ23]]2  j3]‹o0П9СlŸ1‚ЯGENERAƒp‚СŠGEN0ъR’ 2’б ПbmлацXTES№ЅQ7TрSЛђЄu22Cu?%@2]%X`;1.Pri`nt_Ma ж“PPЋ@$с™t€bM@$c№~opЬ3.ЯбJп2&7aлQ=iLРogic_sЄ“Етi№+ogp*Б‚№s'“ЕљS@џѓ? ‡ŸIЄ‹6 А0@ЄT‹!p+(ЖџџrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ@`ќџџџџџџџџџџџџџџџџџџџЁ@‘`ќџџџџџџџџџџџџџџџџџџџЁHЬ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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Program Files\Autodesk\Inventor 2015\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{562199F9-3CAA-4ED3-8AE7-37518CF922D0}#2.0#0#C:\Users\AGIDRA~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library *\G{00020813-0000-0000-C000-000000000046}#1.8#0#C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Libraryџџџџџџ4_ИW- џџџџџџџџџџџџџџџџџџџџџџџџ џџ –4a_PDF_EXPORT06576159abџџ(a_PDF_EXPORTџџLl1џџUserForm10M57b43aeaџџйUserForm1џџ‰цjџџfrmStartWindow0N57b43aeaџџїfrmStartWindowџџэ$0‚џџa_IDW_PRINT_ALL09576159abџџ0a_IDW_PRINT_ALLџџmкH)џџ change_draw_prop0:576159abџџZ change_draw_propџџаЛ`7џџc_GenFunc0b57b85f3dџџdc_GenFuncџџExclsSelect0O57b43aeaџџЧclsSelectџџ­hРџџfrmVisible0P57b43aeaџџfrmVisibleџџ1(Јє\џџb_GenModul0>576159abџџšb_GenModulџџ-ИРгџџclsSelect10Q57b43aeaџџхclsSelect1џџц'иDџџfrmCalendar0R57b43aeaџџыfrmCalendarџџ‡O№Œ џџfrmIProp0S57b43aeaџџ frmIPropџџh—rџџwaterjet0B576159abџџwaterjetџџ8Щ џџa_DXF_EXPORT0Q57b85498џџPa_DXF_EXPORTџџ§ 8]CџџStartWindow0C576159abџџnStartWindowџџшPіџџ8CreatePartsListWithThumbnail0D576159abџџr8CreatePartsListWithThumbnailџџцЊh)џџUserForm20T57b43aeaџџУUserForm2џџСl€0 џџGENERAL0F576159abџџЮGENERALџџ˜џџTEST0U57b43aeaџџTESTџџX`А% џџPrint_Macro0D57b83b53џџNPrint_Macroџџaа&џџiLogic_start0857b8269cџџЊiLogic_startџџЄ‹№‡џџџџРџџџџџџџџ`џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџPџџџџџџџџАџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџHџџџџ€џџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџЂ(ЁgД‰K•ДЏѓ“їkМџџџџH1ЩЃу MЗ%d$внџџџџющ›ёK>H­gZП­ЊBџџџџІцТj%1FЎЯ9ћ7ЮОџџџџъз|}jO—ƒ˜*ŽAџџџџ@ћO§ПђI“СKi:ЧПkХ2ћaЬ@_"­К№ЖџџџџОCЋ‹2M‰Љ0qиТxжџџџџП$ШОhYx@Є§й\‘Ж‹xџџџџ(m>ѓђщH€5NЧPЪФHџџџџёяqLгOІ%в>СњиЭџџџџљ‹XЭЅЂ‹NЈP!р@uџџџџШЭ ^Z=O€шюїZˆџџџџšРС‹yMšK0ЯkPartDocumentObject!оkAssemblyDocumentObjectЪО oCenterOfMass#_MassProperties–ћ CenterOfMassЃЋ oWorkPoint)˜ oFixedDefJЫFixedWorkPointDef<_ Definition.7updateвќAddFixedЎЌ(BOMSort9StructuredViewDelimiter~PoStructuredBOMViewеІSortЌRenumber,GЌ(ObroundPєDocumentSubTypeHЭDocumentSubTypeIDyActiveEditObject ћ frmObroundcGShowѕ GetSettingѕ clsSelect1jсqSelectЈфbStopсѕ frmCalendarVum_bGettingDate—ЈGetDate,… StringDateТCalendarIсToday Ъ InitialDate!ћYear6nMonth›DayЄ‚vbModalt DateSerialžU btnOK_Clickа"btnToday_Click~cmdClose_Click!P frmIPropІ.m_doc?)d_docm_PartNumberPropџsm_StockNumberPropz m_DescriptionPropм4 m_ProjectPropЮbm_KeywordsProp%'m_DesignNamePropЗјm_DesignDatePropc m_ApprovedNamePropйm_ApprovedDatePropЦ€m_MaterialPropЏim_CategoryPropаПm_CommandsPropTэ m_VendorProp†пm_CostCenterProp]>m_CommentsPropжZ m_DocTypePropЏЕm_ModelFileName1љm_DrawingFileNameŸќm_DrawingFileNameExistЩ‰btnApprovedDate_ClickBўnewDate|_txtApprovedDateЄЬbtnCheckedDate_Click*ІtxtCheckedDate$гbtnMFGDate_Clickl txtMFGDate‰ЎbtntQADate_ClickyY txtQADateRЬbtnDrawnDate_Click— txtDesignDateh6cbExtern_Click„џcbExternј txtESDesc{cbMachine_Click&. cbMachine‡ txtMADescЗ† cbPaint_Clickк†cbPaintpг txtPADescйЪ cbWeld_ClickrcbWeldкc txtWEDesc”šcmdApply_Clickм/p_doc'пActiveEditDocumentb’ oPCompDefaZcurrentMaterial№MaterialЖЏ GetDateStringХSetDateFromStringШЕtxtApprovedNameK„ txtDesignNameNю txtPartNumberM™txtStockNumber txtDescriptionjV txtProjectЁК txtVendor`M cbCostCenter ђ obSheetCutљаobSawCutИ“ obHandCut~ДobNormalП8 BOMStructureнkNormalBOMStructure,Ш obPurchaseЈkPurchasedBOMStructurer obPhantomЛыkPhantomBOMStructureS obReferenceKЊkReferenceBOMStructurej. obInseparableakInseparableBOMStructureЋkDefaultBOMStructureої cbMaterialшX MaterialsљOcmdCallDrawing_Click VoDrawDocЮcmdCancel_Click\еobInseparable_click_Ъ obAssemblybY frRoughCut˜оfrFileLabel22gobPurchase_click„йobNormal_clickђ‚obPhantom_clickV7obReference_clickСžtxtApprovedDate_ChangeЂ‡IsDate2Ђ ForeColor vbWindowText‘xvbRedG/txtCheckedDate_ChangeQяtxtDrawnDate_Change txtDrawnDateм txtMFGDate_ChangeF,txtQADate_ChangeљКtxtPartNumber_AfterUpdate}№ControlTipText8зtxtPartNumber_ChangeYтtxtPartNumber_DblClick• ReturnBooleanщepull_upCUTabStopdLabel21fLabel23hobPartКНoDocSummaryInfoPropSetœФoDocDesignTrackingPropSetQzoCustomPropSetcВ yesNoValue РcomposаendposbН fabcomment!cmdCallDrawingJ ExpressionxсEnabledлЊ CheckDateiGetPromptedText™“ TitleBlockрPromptmoTextBoxј<TextBoxЪQSketchj TextBoxesљЊ FormattedTextт— strPrompt-з GetResultText„‰SetPromptedText’лNewValueЂSetPromptResultTextљ waterjet“Л Ќ( addCUTsheetхŒ oSheetoldЎsSheet[ж ActiveSheet%NoViewls DrawingViewзЧ current_unitvv UnitsTypeEnumА_ unitstringёI SelectSethтkDrawingViewFilterTЮ oNewSheetskBDrawingSheetSize­8 oSheetnewdmoBorderY3 DefaultBorder’СAddDefaultBorderЇоoTitleBlockDef5TitleBlockDefinition(њsPromptStrings m oTitleBlock‚ExcludeFromCountToUOM•#UnitsOfMeasureкb LengthUnits”ЄkInchLengthUnitsC–GetStringFromTypeЈCopyTo[Ќ( DXF_EXPORT_CUT_DRAWINGdД a_DXF_EXPORT%Ќ( Export_All_LC_DXFQћExportAllLCDXFChildЉ Ќ(DXF_ExportaПFLAT_DXF_EXPORTЉЇsoutdnamewзoDataIOтDataIOG oParametersњ Parameters`щoThicknessParamкsWriteDataToFile>ExportAllLCDXFChild2мbЌ( Export_All_LC_FLAT_DXFM* Ќ(StartWindowЅ‘UserInterfaceManagery„Ќ(CreatePartsListWithThumbnailЩdrawDoc partList}q PartsListвwordAppошWordЕk GetObjectzУ CreateObjectјŠ ErrorFoundвеwordDocЗј partListTable%TableёTablesŒ SelectionZЎRangeк  PartsListRowsEPartsListColumnsGwdWord9TableBehaviorЊ‚wdAutoFitFixed@`myrangeс-CellЏ‰TypeTextѕЎTitleђ~rowIndex6d partListRowo— PartsListRowбC StatusBarText>J drawBomRow”С DrawingBOMRowБМReferencedRowsлхrefDoc' thumbNailє IPictureDispл‹ SavePicturezУshapeТ InlineShapeхF InlineShapesйš AddPictureџˆLockAspectRatiocоHeight|‹ UserForm2*жMyArrayŠВListBox1›ы ColumnCount$ListBox2œыColumn i GENERALj7Ќ(check_ConstrainsЛВobj_InvDocument“Lobj_InvSketchEntityЈr SketchEntityеobj_InvSketchesY9 obj_InvSketchЧobj_InvPartCompDefФUPartComponentDefinitionЂмobj_InvSketchEntities vbQuestionЪвvbYesNovbYesa? dPosition OriginF“YlXo oPositionљ TEST4ЋЌ(CreateDrawingExcelTable^ў oActiveSheetдTransientGeometryК† CreatePoint2drŒ astrTitle~’ astrToolsТ oCustomTable‡Q CustomTableWМ CustomTables?oFormatРН TableFormatJ… Ќ(IDW_PRINT_PDFCЌ(IDW_PRINT_Paper›З€џdef)ƒ €џDocumentName’р „џoRevTableНи€џRevisionTableRowsЕB „џoRowCount’Ы„џoSheet6T€џRevisionTablesPh€џcDocМ„ €џRevisionTableTЭ€џRevisionTableRowMЊModule1b Print_MacroЄе„џIDW_PRINT_Paper_11x17Ќf„џIDW_PRINT_Paper_8x11рdЌ(IDW_PRINT_Paper_11x17_all{žЌ(IDW_PRINT_Paper_8x11_all2’UserFormNTextBox1ІSFrame1ЙLabel_ProjectlistеLabel1,Label2Ž,Label3, ImgPreviewЫ=Label4,CommandButton1|д€џClickŠу €џInitializeгN€џChangeЃЧClassЛ €џOnTerminateT4€џOnSelect% cmdUnHideAllЦ cmdHideAll л €џQueryCloseTєcmdClosejЇbtnTodayѕєbtnOKd› cmdCancelЭcmdApplyЌž btnDrawnDateсјbtnApprovedDateУLabel7“,Label8”,Label18HLabel19ICommandButton6дfrTYP˜xfrWorkstЭ frDocTypeŒ— ComboBox1'и €џAfterUpdateНФ€џDblClickЋ…Ќ(IDW_PRINT_Paper_11x17_sheet%`Ќ(IDW_PRINT_Paper_8x11_sheetП0€џkPrintCurrentSheetRхЌ(IDW_PRINT_PDF_11x17_allх iLogic_start”* „џLaunchMyRule1&и „џRuniLogicг „џLaunchMyRule2'и„џRuleNameа™ „џiLogicAutoЮMЌ(GetiLogicAddinм—€џRunExternalRuleЃ’ „џoApplicationР„џaddInsю‰„џaddInex€џApplicationAddInЂ} „џcustomAddIn;C €џClassIdString„@„џNotFoundA  €џAutomationœрЌ(IDW_PRINT_PDF_11x17_Sheet˜†€џpublichѓ)Ќ(change_Layer_ColorTТ„џoLayer•D€џLayerКЦ €џStylesManager‹€џLayers‚й€џColor2F €џInternalNameќ€џInternalNameThisApplicationTf €џCreateColor:Љ„џoText‰е €џTextStyleŸ(€џotestад €џTextStyles№оIDW_PRINT_Paper_ANSIt'x17_all‡4C_allЦeЌ(IDW_PRINT_Paper_ANSI_C_allЁ„EMDЈ‰ €џџџ_B_var_EMDЙF€џkPaperSizeCSheetя`€џkPrintFullScaleB†Publiucˆ,€џџџ_B_var_Publiuc 0dxfш…dxf_export_from_IDWrаobjSheetЧB objDrawDoc~JobjDrawingView‹§objCurveмu €џDrawingCurveE, €џDrawingViews*w€џViewTypeъЭ€џkStandardDrawingViewTypeVчnxtpЛ€џLabela€џџџ_B_var_objDrawDocшИ€џџџ_B_var_DrawingView9Й €џџџ_B_var_set€џџџ_B_var_ActiveDocumentbє€џџџ_B_var_DrawingDocument% €џџџrawingDocumen^€џџџ_B_var_rawingDocumen;ж€џџџ_B_var_maxlevel _B_var_LeftQсdinХƒ €џџџ_B_var_dinж@dblScaleЗ‡ €џSuppressed|К strViewLabel €џџџ_B_var_IfPђ€џReferencedDocumentDescriptorз?€џReferencedDocument‘5 strFileNameлestrDXFFileNameђ/ oDWGAddIn"6 €џActivatedBа oDXFAddIn Ÿja strIniFileИй oNameValueMap     џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ўџџџ"ˆ §џџџ§џџџК)*/џџџџџџџџџџџџџџџџ2џџџџџџџџŠџџџџџџџџ678;џџџџџџџџ<=>?@ABCDEўџџџGHIJKLMNOPQRSўџџџUYџџџџџџџџџџџџZ]џџџџџџџџ^_`abcdefghijklmnopqrstuvwyџџџџz{|}~€q? oOutputFileлy€џџџ_B_var_oDWGAddIng?€џџџ_B_var_oNameValueMapThisDoc N€џџџ_B_var_ThisDocЄQ€џDocumentEventsФu dblBaseScaleбЌ( DXF2№Г Ќ(DXF_View_Set9WoSheets“ЕoViews0в oDrawingView†M€џџџ_B_var_oDrawDocЩ €џShowLabel|( oDescriptionЌІ oPartNumber‘Y oStringMassY oStringScaleX/ RuniLogic2ЊЩRuninternalRuleiricallup_NC Ќ(callup_Formтx iLogicFormС  ShowGlobalЃ…FormModeВЭModalЅЬRunRuleрccurDocz€џџџ_B_var_GetiLogicAddin­>џџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ5џџџџџџх џџџџџџџџџџџџы џџџџџџ1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџQ #Уџџџџџџџџџџџџй ›  Я+Ћ%џџџџџџџџџџџџЧџџџџџџ[џџџџџџo4O)s'eї*џџџџџџџџџџџџџџ џџ"џџ$џџ&џџ) (џџџџџџџџџџџџ 8z @   @0  @0@ "€ џџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP џџ|> џџџџ(џџР9џџџџџџџџџџџџџџ(џџЎџџ0xИ+Жџџџџ`№* дрџџџџ5 –4Є‹џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ|<0џџ<џџР<џџ<џџџџ< џџ<(џџ<џџЎџџ0xИ+Жџџџџ`џџџџџџџџџџџџ€џџџ@X џџџџ0Œ)ƒКџџџџџџџџАџџџџ€`„Дџџџџ№џџџџџџџ џџ „4џџџџшџџџџџџџЈ%% „Оџџџџаџџџџџџџа%џџџџ@џџџџ џџƒЊџџџџџџџџ џџџџџџџџџџџџџџџџџџ%`„Дџџџџ№џџџџџџџ џџ`„Вџџџџјџџџџџџџџџ€ „4џџџџшџџџџџџџp%ˆ8%8 Ў`џџџџџџџџџџџџ џџџ@˜џџџџџџ„`„Вџџџџјџџџџџџџџџ€`„Вџџџџјџџџџџџџџџ€iƒВџџџџџџџџџџџџџџ„А VР`џџџџџџџџџџџџ@џџџџџџџџџџ„iƒВџџџџџџџџџџџџџџ„џџџџ@ V`џџџџџџџџџџџџ@џџџџџџџџџџ „ j`џџџџџџџџџџџџ џџџ@џџџџџџ„@Рџџџџџџџџџџџџ@РџџџџџџџџџџџџHxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ`„Вџџџџјџџџџџџџџџ€xА`„Вџџџџјџџџџџџџџџ€Аџџ P „Мџџџџ№џџџџџџџ€џџџџај8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPxјˆЖЖјџџџџџјpаџџџџџџџ џџ џџџџШџџџџџџџ џџ @ўџАџџџџџџџ џџ @ўџ˜џџџџџџџ џџ @ўџ€џџџџџџџ џџ €џџ џџџџh8(hџџџџџџџ џџ PPџџџџџџџ џџ џџџџРџџџџ(р˜8џџџџџџџ џџ џџџџ џџџџџџџ џџ `Жјџџџџџџџ џџџџџџџџџџџџ€@иџџџџџџџ џџ @ўџИџџџџџџџ џџ @ўџ џџџџџџџ џџ џџџџџџџџШџџџџџџџџXИџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџрџџџџ(˜џџџџџџџ џџ @ўџ€џџџџџџџ џџ џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4_ИW-пўЪD"p€ џџџџ€ џџџџ"р€ џџџџ№€ џџџџш€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ" € €(€ џџџџN0 @$LPx€€ џџџџ@ˆ˜€ џџџџHАШ€ џџџџ" €€ € џџџџN( 8$LHpx€ џџџџ@€€ џџџџHЈР€ џџџџ€ џџџџB а€ џџџџ€а€ џџџџ&и€ џџџџ€ *ш€ >X(€ џџџџ€€ џџџџ ˜$Ј€ џџџџh€И€ џџџџРџџџџаЙDXFA@ЎyRoџџ–]ѕx]ѕ№ 2!8.4 4ВœЙMissing Inventor DocumentA@ |џџЈkџџ № 2$Ж.Д ДВ›G|j 4 В ДB@ИoџџX–№ К!Ў.Му#Find the add-in you are looking forО0]ѕИЬЦH№Й&{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} К!Ў%А.Оz–@џџџџ€ ОВ›Gzj€ ОB@є€№ О!Ш.Ж€ЃЦ@iџџ8џџџџ0]ѕџџџџР–РoџџРЙ dxf_view_setA@jџџџџА–]ѕ(]ѕX№ 2!8.4 4ВœЙMissing Inventor DocumentA@ |џџЈkџџ № 2$Ж.Д ДВ›G|j 4 В ДB@loџџXџџџџPџџџџŽВAttribute VB_Name = "iLogic_start" Public Sub DXF_Export()  Run\ "8СZ EndXp€View_Set2 "dxf_vљserDfhрPrivaЊ‰w@(ByVal‡lBeПAs Sгng  Dim AŸAuto O`bjectКoDoc ume.n€  R ‚ = €ThisApp€ation.Active IfƒIs Nothingen# MsgBox@ "Miss IФnv€2or … €˜B Exitš ’ ŸIfx DAˆ_= Get„dpdin( O‚yH(ыˆ‡K)L ‡5QG .РTExtern@alRule‚5,їFVЪd’b2џbџbТmџb—Р˜AGџb іbinсb" IЦFunРЇon]‰oˆАX…Ё.Ш)Ѕc ЁcaddиInsсшA‚ЁsSD= I Щ Ч'„Fi ƒthe €-in you are look1cforшб @On ErrhGoTonFoun8d f˜[.ItemById("{3bdd8d 79-21€4b11-8a5a-257b1c02@63ac}" j і Ёj‚ jE/#тC…р•ƒ w „Р’mПB‹Bs' р‰Т:b€'Gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  )џџ (џџ:6 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ь 8(@уSet the paper size and scale1Ьш D 8(B H 8(FуSet the paper orientationЬ  L 8(J 8B@Noџџx–˜]ѕ№№ 2!8.4]ѕ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> Ь 8(@уSet the paper size and scaleЬ` D 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџ№–0]ѕˆ№ 2!8.4]ѕЈ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> Ь 8(@уSet the paper size and scaleЬи V 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџh–0]ѕШ№ 2!8.4]ѕx№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> І 8(@уSet the paper size and scaleЬP D 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџр–]ѕ№№ 2!8.4]ѕ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> І 8(@уSet the paper size and scaleЬШ V 8(B H 8(FуSet the paper orientationЬ€ L 8(J 8B@NoџџX–ˆ]ѕ˜№ 2!8.4]ѕИ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneйџЙ Adobe PDF 8(>qџ Ь 8(@џџџџуSet the paper size and scaleљџњљљџЬ` D 8(Bфпмџ H 8(FфпмџуSet the paper orientationЬ L 8(JWNIџ 8B@NH?9џoџџ№–`]ѕи№ 2!8.4пџ]ѕ@№ 4!<.8пџу Set the printer nameВЌЉџу? comment this line to use default printer or assign another oneтџЙ Adobe PDF 8(>тџ Ь 8(@щфтџуSet the paper size and scale9џЬј D 8(B: H 8(FычхџуSet the paper orientationЬА L 8(Jычхџ 8B@Nхџычхџoџџˆџџџџ€–]ѕр№ 2!8.4p]ѕ№ 4!<.8vу Set the printer name€}у? comment this line to use default printer or assign another oneЙ Adobe PDF 8(>• І 8(@€šуSet the paper size and scaleЃ€ЅЬˆ D 8(B€Њ H 8(F€ЎуSet the paper orientationЬ@ L 8(J€з 8B@Nк€лoџџ џџџџ џџџџш –x]ѕ № 2!8.4џџ]ѕШ№ 4!<.8џџу Set the printer nameџџџџу? comment this line to use default printer or assign another oneџџЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(>џџџџ Ь 8(@џџџџуSet the paper size and scaleџџџџџџЬр є 8(Bџџџџ і 8(FџџџџуSet the paper orientationЬ˜ L 8(Jџџџџ 8B@Nџџџџџџoџџp џџџџh џџџџ€ џџџџЛГAttribute VB_Name = "Print_Macro" Public Sub IDW_PRINT_Paper()  Dim oDoc As Inventor.Drawin2g,um"RSetR= ThisApp\ation.Active . ^rg˜Mgrf]anageVr a,=p.)'‚ the px0er n€€ƒ"' Hcom[ tS line to use defaultor assign an‚o€&r oneƒ"t€в€жп]п]я.LeюtP;я$џ.tџ]џ.џ]gNnџ.џ]‚‡џ]џ]bї?Œ7Œд]sёsџ]џŒџŒЕџŒcџŒnфu/t1,џ/џŒ“_Р/”џŒџŒЙЁ#isџŒџŒџŒ €”ЯџŒЃџŒџŒngџŒ MУb ћ]Curr`#2чl%/ Ÿƒ/сџA3/^/q/////^/џП–Я+////_//Лџ#^?/‚В?/?/?/?/gУSO^s O^?Мnџ2?/?/?М?М?Мƒ?Мџ?М€:?М?М?М?МЁ ?/џ?/^oМoМ№zQ–ЛБВџЦ^PПЁ ^^Р љМr h)бO/O/O/чO/O/K/DFП]..џ..€.ЯŒ№м\ПЛџШ..p†П]П]ПъМъЗВr one oDrgPri@ntMgr.@er = "Ado€be PDF"œ RangeTkjAllSheets\'Set t@he pap size and scalђOn Error Resume Nextk@S?= k‚P 11x17-"S_Mod˜BeрstFit0 ›orientatиionƒ$LO‡‚цLo€npeˆ ƒ' БРSubmit™ E€Š Public € IDW_PRPINT_С_‚v_`all()лDim oDoc @As Inv€`or.Drawinvg Јn„ІФ‚= ThisApp2‚;.Activцe‹ A% ƒ‡†DТ.Manageюr C =‚&ƒ“J <' С Т…Сœ@†namФƒ' comm2Рis line to use default p assiєgnР”o@џГРџГяџГAv‹‹џГ џГ€2шcїџYџY w_т…?Z?Z?Zџр*?Z?Z?Z?Z?Z?Z?ДУ‚t+ZCurr9Ђ.ПуvŸДGЧŸДЧƒ.ŸДќ ŸДПm кŸД„ОŸZšZс_ANSI_юCџДџДџД C8ПZПZ§_- ZZё}ZZZ^Nв* 3p‡RICOH Aficio MP C5502A PCL 6Є ( hftn)_‰џд‹_\_‰_‰QVЯR_‰w‘’/ ŠCШ5 %n\Fўu“gя.;Wo o я.?‰5Žя.?‰b JжЃЈVІЇЖЎ­џџџџџџџџџџџџЏАПБ:џџџџџџџџ[џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЩРСТдФХЦЧШЫЪўџџџЬОЮЯабвгдеўџџџCџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТ№џџџМиџџџg ЮюgXўИџџџ юйиџџџ%V Т˜џџџž˜џџџк€џџџV ТаџџџО˜џџџъиџџџ€џџџg˜аџџџь&ЧЎgwgžаџџџиg$žаџџџйиџџџДИјџџџМиџџџgwgwџџ€јL&јџџџаџџџ№џџџШџ&˜џџџиџ№Ђд(џџџџз –4X`џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџhџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџ<џџќ<џџ,<џџ2<џџв6 џџџџƒƒ˜‚place{ point ftor‚ tЁƒ…Pч‚„2d ‚> Transi€ЈGeometry.ƒ;„ (1.82Р5, 4.3„д4€astrTitп€1 To 2)Т;РngG# oolts( 1K У )љСa @Сƒ€ ”ъbF€>i€ ФƒF ‚i‚ NexiУ '„ЂP by specifyУРІТsourР ТЉ` fileХA (assР—s@ at‚ first rрow inˆ „ieС e column headers…You0 can…!ТdiІfBТƒusE&l@F argИ ofБ‚AddB‚д €q hoФ~‚…Custќom‡ˆУˆ K€ЇHЋ.ˆs.Р( "REF-Т", oBE, 2, |6,`#DCD!2(Go=р7m &РтУ р End…AШ†change_Layer_Colфor!† тЂAO;„Tр=aсSt~yA7$…B Ÿ„   Each 2oЃInGzТsM€anager.тї$=U.‚Yэ‘r€Objectsфqёc0, A*УZЇџТ—І! џџЬ7yУРІТsourР ТЉ` fileХA (assР—s@ at‚ first rрow inˆ №тдPџџџџ–4џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџX@џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџ џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ<џџ<џџ<џџ <џџŽ<џџ(<<8<џџќ6 џџџџ<`џџn'st  !d(у& MsgBox oDimension.Text.FormattedTextЌЪШoџџР–`]ѕИ№ 2!8.Іt у9 Determine if there are any dimensions in the select set.]ѕи№ І!(.ќš]ѕј]ѕ dЌ ќ!t’ d ќ%R@œnailу; Add any dimensions to the collection. We need to save themЌ у= in something besides the selection set because once we startЈу2 manipulating them the select set will be cleared. d ќ%R ўB@œkџџ Ъ ў!tЌ œЙ9You must select at least 2 dimensions for this operation.A@ Ж(|џџИkџџАу? Ask the user if he/she wants vertical or horizontal alignment.]ѕ0ЙPDo you want horizontal alignment? (Selecting "No" results in vertical alignment)   ЙAlign Dimensions$  œК' dџџаК' kџџР dЌ ў!t’]ѕH№ d ў%R.!^ dЌœLNу6 Get the position of the first dimension text. This is!‚у6 the position the other dimensions will be aligned to.(‚]ѕh œ !d!!'!‚dџџШ !d!!'(kџџЈdџџ у& Change the position of the dimension.џџ!]ѕ€№ !d!.џџP œ  (dџџ0  (!‚kџџ  !d(kџџЪјoџџ№џџџџшџџџџhЖAttribute VB_Name = "GENERAL" Sub check_Constrains() Dim obj_InvDocument As cor.( RSketchEnt8ity Z 1es-ObjectJ %PartCo`mpDef *on€Yinitiьon0YiCqZ En‚ratorbol_Ub erBes‚Bo0olea/nt1šbekŽ.SetŽН= This€Applicab€.Active‡Уыˆ ˆ=.JŽDС'Skizzenќ5prќfung nur, wenn keine Teil aЈus Œt€UcР2e€DIfХ.Ibs„ MemŸFШals@heРIХ€ voll b€Qimmt? џˆ3b@gЦ2ЩF†'dem BaО§€+hРe€A‡)… €CтuРЖ> 0@XA% СFor EacžhХ5 @Р esУ+… M.ProfiјlesENhtr№фge <… с3§ТyюЅ ЋХ ­ƒƒ@ЄˆtStat Dє<> v`D@†@ACŒ„!j.kFullђyFed­Ќ2j Oцz- уOve~r&пэрърurрue 'мР^$[Рi“)a End Ifї..=§-Undпїak›%UЁ_< _+luK_nk№nownэ=g,gPjj P' De0qm‘dif there "a1ny АenBszs inБ ˜sel`t.D{ўS‘RРˆЦ€Œ!sЧSd .H1colG`u@NewАll ЖiбLong 1SiаC1 Txo oЦУ\a2€9T0ypeO№oзItem(i) Isv qAi ”С и''@ Add aЋtoЂp $ . We@ need  sЈaveёm:'‘Рsometh0!tќidprpД сcPqe once1р| st0“5maрnipul`…АFmЧ wiђy тc№redР!/Њў.Ё ј!•(3*,ЙKCoАx1Ёo†ŸЩ'uQsW= л‹6tp4ValсfSpБё E€Б< Style‘`rp Font='AIGDT'>n<2/к><† ueœ/>№Дg .T№.$mattedб$є7' ф9eOrG Ѓ(;  H;†AlignѓБ; o0Щ”Мє2ПŸ;НЅŸ;Ÿ;Ÿ;tЁ'џŸ;Ÿ;w#№u Ÿ;Ÿ;Ÿ;бŸ;Ÿ;0ІŸ;et.34#Ÿ;onŸ;Ÿ;he“1(Ÿ;o Ÿ;n Ÿ;™Ÿ;beŸ;Ф`' Ÿ;џr?Ÿ;Ÿ;Ÿ;БKЁ,;ƒџ:t < 2Жє,"You muc€бdDat РC№2 y^f0Ж Ks op6eАеаJ.P4 ‚xi2tёh %(As‚k’Iuser рche/swan(ts р›t бl С horizР; >Юa!1быt(bHЗ€(6л Р У ("Dxo y№ АДП? (Г^AW""No"" resulp kІЦ)", АvbQu!Ю€$+РYesNo, "E2; & X Ц:^ дRР FED N‰€[ ASubA— = 45 ClientTop = ф„<b* –4СlџџˆЖџџџџџџџџАџџіб`OЩ>UIЎр7‰gc ЌY#йл”I˜…F6;PЈ*9ћ6RЛ!TMОc#YьO{y†ѕxфjwrGŒзMkд&Hўџџџџџџџџџџџџx†ѕxфjwrGŒзMkд&Hўіб`OЩ>UIЎр7‰gcџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<0џџ<8џџ<џџџџџџš0{5495EDE7-sЖ; (х €TchkPointslllЖ‰(х € XchkOriginsllЖHх € T€tglHideSelectsЇ‰Hides Selected Featuresˆх € XX€tglUnhideSelectЇSelect parts to be unhidden! They will hide to make selctions easier until button is up!(ѕ€ 28 lblInfoЇи77C9-447D-913E-D3C9E8E56BC3}{FF15F095-90DB-468C-B886-FE2D0829FEE8}џџџџјџџџџH(џџџџ %’rU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCalendar Caption = "Select a Date" ClientHeight = 3930 ClientLeft = 45 ClientTop = S џџџџџџџџ џџџџџџџџS џџџџџџџџS џџџџџџџџS џџџџ`џџџџџџџџџџџџџџџџџџџџ0џџ!!”`„dџџџџџџџџџџџџџџ€ўџ№ џџџџшџџИџџџџџџџџџџџџ%ўџџџџџџџџџџџџџ џџ№џџџџџџџџ%€Фџџџџhџџџџ@@џџџџџџџџџџџџ ƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ ТџџџџўџџџџџџџРџџўџџџџџџџџџџџџџџџ %џџџџ№џџџџH(џџџџџџџџИџџџџрџџџџшHџџџџ(ИџџџџџџџџHџџџџ(№џџџџџџџџџџџџ`И80џџџџџџџџџџџџџџџџџџџџџџ@а4_ИW-$*\Rffff*0T57b43aeaпџџџџб˜в ўЪ#„€ џџџџ"€ € .( X€ *h ˜€ џџџџ€ 6Јрј € џџџџ€ * Ph€˜АШ€ џџџџрј0H`€ џџџџ€ *xЈИ€ џџџџШ€ џџџџџџџџи]бЌбЌѕ(–H]ѕ у(The 1st list box contains 3 data columnsЌ Ц(Шу#The 2nd box contains 6 data columnsџџhЌ Ъ(Шsureу0Load integer values into first column of MyArray% dЌЌ’џџ d dЌ+Ф:!P dЫџџџџџџу#Load columns 2 and three of MyArrayВ.4ЙZeroЌЌ+ФЙOneЌЌ+ФthЙTwoЌЌ+ФRoЙThreeЌЌ+ФЙFourЌЌ+ФDiЙFiveЌЌ+ФicЙZeroЌЌ+ФЙ Un ou UneЌЌ+Ф ЙDeuxЌЌ+ФЙTroisЌЌ+ФЙQuatreЌЌ+ФЙCinqЌЌ+Фџџу$Load data into ListBox1 and ListBox2ate a Ф Ц,ю s Ф Ъ,Ьcooџџ0џџџџ(џџџџœВAttribute VB_Name = "UserForm2" " €Bas€0{5495EDE7-77C9-447D-913E-D3C9E8E56BC3}{FF15F095-90DB-468C-B886-FE2D0829FEE8} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DDim MyArray(6, 3) 0 P€#€' Sub …А_Initialize(  i AsР Singl€Y 'The 1st libox contain`s 3 d€„€l@umns L€Box1.CoA Count‚3Cƒ&2nd Š#6еа 2 64'Load integer valueso fir@*cТ of'ХCC @— i$0 pTo 5УMiP, 0)РiƒN№ext РCУC s 2 a@2threeŽ…0, ‚1"ZeroР›E‰1ХOnRу ‘ЮуЊKИQ_Tahomaи…e(х €cTcbSheetCutCh{Ї$х€dPcbSawCut{"(х €ePcbMachinetCh{$х€fLcbWeldut{ (х €iPcbAssemblyCh{“ (х €ePcbMachinetn.{$х€fLўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmeŒ2щ…TwM 3†Ь B4FourЬ5пЦ@•Рƒ4*2*У€Un ou U‘+сDeuxŒР+УрTrois рƒрQuatr­ Ѓ№Cinq ‰0"O ?zoE1Ђ1ЅFCЄ1њ.(СФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‰Šєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџ џџџџџџџџЕЖЗџџџџџџџџЛџџџџџџџџџџџџРСкяџџџџџџџџџџџџЧШAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЪEL 8 E ;@fN As Singl€Y 'The 1st libox contains 3 d№ъдАџџџџ№–4шџџЖџџџџџџџџџџџџџџџџџџџџџџxVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTitleBlock Caption = "Property Entry" ClientHeight = 7470 ClientLeft = 45 ClientTop = 435 ClientWidth = 13215 StartUpPosition = 1 № д@џџџџC#–4цЊџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџ(џџџџ08HPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџx<џџ<<ˆ< Ž<џџЄ<џџЊ<|<џџВ<џџ6 џџџџH ˆ "Ј а€ џџџџ€ Lр€ 0 8€ P X€ џџџџ x€ € ˆ ˜€ $Ј$а€ џџџџ€ј6 8 H X(` ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 89 End ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq€H€,і{u€œTahoma€H€,і{u€œTahoma(€HeigthіЇ5€œTahoma(€WidthaіЇ5€œTahoma(€CreateE{u€œTahoma(€DoneD{u€œTahoma€H€,і{u€œTahoma4FР€€€€ €Џ{0cDimensione5€œTahoma(€PointsіЇ5€œTahoma( €DimensionseіЇ5€œTahoma€H€,і{u€œTahoma  Y}0р м‹$х€4txtwidthЇі(х €4txtheigthseЇˆ € џџџџ€ H˜ р"(( P€ џџџџ ` €ˆ€ џџџџ˜ АР€ џџџџ€Ш(а ј џџџџ –у( Make sure a drawing document is active.faЬ@]ѕX№ 2!8.t ТœЙA drawing must be active.A@ x|џџpkџџhу$ Make sure a parts list is selected.џџџџ[]ѕx№Ќ t!(%R.v ТœЙA parts list must be selected.A@ |џџрkџџиЬа]ѕ˜ЬРу. Try connecting to a running instance of Word.џџџџ№гЙWord.Application$~.zџџџџџџ Тœ ТB@ џџџџџџу Start Word.џџџџџџ№ЙWord.Application$€.z ТœЙUnable to start Word.A@ |џџрkџџиkџџаЬШЬ‚РК z(Hџџу Create a new Word document.xџџџџ]ѕИ№ z!0!B!œ.„џџуB Create a table with the same number of columns as the parts list.]ѕи№ z!Œ!Ž v!!tЌ v!’!tЌ ” – „!Š%œ.†џџџџу, Copy the part list headings into the table.]ѕј dЌ v!’!t’џџ]ѕ№Ќ dЌ †%š!Ž.˜Ќ dЌ †%š!Ž! ˜( ˜B@H dЌœЙPreview z!ŒBœdџџШ d v!’%R!ž z!ŒBœkџџ˜Ъу, Iterate through the rows of the parts list.]ѕ0Ќ' ]ѕH Ђ v!“ЙProcessing part list row  Й of  v!!tЙ... 2(І  Ќ '  Ђ!Hœу 7 Select the first cell of the current row in the table.№  Ќ †%š!Ž.˜  Ќ †%š!Ž! ˜( ˜B@Hу E Get the thumbnail from the document associated with the current row.]ѕh№Ќ Ђ!Ќ%R.Ј]ѕˆ№Ќ Ј!\!z%R!|.ЎЬ€]ѕЈ№ Ў!А.А Т!ФЌœу Save the thumbnail to a file. АЙC:\Temp\TempThumb.bmpAД]ѕШ№ЙC:\Temp\TempThumb.bmpКК z!Œ!К%М.ЖК Ж(ОЌd Ж(Рdџџ ЙPreview not available z!ŒBœkџџpЬ‚hу A Copy the rest of the part list info into the table for this row. dЌ v!’!t’№   dЌ †%š!Ž.˜En   dЌ †%š!Ž! ˜( ˜B@H d Ђ%R!‚ z!ŒBœЪxkџџpЪhЙFinished 2(ІPК z(Hв |џџ8Ѓ‚0ЙUnexpected error encountered.A@ К z(H4!–oџџ№џџџџшџџџџ ЖAttribute VB_Name = "CreatePartsListWithThumbnail" Public Sub‚ V() ' Make sure a drawing document is active..On Err@or Res! NextDim>Doc As DI H#Set#= ThisApp­ationЬ.Ah 1If7 en!YMsgB`ox "A&Wmрust b€`ƒU„УExit†ƒРEnd Ifƒƒe‹pЋ lЌ|s€elected„}џpЛqТƒ$n2=…s.S".Iрtem(1„Лl$>s"Х6F#b7jGopTo 0ƒ(CС1wXordР^1W€.Шa z' Try` connG_tBo@Žrunninstance xof BƒGХ=€ GetObj€а(, "Э"YHŸР.ClearƒAxсG' StpЩџЫХ„С ’hХŸ€Unable Р?љРed(DѕЈА End If„ аNextH(ThisApplication.StatusBarT  = "FinishedB"^word^.€VisibleBTrue6Exit Sub ErrorFound:MsgBox "Unexpected Be# enc&tрered.dШ_ispЫС Їа-Т ^.&лА-Ё‘Nƒt=ž р_n-A -av ‹w’aУŒa fiоlEОе q‚PS0„ ( ›C:\Te mpBRШ.bmp‰U•Ы Qб!sha peQ" InliјneS1ябу—‡oЧ]ЈђfrmCalendar%xџџџџТј frmIProp–*џџџџН‘waterjetџџџџџџџџџџџџВДa_DXF_EXPORTџџџџџџџџџџџџuдXџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБўџџџГДЕЖЗИЙКЛМўџџџОПРСТУФХЦЧШЩЪЫЯЭт^абвгдежзийклмнопхстуфцчЦшщъыьэюя№њџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџћќ§ўџџџMEџџџџџџџџџџпџџџџџџџџ(€Cancell O ї€@сМTahomal(€Applyal O ї€@сМTahomal€H€,Š45€ЅTahomal€&q ™ С Щ i"9!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqџџџџџџџџcbMachineSteдд$х€„LcbWeldutдO$х€‡XcbExternдЪ€H €P €џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ<џџ<џџџџџџџџџџЈ nџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџƒnџџџџџџџџ˜џџџџџџџџџџџџџџ%џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhўџџџўџџџўџџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџaS бSџџ<џџ<џџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџX4_ИW-$*\Rffff*0C576159abпўЪ€ џџџџ"€ џџџџ(€ џџџџџџџџ8– 2!pB@„um ў іB@рinoџџPџџџџHџџџџ•АAttribute VB_Name = "StartWindow" Public Sub Сh()  ThџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџYZ[\ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЂgoџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!џџџџџџџџџџџџџџџџџџџџ|џџџџџџџџџџџџџџџџџџџџџџџџ‡џџџџџџџџџџџџўџџџƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜ўџџџšўџџџœžŸ ЁўџџџЃЄЅІЇўџџџЉўџџџЋЌ­ўџџџЏАБўџџџГДЕЖЗКЙўџџџЛМНОПРСўџџџУФХЦЧШЩЪЫЬЭаЯќбгдежўџџџиўџџџклмнопрстуфхцчшщъыьэюяёўџџџѓўџџџѕіїјљњўџџџќ§ўџўџџџўџџџ   ўџџџ ўџџџK !"#$6&'()ўџџџ+ўџџџ-./012345a789:;<=>?@ABCDEFGHIJўџџџLMOP™QRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|}~€§џџџ‚ƒ„†џџџџ‡[ŒџџџџџџџџЃ‘р§џџџ’“”•–—›™šЄœžŸ ЁЂўџџџ˜ЅЇЈЉЊП­§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџзийклмн>џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџStartWindow&+џџџџ fџџџџџџџџџџџџ2Еo-/џџџџ/œCompObjџџџџџџџџџџџџ-pўџџџ ўџџџ ўџџџ ўџџџўџџџ !"9$ўџџџ&'(ўџџџ*+,ўџџџ.ўџџџ01ўџџџ34ўџџџ678:;<?=>@AўџџџBCDEFGўџџџIJKLMNOPQRSTUVWўџџџYZ[\]^_~abcdўџџџfўџџџhijklmnopqrўџџџtuvwxyz{|}ўџџџ€Т‚ƒ„Š†‡ˆ‰ўџџџ‹Œ Žš’ўџџџ”•ўџџџ—˜™ўџџџ›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСйУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчщъыўџџџэўџџџя№ўџџџђѓєѕўџџџїўџџџљњћќ§ўўџџџўџџџўџџџ    ўџџџўџџџўџџџўџџџ$%"#:ўџџџВ'ўџџџ)*ўџџџ,-./ўџџџ1ўџџџ345ўџџџ789ўџџџ;<=>?@ABCDEFGHIJKLNOWPQRўџџџTўџџџVўџџџX_Zўџџџўџџџ]^ўџџџ`abcdefghijklmnopqrstuvwxyz{|}~€__SRP_4џџџџџџџџџџџџ“m__SRP_5sџџџџџџџџ‹™__SRP_0<wџџџџВ?"__SRP_1џџџџџџџџџџџџдisAppVation.UserInterfaceManager.DoEventslfrmV.Show vbModal Endx†59abпNф„|Ў† –4‡OџџˆЖџџџџџџџџџџ{& Є~щчGІфRІˆФА†ёˆ'иsСL˜FчІаNІЭўп J%_@”qгR˜8ЛЇ$ OЇПЗЄЏbџџџџџџџџџџџџxЛЇ$ OЇПЗЄЏb{& Є~щчGІфRІˆФА†џџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdirџџџџџџџџџџџџ3\fџџџџџџџџџџџџЎхoIVџџџџЊєfџџџџџџџџџџџџџAft ‚: €^ ObЎ Libr@ary/;D1?€„uˆˆ00h}#0‚#€04Ѕ€‡€ 562199F9-3CAA-4ED3-8AE7-37518CF922DQUsers\AGIDRA~1\Data\Local\Te€mp\VBE\ФLp.exd`4@"€с.E р….`ŒM Д РС”ADODB> ADTOРB€‚™РРA12A€+96C-D9EB-4129-B803-931327F7а2D5CС_8ƒ‚Ќgram Files\Commo nSB‡\adoШ\ms@28Т‡ЧeActiveX ыС=„fs€i8Хg@$€AC.ExcelC.EPxc€Аl@.šРA.@k208Ь13pБ1.R.G%Office 1€5\Root\ƒ@EXCEL.EœXEШaB%€ .0Œ–‹€$@Т|т–4Тpa_PDF_EXPORTGрa_ŠP`1FрEX`€ORTюŠ2њ` HЂj1Т‚ [",Qџџџџџџџџџџџџўџџџhџџџџџџџџџџџџўџџџ(UserForm2џџџџџџџџА нћЪ„ЮерЧ„Юfџџџџџџџџџџџџ‚џџџџџџџџџџџџўџџџfrmStartWindow>ІаBЃ=?RЮрvЈќ;ЮoŸЇџџџџfЌCompObjџџџџЈџџџџ^aтLl!"+Ђœ рQСd1G"’ЂU@rert1@mЪ2д/j€}-‰tц"b(ЂхЁ‚f€rmStart#ŒTGс fm …ta tWiДn™wРЏ2О!Џ‚­э$Б`a_IDW_PRINT_A(LLG@€_ЊI€8W‚9R`N@8 _AL 2bk:)omкk: change_draw_propG ЋЁПaр'g h_ (*rw@p`+ovp *q2`я*7oаЛяOc_G@enFuncуOcUGn Pu€c?РсOЦуOЯ/ /E0lsSeжl`я%l``S`Ёхъc чecХ%ЭM/РН%­hП%rY0VisiblАeG№г/V0/Њs0bТ{œ2Ÿ&“пє\џ1( пгbqModu*lгb†M{dОu№г—гŸlП,Ьг Н-ИлбjWfJQcps0Aeхpeа`t!J›s%Ÿ1D_"ц"'_ 1rmCal№д0џџџџѓWC–4§ џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџxџџџџџџX`џџ0џџ(PџџџџџџH€џџџџџџШаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<џџ < `(џџ(џџ endarшGFC 4б"СIЕЁJЭ2ЯР-d`2r? Œр Н‡Oб? 3 IРxP>ыё;S#IdrpQ=92?prП"h—wat@erjetGвwEP tр3rjPtП<5=ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџ(€Checkaalg O ї€@сМTahomaal(€Drawinglg O ї€@сМTahomaglA€H€,№N5€ДTahomaglС@H  € €џџ}№Related FileoЏБџџџџhCompObjџџџџВџџџџaVBFrameџџџџџџџџџџџџў%џџџџџџџџџџџџўџџџУ 6 џџџџ<џџџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% T`џџџџџџџџџџџџpўџџJHџџџџџџ55u„)ƒ^џџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџ€`„dџџџџјџџџџџџџџџ`„fџџџџрџџџџџџџ џџ`„hџџџџШџџџџџџџ џџ`„jџџџџАџџџџџџџ џџ`„lџџџџЈџџџџџџџџџ`„nџџџџ џџџџџџџџџ`„pР˜џџџџџџџџџ`„rџџџџџџџџџ „vџџџџ0џџџџџџџh(% „xџџџџ(џџџџџџџˆ0% VА`џџџџџџџџџџџџ шџџџџџџ&&Њ„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%`„џџџџџџџџџџџџџџ „œџџџџџџџџџџџџxX`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ X `Cut5€ДTahoma4FР€€€€ €ў{0w Sheet Cutme.5€ДTahoma`˜џџџџџџџ<H  Š€ €џџ?}g ЖRough Cutme.Rу ‘ЮуЊKИQ_Tahoma„ƒo(х €ˆPп*€ =8Щћ!AЏa_DњX?uDАt?u§7uџ"T_]C_§ я; Q"ŠlQ"SPD/lS"GШS"Яowпfі0ЦшлqCre№PАusLisvthThumPbnaiА=8$CU`eTPprр s­ ki€PSwtАcT0Њu0Лb+aIlѓџћ2џƒџџ‹бp)_CцЊ;эщŠ23]]2  j3]‹o0П9СlŸ1‚ЯGENERAƒp‚СŠGEN0ъR’ 2’б Пf ЃлацXTES№ЅQ7TрSЛђЄu22Cu?%@2=X`;1.Pri`nt_Ma ж“PPЋ@$с™t€bM@$c№~opЬ3.ЯбJп2&7aлQ=iLРogic_sЄ“Етi№+ogp*Б‚№s'“ЕљS@џѓ? ‡ŸIЄ‹6 А0@ЄT‹!p+(ЖџџrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ@`ќџџџџџџџџџџџџџџџџџџџЁ@‘`ќџџџџџџџџџџџџџџџџџџџЁHЬ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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Program Files\Autodesk\Inventor 2015\Bin\RxInventor.tџџџџџџџџџџџџ џџџџџџQQа„iƒвџџџџџџџџџџџџџџџџџџ€`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџџџ „4џџџџџџџџџџџџpH%`„џџџџџџџџџџџџџџ „^џџџџџџџџџџџџЈP% „œџџџџџџџџџџџџшШ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ jЈ`џџџџџџџџџџџџ xџџџџџџ55!„)ƒ^џџџџџџџџџџџџ˜ € %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџ€(% „xџџџџџџџџџџџџ 0% lџџџџ`џџџџџџџџџџџџ џџџџџџџџџџ V„ „.џџџџџџџџџџџџ% „4џџџџџџџџџџџџ8% „:џџџџџџџџџџџџX%`„>џџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџ%џџџџАџџџџ№џџџџџџџџ Јџџџџ8ƒPџџџџџџџџјџџџџџџџџџџџџџџџџџџh%џџџџˆџџџџАџџџџ№џџџџџџџџ Јџџџџиџџџџ0 „џџџџАџџџџџџџXX%€%џџџџАџџџџџџџџџџџџЈџџџџ  №АџџџџџџџџџџџџЈџџџџ  № џџџџ2 Ммџџ џџ@  X  „џџџџЈџџџџџџџ `% „џџџџјџџџџџџџ`џџџџ  „*@ˆџџџџџџџј’`„dџџџџpџџџџџџџџџ`„.џџџџhџџџџџџџџџ`„6 `џџџџџџџџџ`„@ˆ @џџџџџџџџџ`„8џџџџXџџџџџџџџџ`„BџџџџPџџџџџџџџџа% „>џџџџHџџџџџџџ( Ш% „Д €ўџџџџџџ „FЈ xўџџџџџџ` и% „DР ˆўџџџџџџ€ %`„Rџџџџxџџџџџџџџџ T`џџџџџџџџј ўџџkџџџџџџџџџџTT„x h и џџџџџџџџџџџџ0 @ № џџџџџџџџH џџџџ џџџџџџџџ˜ А ˜ џџџџP џџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџаш@ўџШ рџџџџџџџ џџ @ўџр иџџџџџџџ џџ @ўџј Рџџџџџџџ џџ @ўџh Иџџџџџџџ џџ @ўџ€ (џџџџџџџ џџ @ўџ( џџџџџџџџџ @ўџџџџџџџџџџџџџ А ( џџ @ўџР џџџџџџџ џџ @ўџџџџџјўџџџџџџ џџ @ўџџџџџрўџџџџџџ џџ @ўџџџџџиўџџџџџџџџ ( џџ @ўџи Рўџџџџџџ џџ @ўџ№ Јўџџџџџџ џџ @ўџўџџџџџџ џџ @ўџ0 pўџџџџџџ џџ H  .@ўџА hўџџџOџџ џџ X 0 .Ш 0 5џџџџџџџџh џџџџp џџџџx џџџџ€ џџџџˆ џџџџ џџџџ˜ џџџџ  @ўџи `ўџџџџџџlb#Autodesk Inventor Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{562199F9-3CAA-4ED3-8AE7-37518CF922D0}#2.0#0#C:\Users\AGIDRA~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library *\G{00020813-0000-0000-C000-000000000046}#1.8#0#C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Libraryџџџџџџџџ4_ИW- џџџџџџџџџџџџџџџџџџџџџџ џџ –4a_PDF_EXPORT06576159abџџ(a_PDF_EXPORTџџLl1џџUserForm10M57b43aeaџџйUserForm1џџ‰цjџџfrmStartWindow0N57b43aeaџџїfrmStartWindowџџэ$0‚џџa_IDW_PRINT_ALL09576159abџџ0a_IDW_PRINT_ALLџџmкH)џџ change_draw_prop0џџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ:576159abџџZ change_draw_propџџаЛ`7џџc_GenFunc0`57b85f34џџdc_GenFuncџџExџџclsSelect0O57b43aeaџџЧclsSelectџџ­hРџџfrmVisible0P57b43aeaџџfrmVisibleџџ1(Јє\џџb_GenModul0>576159abџџšb_GenModulџџ-ИРгџџclsSelect10Q57b43aeaџџхclsSelect1џџц'иDџџfrmCalendar0R57b43aeaџџыfrmCalendarџџ‡O№Œ џџfrmIProp0S57b43aeaџџ frmIPropџџh—rџџwaterjet0B576159abџџwaterjetџџ8Щ џџa_DXF_EXPORT0Q57b85498џџPa_DXF_EXPORTџџ§ 8]CџџStartWindow0C576159abџџnStartWindowџџшPіџџ8CreatePartsListWithThumbnail0D576159abџџr8CreatePartsListWithThumbnailџџцЊh)џџUserForm20T57b43aeaџџУUserForm2џџСl€0 џџGENERAL0F576159abџџЮGENERALџџ˜џџTEST0U57b43aeaџџTESTџџX`А% џџPrint_Macro0D57b83b53џџNPrint_Macroџџaа&џџiLogic_start0857b8269cџџЊiLogic_startџџЄ‹№‡џџџџРџџџџџџџџ`џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџPџџџџџџџџАџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџHџџџџ€џџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџЂ(ЁgД‰K•ДЏѓ“їkМџџџџH1ЩЃу MЗ%d$внџџџџющ›ёK>H­gZП­ЊBџџџџІцТj%1FЎЯ9ћ7ЮОџџџџъз|}jO—ƒ˜*ŽAџџџџ@ћO§ПђI“СKi:ЧПkХ2ћaЬ@_"­К№ЖџџџџОCЋ‹2M‰Љ0qиТxжџџџџП$ШОhYx@Є§й\‘Ж‹xџџџџ(m>ѓђщH€5NЧPЪФHџџџџёяqLгOІ%в>СњиЭџџџџљ‹XЭЅЂ‹NЈP!р@uџџџџШЭ ^Z=O€шюїZˆџџџџšРС‹yMšK0№ >К .!B%.4№ 4!D!<.: 4!@'>К'F FœК :(Hdџџ8К :(Hkџџ К :(J]ѕа№Й Structured :!P%R.Lџџџџџџ L!ZЌAT2џџџџ№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")StriуDim oExdoc As Excel.Workbooks oTiуSet oExdoc = oExApp.WorkbooksTitlу!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ!F b'Vkџџ( dЌ ^!t’Bу Get the current row.imet]ѕP№ d ^%R.vау=Set a reference to the primary ComponentDefinition of the row(]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"(уCThe file property is obtained from the virtual component definitionџџиу1Worksheets("STR_BOM").Cells(printrow, 1).ActivateуActiveCell.Value = levelm_ x!|!@'l x!|!~'pу212291=Assembly , 12290= PartѕШЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r8 l lЌ $мЙidw 'nr rЙLCœœ n$„Ќœ‚ nAVџџ!HdџџxЙIDW does not exist for: lA@ kџџHkџџ@ x8œd dџџ(у *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ ATkџџШkџџРЪИoџџА– n 2!BB@!z]ѕ№ 2!8.4z]ѕ( 4!–'`]ѕ@ Й\$ž'œ!| 4!@ЙœЙSave first the Drawing...A@ !~|џџkџџј]ѕ€]ѕ˜ œŠ$œ'Ђ!HК dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪˆу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџ!†у MkDir sName & "\DWG PDF"џџ(уBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd If ЂЙ \DWG_DXF\ œ‘$œ'Ђ Ђ ЂЌ$ІЙDXF$ЄК 4B@ЈК 2!8B@BџџџџџџoџџP–А в 2!BB@]ѕ(]ѕ@]ѕX№ 2!8.4]ѕx 4!–']ѕ№ 4!D!`.^џџџџџџ№ 2!8!D!d.b№Й Thickness b%R.f]ѕА Й\$ž'œџџџџ 4!D!F Hœ H 4!D(FkџџH]ѕ№]ѕ œŠ$œ'Ђџџџџџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪиу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџџџџџу MkDir sName & "\DWG PDF"џџуBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd IfЙFLAT PATTERN DXF'Z ЂЙ \DWG_DXF\ œ‘$œ'Ђ Ђ ЂЌ$ІЙDXF$Є'\у MsgBox dnameџџџџџџ Z \ ^B@hК 2!8B@Boџџ`уSub DXF_single_EXPORT()у( Dim oDoc As Inventor.DrawingDocumentу- Set oDoc = ThisApplication.ActiveDocumentу Dim oFileName As Stringу% oFileName = oDoc.FullDocumentNameџџџџу Dim oArray() As Stringу" oArray = Split(oFileName, "\")у" If oDoc.FullFileName = "" Thenу* MsgBox "Save first the Drawing..."у Exit Subу End Ifу Dim sName As Stringу Dim i As Integer@%у" sName = oArray(LBound(oArray))у# For i = 1 To UBound(oArray) - 1у' sName = sName & "\" & oArray(i)џџу Nextу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџу MkDir sName & "\DWG PDF"џџџџџџуBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd Ifу5 sName = sName & "\DXF\" & (oArray(UBound(oArray)))у; oDoc.SaveAs Replace(sName, Right(sName, 3), "DXF"), TrueџџуEnd Sub– у-Iterate through the contents of the BOM Rows.]ѕР]ѕи]ѕ№]ѕуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooksу!Dim oExSheets As Excel.Worksheets]ѕ уDim DWGFileName As String]ѕ8]ѕP b V œ b'Vkџџ dЌ ^!t’у Get the current row.]ѕh№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕˆ№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'rу ADWGFileName = (Left(PartFileName, Len(PartFileName) - 3) + "idw") rЙLCœ l$„Ќœ lAXdџџ ЙPart does not exist: lA@ kџџ№ kџџш x8œdџџа у *RecDesignProjectManagerшАActiveDesignProject]tLB_ProjectListЇP ListCount6SelectedYЃList*“DesignProjectsЙ ItemByNameОјActivate—|frmStartWindow4#sArray_DirList{ДiDirRowЄвCommandButton1_ClickфСsDirЩоsPath„№ iDirLevel$G WorkspacePathš" vbDirectorygк LB_DirListz“ClearуЭGetAttrЛ™AddItem‡ UserForm_Initialize5cprjName_зprjidє prjid_act"ШIOБ]Path2GetFileNameWithoutExtensionУ:LB_ProjectList_ChangeХ8oprj_setёAoprj_actЄсsFile8a prjid_seto(LB_FileList_iamtKLB_FileList_iptІMLB_FileList_idwьKUpdateFileLists%a_IDW_PRINT_ALLsЃ IDW_PRINT_ALLIєIDW_PRINT_ALLChildрЬ IDW_PRINTЁ oDrgPrintMgrCУDrawingPrintManagerШР PrintManagerХŠPrinterвЉ PrintRangeЩ_ PaperSizeьдkPaperSize11x17 ScaleModeЮpkPrintBestFitScaleˆv OrientationwkLandscapeOrientationŸ SubmitPrint€НIDW_PRINT_ALL_LCмzIDW_PRINT_ALLLCChildЭIDW_PRINT_letterЗh€џkPaperSizeLetterВЦtestrj\›change_draw_propБЦIDW_change_ALLЖYIDW_change_ALLChilduš IDW_changeЙVSave’а c_GenFunc< CheckEmbed„B sEmbedName`“embedfilecount+DembedfileexistŸoOleRefОхReferencedOLEFileDescriptorрЕReferencedOLEFileDescriptors(% DisplayNameНиExcelSheetExistsН SheetName6нoWBmРWorkbookk NoSuchSheethSheets FlatPatternAreaэ< PartDocumentџoDefrЧSheetMetalComponentDefinitionъ} oFlatPatternІЄ FlatPatternИ oTransactionШB TransactionНTransactionManagerWLStartTransactionSЉoSketchѓИ PlanarSketchмSketches0РAddїrTopFaceёЮ oEdgeLoopіŠEdgeLoopк EdgeLoops НIsOuterEdgeLoopЯЖoEdgen8EdgeвEdges—ЯAddByProjectingEntityoProfileF™ProfileЎProfiles# AddForSolidpdArea2'RegionPropertiesЫ7AreaЋBAbort)oCustomPropertyE–ErroŠNumberЃ- clsSelect­ЃoInteractEventsAhInteractionEvents˜г oSelectEventsЅы SelectEventsц7bStillSelecting#ŠPickˆЇfilterД;SelectionFilterEnum‰…CommandManagerџ€CreateInteractionEventsпЋSelectionActiveVћaXAddSelectionFilterUMStartОendoчC oSelectedEnts1ЉObjectsEnumeratorWУSelectedEntitiesjoInteractEvents_OnTerminate˜QoSelectEvents_OnSelectЅњJustSelectedEntities5ASelectionDeviceаыSelectionDeviceEnumˆд ModelPosition€Pointєž ViewPosition85Point2ddrViewаI frmVisibleH oSketchesqPlanarSketchesк™sSketchіЗ vSketches+ˆ iSketchesЖCiSKёŸoPlanesfа WorkPlanesPoPlaneЁ WorkPlanejKsPlaneіћvPlanesл†iPlanesCaiPLƒŸoAxesoŒWorkAxes„oAxisWorkAxis‚sAxisЙдvAxisbŠiAxisr!iAXdoPointsЈЕ WorkPointsбјoPointЯ WorkPointZЧsPointЇwvPointsliPoints…FiPT‹Ÿ bTogglingЅъ chkAxis_Click1ЁtglUnhideSelectr§chkAxisnб chkOriginsФVisibleЖгchkOrigins_Clickmc chkPlanesЈ chkPointsъchkPlanes_ClickchkPoints_ClickzchkSketch_ClickТў chkSketch5cmdHideAll_Click U tglHideSelectщq SkipPlanevѕSkipAxisћSkipPtЊ!cmdUnHideAll_ClickL SkipPlaneHžю SkipAxisHTиSkipPtHJtglHideSelect_ClickўtoSelecteFListŒ›kSketchDefaultFilterЌ›kWorkPlaneFilterщ kWorkAxisFilterдќkWorkPointFilterФ€oObjectJЩHideMore‚…lblInfo SelectType­HParentЎтCaptionxtglUnhideSelect_ClickŽFinishUpD; SkipOrigPlaneКћ SkipOrigAxisDЉ SkipOrigPtмL unHideMoreoUserForm_QueryCloseјCancelё˜ CloseModeиŸ SaveSettingќTop5к b_GenModulQcreateEmbedFileшsEmbedBaseFileВЮkOLEDocumentEmbeddingObject‡‹createSheetinEXCELДœ sSheetNameм„sSheetBaseName=CopyЦПBefore‰оviewfitbeforesaveі™ ActiveViewоwGoHomeЂWorkpointatmasscenter•ИActiveDocumentType>ЯkPartDocumentObject!оkAssemblyDocumentObjectЪО oCenterOfMass#_MassProperties–ћ CenterOfMassЃЋ oWorkPoint)˜ oFixedDefJЫFixedWorkPointDef<_ Definition.7updateвќAddFixedЎBOMSort9StructuredViewDelimiter~PoStructuredBOMViewеІSortЌRenumber,GObroundPєDocumentSubTypeHЭDocumentSubTypeIDyActiveEditObject ћ frmObroundcGShowѕ GetSettingѕ clsSelect1jсqSelectЈфbStopсѕ frmCalendarVum_bGettingDate—ЈGetDate,… StringDateТCalendarIсToday Ъ InitialDate!ћYear6nMonth›DayЄ‚vbModalt DateSerialžU btnOK_Clickа"btnToday_Click~cmdClose_Click!PfrmIPropІ.m_doc?)d_docm_PartNumberPropџsm_StockNumberPropz m_DescriptionPropм4 m_ProjectPropЮbm_KeywordsProp%'m_DesignNamePropЗјm_DesignDatePropc m_ApprovedNamePropйm_ApprovedDatePropЦ€m_MaterialPropЏim_CategoryPropаПm_CommandsPropTэ m_VendorProp†пm_CostCenterProp]>m_CommentsPropжZ m_DocTypePropЏЕm_ModelFileName1љm_DrawingFileNameŸќm_DrawingFileNameExistЩ‰btnApprovedDate_ClickBўnewDate|_txtApprovedDateЄЬbtnCheckedDate_Click*ІtxtCheckedDate$гbtnMFGDate_Clickl txtMFGDate‰ЎbtntQADate_ClickyY txtQADateRЬbtnDrawnDate_Click— txtDesignDateh6cbExtern_Click„џcbExternј txtESDesc{cbMachine_Click&. cbMachine‡ txtMADescЗ† cbPaint_Clickк†cbPaintpг txtPADescйЪ cbWeld_ClickrcbWeldкc txtWEDesc”šcmdApply_Clickм/p_doc'пActiveEditDocumentb’ oPCompDefaZcurrentMaterial№MaterialЖЏ GetDateStringХSetDateFromStringШЕtxtApprovedNameK„ txtDesignNameNю txtPartNumberM™txtStockNumber txtDescriptionjV txtProjectЁК txtVendor`M cbCostCenter ђ obSheetCutљаobSawCutИ“ obHandCut~ДobNormalП8 BOMStructureнkNormalBOMStructure,Ш obPurchaseЈkPurchasedBOMStructurer obPhantomЛыkPhantomBOMStructureS obReferenceKЊkReferenceBOMStructurej. obInseparableakInseparableBOMStructureЋkDefaultBOMStructureої cbMaterialшX MaterialsљOcmdCallDrawing_Click VoDrawDocЮcmdCancel_Click\еobInseparable_click_Ъ obAssemblybY frRoughCut˜оfrFileLabel22gobPurchase_click„йobNormal_clickђ‚obPhantom_clickV7obReference_clickСžtxtApprovedDate_ChangeЂ‡IsDate2Ђ ForeColor vbWindowText‘xvbRedG/txtCheckedDate_ChangeQяtxtDrawnDate_Change txtDrawnDateм txtMFGDate_ChangeF,txtQADate_ChangeљКtxtPartNumber_AfterUpdate}№ControlTipText8зtxtPartNumber_ChangeYтtxtPartNumber_DblClick• ReturnBooleanщepull_upCUTabStopdLabel21fLabel23hobPartКНoDocSummaryInfoPropSetœФoDocDesignTrackingPropSetQzoCustomPropSetcВ yesNoValue РcomposаendposbН fabcomment!cmdCallDrawingJ ExpressionxсEnabledлЊ CheckDateiGetPromptedText™“ TitleBlockрPromptmoTextBoxј<TextBoxЪQSketchj TextBoxesљЊ FormattedTextт— strPrompt-з GetResultText„‰SetPromptedText’лNewValueЂSetPromptResultTextљwaterjet“Л addCUTsheetхŒ oSheetoldЎsSheet[ж ActiveSheet%NoViewls DrawingViewзЧ current_unitvv UnitsTypeEnumА_ unitstringёI SelectSethтkDrawingViewFilterTЮ oNewSheetskBDrawingSheetSize­8 oSheetnewdmoBorderY3 DefaultBorder’СAddDefaultBorderЇоoTitleBlockDef5TitleBlockDefinition(њsPromptStrings m oTitleBlock‚ExcludeFromCountToUOM•#UnitsOfMeasureкb LengthUnits”ЄkInchLengthUnitsC–GetStringFromTypeЈCopyTo[DXF_EXPORT_CUT_DRAWINGdД a_DXF_EXPORT%Export_All_LC_DXFQћExportAllLCDXFChildЉ „џDXF_ExportaПFLAT_DXF_EXPORTЉЇsoutdnamewзoDataIOтDataIOG oParametersњ Parameters`щoThicknessParamкsWriteDataToFile>ExportAllLCDXFChild2мbExport_All_LC_FLAT_DXFM* StartWindowЅ‘UserInterfaceManagery„CreatePartsListWithThumbnailЩdrawDoc partList}q PartsListвwordAppошWordЕk GetObjectzУ CreateObjectјŠ ErrorFoundвеwordDocЗј partListTable%TableёTablesŒ SelectionZЎRangeк  PartsListRowsEPartsListColumnsGwdWord9TableBehaviorЊ‚wdAutoFitFixed@`myrangeс-CellЏ‰TypeTextѕЎTitleђ~rowIndex6d partListRowo— PartsListRowбC StatusBarText>J drawBomRow”С DrawingBOMRowБМReferencedRowsлхrefDoc' thumbNailє IPictureDispл‹ SavePicturezУshapeТ InlineShapeхF InlineShapesйš AddPictureџˆLockAspectRatiocоHeight|‹ursively iterate child rows if present. v!ŠВœ v!Š bЌ Ajkџџp kџџh Ъ` oџџX –Ј]ѕ№ 2..]ѕ № .!8.4]ѕ@]ѕ` 4!@'>№ >К .!B%.4№ 4!D!<.: 4!@'>К'F FœК :(Hdџџ К :(Hkџџx К :(J]ѕx№Й Structured :!P%R.L L!ZЌAj№В.\№В.:№В.4№В..oџџј џџџџ№ –  oџџ]ѕ@№ !.]ѕ ]ѕ   ! “@@@@@@ !  œkџџ Ъ  ! “kџџџџp№ 2!8.ђkК (,@@@@@@ !  œ R (€DA@ ]ѕx ЪPЌ'd dЌ 'dlsЌ'd]бЌѕ@ !D d+*@@@@@  ! “ !  œ@@@@kџџЈ dЌ 'd@@Ъ d$* (€Dџџџџ˜К (,К (,]ѕ !!d'. .Ќ$мЙdxf:œК (,4!tџџџџP] UserForm2*жMyArrayŠВListBox1›ы ColumnCount$ListBox2œыColumn iGENERALj7check_ConstrainsЛВobj_InvDocument“Lobj_InvSketchEntityЈr SketchEntityеobj_InvSketchesY9 obj_InvSketchЧobj_InvPartCompDefФUPartComponentDefinitionЂмobj_InvSketchEntities vbQuestionЪвvbYesNovbYesa? dPosition OriginF“YlXo oPositionљTEST4ЋCreateDrawingExcelTable^ў oActiveSheetдTransientGeometryК† CreatePoint2drŒ astrTitle~’ astrToolsТ oCustomTable‡Q CustomTableWМ CustomTables?oFormatРН TableFormatJ… „џIDW_PRINT_PDFC„џIDW_PRINT_Paper›З€џdef)ƒ €џDocumentName’р „џoRevTableНи€џRevisionTableRowsЕB „џoRowCount’Ы„џoSheet6T€џRevisionTablesPh€џcDocМ„ €џRevisionTableTЭ€џRevisionTableRowMЊModule1b Print_MacroЄе„џIDW_PRINT_Paper_11x17Ќf„џIDW_PRINT_Paper_8x11рd„џIDW_PRINT_Paper_11x17_all{ž„џIDW_PRINT_Paper_8x11_all2’UserFormNTextBox1ІSFrame1ЙLabel_ProjectlistеLabel1,Label2Ž,Label3, ImgPreviewЫ=Label4,CommandButton1|д€џClickŠу €џInitializeгN€џChangeЃЧClassЛ €џOnTerminateT4€џOnSelect% cmdUnHideAllЦ cmdHideAll л €џQueryCloseTєcmdClosejЇbtnTodayѕєbtnOKd› cmdCancelЭcmdApplyЌž btnDrawnDateсјbtnApprovedDateУLabel7“,Label8”,Label18HLabel19ICommandButton6дfrTYP˜xfrWorkstЭ frDocTypeŒ— ComboBox1'и €џAfterUpdateНФ€џDblClickЋ…„џIDW_PRINT_Paper_11x17_sheet%`„џIDW_PRINT_Paper_8x11_sheetП0€џkPrintCurrentSheetRх„џIDW_PRINT_PDF_11x17_allх iLogic_start”* „џLaunchMyRule1&и „џRuniLogicг „џLaunchMyRule2'и„џRuleNameа™ „џiLogicAutoЮM„џGetiLogicAddinм—€џRunExternalRuleЃ’ „џoApplicationР„џaddInsю‰„џaddInex€џApplicationAddInЂ} „џcustomAddIn;C €џClassIdString„@„џNotFoundA  €џAutomationœр„џIDW_PRINT_PDF_11x17_Sheet˜†€џpublichѓ)„џchange_Layer_ColorTТ„џoLayer•D€џLayerКЦ €џStylesManager‹€џLayers‚й€џColor2F €џInternalNameќ€џInternalNameThisApplicationTf €џCreateColor:Љ„џoText‰е €џTextStyleŸ(€џotestад €џTextStyles№оIDW_PRINT_Paper_ANSIt'x17_all‡4C_allЦeIDW_PRINT_Paper_ANSI_C_allЁ„EMDЈ‰ €џџџ_B_var_EMDЙF€џkPaperSizeCSheetя`€џkPrintFullScaleB†Publiucˆ,€џџџ_B_var_Publiuc 0dxfш…dxf_export_from_IDWrаobjSheetЧB objDrawDoc~JobjDrawingView‹§objCurveмu €џDrawingCurveE, €џDrawingViews*w€џViewTypeъЭ€џkStandardDrawingViewTypeVчnxtpЛ€џLabela€џџџ_B_var_objDrawDocшИ€џџџ_B_var_DrawingView9Й €џџџ_B_var_set€џџџ_B_var_ActiveDocumentbє€џџџ_B_var_DrawingDocument% €џџџrawingDocumen^€џџџ_B_var_rawingDocumen;ж€џџџ_B_var_maxlevel _B_var_LeftQсdinХƒ €џџџ_B_var_dinж@dblScaleЗ‡ €џSuppressed|К strViewLabel €џџџ_B_var_IfPђ€џReferencedDocumentDescriptorз?€џReferencedDocument‘5 strFileNameлestrDXFFileNameђ/ oDWGAddIn"6 €џActivatedBа oDXFAddIn Ÿja strIniFileИй oNameValueMapq? oOutputFileлy€џџџ_B_var_oDWGAddIng?€џџџ_B_var_oNameValueMapThisDoc N€џџџ_B_var_ThisDocЄQ€џDocumentEventsФu dblBaseScaleбDXF2№Г DXF_View_Set9WoSheets“ЕoViews0в oDrawingView†M€џџџ_B_var_oDrawDocЩ €џShowLabel|( oDescriptionЌІ oPartNumber‘Y oStringMassY oStringScaleX/ RuniLogic2ЊЩRuninternalRuleiricallup_NC callup_Formтx iLogicFormС  ShowGlobalЃ…FormModeВЭModalЅЬRunRuleрccurDocz€џџџ_B_var_GetiLogicAddin­>џџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ5џџџџџџх џџџџџџџџџџџџы џџџџџџ1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџQ #Уџџџџџџџџџџџџй ›  Я+Ћ%џџџџџџџџџџџџЧџџџџџџ[џџџџџџo4O)s'eї*џџџџџџџџџџџџџџ џџ"џџ$џџ&џџ) (џџџџџџџџџџџџ 8z @ @0  @0@ "€ џџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP џџ|> џџџџ(џџР9џџџџџџџџџџџџџџ(џџЎџџ0ˆ0+Жџџџџ`№* дрџџџџ5 –4Є‹џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ|<0џџ<џџР<џџ<џџџџ< џџ<(џџ<џџЎџџ0xИ+Жџџџџ`џџџџџџџџџџџџ€џџџ@X џџџџ0Œ)ƒКџџџџџџџџАџџџџ€`„Дџџџџ№џџџџџџџ џџ „4џџџџшџџџџџџџЈ%% „Оџџџџаџџџџџџџа%џџџџ@џџџџ џџƒЊџџџџџџџџ џџџџџџџџџџџџџџџџџџ%`„Дџџџџ№џџџџџџџ џџ`„Вџџџџјџџџџџџџџџ€ „4џџџџшџџџџџџџp%ˆ8%8 Ў`џџџџџџџџџџџџ џџџ@˜џџџџџџ„`„Вџџџџјџџџџџџџџџ€`„Вџџџџјџџџџџџџџџ€iƒВџџџџџџџџџџџџџџ„А VР`џџџџџџџџџџџџ@џџџџџџџџџџ„iƒВџџџџџџџџџџџџџџ„џџџџ@ V`џџџџџџџџџџџџ@џџџџџџџџџџ „ j`џџџџџџџџџџџџ џџџ@џџџџџџ„@Рџџџџџџџџџџџџ@РџџџџџџџџџџџџHxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ`„Вџџџџјџџџџџџџџџ€xА`„Вџџџџјџџџџџџџџџ€Аџџ P „Мџџџџ№џџџџџџџ€џџџџај8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPxјˆЖЖјџџџџџјpаџџџџџџџ џџ џџџџШџџџџџџџ џџ @ўџАџџџџџџџ џџ @ўџ˜џџџџџџџ џџ @ўџ€џџџџџџџ џџ €џџ џџџџh8(hџџџџџџџ џџ PPџџџџџџџ џџ џџџџРџџџџ(р˜8џџџџџџџ џџ џџџџ џџџџџџџ џџ `Жјџџџџџџџ џџџџџџџџџџџџ€@иџџџџџџџ џџ @ўџИџџџџџџџ џџ @ўџ џџџџџџџ џџ џџџџџџџџШџџџџџџџџXИџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџрџџџџ(˜џџџџџџџ џџ @ўџ€џџџџџџџ џџ џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4_ИW-пўЪD"p€ џџџџ€ џџџџ"р€ џџџџ№€ џџџџш€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ" € €(€ џџџџN0 @$LPx€€ џџџџ@ˆ˜€ џџџџHАШ€ џџџџ" €џџџџ8 `§џџџџџџџџџџџџџџџџџџџ8 `§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџb1D-rU@@@~x  Q1Aс$A$q$q%Hiдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{i€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHi0€ € џџџџN( 8$LHpx€ џџџџ@€€ џџџџHЈР€ џџџџ€ џџџџB а€ џџџџ€а€ џџџџ&и€ џџџџ€ *ш€ >X(€ џџџџ€€ џџџџ ˜$Ј€ џџџџh€И€ џџџџРџџџџаЙDXFA@ЎyRoџџ–]ѕx]ѕ№ 2!8.4 4ВœЙMissing Inventor DocumentA@ |џџЈkџџ № 2$Ж.Д ДВ›G|j 4 В ДB@ИoџџX–№ К!Ў.Му#Find the add-in you are looking forО0]ѕИЬЦH№Й&{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} К!Ў%А.Оz–@џџџџ€ ОВ›Gzj€ ОB@є€№ О!Ш.Ж€ЃЦ@iџџ8џџџџ0]ѕџџџџР–РoџџРЙ dxf_view_setA@jџџџџА–]ѕ(]ѕX№ 2!8.4 4ВœЙMisИџџџрџџџРџџџHiHiˆVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmObround Caption = "Obrounds By KWiK" ClientHeight = 3465 ClientLeft = 30 ClientTop = 270 ClientWidth = 3315 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer E(ѕ€28Label1thq (ѕ€28Label2thqЪ(х € 8cmdCreateseЇи$х€ 4cmdDoneh; и(х € 4txtPNTwidth; і$х€TchkDimehЇ“ (ѕ€28Label3eh; Ї(ѕ€2< Label4ehЇЇ(х € 4 txtPNTheigth; Eдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq0FР€€€€€І{0џџVertical5€ЅTahoma4FР€€€€ €І{0rtHorizontall5€ЅTahoma0FР€€€€8Label2gq{(х € 8cmdCreateme.ЇžАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgи$х€ 4cmdDone; и(ѕ€ 1љ˜џџџ5žАџџџлMgžАџџџи Mg{ti4txtAngleЇE(ѕ€ 08lblAngleq (е €!frmAlignment; Ї$е€! frmTypeeЇ$х€T chkDimeeЇ“ €dD јџџџАџџџ, €Bas€0{7B7A7752-C6A0-4EAF-A942-6151DB5456BF}{011272D3-иџџџИџџџрџџџРџџџHi aS бS S ёS   S  S ё SS^r@sing Inventor DocumentA@ |џџЈkџџ № 2$Ж.Д ДВ›G|j 4 В ДB@loџџXџџџџPџџџџŽВAttribute VB_Name = "iLogic_start" Public Sub DXF_Export()  Run\ "8СZ EndXp€View_Set2 "dxf_vљserDfhрPrivaЊ‰w@(ByVal‡lBeПAs Sгng  Dim AŸAuto O`bjectКoDoc ume.n€  R ‚ = €ThisApp€ation.Active IfƒIs Nothingen# MsgBox@ "Miss IФnv€2or … €˜B Exitš ’ ŸIfx DAˆ_= Get„dpdin( O‚yH(ыˆ‡K)L ‡5QG .РTExtern@alRule‚5,їFVЪd’b2џbџbТmџb—Р˜AGџb іbinсb" IЦFunРЇon]‰oˆАX…Ё.Ш)Ѕc ЁcaddиInsсшA‚ЁsSD= I Щ Ч'„Fi ƒthe €-in you are look1cforшб @On ErrhGoTonFoun8d f˜[.ItemById("{3bdd8d 79-21€4b11-8a5a-257b1c02@63ac}" j і Ёj‚ jE/#тC…р•ƒ w „Р’mПB‹Bs' р‰Т:b€'Gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  )џџ (џџ:6 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ь 8(@уSet the paper size and scale1Ьш D 8(B H 8(FуSet the paper orientationЬ  L 8(J 8B@Noџџx–˜]ѕ№№ 2!8.4]ѕ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> Ь 8(@уSet the paper size and scaleЬ` D 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџ№–0]ѕˆ№ 2!8.4]ѕЈ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> Ь 8(@уSet the paper size and scaleЬи V 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџh–0]ѕШ№ 2!8.4]ѕx№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> І 8(@уSet the paper size and scaleЬP D 8(B H 8(FуSet the paper orientationЬ L 8(J 8B@Noџџр–]ѕ№№ 2!8.4]ѕ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(> І 8(@уSet the paper size and scaleЬШ V 8(B H 8(FуSet the paper orientationЬ€ L 8(J 8B@NoџџX–ˆ]ѕ˜№ 2!8.4]ѕИ№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another oneйџЙ Adobe PDF 8(>qџ Ь 8(@џџџџуSet the paper size and scaleљџњљљџЬ` D 8(Bфпмџ H 8(FфпмџуSet the paper orientationЬ L 8(JWNIџ 8B@NH?9џoџџ№–`]ѕи№ 2!8.4пџ]ѕ@№ 4!<.8пџу Set the printer nameВЌЉџу? comment this line to use default printer or assign another oneтџЙ Adobe PDF 8(>тџ Ь 8(@щфтџуSet the paper size and scale9џЬј D 8(B: H 8(FычхџуSet the paper orientationЬА L 8(Jычхџ 8B@Nхџычхџoџџˆџџџџ€–]ѕр№ 2!8.4p]ѕ№ 4!<.8vу Set the printer name€}у? comment this line to use default printer or assign another oneЙ Adobe PDF 8(>• І 8(@€šуSet the paper size and scaleЃ€ЅЬˆ D 8(B€Њ H 8(F€ЎуSet the paper orientationЬ@ L 8(J€з 8B@Nк€лoџџ џџџџ џџџџш –x]ѕ № 2!8.4џџ]ѕШ№ 4!<.8џџу Set the printer nameџџџџу? comment this line to use default printer or assign another oneџџЙ'RICOH Aficio MP C5502A PCL 6 (Drafting) 8(>џџџџ Ь 8(@џџџџуSet the paper size and scaleџџџџџџЬр є 8(Bџџџџ і 8(FџџџџуSet the paper orientationЬ˜ L 8(Jџџџџ 8B@Nџџџџџџoџџp џџџџh џџџџ€ џџџџЛГAttribute VB_Name = "Print_Macro" Public Sub IDW_PRINT_Paper()  Dim oDoc As Inventor.Drawin2g,um"RSetR= ThisApp\ation.Active . ^rg˜Mgrf]anageVr a,=p.)'‚ the px0er n€€ƒ"' Hcom[ tS line to use defaultor assign an‚o€&r oneƒ"t€в€жп]п]я.LeюtP;я$џ.tџ]џ.џ]gNnџ.џ]‚‡џ]џ]bї?Œ7Œд]sёsџ]џŒџŒЕџŒcџŒnфu/t1,џ/џŒ“_Р/”џŒџŒЙЁ#isџŒџŒџŒ €”ЯџŒЃџŒџŒngџŒ MУb ћ]Curr`#2чl%/ Ÿƒ/сџA3/^/q/////^/џП–Я+////_//Лџ#^?/‚В?/?/?/?/gУSO^s O^?Мnџ2?/?/?М?М?Мƒ?Мџ?М€:?М?М?М?МЁ ?/џ?/^oМoМ№zQ–ЛБВџЦ^PПЁ ^^Р љМr h)бO/O/O/чO/O/K/DFП]..џ..€.ЯŒ№м\ПЛџШ..p†П]П]ПъМъЗВr one oDrgPri@ntMgr.@er = "Ado€be PDF"œ RangeTѕЈ ]ѕи ]ѕ ]ѕР  @Ќ 2!Ў!t’Ььџ]ѕ№ 8 F(вB@Ј]ѕ0 ]ѕH № @ 2!Ў%R.> М Д(lЎ%yџџˆkџџ€Ъx >ВœфяџЙ"The DXF add-in could not be found.A@ џ|џџ0kџџ(№ 2!И!К.Д!К.№ 2!И!Ш.F!Ш. >!<œџ >B@є"ШџkџџШ @ 2!Ў%R!ФЙ&{C24E3AC4-122E-11D5-8E91-0010B541CD80}œ1CD8Й=C:\_Vault Working Folder\Designs\Templates\INV-DXF-export.ini'B !2!4!t'6In.SЙ+C:\_Vault Working Folder\Designs\DXF Local\ 6 6Ќ $мЙ.dxf'8eMap, џџџџ ]ѕh № 2!И!Т.D!Т.ЙdoneA@ ilџџџџ@џџџџ ЙExport_Acad_IniFile B DBœпџџџџP 2!8 Д D F >BдџџџџА]ѕˆ Ќ % !D'Rcaџџџџу MsgBox strDXFFileNameџџџџ0џџџџиџџџџ˜џџџџЗAttribute VB_Name = "a_DXF_EXPORT" Publ€ic Sub \2() Dim objDrawDoc As" ingument Set D= ThisApp˜ation€.Active0ёSShe9QG}=R@&‘†V8iew•ДdblScale(2T0) ooe† BXase‚ iI@ntegerƒstr+Label%SЅng† Fi|le‚Јd Ѓ˜IЬni ) 6… €аC:\_Vau€lt Workw Folder\Designs\Template@s\INV-€7-export.i,niщRo€ AddInTranВs€ or‚CjALoA5For jс@‡1 ToOrGuB s.CouС€ Ifр Item(j).Class IdУRЃ{C24E3AC4-122E-11D5-8E91-0010B541CD80}"€en џССТž†7ž, ‡pExit€U{End If NЬex€ЖA 6‡P€Is NothСbTh…"MsgBox "@СЮ add-in could not bШe f@Jd.e‚СSub @ЛB FCОРwdШ=OG|СЃValu№eMapvЩmJ 'ТDiр{Objedct=reр C all oi.РB("EbP_AcaФd_ЄY", G['‹фCo mxta"SŸ †Є$eŸ.C‚…1 oЄ.TypŸkAoBrowseIOMechanismФ'Outp ut!DataрMediuРтMШd‰@“ЧB›.ƒ$Ћs(1).т“H iЁq sEИachЃ P! РzoД/#\`W(фЗ.ЁЅ StandalrdHA)Ьl†Љi~)€ь ФСZaЌ[НТ]РЩƒh_ Ё`i + 1Cm uppressedq TruЙ#tП"tяъ*Ѓ П"П" Za)УчжХ,Т.Tцˆa#р`Left(@a&, 4*"dxf: Э›№)S)!Falsџ@!Сe@ Wr@%Ь(Referenc edеx€dcriptor.Я.DiњsрeyСƒXPWˆ"CЏjЋj№ Lo y\" & (u55,!n‘) - 3))Р".]Р"PCхqog8.п%№˜ [ 'tZ?‡3M n.SaveCopyAs(ѓoi, %FѕWџр— = “•%#КS.… Љ2Е0яAвš4яAnњgЁ's“0яAяAэAч\&*?т?(i„i ?MXH..Ey хvdјoneRŽpђtAЋКЌСХhll_LCЏƒ­ѓТЄapBrInvџ№n€0ИЋSR_Qю^X5бbWаJmblyџ•6ЈЁ№BЄ­;B 8BOMъ№ЧvrtSelpyedёŒСVariaЅ˜§ƒР .FullЅ2яс…s.Opeфn(|, GДR†B` дCompрntDefрЇЂПр=ƒv  sLгFirstLevel№OnlyP=ˆN +ь w˜б2o0.Str€ucturedС.люЗ5E TПwОЈй,ЏwEnablџkб Еa aР ЁcŸТ‘ s.‚Ћ>"‡ єP“RK“.AllLC№KChilЌd(a с.pRаŽј, 1у“@t­џ—Сао`"p $У}Њ9PrivPЄ2цŸп г Q ”ЁEn`цФraj, l!Бєй“ 'e t@hroughpe З€Ѕnts ofыђ@ с.г a’оїCЯ•РЩpРa!њ4с]Д1Я ђФ2Э'1‘oEx EЁExаcel.§E'rC = Get3З(,о Д Tud3љsс1тbookГ]U!=З oExApp.Workbooks 'DimШSheets As ExcДel”sL˜ ˜PartFileNameRStrˆing>DWG<1>Typ9Ca@tegory  `eIf level > maxс ThenЮ=)End IfƒFor i = 1 To oBOMRows.`CountŠ Get the current Аrow.‚†o€ЗUƒ ‡ S€‚ =‡.€Item(i)'a refeA€.ce to‚6primaCompon€;Definition oўfD‡5о€Eџ& 'Р/€=Дs.B+1G+†'EEf@ property€%at c€ontains)"t Numbe,r"‡€j ‹is kjAllSheets\'Set t@he pap size and scalђOn Error Resume Nextk@S?= k‚P 11x17-"S_Mod˜BeрstFit0 ›orientatиionƒ$LO‡‚цLo€npeˆ ƒ' БРSubmit™ E€Š Public € IDW_PRPINT_С_‚v_`all()лDim oDoc @As Inv€`or.Drawinvg Јn„ІФ‚= ThisApp2‚;.Activцe‹ A% ƒ‡†DТ.Manageюr C =‚&ƒ“J <' С Т…Сœ@†namФƒ' comm2Рis line to use default p assiєgnР”o@џГРџГяџГAv‹‹џГ џГ€2шcїџYџY w_т…?Z?Z?Zџр*?Z?Z?Z?Z?Z?Z?ДУ‚t+ZCurr9Ђ.ПуvŸДGЧŸДЧƒ.ŸДќ ŸДПm кŸД„ОŸZšZс_ANSI_юCџДџДџД C8ПZПZ§_- ZZё}ZZZ^Nв* 3p‡RICOH Aficio MP C5502A PCL 6Є ( hftn)_‰џд‹_\_‰_‰QVЯR_‰w‘’/ ŠCШ5 %n\Fўu“gя.;Wo o я.?‰5Žя.?‰b џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЋЌВџџџџАџџџџБ:Є{[ЎЗИЙКЛМНОЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЪўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТ№џџџМиџџџg ЮюgXўИџџџ юйиџџџ%V Т˜џџџž˜џџџк€џџџV ТаџџџО˜џџџъиџџџ€џџџg˜аџџџь&ЧЎgwgžаџџџиg$žаџџџйиџџџДИјџџџМиџџџgwgwџџ€јL&јџџџаџџџ№џџџШџ&˜џџџиџ№Ђд(џџџџз –4X`џџЖџџџџџџџџџџџџџџџџџџџџџџxЈћƒ†џџџџџџџџ‡ˆ‰І-ŒŽ‘’О”•–—˜Њџџџџџџџџџџџџџџџџ§џџџџџџџ§џџџџџџџж€џџџџVІЇЎџџџџЋеЂџџџџАџџџџБ:ГЕџџџџЖЗИЙКЛМНзЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЪўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџЌийклмнўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџпџџhџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџ<џџќ<џџ,<џџ2<џџв6 џџџџїa ŒЁ )Ž@>Of oEpIs >V#]!Э}Ћ"n'R@ecursi€Ёy iterр[ childA•s irfрsesсTkN3 !”.CсР€s ћ` hРЙа1сТ+C+`AllLC -Ђ(ѕ ,фГ+рnы "щNex`€ џџџџ 0@Xh€ џџџџ€ <p€ VА€ Z€h6p€Ј€ џџџџА€ џџџџ"р€ џџџџ€Ш€ € џџџџ€и^ш€ џџџџ^ј"Њ0а^x"˜`€ џџџџР€ џџџџџџџџШ–у/ Set a reference to the active drawing documentb]ѕX№ 2!8.Іу$ Set a reference to the active sheetrќx]ѕx№ І!. auу) CrrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџbџџMEџџџџџџџџџџпџџ(џџџџџџrU@@@@~x Q1AсБ&ѕXoџџHџџџџ@o ]ѕ0Ъ]ѕH–Ш№ 2!8.Іўџ а І!д!ж“џџџџ8џџџџ]ѕРџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{‡Y€dD јџџџАџџџ,иџџџџџџЌЌЌ 2!И%о а(иateColџџџџ0Ъџџџџhџџџџ€ р І!д!ц“taџџџџИЌЌЌ 2!И%о р(и "1:05џџџџˆџџџџГAttribute VB_Name = "TEST" Public Sub CreateDrawingExcelTable() ' Set a reference to the act ive dp d€ocumentj Dim oSDoрc As ^ $X$= ThisApp—atio8n.A` 2#“shьee ˆƒ$S Fїƒ$A =[„?>ƒƒ˜‚place{ point ftor‚ tЁƒ…Pч‚„2d ‚> Transi€ЈGeometry.ƒ;„ (1.82Р5, 4.3„д4€astrTitп€1 To 2)Т;РngG# oolts( 1KЏ!SubР Prv€V>bt:ЁуЯ L# ThФisмlicЂ[u€s.Open I? ƒ"Ј€dс …f.Dјraw@!eg#ТЇ!ў=@$+ Ѓ‰Ы …EЇХc o= oрb‰хСыСCтArrpay()Ют€bS plit(І , |"\"oC@>† ˆ"C­7%0SavepZrЦs#pд...Ї\P‚|itсЦу1 s•_‚ rsiQ InР~ "0H (PDF 'бMk]€ Їuч'EOrdner ''0'' wurde inРElgendem Pfad angele№gt: G0$ 6П1rУRc=ык_€:\БKє(Лфт!a№ŸReplaceЕRightYХ3) %"pT FLATA _EXPORќT(+  ??O?Ѕ$$b "(soutѓН41+dn­7!“+§“u.Qp%;cBЖHBПУ0‡@ц Г‡BtB4DataIOС Ÿ“йЃ4fn..wp Pes€E_ ”eѓeяЃonqєxpРcknessв€іogѓІ"&3ƒУQ?Д;пOBАпOпOc.UpДsOfMea sure.`‹gthB!>kInchŸ9ћw2= џѓ F;ч c:ьqQ=џQ`@QІSQqЎCkQбр Qf3QrўyQTиQ0XQQQѓQQ '6AQ1В#’>= "QE PРATTERN…”l7@/S iфDУB=ў џRџR#-аід`В bo8.WrPœБTхЂ? ‘ , ˆуP2:OoVoVsz]З 'Sub DXF_single_EXPORTP() и Dim oDoc As Inventor.Draw3МXum"TSetT= ThisApplication.Acti ve ^ДFileName_Str+UMo=U У )љСa @Сƒ€ ”ъbF€>i€ ФƒF ‚i‚ NexiУ '„ЂP by specifyУРІТsourР ТЉ` fileХA (assР—s@ at‚ first rрow inˆ „ieС e column headers…You0 can…!ТdiІfBТƒusE&l@F argИ ofБ‚AddB‚д €q hoФ~‚…Custќom‡ˆУˆ K€ЇHЋ.ˆs.Р( "REF-Т", oBE, 2, |6,`#DCD!2(Go=р7m &РтУ р End…AШ†change_Layer_Colфor!† тЂAO;„Tр=aсSt~yA7$…B Ÿ„   Each 2oЃInGzТsM€anager.тї$=U.‚Yэ‘r€Objectsфqёc0, A*УZЇџТ—І! џџЬ7yУРІТsourР ТЉ` fileХA (assР—s@ at‚ first rрow inˆ №тдPџџџџ–4џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџX@џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџ џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ<џџ<џџ<џџ <џџŽ<џџ(<<8<џџќ6 џџџџ<`џџыџбЪмvpУо LЖ!PМ‰BцЅŸгЂыrё@….…Ћ6Pћ(зйнЋŒJЃ™}›'EџџџџџџџџџџџџxџџMEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџn'st  !d(у& MsgBox oDimension.Text.FormattedTextЌЪШoџџР–`]ѕИ№ 2!8.Іt у9 Determine if there are any dimensions in the select set.]ѕи№ І!(.ќš]ѕј]ѕ dЌ ќ!t’ d ќ%R@œnailу; Add any dimensions to the collection. We need to save themЌ у= in something besides the selection set because once we startЈу2 manipulating them the select set will be cleared. d ќ%R ўB@œkџџ Ъ ў!tЌ œЙ9You must select at least 2 dimensions for this operation.A@ Ж(|џџИkџџАу? Ask the user if he/she wants vertical or horizontal alignment.]ѕ0ЙPDo you want horizontal alignment? (Selecting "No" results in vertical alignment)   ЙAlign Dimensions$  œК' dџџаК' kџџР dЌ ў!t’]ѕH№ d ў%R.!^ dЌœLNу6 Get the position of the first dimension text. This is!‚у6 the position the other dimensions will be aligned to.(‚]ѕh œ !d!!'!‚dџџШ !d!!'(kџџЈdџџ у& Change the position of the dimension.џџ!]ѕ€№ !d!.џџP œ  (dџџ0  (!‚kџџ  !d(kџџЪјoџџ№џџџџшџџџџhЖAttribute VB_Name = "GENERAL" Sub check_Constrains() Dim obj_InvDocument As cor.( RSketchEnt8ity Z 1es-ObjectJ %PartCo`mpDef *on€Yinitiьon0YiCqZ En‚ratorbol_Ub erBes‚Bo0olea/nt1šbekŽ.SetŽН= This€Applicab€.Active‡Уыˆ ˆ=.JŽDС'Skizzenќ5prќfung nur, wenn keine Teil aЈus Œt€UcР2e€DIfХ.Ibs„ MemŸFШals@heРIХ€ voll b€Qimmt? џˆ3b@gЦ2ЩF†'dem BaО§€+hРe€A‡)… €CтuРЖ> 0@XA% СFor EacžhХ5 @Р esУ+… M.ProfiјlesENhtr№фge <… с3§ТyюЅ ЋХ ­ƒƒ@ЄˆtStat Dє<> v`D@†@ACŒ„!j.kFullђyFed­Ќ2j Oцz- уOve~r&пэрърurрue 'мР^$[Рi“)a End Ifї..=§-Undпїak›%UЁ_< _+luK_nk№nownэ=g,gPjj P' De0qm‘dif there "a1ny АenBszs inБ ˜sel`t.D{ўS‘RРˆЦ€Œ!sЧSd .H1colG`u@NewАll ЖiбLong 1SiаC1 Txo oЦУ\a2€9T0ypeO№oзItem(i) Isv qAi ”С и''@ Add aЋtoЂp $ . We@ need  sЈaveёm:'‘Рsometh0!tќidprpД сcPqe once1р| st0“5maрnipul`…АFmЧ wiђy тc№redР!/Њў.Ё ј!•(3*,ЙKCoАx1Ёo†ŸЩ'uQsW= л‹6tp4ValсfSpБё E€Б< Style‘`rp Font='AIGDT'>n<2/к><† ueœ/>№Дg .T№.$mattedб$є7' ф9eOrG Ѓ(;  H;†AlignѓБ; o0Щ”Мє2ПŸ;НЅŸ;Ÿ;Ÿ;tЁ'џŸ;Ÿ;w#№u Ÿ;Ÿ;Ÿ;бŸ;Ÿ;0ІŸ;et.34#Ÿ;onŸ;Ÿ;he“1(Ÿ;o Ÿ;n Ÿ;™Ÿ;beŸ;Ф`' Ÿ;џr?Ÿ;Ÿ;Ÿ;БKЁ,;ƒџ:t < 2Жє,"You muc€бdDat РC№2 y^f0Ж Ks op6eАеаJ.P4 ‚xi2tёh %(As‚k’Iuser рche/swan(ts р›t бl С horizР; >Юa!1быt(bHЗ€(6л Р У ("Dxo y№ АДП? (Г^AW""No"" resulp kІЦ)", АvbQu!Ю€$+РYesNo, "E2; & X Ц:^ дRР FED N‰€[ ASubA—џџMEџџџџџџџџџџф„<b* –4СlџџˆЖџџџџџџџџАџџіб`OЩ>UIЎр7‰gc ЌY#йл”I˜…F6;PЈ*9ћ6RЛ!TMОc#YьO{y†ѕxфjwrGŒзMkд&Hўџџџџџџџџџџџџx†ѕxфjwrGŒзMkд&Hўіб`OЩ>UIЎр7‰gcџџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<0џџ<8џџ<џџџџџџš0{5495EDE7-sЖ; (х €TchkPointslllЖ‰(х € XchkOriginsllЖHх € T€tglHideSelectsЇ‰Hides Selected Featuresˆх € XX€tglUnhideSelectЇSelect parts to be unhidden! They will hide to make selctions easier until button is up!(ѕ€ 28 lblInfoЇи77C9-447D-913E-D3C9E8E56BC3}{FF15F095-90DB-468C-B886-FE2D0829FEE8}џџџџјџџџџH(џџџџ %’rU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCalendar Caption = "Select a Date" ClientHeight = 3930 ClientLeft = 45 ClientTop = S џџџџџџџџ џџџџџџџџS џџџџџџџџS џџџџџџџџS џџџџ`џџџџџџџџџџџџџџџџџџџџ0џџ!!”`„dџџџџџџџџџџџџџџ€ўџ№ џџџџшџџИџџџџџџџџџџџџ%ўџџџџџџџџџџџџџ џџ№џџџџџџџџ%€Фџџџџhџџџџ@@џџџџџџџџџџџџ ƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ ТџџџџўџџџџџџџРџџўџџџџџџџџџџџџџџџ %џџџџ№џџџџH(џџџџџџџџИџџџџрџџџџшHџџџџ(ИџџџџџџџџHџџџџ(№џџџџџџџџџџџџ`И80џџџџџџџџџџџџџџџџџџџџџџ@а4_ИW-$*\Rffff*0T57b43aeaпџџџџб˜в ўЪ#„€ џџџџ"€ € .( X€ *h ˜€ џџџџ€ 6Јрј € џџџџ€ * Ph€˜АШ€ џџџџрј0H`€ џџџџ€ *xЈИ€ џџџџШ€ џџџџџџџџи]бЌбЌѕ(–H]ѕ у(The 1st list box contains 3 data columnsЌ Ц(Шу#The 2nd box contains 6 data columnsџџhЌ Ъ(Шsureу0Load integer values into first column of MyArray% dЌЌ’џџ d dЌ+Ф:!P dЫџџџџџџу#Load columns 2 and three of MyArrayВ.4ЙZeroЌЌ+ФЙOneЌЌ+ФthЙTwoЌЌ+ФRoЙThreeЌЌ+ФЙFourЌЌ+ФDiЙFiveЌЌ+ФicЙZeroЌЌ+ФЙ Un ou UneЌЌ+Ф ЙDeuxЌЌ+ФЙTroisЌЌ+ФЙQuatreЌЌ+ФЙCinqЌЌ+Фџџу$Load data into ListBox1 and ListBox2ate a Ф Ц,ю s Ф Ъ,Ьcooџџ0џџџџ(џџџџœВAttribute VB_Name = "UserForm2" " €Bas€0{5495EDE7-77C9-447D-913E-D3C9E8E56BC3}{FF15F095-90DB-468C-B886-FE2D0829FEE8} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DDim MyArray(6, 3) 0 P€#€' Sub …А_Initialize(  i AsР Singl€Y 'The 1st libox contain`s 3 d€„€l@umns L€Box1.CoA Count‚3Cƒ&2nd Š#6еа 2 64'Load integer valueso fir@*cТ of'ХCC @— i$0 pTo 5УMiP, 0)РiƒN№ext РCУC s 2 a@2threeŽ…0, ‚1"ZeroР›E‰1ХOnRу ‘ЮуЊKИQ_Tahomaи…e(х €cTcbSheetCutCh{Ї$х€dPcbSawCut{"(х €ePcbMachinetCh{$х€fLcbWeldut{ (х €iPcbAssemblyCh{“ (х €ePcbMachinetn.{$х€fLўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmeŒ2щ…TwM 3†Ь B4FourЬ5пЦ@•Рƒ4*2*У€Un ou U‘+сDeuxŒР+УрTrois рƒрQuatr­ Ѓ№Cinq ‰0"O ?zoE1Ђ1ЅFCЄ1њ.(СФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‰Šєџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџ џџџџџџџџЕЖЗџџџџџџџџЛ(џџџџџџџџџџџџРСЋeџџџџџџџџџџџџЧШAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЪEL 8 E ;@fN As Singl€Y 'The 1st libox contains 3 d№ъдАџџџџ№–4шџџЖџџџџџџџџџџџџџџџџџџџџџџxVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTitleBlock Caption = "Property Entry" ClientHeight = 7470 ClientLeft = 45 ClientTop = 435 ClientWidth = 13215 StartUpPosition = 1 .FullA1  +IArray ()H = S t(W, "\f"t"If‡3ˆ="2"€fen„4‰MsgBox "Save first the Š..."Exit В End IfЗ]„\s’ if€Integer‰wLBounЈd(o‚)€f'P For i€x1 To U  - ^1%…У&D $& ƒ(iХNe\xt[\A 'РJDir(B , vb ec@†y) <> "DWG PœDFEN‚ Mk > ЧХ У‚ WOr€dner ''Р'' wurde in folgendem Pfad angel€egt: ".ћС'FZСТ@СI"= $XF\лСT(ЫNСW Ф.ХReplaceХBRightY3)™@з"РTxrueFСœ(† PrivateС‰ Export AllLC@Child2(oBO`MRowsСƒ„EnРоra], lpevelШŠРmA<'(Ite@e€ЇroHugh‚ЉcoР“n`ts ofТР A .ƒЦNLongGtempstra VarianфAЋСd1™2Ž'AoExР„aExcиel.h†c'‚ŠЃ= GetObj} M(р*.‚yр% dЃ–уWorkboxoksы a€i .Уm$Sheeр%`=G sbc СParіt†† SD™Т0РXуѕхTyp!!IEТC Cgoryэr r#A> maxyCTha—СaЦ=ŸcFуIeJ‡ХN.C Œ$>С'!1ЃIurrс Р rowHсСўo€JСУU a:aгР.cs.рTmЂaТ>a refeР c XoТ primaР ComponDefiniџaЬхY ‡ рџ№,… € Фn1„lСg'@T"fрк properDty at !oa(insт"!F NрumberрХЁaІ'р5`Ъlegi@ubted fromТvirtuЬal` ф d&!ШЛ!ZCU("STR_.").Cell$s(`)ntа, |1)z@&И3{Б.рValue№d"%Чю Z/Ф.ez2{e/7|б./tЖ№e '12291=Assembly ѓА 0=’ 62_Иt.P”а'є"еŒ е рWmв%InfИorm’‹аТ)"евШ!jЖ== ( Left(Љ, (Len)`x3)€ + "idwuK2 0<ЁШ "LC‰t_R@€A№…sл)ƒz?ECall рFLAT_АeХžЉ уH-1ElsDkq5z does not exispxbxиPˆАЉFЁ 7 ` ‘OИЅ8Is| Vу.m? N 'РRecursрЇ№#iqcauAKs iђf 6esАDLЁ vN` qL.bx№@0Аsњ PhpЊdЁR H"ПO|A|E‘‘U{+р7}?I1ЂT)“˜SФubAКPubPƘƒТ_ ƒ_LC_UГМѓЁТPapBfІМwђYџQ^МS R 3сTW:џЅ4ЃЂЁ9CFXРF `Iъ№ЧvrtТS0žctedЁ8п*ˆ§Р0ЏG эPaтЫs.Op№9|,8 Faа/1ВBOЮMА5ТŸŸ(n.рS Žv  ˜  F!ФвL!œOn0*=ƒЃ/@(ьћ.z.ƒucturedVieўwю—Їл1ПП2Ѓi(ЏwEnablћ j`#r•ЎВ"`a qџЄѓ%Т Р!сп%Z‡ 5RЃ?6F:ƒВџ‘S6uzG€ џ„<—a Vэџs2z и9MEџџџџџџџџџџпџџXџџџџџџџџ(0@џџџџџџџџџџџџџџ Hџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџ<џџ <$<џџ€<џџ4<џџ:<џџќ<џџD<6 џџџџ<`џџ>„ „Іџџџџџџџџџџџџp% „џџџџџџџџџџџџ% „џџџџџџџџџџџџА% „"џџџџџџџџџџџџа%`„&џџџџџџџџџџџџџџ „,џџџџџџџџџџџџ % „0џџџџџџџџџџџџ(% „2џџџџџџџџџџџџH(% „8џџџџџџџџџџџџh0% „<џџџџџџџџџџџџЈˆ „>џџџџџџџџџџџџШ8% „Bџџџџџџџџџџџџш@% Nџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ„ „4џџџџџџџџџџџџ`H%`„џџџџџџџџџџџџџџ „œџџџџџџџџџџџџИ˜`„вџџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ№џџџџџџџџџџџџрƒџџџџџџџџPџџџџџџџџџџџџџџP%џџџџрџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ4_ИW-$*\Rffff*0B576159abпўЪ]"€ џџџџ€€ (€8€@€HP€ Bh4Аш№€ џџџџ€€ џџџџ(€ џџџџ€8@€PX€h€ Rp€ џџџџ€ Ш€ џџџџ€шј€ џџџџ€0€ T8€ џџџџ€ џџџџ € џџџџ€ Ј€ џџџџ Р€ џџџџа€ џџџџ иш (0€ џџџџ8€ џџџџ X€ џџџџh€ џџџџx€ џџџџ"€€ џџџџ€ˆ€  Ј€ИР€и€ џџџџр$№ € џџџџ€(€08Pp€ џџџџ€ џџџџ˜€ џџџџА,а€ џџџџ€ џџџџ€ џџџџџџџџ–]ѕX№ 2!8.Іut]ѕx№ І!.fa]ѕ˜]ѕИ]ѕи І!(!tЌœу<If Not TypeOf oDrawDoc.SelectSet.item(1) Is DrawingView Thenѕh№ *ЙSelect the cutting-view. 2!и%в. datdџџ№Ќ І!(%R.kџџ№]ѕ№№ І!€., . ,Bœ D]ѕ№ І!.0rm]ѕ0№ 0%6.2]ѕPуKSet oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.item("RMD Title Block")r formуMsgBox oTitleBlockDef.Name]ЌЌѕpЙ Profile CutЌ+<џџшЙString 2Ќ+< t]ѕАуN Set oTitleBlock = oSheetnew.AddTitleBlock(oTitleBlockDef, , sPromptStrings)pК 0(@, D]ѕа№ 2!8!D.Bnd set B!F'"Й'& " Hœ%ю " B%J'&d &Й millimeterœ‚Йmm'& N(kџџаkџџШЙ Profile Cut & 0( B@єR!‚ 0 B@L(oџџ€–№]ѕH№ 2!8.4]ѕh 4!–'!‚]ѕ€ Й\$ž'œ(]ѕР 4!@ЙœЙSave first the Drawing...A@ |џџрkџџи]ѕи]ѕ№ œŠ$œ'Ђџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪh œ‘$œ'вџџ ЂЙ\dxf\ в'Ђ Ђ ЂЌ$ІЙDXF$ЄК 4B@Јoџџјџџџџ№џџџџ˜ДAttribute VB_Name = "waterjet" Sub addCUTsheet(@) Dim oDraw€Doc As ingumen"tHSetH= ThisApplication.РActive 2WтSkoldX N==ZH)EVi kInchЈ—ˆ’a4 o!GeФ?ћС!с•(I р'Сa€ Ыmillimeн Œ"Ќ Сlm€Сaх†mcч4…гHM №" & G eYcРЧŸуТ€й&aЁ`Дpy@[ЧF ЁЁSubAР DXF_EXPORT_@п_DR`AWING­п#пIФnvЩor.ф’Qрп }CуBM ЕeТръSHЮoЁoc.pFullХ hA rray(Ўwoтe`hSР№t(&  a\П5`1/ГSаopђ8 "­tG"Save firstЃ’g„...y x€x_АV!у! s/ iq9InteŸ oуЃ@SLBPyd(Г)T,For, i€bNU -< 1ƒA)Хs& L"\a'У(iдNќex4ƒSИє‹ЧФУdxfВes’а!Replace(В, RightХ3)@M€,"pM и.џџџџx3ф-(їЋLEДЇм>СМ]Х=5•I€Мjж[оzџџMEџџџџџџџџџџпџџxhџџџџџџџџ(џџџџ8џџџџџџџџ@џџ 0HџџXџџџџџџџџџџџџџџPџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ0џџ|0џџ(<џџ„<џџD<џџl<џџŽ1”џџ<FффЦDr–4h—џџˆЖџџџџџџџџШџџ]Х=5•I€Мjж[оz%'’•`bпIЂMieQ[‚”ћЃШwл=B„|ѕ[8—ˆy3ф-(їЋLEДЇм>СМџџџџџџџџџџџџx3ф-(їЋLEДЇм>СМ]Х=5•I€Мjж[оzџџMEџџџџџџџџџџпџџxhџџџџџџџџ(џџџџ8џџџџџџџџ@џџ 0HџџXџџџџџџџџџџџџџџPџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ0џџ|0џџ(<џџ„<џџD<џџl<џџŽ1”џџ<џџš0џџќ<џџ6"џџџџ<џџџџџџ"иš0{3963014B-C8AD-492C-8973-36BC0586D588}{1A457FA1-AB20-4AAB-B463-F611A00274D6}аp%p%  %@џџџџџџџџ8 %`џџџџџџџџX(%€џџџџџџџџx(% џџџџџџџџ˜(%РџџџџџџџџИ(%рџџџџџџџџи(%џџџџџџџџј(% џџџџџџџџ(%@џџџџџџџџ8(%`џџџџџџџџX(%€џџџџџџџџx(% џџџџџџџџ˜(%РџџџџџџџџИ(%рџџџџџџџџи(%џџџџџџџџј(%џџџџџџџџџџџџ(%b€0Шџџџџџџ@џџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџ 4№`џџџџџџџџџџџџџџџџџџџџРџџ”`„6џџџџџџџџџџџџџџ :``џџџџџџџџџџџџџџџџџџџџШџџ”`„6џџџџџџџџџџџџџџ >а`џџџџџџџџџџџџџџџџџџџџаџџ”`„6џџџџџџџџџџџџџџ B@`џџџџџџџџџџџџџџџџџџџџиџџ”`„6џџџџџџџџџџџџџџ FА`џџџџџџџџџџџџџџџџџџџџрџџ”`„6џџџџџџџџџџџџџџ J`џџџџџџџџџџџџџџџџџџџџшџџ ” P``џџџџџџџџџџџџџџџџџџџџ№џџ ” VИ`џџџџџџџџџџџџџџџџџџџџјџџ ” \`џџџџџџџџџџџџџџџџџџџџџџ ” bш `џџџџџџџџџџџџџџџџџџџџџџrr” „ џџџџџџџџџџџџ€ % „dџџџџџџџџџџџџ 0% „hџџџџџџџџџџџџР8% „jџџџџџџџџџџџџр@% Є` `џџџџџџџџџџџџџџџџџџџџџџ” „ІџџџџџџџџџџџџXH% ЈИ `џџџџџџџџџџџџџџџџџџџџџџ” Њ `џџџџџџџџџџџџџџџџџџџџ џџ ” Дh `џџџџџџџџџџџџџџџџџџџџ(џџ ” ЖР`џџџџџџџџџџџџџџџџџџџџ0џџ ” И `џџџџџџџџџџџџџџџџџџџџ8џџ ” Кp `џџџџџџџџџџџџџџџџџџџџ@џџ ” МШ `џџџџџџџџџџџџџџџџџџџџHџџ” Ц `џџџџџџџџџџџџџџџџџџџџPџџ” Шx `џџџџџџџџџџџџџџџџџџџџXџџ” Ьа `џџџџџџџџџџџџџџџџџџџџ`џџ” Ю( `џџџџџџџџџџџџџџџџџџџџhџџ” а  `џџџџџџџџџџџџџџџџџџџџpџџ” „ џџџџџџџџџџџџ˜  % дј `џџџџџџџџџџџџџџџџџџџџxџџ” ж˜ `џџџџџџџџџџџџP џџџџ€џџ ”)ƒ“џџџџџџџџџџџџp џџџџ„P% „ џџџџџџџџџџџџ  % № `џџџџџџџџџџџџџџџџџџџџˆџџ” кˆ`џџџџџџџџџџџџџџџџџџџџџџ  ” „ џџџџџџџџџџџџ`  % „jџџџџџџџџџџџџ€ @% „hџџџџџџџџџџџџ  8% „˜џџџџџџџџџџџџР X% „фџџџџџџџџџџџџр X% „цџџџџџџџџџџџџX% „шџџџџџџџџџџџџ X%`„ъџџџџџџџџџџџџ џџ`„ьџџџџџџџџџџџџџџ`„юџџџџџџџџџџџџџџ`„№џџџџџџџџџџџџџџ,p `џџџџџџџџџџџџрџџ˜џџМiƒ№џџџџџџџџџџџџџџ€iƒўџџџџџџџџџџџџџџџџџџџ ,nИ`џџџџџџџџџџџџxџџ џџ Мiƒјџџџџџџџџџџџџџџ˜€iƒўџџџџџџџџџџџџџџџџџџџ ,њА`џџџџџџџџџџџџџџЈџџ""М)ƒќџџџџџџџџџџџџ08€`%iƒўџџџџџџџџџџџџџџX€iƒўџџџџџџџџџџџџџџџџџџџ „џџџџџџџџџџџџh%`„ џџџџџџџџџџџџџџ,џџџџ`џџџџџџџџџџџџ џџАџџ!!М)ƒќџџџџџџџџџџџџ(0€`%iƒўџџџџџџџџџџџџџџP€iƒџџџџџџџџџџџџџџp€iƒўџџџџџџџџџџџџџ џџџџџџ „џџџџџџџџџџџџЈh%`„ џџџџџџџџџџџџџџ€ўџ џџџџјџџШџџџџџџџџ %ўџџџџџџџџџџџџџ0џџџџџџџџџџ%"€ h`џџџџ@џџџџџџџџ. "€ ˜hџџџџ8@џџџџџџџџ"€ШpџџџџX@џџџџџџџџ!~"€јxџџџџx@џџџџџџџџо("€(€џџџџ˜@џџџџџџџџ€("€XˆџџџџИ@џџџџџџџџЈ "€ˆџџџџи@џџџџџџџџ"€И˜џџџџј@џџџџџџџџ"€ш џџџџ@џџџџџџџџh "€Јџџџџ8 @џџџџџџџџV G"€HАџџџџX @џџџџџџџџand "€ xИџџџџx @џџџџџџџџS T"€"ЈРџџџџ˜ @џџџџџџџџith "€$иШџџџџИ @џџџџџџџџS v"€&аџџџџи@џџџџџџџџll s"€(8иџџџџј@џџџџџџџџ i"€*hрџџџџ@џџџџџџџџry Ib€,˜шџџџџ џџ@џџџџџџџџds b€. џџџџџџ@џџџџџџџџb€2џџџџџџџџџџ@џџџџџџџџyInfАhџџџџџџџџџџџџˆЈ`џџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@№ ( РhИј `и Ш №x   ј Ш p ˜ АшHx8˜И 8ШџџџџџџџџџџџџџџџџИhџџџџџџџџИџџџџшџџџџџџџџXџџџџа ˜џџџџ€аџџџџˆџџџџ` CoџџџџР‚ џџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџАhџџџџџџџџџџџџˆЈ`џџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@№ ( РhИј `и Ш №x   ј Ш p ˜ АшHx8˜И 8ШџџџџџџџџџџџџџџџџИhџџџџџџџџИџџџџшџџџџџџџџXџџџџа ˜џџџџ€аџџџџˆџџџџ`+џџџџ0џџџџИџџџџР€џџџџ8ШџџџџџџџџАџџџџШџџџџџџџџџџџџ@PаИРџџџџџџџџџџџџџџџџџџџџџџШOx4_ИW-*\R1*#4a*\R1*#6b*\R3*#e*\R1*#1a9$*\Rffff*0S57b43aeaп5$г д(я0ѓ8\@HPX`hp%x`€Bˆ[N˜P уЈА_И]РпШWаbи рdшS№fјeTcйе ѕ(љ0ї8ќ@MHіPZXј`XhYpњxћ€aˆHI˜J KЈџџџџАLИўЪд€ џџџџ€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€€€ џџџџ€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€ џџџџ"А€ 2И€№ј  € џџџџ"(€ 20€hp ˆ˜€ џџџџ" € 2Ј€рш € џџџџ"€ 2 €X` xˆ€ џџџџ"€ 2˜€аи №€ џџџџ€ џџџџ"€ џџџџ 0 8H€ џџџџP€ џџџџ"X€ џџџџ` p€ ˆ˜€ џџџџ € џџџџ"Ј€ џџџџА Ра иш€ џџџџ№€ џџџџ"ј€ џџџџ   (8€ џџџџ@€ џџџџ"H€ џџџџ€P€X`€ 4p€ џџџџ€ЈА€ џџџџ€Р€ џџџџ€ џџџџ€ 0Шј8€ џџџџ@Xp€ џџџџx˜И€ џџџџРи№€ џџџџј(€ џџџџ0H`€ џџџџh€˜€ џџџџ Иа€ џџџџи№&8P€ џџџџXp€˜ЈРа иш № (08hpˆ ˜ИР0и  (  8 X ` 0x Ј А Ш  и ј  0 H P  h x      И Ш  р №     0 € џџџџ$8 `  Px  Ш  и ш №  ј  € џџџџ€ џџџџ" € џџџџ€   8 € џџџџH € џџџџ"P  X h € џџџџ"p € џџџџx  ˆ ˜    А  И  Ш  и € џџџџш "№ € џџџџ ј      ( € џџџџ8 € џџџџ"@ € џџџџH  X h  p €  ˆ  ˜  Ј € џџџџИ "Р € џџџџ Ш  и  ш  ј € џџџџ€ џџџџ"€ џџџџ (8 @P X h x€ џџџџˆ€ џџџџ" ˜ ИШ арш€ џџџџ"№ ј ( 0@H€ џџџџ"P X xˆ  Ј€ џџџџ"А И иш №€ џџџџ"  8H P`h€ џџџџ"p€ џџџџ€ &x€ 2 € и€ш№€ џџџџ*0@`0h˜И€ џџџџ€ џџџџР€ џџџџ"Ш€ џџџџ€ џџџџа€ џџџџ" и€ џџџџ€рш€ џџџџ&ј€ џџџџ € џџџџ"(€ џџџџ0€ џџџџ8€ џџџџ"@€ џџџџ€ џџџџ€ џџџџ€HP€ 4`&˜€ џџџџ€ џџџџР а р №    0 @P X h x ˆ ˜ Ј И Ши€№ д@џџџџC#–4цЊџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџ(џџџџ08HPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџx<џџ<<ˆ< Ž<џџЄ<џџЊ<|<џџВ<џџ6 џџџџH ˆ "Ј а€ џџџџ€ Lр€ 0 8€ P X€ џџџџ x€ € ˆ ˜€ $Ј$а€ џџџџ€ј6 8 H X(` ˆ € џџџџ€ H˜ р"(( P€ џџџџ ` €ˆ€ џџџџ˜ АР€ џџџџ€Ш(а ј џџџџ –у( Make sure a drawing document is active.faЬ@]ѕX№ 2!8.t ТœЙA drawing must be active.A@ x|џџpkџџhу$ Make sure a parts list is selected.џџџџ[]ѕx№Ќ t!(%R.v ТœЙA parts list must be selected.A@ |џџрkџџиЬа]ѕ˜ЬРу. Try connecting to a running instance of Word.џџџџ№гЙWord.Application$~.zџџџџџџ Тœ ТB@ џџџџџџу Start Word.џџџџџџ№ЙWord.Application$€.z ТœЙUnable to start Word.A@ |џџрkџџиkџџаЬШЬ‚РК z(Hџџу Create a new Word document.xџџџџ]ѕИ№ z!0!B!œ.„џџуB Create a table with the same number of columns as the parts list.]ѕи№ z!Œ!Ž v!!tЌ v!’!tЌ ” – „!Š%œ.†џџџџу, Copy the part list headings into the table.]ѕј dЌ v!’!t’џџ]ѕ№Ќ dЌ †%š!Ž.˜Ќ dЌ †%š!Ž! ˜( ˜B@H dЌœЙPreview z!ŒBœdџџШ d v!’%R!ž z!ŒBœkџџ˜Ъу, Iterate through the rows of the parts list.]ѕ0Ќ' ]ѕH Ђ v!“ЙProcessing part list row џџџџ€р€ џџџџ€ш№ € џџџџ€ \€ Zp€ Zа€ 0€H4PˆЈ€ PШ€ џџџџ€> € D`Ј€ џџџџ€Ш2а" 0€ PP€ V ј$&@ h ˆ ЈШш€ џџџџ€(80€hp€ џџџџ€ џџџџ€x€€€ˆ€ џџџџ€ џџџџ ˜$Ј€ џџџџ€ а€ №€ џџџџ€ џџџџ€ $ € џџџџ H Xh p€€ џџџџ€ џџџџ€ џџџџ€ Lˆ€ .и* P`€0ˆИирј(H`x˜€ џџџџ€ џџџџ€ &Аи шј€ џџџџ(@Ph€ x€ *ˆ€ (И€ (р(8H ` p €  0Р№ (8@Xhx    А а0№  0 8 @ H X h p ˆ ˜ Ј  Р  а  р  !0 !P! `!h!p!x!ˆ!˜! !И!Ш!и! №! " " 0"0P"€" "˜" "Ј"И"Ш"€ џџџџ€ џџџџ€ џџџџ€ а"№"# # #0#@# P# `#p#€# #  #А#Р# а# р#№#$ $ $0$8$H$X$h$x$ ˆ$ ˜$Ј$€ џџџџ€ џџџџ€ џџџџА$Р$ и$№$ј$%%(%$@%(h%%Ј%€ џџџџА%а%р%№%ј%&&€ џџџџ€ 0 &€ 8P&€ 6ˆ&€ 2Р&€ 4ј&€ .0'€ џџџџ€ џџџџ`'€ џџџџ€ џџџџB h' p'€ J€'а'ш'№' ј'(€ J( `(x(€(ˆ(€ џџџџ€ L(€ Pр(B 0)68)€ Hp)И)Р)€ $Ш)(№)* *€ џџџџ€ џџџџB (*€ $0*X*€ џџџџ€ T`*И*а*№*€ џџџџј*+0+€ џџџџ€8+@+€ @`+" +€ 6Ш+€ ,,€ 0, .8, h,€ џџџџ€ <ˆ, Ш,€ @и,-0- 8-@-H-P-€ џџџџ€ џџџџB X-€ $`-ˆ-€ џџџџ€ T-ш-. .€ џџџџ(.@.`.€ џџџџ€h.p.€ @."а.€ 6ј.€ ,0/€ `/ .h/ ˜/€ џџџџ€ <И/ ј/€ 80@0X0`0 h0p0x0€0џџџџ0аџџx]@ѕ8]@ѕh]@ѕ˜]@ѕШ]@ѕј]@ѕ(]@ѕX]@ѕˆ]@ѕИ]@ѕш]@ѕ]@ѕH]@ѕx]@ѕЈ]@ѕи]@ѕ]@ѕ8]@ѕh]@ѕ˜]@ѕ ]@ѕШ–€у, Display the calendar form and set the date.џџџџџџ]ѕи 8!d ъ%ю'6џџ 6 8(d%oџџи–№у, Display the calendar form and set the date. џџџџ]ѕH <!d ъ%ю'6џџ 6 <(doџџ`–`у, Display the calendar form and set the date.(%]ѕИ @!d ъ%ю'6 6 @(doџџш–ау, Display the calendar form and set the date.]ѕ( D!d ъ%ю'6 6 D(doџџp–@у, Display the calendar form and set the date.]ѕ˜ H!d ъ%ю'6 6 H(doџџј–А L!‚КœК N(HdџџШК N(HkџџАoџџЈ– R!‚КœК T(HdџџxК T(Hkџџ`oџџX–` X!‚КœК Z(Hdџџ(К Z(Hkџџoџџ–И ^!‚КœК `(HdџџиК `(HkџџРoџџИ–]ѕh]ѕˆ№ 2!f. у. Set m_doc = ThisApplication.ActiveDocument]ѕЈ№ !D.h]ѕШу) Set the values of all of the properties. џџ!8!d !‚$nœ џџ!8!d$p (‚kџџР џџ!r!d !‚œ џџ!r!d (‚kџџˆ џџ!H!d !‚$nœ џџ!H!d$p (‚kџџ@ џџ!t!d !‚œ џџ!t!d (‚kџџ џџ!v!d !‚œ џџ!v!d (‚kџџа џџ!x!d !‚œ џџ!x!d (‚kџџ˜ џџ!z!d !‚œ џџ!z!d (‚kџџ` џџ!|!d !‚œ џџ!|!d (‚kџџ( џџ!~!d &!‚œ џџ!~!d &(‚kџџ№ џџ!€!‚ (!‚ €!HКœ џџ!€!‚ ((‚kџџЈ џџ!‚!‚КœЙLC "(‚ џџ!„!‚КeЙSC "(‚ џџ!†!‚КeЙHC "(‚dџџ(Й "(‚kџџЙ (‚Й *(‚of џџ!R!‚КœlGSЙMA (‚Я *!‚Й|MA; џџ!T!‚Й| *(‚kџџ џџ!^!‚КœMLN !‚Йœ !‚Й ,  (‚kџџ@ !‚ЙWE (‚ *!‚Й|WE; џџ!`!‚Й| *(‚kџџ№ џџ!L!‚Кœ x8ђЯ !‚Йœ !‚Й ,  (‚ kџџ  !‚ЙES (‚ *!‚Й|ES; џџ!N!‚Й| *(‚kџџP џџ!X!‚Кœ !‚Йœ !‚Й ,  (‚€ŒаЯkџџ !‚ЙPA (‚ *!‚Й|PA; џџ!Z!‚Й| *(‚kџџА џџ!ˆ!‚Кœ Œ h(Š8ђЯ џџ!Ž!‚Кex8ђЯ  h(Š џџ!’!‚Кe ” h(Šz џџ!–!‚Кex8ђЯ ˜ h(Š8ђЯ џџ!š!‚Кe œ h(Šdџџр ž h(ŠzkџџШ 2!Д Ж џџ! !‚Йœ, џџ! !‚ !‚œ№ џџ! !‚ !Ђ%R.jуL*m_MaterialProp.Value = Me.cbMaterial.Value j!A@  j !D(lkџџkџџ џџA@rуoџџ№–ш]ѕ@№ 0 2!B%.І џџA@roџџА–` џџA@rhweoџџ–И Ќ!‚КœК Ў(Haetdџџ`К Ў(HlerkџџHК А(HBBК ~(HК В(Hoџџ–К Ў(HК А(HeguК ~(HicК В(HoџџР–h Ќ!‚КœkК Ў(HurodџџК Ў(HWФљџџkџџxК А(HК ~(HК В(H oџџ@–РК Ў(H 'К А(HRК ~(HК В(Hзпaloџџ№– Ќ!‚КœК Ў(HMSdџџРК Ў(HeilkџџЈК А(Hl BК ~(HMSК В(Hookoџџp–p 8!d$О 8!dЙœ Т 8(Рdџџ0 Ф 8(Рkџџoџџ–Ш <!d$О <!dЙœ Т <(Р,dџџа Ф <(РiskџџИoџџА– Ъ!d$О Ъ!dЙœ Т Ъ(Р!dџџp Ф Ъ(Р.kџџXoџџP–x @!d$О @!dЙœ Т @(Рdџџ Ф @(Р$kџџјoџџ№–а D!d$О D!dЙœ Т D(РdџџА Ф D(Рkџџ˜oџџ–( у If txtStockNumber.Text = "" Thenу, txtStockNumber.Text = txtPartNumber.TextуEnd If]ѕ€ № 2!f.  !t !tЌ $м v!dœЙ џџ!v(вЌЌЌ$@ џџ!v(Рdџџ˜Й Partnumber doesnt match Filename џџ!v(вЌџЌЌ$@ џџ!v(Рkџџ@oџџ8–  oџџ(–ј ]ѕx № 2!f.  !t !tЌ $м v(doџџи –˜ AкoџџР –№ ]ѕH № 2!f. у. Set m_doc = ThisApplication.ActiveDocumentЙiPropertys of: !t џџ(‚ !~Ќ0œК  (HК  (мК о(HК Ў(HК €(HК €(мК р(HК Ќ(‚dџџЈ К  (HК  (мК о(HК €(HК €(мК р(HК Ў(HК т(‚kџџ ]ѕh ]ѕˆ № !D.h h!Š',уV Get all of the properties used on the dialog and assign them to the member variables.уS These will be used to initialize the dialog with the current values and to set theуS values later if they're changed. These are all standard properties and will existу in all documents.]ѕЈ №ЙInventor Summary Information !€%R.˜№ЙKeywords ˜%R.№ЙComments ˜%R.*уJ Set m_RevisionNumberProp = oSummaryInfoPropSet.Item("Revision Number")]ѕШ №Й%Inventor Document Summary Information !€%R.фу> Set m_CompanyProp = oDocSummaryInfoPropSet.Item("Company")№ЙCategory ф%R."]ѕш №ЙDesign Tracking Properties !€%R.ц№Й Creation Time ц%R.№Й Cost Center ц%R.(уJ Set m_CheckedDateProp = oDocDesignTrackingPropSet.Item("Date Checked")уO Set m_MfgApprovedByProp = oDocDesignTrackingPropSet.Item("Mfg Approved By")№ЙVendor ц%R.&№ЙEngr Approved By ц%R.№ЙEngr Date Approved ц%R.№Й Part Number ц%R.№Й Stock Number ц%R.№Й Description ц%R.№ЙProject ц%R.№ЙDesigner ц%R.№ЙMaterial ц%R. ]ѕ№Й Inventor User Defined Properties !€%R.ш]ѕ(К'ъ]ѕ@]ѕX]ѕpЬh !@'. . .Ќ $мЙ.idw'0уMsgBox m_ModelFileNameуMsgBox m_DrawingFileName 0$~'2уMsgBox m_DrawingFileNameExist 2ЙœК ђ(HdџџК ђ(HkџџxуF Initialize the dialog with the current values. Special case for dateу' values to treat them as not being set. !‚ џџ!v(d !t !tЌ $м !‚œЙ џџ!v(вЌЌЌ$@ џџ!v(РdџџxЙ Partnumber doesnt match Filename џџ!v(вЌџЌЌ$@ џџ!v(Рkџџ  !‚ џџ!x(d !‚ џџ!z(d !‚ џџ!|(d !‚$n џџ!8(d !‚ џџ!r(d !‚ џџ!t(d !‚$n џџ!H(d &!‚ џџ!~(dу MsgBox m_CategoryProp.Value !~Ќ0œЙ "(‚kџџ "!‚ЙLCœК џџ!‚(‚ "!‚ЙSCeК џџ!„(‚ "!‚ЙHCeК џџ!†(‚у Elseу# Me.obSheetCut.Value = Falseу! Me.obSawCut.Value = Falseу" Me.obHandCut.Value = Falsekџџ№ !‚ЙMA„Ќ œК џџ!R(‚К џџ!T(H *!‚Й|MA„'ь ьЌ œК џџ!T(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!T(‚kџџјkџџ№dџџшК џџ!R(‚К џџ!T(HkџџР !‚ЙWE„Ќ œК џџ!^(‚К џџ!`(H *!‚Й|WE„'ь ьЌ œК џџ!`(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!`(‚kџџШkџџРdџџИК џџ!^(‚К џџ!`(Hkџџ !‚ЙES„Ќ œК џџ!L(‚К џџ!N(H *!‚Й|ES„'ь ьЌ œК џџ!N(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!N(‚kџџ˜kџџdџџˆК џџ!L(‚К џџ!N(Hkџџ` !‚ЙPA„Ќ œК џџ!X(‚К џџ!Z(H *!‚Й|PA„'ь ьЌ œК џџ!Z(H ьЌ *!‚Й|…'ю ьЌ  ю Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!Z(‚kџџhkџџ`dџџXК џџ!X(‚К џџ!Z(Hkџџ0уMsgBox m_DocTypeProp ,­ЫœК џџ!ˆ(‚К ~(HК В(H ,­ЫeК џџ!’(‚К ~(HК В(H ,­ЫeК џџ!–(‚К ~(HК В(H ,­ЫeК џџ!Ž(‚К ~(HК В(H ,­ЫeК џџ!š(‚К ~(HК В(HdџџШК џџ!ˆ(‚К џџ!Ž(‚К џџ!’(‚К џџ!–(‚К џџ!š(‚К ~(HК В(HkџџP  !HКœ j !Ђ“ j! џџ! B@Ъ !‚ џџ! (‚kџџш €!HКœЙ  џџ!€B@ЙMaterial Ordert џџ!€B@ЙMaterial from Stock џџ!€B@ (!‚ џџ!€(‚kџџP !єЌ$мЙ=<œК џџ!x(іК џџ!x(мdџџК џџ!x(іК џџ!x(мkџџру) Me.chbPaint.Value = m_PaintProp.Valueу1 Me.chbSparePart.Value = m_SparePartProp.Valueу/ Me.chbLaserCut.Value = m_LaserCutProp.Valueу+ Me.chbSawCut.Value = m_SawCutProp.Valueу- Me.chbMachine.Value = m_MachineProp.Valueу' Me.chbWeld.Value = m_WeldProp.Valueoџџ˜–ˆ №ЙœуC This is a special date within Inventor that signifies a null date.ЌAЌЌ$'pdџџЬ №X'p Тœу C This is a special date within Inventor that signifies a null date.ЌAЌЌ$'pkџџ€kџџxiџџpуF Check to see if the date is a valid date and return it it as a stringуJ if it is, otherwise return an empty string indicating it hasn't been set.–  ј$јЌA ј$њЌ ј$ќЌœуB The date is the default and hasn't been set to treat it as empty.Й'ndџџ8у Return the date as a string. ј$ј ј$њ ј$ќ$'nkџџрiџџи–Иу Initialize the return value.Й'њуN If there are < or > signs in the prompt replace them with the xml equivalent. ўЙ<„Ќœ ўЙ<Й<$Є'ўkџџ ўЙ>„Ќœ ўЙ>Й>$Є'ўkџџШ]ѕx  ќ!Ц!!“у9 Check to see if this text box defines a prompted string. !Ќ$ мЙ„ $ І'   Й<„Ќ $ м' у 5 Check to see if this is the specified prompted text.  ўœу: Get the current value of the prompt for this title block.  ќ% 'њzџџШkџџРkџџИЪАiџџЈ–Ау Initialize the return value.К'уN If there are < or > signs in the prompt replace them with the xml equivalent. ўЙ<„Ќœ ўЙ<Й<$Є'ўkџџи ўЙ>„Ќœ ўЙ>Й>$Є'ўkџџ˜]ѕ  ќ!Ц!!“у9 Check to see if this text box defines a prompted string. !Ќ$ мЙ„ $ І'   Й<„Ќ $ м' у 5 Check to see if this is the specified prompted text.  ўœу2 Set the value of the prompt for this title block.   ќBК'zџџ˜kџџkџџˆЪ€iџџxџџџџpџџџџ#ЕAttribute VB_Name = "frmIProp"  јBas|0{3963014B-C8AD-492C-8973-36BC0586D588}{1A457FA1-AB20-4AAB-B463-F611A00274D6} dGlobaBlŠSpacoFalse ŠCre atablPr@edeclaI"dгTru BEx0pose0TemplateDeriv–Customiz‹D ƒ€Option 4 licit P€&€* m_doc As Docum,en d ‡PartNum8berб!erty‰StockDescri‚)CYРject™K€eywordsйБ@ignv_ D@IСY Approf] Х нMРrial…йCРgoryк ommanлAVendošoCostvC@…yCР л\o cType…,Va9I›m_Mode`lFileA)сIS @‚ngЉIDrawingŸˆExi stЩ  Sub HbtnI3_C@dk () ' DisРoy th e cal&ar@ form €+ Јset"d2.C€Dim newС:ES№c.АVisiCE’ƒ3 ?= t№Machxine~ t † MўA АŠ > ПFБF€cbPaintn їRO F PO с‘J >‡O O C Weld> чA/ & WE}>'/ / " mdP^lyПI A!AcŸ˜"hЁp•˜З1—‡š‘Sh“=€(Disсicaёž.Act ЃEditЭ7'OOveƒ QoPp~pDef3qmЁon@№in^iё“ —=І.‡я$3чcurr№ŸѕAЕ:‘ ' ёСxv!8s of ИallaA ˜pЈiesдx@;Me.07pbšB <> ХФwSr†(m_IŠ§c")>1ц$Р №FromDпщI?џa“ С" Їaџ'  \Љ ћЦУщ/ t€1`ГteЯ'џ1m__вTџпг чПƒ SЖџЦ “GЄ • ‘Hќ= yfC/fвџGofOcЧџbof(иxXџ†_ƒo“иЏвKЌ0eоЈQzДriptionProp.Value Then  m_Desc”= Me.tx‚tt.TextrРEnd If If`вjectX <> m_?‚!~#zVe№ndory€!<…; ;ƒucbCostCenteоr­w‡ у„ @ommРx“E‚€Machine[XyMA„.‘R!& "|MA;" ђ&DоMAыФ AУ)CWeldЙрѓ2# \""LˆВrё@ , Ј Ÿ K59€ WEh 66(WE™((WE?(%(Exр~ўn(ЏK(JQ(a&( Œ= Б№4`(ES(Щv(ESh(ES(e(№Painк’в_(п_( пPPƒѕ1PyР/ІCя{|P yPy яЁ~obNorm$alйPoP0pDef.BOMSt@ructurgkГYП^Purch|asЏM8„еdOEePhantќom_ ']?6УReferenюc  Ÿkц_YInseparaџ€}П П Ÿ‘OУO ault5BCА5ThisAp plicaAЂ.ActiveDoc"u!oTypb"PaЄrt5ObС сŒ‘№ЁcbMpvri(§9 ”*ЏЁЁхи:ыЉЁMSet cur рtѕ`“m_doc.s.Item(? e) 'mn_eZAЯeчM sgBoxН.NœamŒГa6onА‚ёini… , ЇЉ[ЙUnload`> aSub„ Priv`  cmdCallDrawinˆg_C k()Q`Dim oq  ˜As $… a@ЁМ …s.Open(pТ3Fil~e@ *  p7lOЗ ЁП  obШ0_c… СЃ№+obA€ssemblyя6їfrRoughѓ"ІVЗFa№G3{5пOА1КФИЃfrС.~VFgг$Фз(LРabel22ЈШ3И™obеTп џo ` HО ИЯ 3ТчП goter)…iЏ џAoа? твx n?Ї ™50игП= џ(ЯШДєmЯ?=‡+П П ЈЕ22.Visible = Fal se End Sub Private8 obReference_€click()b nIfBAssembly.ValuАTr ThenTPfrRou ghCut€EŠO-UPЋIf f`rFileT&txtVendorСrLabel.ˆ*ApprovedD’_ChangІe…Š€‡Is (Œ.Text) OŒr  Ц"" ‹˜ForeCol„orvbWilw*‰ŠŸ›Red Р|СQд~@Cheќck_:ˆ :Эд9‰ Ќ9—h9Drawnџ]s J8Kд7 l7ёш6MFG]6DъiџДEЃM{@Jг?ѓу‘QA#ъHд$ПЊВŸ†PartNumber_AfterUŒpd ŠС‰ ' ‰СрStockcB§щ'„*p ‡  %ЇDim m_doc As Document (SetФ= ‘is `Оation.ActiveEd$itч @Left(‚ .DisplayName , LenЯ) p- 4)@ЯшŸMe.ыContrрolTipAž" У0.щ7RGB(0,^ A жGЬп "A'nт2 doesnр" atch ЭnРŠ"п С255Ф­aьWЎ‡6hЫ_„HDHblCТєBy ё ”Caїl P€тХ ёoSummaryInќfo!с‚ЁaIрwу qПtIs.Item("I\nv№`Ь$ 1r:mB†"iБ am_KeywordsџA1? $…ыР#Q?я& ф…сШ[Reђv ђon“uO…T§х ѓС3ђр*я џ1q/я!e18^ваћыСЕ ' Set m_CompanyProp = oDocSummaryInfoT˜.Item(B"Ј") ~aрtegor#€VACDimsDesignTrackingv As с erty…uЅ…1=бdoc.66sН0 c…,ieіs hƒDU"„‰ ŒO‹reatio@n Time‹%CostCentevrЅ% ƒ$‰гh`eckedЈK C &MfgAp€provedBIn‹™9Р  ByAСGVendo%9 C ENameфJEјngrW$(LBMЫ(PartNulmbfs C KS№tockЊB вРl№cripA $NH РrojectпТ?РЁK` yП8et)ЪrerЫMРori|al_BХ…ˆ‹Cрustomс@ˆ7Š#ЫиˆInvzor User De`fined‰!›yesNoValueBooleancH= Falpse !AjAc)РВosСIР‡gerG@mpTfabm!Str€ЉЃOn Err€GoTo 0m_ModelF˜ile!7`žm_ЁЈFul†m_Draw  hLeft(L, Len) - 4) & ".idw"# €бMsgBox? ЗЊ Œч ExˆistРDir€ŸŒРжx B If t "" TheФ8С5cmdCallФ.Visiblюe Ф:aE 0œР cbpMachР†Џс г YMA@*c8hїћQT…=dC нA%Kў|Q"A0 t ёŸвo›„‹еD+И 1,аvŸр|Зс1А(cQb(&`…Я EX‘= Mi&dРп, Ч, љO +А‹д>…qлџwP1gС)8§ѓ)џQ1`H%4/жЄљ Є'Д_KeywordsProp.Value, "WE") > 0 T@hen Me.cbWeld  = True >txtWEDesc.VisibleHcompos,InStr(m_Comment |‚YIf ?7•œ™y(end }T+ 1, Й•D")‡C!€E(# ) - (!4™уfabs€|˜Mid”{&, 2ŒF.‹~с2‡8 _E`nd If‡ ЩEЬls‹sŒ{Fa Q]ŸH РM…|ES@ExternšEђSП"|!ЧF€,Ddџ™\AhПРlU„PъС‡СПЁe+ 4)жNŸЅпNпNТ Ycb >OOю.OOPAOPaintњNPAџNџпaџNт#€~<џџNЏбЧ’BžЃ ппџcСрKпСcЋџNџNѓт Р cbы=вNЮ.аN !'MsgBox ЫDocTyœpeьЃ< ‹m_Ј!Ж51970юobРNormal”PА2Vр1orюЬLaрbel22!_Я С1яobPhрantomп2п<= ппegпopЄ2пobRefРerenceџџПфˆџџџє3џаurchasя§в я-”П&–ПЖ4ПobInse№para@˜пппџ1џш GK№3О*М§"P=Oo&?ЯЎ&џтo~o. GŽ‡A?P&>cbMa€‹iб;ъАќFor Each curEр,tU InРCdшoc.sїс8AddItemƒ0Љk.Name|№Nextw;"Р . pяф—й Ъ'E(hœsm_’t™…ИSpIePar—•m_6?`чhbLё`UrCu)%xSawћпвM™№7in—[0chчџђz№m_с™#с@ёSubЁ PrivA Funct`! Set DF )String(cA As{р*A)Ё!'X= "=%'0&is  a spec№GФ dqwit PEvр:0GthUЕat signifies a null date. SetDDFromSt€ring = @Serial(1 601, )fElsezOn Error Resume Nexжt:ЖC\(j VIfL Th,enC'is a spec˜Ц within Inventy…th ё(­zEрnd IfƒL…€Functio€Y ' Check to see€ if theƒUA‚^validƒa'return дitaбs‚С$C€ s, o€!r wise „an€ empty ƒ indicatоhasn't  beenBtРzPPrivРx E* 6G}Ca(‚,Сb AzsТ~)ƒ;@fYhearG )@‰† ‚A@1MonthЬёDay wv‡G‚Jefault ЧAG 2Utre@x9ŸK‚@HВ 5Р'""Фj§JЌ'€Њ]BAEШ]XЇСGФФŒB, @,@QŸI>…ЮРJ  h‚P@фptedT€д(TitleBlЮo€–РhG, ƒ l%Юn'Рcit@fizюeЂQ„H@Qu@'Щ ˆ'C(`"Yre ai`< `m>B‹ rn Ђ pТ Tplac  mТs‚xml шequ PluЄ,€JIn L(C, "<") <> 0чL€у€Re‚  р<"L,сuCЏ >П AЇ >"Ё ‚gЙ Dim o!5иBoxa1%’.dcBFР&EachGIn ‡9.Defin`5on.SkeШtchХesСKQŒ`‹tРD b dчТНC2edФ„ˆ[€"@Left$(e.@matФM, 7i|"<#/"ь1ЃEРxtract‰?У‘`, whi€€u>s рk`mУunhiqu ЄdBсгrЬ f #РЙs Eџaa, ЄAР`)”a= RighxˆLenє) -€fћASѕ#"€HDN1ƒ+fŽ,Є b]- 1€-#/Ш )@–Ђп љdў †;Ё%,%Р;F `3uЁ 'С`BcurЪrР ‚A oЃkcѓИH b‘HLСDчи-РQ‚lt11–\љQEx^Wu!5ЁS?5x1љГ‡З §ЯU Р#ЯUЯUpvЧUТ,ŽwVal€+і'WBoolead‹аRQ< ~WW<PF>avj!`OWOWptOWђOW !OWOW џueP4OWсPOW"ЅЃ _џOWс_ƒOWдsqџSOWc OWOWіtOWOWь OWšJ OWOW@ŸOWOWOW’A' OWŸtOW1 sѕ' OWџOW;OWЊEqЩFOWўr9OWEgOWMiOWСџ#4OWв…Ц @%†OWџяq7OWOWIрyd ЛOW1'1HB:ЯVtЯVу`ŸЯV CaамјU&E=_Vx‡KџV§P TrоuHоUY• yXAљY (џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRuleName a0 oApplication aБ/PџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<0џџ<8џџ<џџџџџџš0{C4EAD57F-630D-418B-90A3-F68CE2C4782D}{CC3FE5D5-F2CE-44AA-9DDC-0F51DE1DDCBE}8 % %џџџџ,юШ`џџџџџџџџџџџџpџџ8џџМleName џџџџџџџџџџџџџџџџџџџџџџџџ oApplication џџџџџџџџџџџџџџџџџџџџџџџџoDoc iƒ№џџџџџџџџџџџџџџ€iƒўџџџџџџџџџџџџџџџџџџџ `„іџџџџџџџџџџџџџџ  `џџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmIProp Caption = "Property Entry" ClientHeight = 6810 ClientLeft = 45 ClientTop = 435 ClientWidth = 14925 StartUpPosition = 1 'CenterOwner TypeInfoVer = 347 End ry" ClientHeight ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbtxtESDescablO; (х €“4txtWEDescablOE(х €”4txtMADescablOO(х €•4txtPADescablO1$х€–PcbPaintnдЖЖTahoma,FР€€€€€Р{0sePartџџџџџџџџџџџџ@џџ” x`гШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomaАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЗ€@№МTahomaal( €Cost Center.g {З€@№МTahomaA€H€,ЂN5€ДTahomaTahomaal(€Vendoralž{џџџџџџџџџџџџџџџџџџџџHџџ” џџџџ`џџџџџџџџџџџџџџџџџџџџPџџ”€ўџ џџџџџџа$  –џџ[}жfь.Rу ‘ЮуЊKИQ_џџџџџџџџ%ўџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Б џџџџџџџџДџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџДTahoma,FР€€€€€Р{0sePartџџџџ%b€ьџџџџ`џџџџ џџ@џџџџџџџџ5€ДTahoma€€€€Р{0sePart@H  € €џџ}” qDocument TypeRу ‘ЮуЊKИQ_TahomaX‚o(х €ŒPobAssemblyypдд$х€LobPartlyд5€сTahomaal(€Vendoral{З€@№МTahomaalџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџabel21yџ*“ $е€N#frFile1yд˜(х OobAssemblyypдд$х€LobPartlyдџџџџШxџџџџџџџџ џџџџ@џџџџhƒўџџџџџџџџџ€T8cbMaterialmbы4Р (е €U#frRoughCutmbы4$е€r#frTYPe1yА'(х џџџџџџџџџџџџџџџџџџ‚ ъџџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџ0Шxџџџџџџџџ џџџџ@џџџџиџџџџ џџџџ(џџџџ@аџџџџџџџџxџџџџ@џџџџџџџџџџџџШ˜˜X8џџџџџџџџџџџџџџџџџџџџџџ4_ИW-$*\Rffff*0R57b43aeaпвhгpдxџџџџ€ўЪ)€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€€ џџџџB € џџџџ€ (  H Xh€p xˆ Иа€ џџџџи€ џџџџ"ш€ џџџџ  € џџџџ"( 0@€ џџџџ"H P`€ џџџџ"hp €€ џџџџџџџџ аџџx]@ѕ@–К€}4txtVendortmb!a$(ѕ€~2<Label22y!!$е€€#frWorkst%B3п7:Мў'ьу! Initialize with the current date №Йœ ђB@єdџџ]ѕА №X'іџџx і$ј ђ(јџџџџџџ і$њ ђ(њџџ і$ќ ђ(ќџџkџџ( ў џџB@рџџ ђ!ј ђ!њ ђ!ќ$'ю џџA@riџџи–Ш џџA@rџџџџџџoџџИ–  ђB@єџџџџџџoџџ˜–xЙ0, 0, 0'№ џџA@rьџџџџoџџhџџџџ`џџџџhВAttribute VB_Name = "frmCalendarˆ" ˆBasˆ0{C4EAD57F-630D-418B-90A3-F68CE2C4782D}{CC3FE5D5-F2CE-44AA-9DDC-€0F51DE1BE} dGlob„alSpaco False ŠCr@eatablP€redeclaDIdжTru BE`xpose0TemplateDeriv–Cus tomiz‹D Option A3licit P€%€) m_bGe@ttingDAs Booleanub Fuœnc €(Sж3ƒ) € ц Œ+= { ' Initialize with the cu€rrent dАgЖpyj€џџџpyjPџџџpyj џџџpЉnРўџџпZйаџџџ VТШџџџžШџџџйАџџџ9V ТЈџџџžЈџџџк№ўџџI#1У If ˆ@…" xThe€'С…ˆ. Today E‚iёEDim( * cD"= CСШ8)‡У ЦYearРr(H‘ Mon7Œ= Т Day€@ End If#CMe.Sho w vbMР>l‰#„jteS€Žalђ(Š/, †‚&ШРD2ƒUnload< MР­!ХƒЩ‘Sub btnOK_ђC€Œk(ФL@  ?nыŠ-;AcmиdClРg SGT`Fx0, A| “Option Вфˆ€І>–4ц'џџ€Жџџџџџџџџ˜џџ ЬSЧ'­A’оT7w“ь‡*=ћќњ hЇ8+3qЕрŠX0l)JBЁ hmєobџџџџџџџџџџџџxрŠX0l)JBЁ hmєob ЬSЧ'­A’оT7w“ь‡џџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ (џџџџ08Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ`џџЪ`Ю0џџж0џџш0џџє0џџј0@ќ0Hў6"џџџџ Declare a flag that's used to determine when selection stops.€]@ѕА–ˆу Initialize flag.К'ау$ Create an InteractionEvents object.2!Ў№ 2!и!к.Шју< Define that we want select events rather than mouse events.џџК Ш(мzџџџџу& Set a reference to the select events.џџџџ№ Ш!Ю.ЬуGet all the Filters]ѕP оЌ$д‘’у* Set the filter using the value passed in. о$д ЬB@рЪау" The the InteractionEvents object. ШB@ту Loop until a selection is made. аb !Z !BКœA@„dџџ@Ќ'~К'аkџџ(Мџџ Ьфу= Get the selected item. If more than one thing was selected,џџџџу- just get the first item and ignore the rest.%]ѕh№ Ь!ъ.цІ цВ ц!tЌ œџџџџ№Ќ ц%R.в%у '''''''''new'''''''џџ І  $ 0 < H в!l­2 в!l­5 в!l­' в!l­ в!l­  в!l­4 в!l­I в!l­) в!l­3 в!l­+ в!l­' в!l­M в!l­N в!l­PœЌ'~ в!l­eу-kWorkPlaneObjectЌ'~ в!l­eу-kWorkAxisObjectЌ'~ в!l­eу-kWorkPointObject ThenЌ'~dFЌ'~kџџPу '''''''''end new '''''''dџџ(№В.вkџџу# Stop the InteractionEvents object. ШB@Xу Clean up.ЃфР цВ›GЌ'~j№В.Ь№В.Шiџџ–ˆу% Set the flag to indicate we're done.К'ауIIf the users quits with an Escape, clean up to prevent crashing Inventor.№В.Ь№В.Шoџџш–ру% Set the flag to indicate we're done.К'аoџџ – шКœК'а№В.Ь№В.Шkџџhoџџ`џџџџXџџџџфЖAttribute VB_Name = "clsSelect1"D „Bas„0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalЬSpac’False dCreatablPredecdlaIdЏCE xposeTemplateDeriv–Customiz EOption 0lic€it ' DƒF the eve@nt objŸs P04 WithE s oI€nteract„јAs …, ‰ˆŒ.дVarHelШpID€~-1“2ƒр?‡1‰ / I8a flag:at's uAXto de4mine wрhen sТŽIРOps.Ч'bSti„lling €>€BooleanРubT FuncXPick(fi2l€()A „ onBFEnumТOQТZ '€Ri€tialize‚*С = TruРСE‚e anчcФsSex q@hisAppР0aС/.CommandManagerŽ.Cz‰ DefAQ@that w@Sa‡€’CSУ•s ra™Тr`n mo`з„&ЭŠЦLAUvдУ=Х<2a refeјrenr€9XjЉыу „J=MY.ЩC  "G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To U BoundFA)Cљ' суDRЁJvalue pdasATindoс‰.AddуРUŠ dNa Nex€|у!' TР|a Ž9#ЫDn1tar, Loрop un€bРƒ.Сfis made„Do Whi ЁŒXУIf frmVisiІ.tg lHideC OтrlUnhЇc`Ёg oсaDoƒ;ƒ EG‚Гс# TypaH4Ѓj$БEnd ŒIfС O€І$rr ;Go :enфdoЃ' ЁC*# рБitem. р)`\reЃ]oР‹thс;wasdŒed,eej€Е gРL f`irst ЁРyd  ignoТe@]stх*@O„AedEиntsСPƒ‰s‹`Дјtorу сLk€_c"oу%D_ eФ[ 3NŽo …CФ Is €ѕBA $_C &J ˆљ@C >Ё`РЊЇ!—!ЄР‹I@'(1ˆd‹Ёk'newД` С.є838`98880%}9№648 ( сp'm6064э117и448 џ љs 70q 9392џњ83904768я 896576яь89913‚6я89708п&rюп= Q 57УЯ Ю90600№0656RО!!'є0лQ=87616в@ 'kWo€rkPlaneЩuq5њˆЙџР809120г єAxмisяƒъ2я я X935" Ynх oxintѓ576159abпўЪv" € џџџџ€€ џџџџ 0€ џџџџ@€ џџџџH€ џџџџ" P€ џџџџX&p˜ И€ џџџџи€ џџџџ€ џџџџ"рш€ $ј € џџџџ"(€ џџџџ€0 8€ џџџџ HPhИР€ џџџџ€Ша€ џџџџ€рш€ џџџџ€*€ џџџџ@€PX€ џџџџ h xˆ€ џџџџА€ џџџџа€ џџџџи€ џџџџ"р€ 0ш€ 4€PX€ џџџџ€ "h€˜€ џџџџ€А€ >И€ $ј€  0€ 8€ џџџџ€ џџџџ€ 6H €€ џџџџ€ 2 €и"р€ џџџџ(€ џџџџ€ џџџџ@€ џџџџ"H€ џџџџ€P€X€ џџџџ`hRx"ај€ џџџџ* PX€ џџџџ `:p:А€ џџџџ€ џџџџ№€ џџџџџџџџ–]ѕР№ ž   4!r%œ.nor 2 h n(tivb№В.noџџ0–р І z%€B@H І z%€дЊ І z%€B@Ј ІЙ (2) z%€B@H Є ІЙ (2) z%€(oџџ –  2!ЎB@А‚уThisApplication.ActiveView.Fite waoџџи–ј]ѕP№ 2.. event .!Д Ж .!Д ИœЙ-Ppart- oder Assembly-Document muss aktiv seinЌЙFalscher FehlerA@ |џџ@kџџ8]ѕp№ 2!8.4’]ѕ№ 4!D!М!О.КЬј]ѕА№ЙCenter Of Mass 4!D!0%R.РX% Т!ФЌœ]ѕа№ Р!Ц.Тџџ К Т(ј 4B@Шdџџp№ К 4!D!0%Ъ.РЙCenter Of Mass Р(.џџџџkџџ(oџџ –№у* Set a reference to the assembly document.у- This assumes an assembly document is active.]ѕH№ 2!8.4џџу Set a reference to the BOMџџ]ѕh№ 4!D!<.:@џџџџ]ѕˆу8 If MsgBox("First level only?", vbYesNo) = vbYes Thenу FirstLevelOnly = Trueу ElseК'Fу End Ifу/ Make sure that the structured view is enabled.К :(JЙ- :(Юу, Set a reference to the "Structured" BOMView]ѕ №Й Structured :!P%R.аЙ Part Number аBвЌЌ аBдoџџИ–Р]ѕ]ѕ8Ь˜№ 2!8.4џџІ 4!~ Ж 4!и!кЙ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œџџџџџџЙMust be in Part documentA@ џџџџџџ|џџkџџј№ 2!м.– ТœЙ MUST BE IN ACTIVE SKETCH TO RUN!A@ џџџџџџ|џџЈkџџ  оB@рlџџџџЙ KWiK-ObroundЙSettingsЙTopЙ200$т о(˜Й KWiK-ObroundЙSettingsЙLeftЙ100$т о(м„џџџџoџџџџџџџџџџsЖAttribute VB_Name = "b_GenModul" Public Sub createEmbedFile(oDo c As umРent, s8Ž%.SЖng*Baselb2) Dim oO`leReferencedOLE.Descriptor SeRt+= ~./s`.Add(’|, kWА­din€gObject‚G„E.Display„‰lY‹CNotЦh€! End”Ž›Sheetin€EXCEL(s‚ ”oWBExcel.Workbјook€Ÿa €WВ €.‚s.…).Sel€nCopy B€efore:=—м & " (2œ)"фШ B7= ЧFƒ ˆU Єvie wfitbТ,save(€DThisApp­ation.ActiveV€ .GoHome 'иFit ШqAdpoint€atmassc€Мder C*ТВaDppqInvРo kPartУЎ A€ž™ Ass emblyŒ Th enCHMsgB@ox "Pp -` oder`-% muss akР* sein", 16, "F alsch Fephler`‡A aE8xitуbЂ IfџadЁb&@ р ‰т$/!ю$Ь"J CЂ2OfіM 4a P6 ъ„ˆ@ComponD`efiniТFсPropertie s.Щх On Error Resс  Nex`G†СEЂС†Hј†s€.Item("#а Of A"‚€ƒ ƒ€Fр.Numb 08= 0рKЉ;B-Fiјxedрb €Пу!‚/fрЦ.рз„$ХЧoE.#+'a a‚ЗupdЪёЃEls sУч ТF€гтё5†ТОТ(Ўoi%у o†.dŽџ­*%ус!Vс|h‘Hƒ€BOMSortƒ' Сa refcй to the† @Rbp doc"цz.у 'С @knљ/ iр"™dщfm{їЃ b'џgn0+e r џа BаС#FrAЫРр.пn.Т1FirstLe€velOnlyВ oolea€H'“p,ƒH("Ђ lБ oР?РFvbYрesNo)а ЂT.ЯЂсьаCruA_БљY& ž!LІfJГ'№6ke sure@at’strШuct d СhQ€enableddКo.рŽTahEр T‚ q owDe limit’<"-/дTАkЯ%У%"W" џPЁ“ RзД4gџroPЁUHwH%pCall oе^.в1"qk ѓIe-Mq€nrL(1/рeД;Wџ7S ЉObрroundё78С/ƒјЉйketch!€PlanarSђџ]]2a?is†А0<15P,ТJЯ{gШ{_м њ` !.ѕєID€"{28EC8354-9024-440F-A8A2-0E0E55D635Bx0}"Д1!&1ѕ}Must be iмn "ѕH?{bCQ?P…г"cЯУEdќitS j? 2‡MUST BE IN ACTIVE SKETCH TO RUN!ЧП М 3frmФ рАow Top1P7GetР  Иg(Р"KWiK-є E:"„sБаa20†0Б*hLeftЙngrс1ƒL,Ј "€ рџџџџ @џџџџџџџџ џџџџџџџџP%Шџџџџџџџџ8X%B€* џџџџ џџ@џџџџџџџџ€nфtpю\–41(џџˆЖџџџџџџџџрџџ;=ѕШ'M’Fy„ }рRЅj)їmI’pWШ#л‡–Жl?ќ[цM)ю3ZЏжмр­=уB†Ÿв‡К‚1Yџџџџџџџџџџџџxр­=уB†Ÿв‡К‚1Y;=ѕШ'M’Fy„ }рRџџMEџџџџџџџџџџпџџˆ0џџHџџXџџhџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџp(xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ`џџЪ` Ю0џџ0џџ˜0џџ0@0џџ 0P$0џџ00`4<џџЦ<џџж6"џџџџ<џџ<˜џџ< џџ<Јџџ<Аџџ<Иџџ<Рџџ<Шџџ<аџџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџš0{E95C48BE-C9B2-433B-8B08-B3E00B5FF27A}{3EE293FD-476D-442E-A5A7-E2DBEF226C28}€h %"€Щ@hШџџџџ@џџџџџџџџџџџџ(%"€Эџџџџрџџ8џџ@џџџџџџџџџџџџ€%€%0%8џџџџџџџџЈ8%B€   €џџџџ џџ@џџџџџџџџ€р "€а  џџџџP@џџџџџџџџXџџџџџџџџP@%џџџџџџџџpH%B€` Рџџџџ џџ @џџџџџџџџ€Ј "€ рџџџџ @џџџџџџџџ џџџџџџџџP%Шџџџџџџџџ8X%B€* џџџџ џџ@џџџџџџџџ€p "€.P џџџџр@џџџџџџџџшџџџџџџџџр`%џџџџџџџџh%B€:р @џџџџ џџ@џџџџџџџџ€8 b€>џџџџZџџџџ џџ@џџџџџџџџџџџџџџџџџџџџ џџ @`џџџџџџџџџџџџџџџџџџџџpџџ” JX`џџџџџџџџџџџџџџџџџџџџxџџ--” PА`џџџџџџџџџџџџџџџџџџџџ€џџ” R`џџџџџџџџџџџџџџџџџџџџˆџџ” T``џџџџџџџџџџџџџџџџџџџџџџ” XИ`џџџџџџџџџџџџџџџџџџџџ˜џџ44” b`џџџџџџџџџџџџџџџџџџџџ џџ44” jш`џџџџџџџџџџџџџџџџџџџџЈџџee” Єlџџџџџџџџџџџџ€p% „nџџџџџџџџџџџџРџџџџ x%`„xџџџџџџџџџџџџ џџ „€`џџџџџџџџџџџџџџџџџџџџАџџўў”@ p   а Єlџџџџџџџџџџџџp% „nџџџџџџџџџџџџXџџџџ8x%'`„xџџџџџџџџџџџџ џџ и `џџџџџџџџџџџџџџџџџџџџИџџ ” џџџџ `џџџџџџџџџџџџ0 џџџџРџџ”iƒ’џџџџџџџџџџџџџџP €iƒ”џџџџџџџџџџџџџџџџџџ€€ўџЈ џџџџ  џџp џџџџџџџџ'V%ўџџџџџџџџџџџџџи џџЈ џџџџџџџџ!‚%"€ `џџџџˆ@џџџџџџџџ!"€–@ hџџџџЈ@џџџџџџџџ!b€p pџџџџџџ@џџџџџџџџ-Se"€Аx  Й of  v!!tЙ... 2(І  Ќ '  Ђ!Hœу 7 Select the first cell of the current row in the table.№  Ќ †%š!Ž.˜  Ќ †%š!Ž! ˜( ˜B@Hу E Get the thumbnail from the document associated with the current row.]ѕh№Ќ Ђ!Ќ%R.Ј]ѕˆ№Ќ Ј!\!z%R!|.ЎЬ€]ѕЈ№ Ў!А.А Т!ФЌœу Save the thumbnail to a file. АЙC:\Temp\TempThumb.bmpAДџџџџ@џџџџџџџџ"b€ ˜џџџџџџ@џџџџџџџџЌ"€ Јџџџџp@џџџџџџџџ b€0 Аџџџџџџ@џџџџџџџџа"€xИџџџџШ @џџџџџџџџ b€аиџџџџџџ @џџџџџџџџœoO"€"Р шџџџџ8 @џџџџџџџџ@b€&№ №џџџџџџ@џџџџџџџџ"€(@јџџџџ@џџџџџџџџZ(b€,˜џџџџџџ@џџџџџџџџB("€2€ (џџџџ@џџџџџџџџ“omb€6А 0џџџџџџ@џџџџџџџџ9 "€88џџџџX@џџџџџџџџ b€<`Xџџџџџџ@џџџџџџџџ!р p џџџџ` џџџџ@ € а P А И0 р џџџџXx џџџџ` џџџџџџџџЈџџџџџџџџџџџџџџџџџџџџАџџџџџџџџ@џџџџџџџџ` џџџџџџџџџџџџџџџџши№ А€аР ˜  @ џџџџџџџџƒўџџџџџџџџџpџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџџџxџџўџџџџџџџџџџџџџџџџџџџ˜ р p џџџџ` џџџџ@ € а P А И0 р џџџџXx џџџџ` џџџџџџџџЈџџџџџџџџџџџџџџџџџџџџАџџџџџџџџ@џџџџџџџџ` џџџџџџџџџџџџџџџџши№ А€аР ˜  @ џџџџџџџџx џџџџPџџџџX Јџџџџр p џџџџиџџџџ`Ј @џџџџџџџџ0шјpџџџџџџџџџџџџџџџџџџџџџџ :h4_ИW-*\R1*#21a*\R1*#21c*\R1*#4c7*\R1*#15e*\R1*#460*\R1*#461*\R1*#45d*\R1*#45e*\R1*#463*\R1*#2ee$*\Rffff*0P57b43aeaп џџџџ`pлxз€йˆ@˜ж иЈмАеИбРдШкаўЪŸ€ џџџџ€ € € џџџџ€ џџџџ€ €(€0„8€@€ џџџџ€P€X€`„h€p€ џџџџ€€€ˆ€„˜€ € џџџџ€А€И€Р„Ш€а€ џџџџ€р€ џџџџ"ш€ џџџџ№ (@NP АИарш№ј ( 08 @X hpx€ џџџџ€€ џџџџ"ˆ€ џџџџ  А Р а р №    (8Xhp ЈШи р шј(0P`hˆ˜   ЈИиш №ј€ џџџџ€ џџџџ€ џџџџ"€ џџџџ( 8PhNxШирј 8HP X` h€ ˜ € џџџџЈ€ џџџџ"А€ џџџџИШ и№0@H`px€ˆ АИ РШ аш ј€ џџџџ€ џџџџ"€ џџџџ 0 @Xpˆ  ЈА Иа ш€ џџџџ№ј€ џџџџ € џџџџ" € џџџџ   ( 8 @ P  X h € џџџџ p €     Ј  А Р  а fр H P  X  ` €p x €  ˆ ˜  Ј fИ  (  0  8 €H P X  ` p €   А  И Р  Ш €и р ш € џџџџ№ € џџџџ"ј € џџџџ    ( 0 @  H X € џџџџ ` p  €  ˜    А  Р fа 8 @  H  P €` h p  x ˆ  ˜ fЈ    (€8@H P` p€ Ј А И€Шаи€ џџџџр€ џџџџ"ш€ џџџџ №€ џџџџ( 0@€ џџџџH€X€ `€xˆ˜ЈИ€ џџџџ€Ш€ џџџџ€а€ џџџџи № € џџџџ  0@ P `2h   А€ џџџџ И Ш ишfј `p6x АРШ ар ш0№  0€ џџџџ 8 H Xhfx р№6ј 0@H P` h.p   А И Ш ишј (60 hx€ ˆ˜  0Ј и ш№ј€ џџџџ€ џџџџ€ џџџџ" € џџџџ (8@€ џџџџHX `p€ џџџџ€ џџџџx€ џџџџ ˆ˜И а №  8HP` hp €ˆ€ џџџџ    Риј(x8АРШаи№ €( 0€ џџџџ 8 H h€ РаxрXhpx€˜ЈАРШ€а и€ џџџџ р №€ џџџџ (Hhx ˆЈИРШашј€  (€ џџџџ€ 0€H€ џџџџ€ P€hxˆ˜Ј€И€ џџџџ€Р€ џџџџШ р№   0 8@H PX€ џџџџ ` p€˜И Ширш №   f0˜А а р №ј4 HX`h€  АРШаи р0ш  (€ џџџџ 0 @ P`fpи№    0 8 @ H 4P  ˆ ˜   Ј Р р  № !!!!  !.(! X! h!€ џџџџ p! €! ! !А!а!ш! " " ("0"8"@"4H" €""˜" "И"и" ш"ј"### #0 # P# `#h#p#x#€ џџџџ€€#ˆ#˜#€ џџџџ А# Ш#ш#№#ј#$  $ 8$X$`$h$x$ $ Ј$Ш$а$и$ш$ % %8%@%€ џџџџH%€ џџџџP%€ џџџџ"X%€ џџџџ`%x%%Ј%€ џџџџР%€ џџџџШ%€ џџџџ" а%€ џџџџи% ш%ј%& & &€ џџџџF(&Fp&DИ&D'DH'>'>а'€ џџџџ(џџџџ (]@ѕФs\publ]@ѕФ@ts\aut]@ѕр ]@ѕ ]@ѕ@ ]@ѕp ]@ѕАѕ  ]@ѕ]@ѕа ]@ѕ ]@ѕ0 ]@ѕxѕ` ]@ѕа]@ѕ ]@ѕР ]@ѕ№ ]@ѕ@ѕ ]@ѕ˜]@ѕP ]@ѕ€ ]@ѕА ]@ѕѕр ]@ѕ`–Ј B!‚Кœ D!‚Кœџџ ,Ќ *’ џџџџ ,Ќ$('&џџџџ F!‚КœІ  &Ќ$! &Ќ$! &Ќ$!œџџК &$(HdџџH &$!HКœ К &$(Hkџџkџџdџџ &$!HКœК &$(HkџџиkџџаЪШdџџР ,Ќ *’К ,$(HЪkџџˆkџџ€oџџx– B!‚Кœ F!‚КœКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$.(Hdџџи L!‚КœЌЌ$ЙFalseœКЌ$(HkџџЌЌ$ЙFalseœКЌ$(HkџџXЌЌ$ЙFalseœКЌ$(Hkџџ kџџ D!‚КœЌЌ$(ЙFalseœКЌ$(HkџџаЌЌ$(ЙFalseœКЌ$(Hkџџ˜ЌЌ$(ЙFalseœКЌ$(Hkџџ`kџџX N!‚КœЌЌ$8ЙFalseœКЌ$.(Hkџџkџџkџџkџџјoџџ№–X B!‚Кœ L!‚Кœ Ќ ’ Ќ$' F!‚КœІ  Ќ$! Ќ$! Ќ$!œК $(Hdџџ  $!HКœК $(Hkџџ№kџџшdџџр $!HКœК $(HkџџАkџџЈЪ dџџ˜ Ќ ’К $(HЪhkџџ`kџџXoџџP–А B!‚Кœ N!‚Кœ <Ќ :’ <Ќ$8'6 F!‚Кœ 6Ќ$.!œК 6$.(HdџџИ 6$.!HКœК 6$.(Hkџџˆkџџ€dџџx 6$.!HКœК 6$.(HkџџHkџџ@Ъ8dџџ0 <Ќ :’К <$.(HЪkџџјkџџ№oџџш– B!‚Кœpa V!‚Кœn Ќ ’J_E Ќ$'2!8 Ќ$КœК  %R(H-RkџџXЪPdџџH Ќ ’4!@К  %R(H!BЪkџџkџџoџџј–` Z!‚КœК'>К Z(‚џџШkџџР B!‚КœК'>К B(‚ѕkџџ VКœ:!P – “AК –(H'VЪXkџџP LКœВ.\  “4 F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œDiš\FkџџЈkџџ К (H-SeЃ\ˆЪ€kџџx DКœicatio " “Di F!‚КœceІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œš^Fkџџаk]ѕШ№ЙC:\Temp\TempThumb.bmpКК z!Œ!К%М.ЖК Ж(ОЌd Ж(Рdџџ ЙPreview not available z!ŒBœkџџpЬ‚hу A Copy the rest of the part list info into the table for this row. dЌ v!’!t’№   dЌ †%š!Ž.˜En   dЌ †%š!Ž! ˜( ˜B@H d Ђ%R!‚ z!ŒBœЪxkџџpЪhЙFinished 2(ІPК z(Hв |џџ8Ѓ‚0ЙUnexpected error encountered.A@ К z(H4!–oџџ№џџџџшџџџџ ЖAttribute VB_Name = "CreatePartsListWithThumbnail" Public Sub‚ V() ' Make sure a drawing document is active..On Err@or Res! NextDim>Doc As DI H#Set#= ThisApp­ationЬ.Ah 1If7 en!YMsgB`ox "A&Wmрust b€`ƒU„УExit†ƒРEnd Ifƒƒe‹pЋ lЌ|s€elected„}џpЛqТƒ$n2=…s.S".Iрtem(1„Лl$>s"Х6F#b7jGopTo 0ƒ(CС1wXordР^1W€.Шa z' Try` connG_tBo@Žrunninstance xof BƒGХ=€ GetObj€а(, "Э"YHŸР.ClearƒAxсG' StpЩџЫХ„С ’hХŸ€Unable Р?љРed(DѕЈА End If„ аNextH(ThisApplication.StatusBarT  = "FinishedB"^word^.€VisibleBTrue6Exit Sub ErrorFound:MsgBox "Unexpected Be# enc&tрered.dШ_˜џџџџџџџџџџџџџџ%џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџШК "(Hœ_BlaЃ^АЪЈkџџ  NКœt’Re 2 .“ c F!‚КœoO 2!Ќ .%R!œn"š`Fkџџ@kџџ8К 2(Hry ComЃ` Ъkџџoџџ–И Z!‚Кœ%К'>К Z(‚the fikџџа B!‚КœinК'>К B(‚"rmkџџ  VКœperty  – “omК –(Hal comЪhkџџ` LКœ9   “ts F!‚КœllІ  !Ќ %R! !Ќ %R! !Ќ %R!œ12šdFkџџИkџџАК (HCateЃd˜Ъkџџˆ DКœInform " “! F!‚Кœ!І  "!Ќ %R! "!Ќ %R! "!Ќ %R!œtešfFkџџрkџџиК "(H ЃfРЪИkџџА NКœor: "  2 .“ F!‚Кœ 2!Ќ .%R!œRešhFkџџPkџџHК 2(Hesent.Ѓh0Ъ(kџџ oџџ– >КœџџК'>|џџ№kџџш B!‚КœB@К'>К B(‚ 2!kџџИ Z!‚Кœ!]ѕhу set the filter n]бЌѕˆ c pЌ+nne rЌ+nt tЌ+nig vЌ+nbe]ѕаЃz(№$n l%в.xџџК |(Hџџ ~Ќœ|џџшkџџр ~Ќœ V!‚Кœ№ x!€.–К –(Hdџџ˜Й&Sketches not Enabled in above checkbox |(‚К |(HkџџH ~Ќe L!‚Кœ№ x. F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œК (HdџџˆЙ) Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ8dџџ0К (HkџџdџџЙ$Planes not Enabled in above checkbox |(‚К |(HkџџШ ~Ќe D!‚Кœ№ x." F!‚КœІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œК "(Hdџџ Й) Ignore Origins Enabled in above Checkbox |(‚К |(HkџџИ dџџА К "(Hkџџ˜ dџџ Й"Axes not Enabled in above checkbox |(‚К |(HkџџH ~Ќe N!‚Кœ№ x.2 F!‚Кœ 2!Ќ .%R!œК 2(Hdџџа Й) Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ€ dџџx К 2(Hkџџ` dџџX Й$Points not Enabled in above checkbox |(‚К |(Hkџџ kџџ šzFdџџј kџџ№ №В.loџџр –ш >Кœš†FkџџИ Z!‚КœК'>К Z(‚kџџˆ B!‚Кœ !t' Ќ ЌЌфh Ќ ’ $! Ќ+ $!H Ќ+ V!‚Кœ $!HКœК $(HdџџА К $(Hkџџ˜ dџџ К $(Hkџџx Ъp !t'Ќ ЌЌф˜ Ќ ’ $! Ќ+ $!H Ќ+ L!‚Кœ F!‚КœІ  $!Ќ %R! $!Ќ %R! $!Ќ %R!œК $(HšˆFkџџ0kџџ( $!HКœК $(HdџџјК $(HkџџрkџџиЃˆаЪШ !t'*Ќ *ЌЌф(Ш ,Ќ *’ ,$! ,Ќ+( ,$!H ,Ќ+( D!‚Кœ F!‚КœІ  ,$!Ќ %R! ,$!Ќ %R! ,$!Ќ %R!œК ,$(HšŠFkџџˆkџџ€ ,$!HКœК ,$(HdџџPК ,$(Hkџџ8kџџ0ЃŠ(Ъ  .!t':Ќ :ЌЌф8ј <Ќ :’ <$.! <Ќ+8 <$.!H <Ќ+8 N!‚Кœ F!‚Кœ <$.!Ќ$.!œК <$.(HšŒFkџџ8kџџ0 <$.!HКœК <$.(HdџџК <$.(HkџџшkџџрЃŒиЪауџџMEџџџџџџџџџџпџџџџџџџџ(€Cancell O ї€@сМTahomal(€Applyal O ї€@сМTahomal€H€,Š45€ЅTahomal€&q ™ С Щ i"9!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqџџџџџџџџcbMachineSteдд$х€„LcbWeldutдO$х€‡XcbExternдЪ€H €P €џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ<џџ<џџџџџџџџџџЈ nџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџƒnџџџџџџџџ˜џџџџџџџџџџџџџџ%џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhaS бSџџ<џџ<џџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџX4_ИW-$*\Rffff*0C576159abпўЪ€ џџџџ"€ џџџџ(€ џџџџџџџџ8– 2!pB@„um ў іB@рinoџџPџџџџHџџџџ•АAttribute VB_Name = "StartWindow" Public Sub Сh()  Th New Selection]ѕу set the filter]бЌѕ  pЌ+n rЌ+n tЌ+n vЌ+n]ѕhЃŽ8№$n l%в.xК |(H B!‚Кœ|џџјkџџ№ ~Ќœ >Кœš†FdџџРК'>|џџАkџџЈkџџ  ~Ќœ№ x!€.– Ќ ’ Ќ$ –!œК Ќ+К –(Hyџџ kџџЪ ~Ќe L!‚Кœ№ x. F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œ Ќ ’ Ќ$ !œК Ќ+К (HyџџkџџЪјdџџ№Й(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ dџџ˜ Ќ ’ Ќ$ !œК Ќ+К (Hyџџ8kџџ0Ъ(kџџ dџџЙ$Planes not Enabled in above checkbox |(‚К |(Hkџџа ~Ќe D!‚Кœ№ x." F!‚КœІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œ ,Ќ *’ ,Ќ$( "!œК ,Ќ+(К "(HyџџШkџџРЪИdџџАЙ(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ`dџџX ,Ќ *’ ,Ќ$( "!œК ,Ќ+(К "(Hyџџјkџџ№ЪшkџџрdџџиЙ"Axis not Enabled in above checkbox |(‚К |(Hkџџ ~Ќe N!‚Кœ№ x.2 N!‚Кœ 2!Ќ .%R!œ <Ќ :’ <Ќ$8 2!œК <Ќ+8К 2(HyџџаkџџШЪРdџџИЙ(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџhdџџ` <Ќ :’ <Ќ$8 2!œК <Ќ+8К 2(HyџџkџџјЪ№kџџшdџџрЙ$Points not Enabled in above checkbox |(‚К |(Hkџџ˜kџџšŽFkџџ€Ѓ†x V!‚Кœ Ќ ’ Ќ$' Ќ$  %R(HЪkџџ L!‚Кœ Ќ ’ Ќ$' Ќ$  %R(HЪ kџџ˜ D!‚Кœ ,Ќ *’ ,Ќ$('& ,Ќ$( & %R(HЪ0kџџ( N!‚Кœ <Ќ :’ <Ќ$8'6 <Ќ$8 6 .%R(HЪРkџџИ№В.loџџЈ–€№ 2!8!D!š.№ 2!8!D!.№ 2!8!D! .№ 2!8!D!0..К'>oџџ0–и Z!‚КœК Z(‚kџџ B!‚КœК B(‚kџџиЙKWiK Inventor VisiblityЙSettingsЙ SketchCheck V!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ OriginCheck F!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ PlaneCheck L!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ AxisCheck D!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ PointCheck N!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙYLoc џџ!˜A@–ЙKWiK Inventor VisiblityЙSettingsЙXLoc џџ!мA@–oџџшџџџџрџџџџРДAttribute VB_Name = "frmVisible"D „Bas„0{E95C48BE-C9B2-433B-8B08-B3E00B5FF27A}{3EE293FD-47642E-A5A7-E2DBEF226C28} dGlobaBlŒSpacoFalse ŠCre8ataЃБPr@edeclaI"d#Tru BEx0pose TemplateDeriv–Customiz‹D P WithEvents oI€nteract„ˆAisAppVation.UserInterfaceManager.DoEventslfrmV.Show vbModal Endx†59abпNф„|Ў† –4‡OџџˆЖџџџџџџџџџџ{& Є~щчGІфRІˆФА†ёˆ'иsСL˜FчІаNІЭўп J%_@”qгR˜8ЛЇ$ OЇПЗЄЏbџџџџџџџџџџџџxЛЇ$ OЇПЗЄЏb{& Є~щчGІфRІˆФА†џџMEџџџџџџџџџџпџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџs …ion rŒ.€аVarH elpIDh-1с“2Sele‰1‰ /  oSk€etches @-РPlanarE [sУ SРnЪg‡v…():PiantЧiХ,0 iSKСNgerJ)A&У(Work{CЧoСFswŽ&Bs&C€%PrL•%Ax%Сˆ$AќxiТTA$С$…Ю#OU#СР"AXе"PќoiЃ€qAЂшТџaІ(†O$тV$ЂA$TдbTogglingсBoolean);Sub chkЁ_Cl ick()С If tglUnhideCZ.Va luс†a~ The@ !a фЙ!For iр(= 1˜ To@ 5 !­isA qvс(р8, 0@ЭУOrрigins=…€…Х oСF(1).bДF_яaOr ы2їџФу 3фK&Ххѓc" ).Х dЈ­§сEТЗ1aРY 8БдCОaEndј If3)uŸЉPm,NexЯЉO.iso# ?.?J1мј5 ї‘=>k2?>?>?>%А0>Я60AŸ-CasџБ5П,pu05ў(А4y=_^?џћГ\т[ŸЁ•%п!УCnKQ№vг(1, 1)Aк"ЂA"e1ca‘ 0NextvdFo r iPLМ1 ќTo‚Ы…S€ŽжOK LˆTХ' ASub Pr@ivate € chkPoints_Click()m€YtglUnhideSelect.ValuџС‹A{Œ‹@ Fй AУ?nTЧ?ТЯ?s&€ vC((iPT, 0@(AЩCOrigxins FoD1).NameџмТE ƒмf…ДA#џ\м$7џsџs! gџз_п+R•CЩ+зѓх\‹ ёџsсsџSХ-РR|@џsљsSkeјtchџs_€2рs# 3dтsSKцsЃes0tCAt…(iSKe–tvЋ1) Яoe.Item(sџУПB??OX?хKЌ€_@ˆТСЧ)Ii—BmDdH`YAll_! P[С?[mMbTogрglingP›5/џf‚S Y  %№bTЬ>џO%Oгf"kг9-ЯaёEach Бф InЅя, Ѕџ‘гёw< БoR|§{PQb’<5 lПPwп™S‚ck=Ež;Г2еl_ A1OrЗЄ@62dp ;ƒ 3џstGoЁ Skipb:Ÿ ™Е?РПП  ‘гAxisŸ_ёз#2Б#Ax}#ПC//!0oёџ†1џдea_QџЯЖ_№ ŸO–џqЏu@€r мЦќ qœoqšџ‡Rу5LЅSџРУ}з1тk/9ћС.tLЭЯё‘-СŸ-’-IџceОmјdUn?c’фаАW?cў Aaя[?cb /?cVрџ#?cџБ?c@@џO@?c`ЯA€vЯџЧ$“†в$Ѓ?cРЃиЋt?gLЯG 8-)cBД@nes If chkOrigins.Val€ue = TrpThen Ам`oPlane.NamVs.ItePm(1),_pOдr p25838­БGoTo Sk$ipЖH:MEn№d If‹ ‘ &„a@Visibl…• Т ’/Nextƒ*‰&!ЙAxis“ДFor Each oy‚InТл'†mAќxe#mT \lT ЈkA;yk‚O.jMйiPoиint^jB jУ џЫ’C|-йFkƒ йЁМntzPЂR(P (  A^Sub Private Р tglHideSelect_Click()k%bTogg0ling“cЩFalse'-Exit?A #%nЃ UnўhFymc•H'йDim o# As New0 clsC' set the РfilteraFList(3)CЃionFE˜num‡0)@,kSketchDРefaultƒ ‚1WorkPП=“2†Ёks@= >k [‰gЂ ObžjРC#Ч )АMoreЙЧSр#ЪoЄ=Ѕ).PЁLЃ)€M!9alblIxnfo\LJРF)TфypaН4 knKNA пЅ?aa'm 0l Ёџ` ёC29EaaЂУ`9ф.ParenїЯ%сo ЖkьAE:№д0џџџџѓWC–4§ џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџxџџџџџџX`џџ0џџ(PџџџџџџH€џџџџџџШаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<џџ < `(џџ(џџ 51•Capt@%Р"Уes €not Enaаpd in above@…eckboќx"НYѕqmя1—1 э1я0}СїB+ПП ттзџ Cп\/“Q 4@й<о>Ф/xHІAŠяџ@˜фПxZялOyъџФgп#f_$І€Aп$" Ign0= ѓd%Ch%9h%ПŒр&3 s ЯПBѕuŸ _б§o"Г*/5/5хr•чŸg /5byдNў2/5$5!^џIЏ25Сџџ4‡ џ4eЕџVё4RџRШс4џЌOШтв0ПГ•џŸ4&ПPІuДo4КџФmЉ_4Vo#І€я#џ_4mY_4ВП$брПџС?%"џ.cPпџfП`O4` _"‘ џ/4/4Too] ёћ€(*‚3O+uh1hhџthс3G Р‚hh7JД If oPoint.Name <>ps.Item(1)\The0n ‚Visible =  False^E2\lblInfo.CaptionJ" Ignore Origin s Enadd in above Checkbox" VЁTruy nd€Š%\%E,“*ƒвs nozt€c—€Ё|Э%ЩGoTo HidezMР`:CEЧ,I УSet oSelectoNothi@ng  SubPrivate € tglUnhРУ _Clрick() Сƒ€ЇРbToggl@Р Am ЫЂ(Fini№shUp(Zƒ%Р@С1У.ValuџAЊP CA#“ЛХCˆ/Р 8iSkTet@tsР;oХ. Count Re Dim v…(1F €iF, 0С1€Q-СFor iќSKР‹ G Ё `u )i(`Уš1фnы`2chkCџљ1aрц!cЫy CџХсі•Гr: IыџСBae“ _g­ NexhCЋiPlјane‚I#MIС ФI?„IƒPIТIPLЦIƒяv(iPўLХI'‘I ŠУI‰П’IсJCJ! спџ€PdЫŸƒЁЁQЉТчn= чТ-Ћч_# O~rEa$#"nЄ‚№2яФп=з3Ф{љ ~o‰ G6Я2U vвXSјkipR$YžџЯ1WПЗ­ п\Wџ”П ‹Kџ:љџђя@EŸ “uп•  ‹>q›%iAxi!Ђ>Axes> „>ad>ЁO>"B>A.XF>ЁŸ,va(iќAX>Бёу&џУ=”? `:‘?:џпб =P0тD§€o+ ё8O=yИџA=/'=Ž/[Я<џ.Ш ‡2Џ<юЊ<‘џŸ<6?-чПЗЛч џ<7”o o v_<џІ€па?<%? “пu5 Уs.It em(1)у_г"ЖA­й2пй3ФЯzЄТ‚QPL†QТЗTQхРvу зLRџ"[ХjПRХd,џц›TЅ•UхЇп%хS”Ѕ•YCapCQr"Ign_ !D' Ena0€d in above Checkboќx"џ#]—:Ÿ=ЕŸ џ“ Я!@rЯ!хр„ў !9*!Ж„O! џ=пJјЯ ЭяO БO›3Я "Ё5 not c љs • 0€FПŸžїч%Ё а=Ъ|2Uџ0XсXЯ*XС@/џФqO` X ‰_#Е @oRbpёWAxeџпWЇ—вWП“[ЏW*ПPuWКФЂ5A~XC€‘O™АvсQ(iAX5Wё/WџYЛWo#я5џ/6Я)=Џ6џKЙ/6џVџVџV9я6ќ= яIя@“ =O!iпVХвV!isџ!&ŠЯ Џт› /щ§ O аNш5ЯП‘`$Ÿ O "џ_Vсv_VС2u_V&  =Д ElseIf SelectType = 3 TРhen ŒchkPoint@s.Valu TrVlSet †o\ oObjМ ЂJ-Њ3X.Na me <>gs.€Item(1)–@For i„PT›1 To_lP…Vv€(с, 0)m‚!9ћ%Š!1!Ѓ=z@VisiblОFa€нŸExit €w›End IfсзNextSAз lblInfo.€Caption@L"Ignore Origins EnaР3d in above Checkbox"_CзPU6з--‡?† џ1…1„ƒA“@1“+AЁj notAcAO% @эщGo ~u@nHideM€Q:CM) FinipshUp„ <  S`ketch9 ЂGSK ]C‹#es 6 џџџџ<џџш{c.[гsТfуgр&Tџq.ƒ ƒ"k.ТГџ 1g9#ёгВ}ƒ NРothingс-сSubЁPrivate р UserP m_Initialize(' *ЩR5esрThisApplicac.ActiveDocument.ComponёDef№9"ѕ1у$яяяWorkџѓQ яяясбџй ‚яяяв ђSbToggl`3@x /+QueryClose(Cancel As Integer, ‚ModŽeX–-tgl!TџГ OQГ #Œq ѕ‡БƒUnhаYЏeмЉ ЏkЩ3 Sav e`,t"KWi:K0vP%`ЁcUit y", "4sВџB*в‰рМ`oop›oў"sh„‘у_с ",h#-_tOrђ OngBOHсџ//2"‚I‰ в-___WYLoc`Me.Top___QXfLefАX5” юџџџџ`џџџџџџџџџџџџ8џџџџHџџ”)ƒ№џџџџџџџџџџџџX`„0%)ƒђџџџџџџџџџџџџ€ˆ„`8%)ƒіџџџџџџџџџџџџЈА„@%)ƒњџџџџџџџџџџџџаи„H%)ƒўџџџџџџџџџџџџјџџџџ„P%€ўџџџџџ џџџџ0џџџџџџџџџџFl%b€аџџџџ`џџџџ џџ@џџџџџџџџ *фˆјК–4­hџџ€Жџџџџџџџџ˜џџ_xF6СOž+ЃЈ{”ž*=ћќњ hЇ8+3qЕdО%§рбA€rВ М\HџџџџџџџџџџџџxdО%§рбA€rВ М\H_xF6СOž+ЃЈ{”žџџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ (џџџџ08Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ`џџЪ`Ю0џџж0џџш0џџє0џџј0@ќ0Hў6"џџџџ Declare a flag that's used to determine when selection stops.!t]@ѕ8–ˆу Initialize flag.К'ау$ Create an InteractionEvents object.nџџџџ№ 2!и!к.Шју< Define that we want select events rather than mouse events.џџ К Ш(му& Set a reference to the select events.џџџџ№ Ш!Ю.ЬуGet all the Filtersџџџџџџ]ѕP оЌ$д‘’у* Set the filter using the value passed in. о$д ЬB@р!žЪау" The the InteractionEvents object. ШB@т Ју Loop until a selection is made. аbA@„МџџXЬфPу= Get the selected item. If more than one thing was selected, suу- just get the first item and ignore the rest.Fl]ѕh№ Ь!ъ.цntІ цВ ц!tЌ œR№Ќ ц%R.вoCdџџp№В.вkџџ`у# Stop the InteractionEvents object.et the ШB@Xproperу Clean up.Ѓф№В.Ь№В.Шiџџ№–ˆу% Set the flag to indicate we're done.К'а(06<Ž„ИP R№`џџџџџџџџџџџџ џџџџџџџџџџ!!T„ „.џџџџџџџџџџџџp% „4џџџџџџџџџџџџ% „:џџџџџџџџџџџџА%`„>џџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% T`џџџџџџџџџџџџpўџџJHџџџџџџ55u„)ƒ^џџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџ€`„dџџџџјџџџџџџџџџ`„fџџџџрџџџџџџџ џџ`„hџџџџШџџџџџџџ џџ`„jџџџџАџџџџџџџ џџ`„lџџџџЈџџџџџџџџџ`„nџџџџ џџџџџџџџџ`„pР˜џџџџџџџџџ`„rџџџџџџџџџ „vџџџџ0џџџџџџџh(% „xџџџџ(џџџџџџџˆ0% VА`џџџџџџџџџџџџ шџџџџџџ&&Њ„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%`„џџџџџџџџџџџџџџ „œџџџџџџџџџџџџxX`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ X `џџџџџџџџџџџџ џџџџџџQQа„iƒвџџџџџџџџџџџџџџџџџџ€`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџџџ „4џџџџџџџџџџџџpH%`„џџџџџџџџџџџџџџ „^џџџџџџџџџџџџЈP% „œџџџџџџџџџџџџшШ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ jЈ`џџџџџџџџџџџџ xџџџџџџ55!„)ƒ^џџџџџџџџџџџџ˜ € %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџ€(% „xџџџџџџџџџџџџ 0% lџџџџ`џџџџџџџџџџџџ џџџџџџџџџџ V„ „.џџџџџџџџџџџџ% „4џџџџџџџџџџџџ8% „:џџџџџџџџџџџџX%`„>џџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџ%џџџџАџџџџ№џџџџџџџџ Јџџџџ8ƒPџџџџџџџџјџџџџџџџџџџџџџџџџџџh%џџџџˆџџџџАџџџџ№џџџџџџџџ Јџџџџиџџџџ0 „џџџџАџџџџџџџXX%€%џџџџАџџџџџџџџџџџџЈџџџџ  №АџџџџџџџџџџџџЈџџџџ  № џџџџ2 Ммџџ џџ@  X  „џџџџЈџџџџџџџ `% „џџџџјџџџџџџџ`џџџџ  „*@ˆџџџџџџџј’`„dџџџџpџџџџџџџџџ`„.џџџџhџџџџџџџџџ`„6 `џџџџџџџџџ`„@ˆ @џџџџџџџџџ`„8џџџџXџџџџџџџџџ`„BџџџџPџџџџџџџџџа% „>џџџџHџџџџџџџ( Ш% „Д €ўџџџџџџ „FЈ xўџџџџџџ` и% „DР ˆўџџџџџџ€ %`„Rџџџџxџџџџџџџџџ T`џџџџџџџџј ўџџkџџџџџџџџџџTT„x h и џџџџџџџџџџџџ0 @ № џџџџџџџџH џџџџ џџџџџџџџ˜ А ˜ џџџџP џџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџаш@ўџШ рџџџџџџџ џџ @ўџр иџџџџџџџ џџ @ўџј Рџџџџџџџ џџ @ўџh Иџџџџџџџ џџ @ўџ€ (џџџџџџџ џџ @ўџ( џџџџџџџџџ @ўџџџџџџџџџџџџџ А ( џџ @ўџР џџџџџџџ џџ @ўџџџџџјўџџџџџџ џџ @ўџџџџџрўџџџџџџ џџ @ўџџџџџиўџџџџџџџџ ( џџ @ўџи Рўџџџџџџ џџ @ўџ№ Јўџџџџџџ џџ @ўџўџџџџџџ џџ @ўџ0 pўџџџџџџ џџ H  .@ўџА hўџџџOџџ џџ X 0 .Ш 0 5џџџџџџџџh џџџџp џџџџx џџџџ€ џџџџˆ џџџџ џџџџ˜ џџџџ  @ўџи `ўџџџџџџ џџ № А 6џџџџџџ@ўџXXўџџџOџџ џџ Hи 6џџџџџџ@ўџ@ўџџџџџџ џџ @ўџ0(ўџџџџџџ џџ @ўџџџџџўџџџџџџ џџ pи Cџџ @ўџ€ўџџџџџџ џџ ˜XEџџ @ўџџџџџўџџџOџџ џџ Ј€Eџџ џџџџ€Kџџџџџџџџџџˆ@ўџўџџџџџџ џџ C;ўџџџџџџ џџ (EџПmџџџџўџџџOџџ џџ 8EПџПmџџџџKmџџџџ   џџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  4_ИW-*\R1*#19f$*\Rffff*0Q57b85498*\R1*#10b*\R1*#10d*\R1*#f1*\R1*#54*\R0*#f*\R1*#179*\R1*#ef*\R1*#10c*\R1*#385*\R1*#383*\R0*#17*\R1*#822*\R1*#384*\R1*#386*\R1*#35f*\R1*#35e*\R1*#8b*\R1*#5cd*\R1*#21*\R1*#5cfпўЪv"€ џџџџ€@^А€ &(€8€0€0€€ш€8€@€x€ џџџџFа€ џџџџ€H€P€XDАˆŒ  Шаи€ џџџџ р,L№ (€ џџџџ &` p€€ џџџџ€˜r &,и€ џџџџ€r0 И€˜rH|88ˆ,и.@ №  Ш8H,`J№D Ш V Zj0 €€ X Œ  Рx€(8X,p&Јˆ и € џџџџLИ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ"€ џџџџ€ џџџџ€ € (€8€@ HXx € џџџџ Ј АР Ши р€№"ј€ џџџџ € џџџџ8@HP€ џџџџX€ џџџџ" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ "ИШа4и€ №€2€ D0€xZ€€ џџџџ€ <˜€ Jи€ 8(€ ` 2€ 22 VnШ &X  H 6X p  €(Jˆ А И Р а€ 0и 8P 08@H€ џџџџ" P€ џџџџX€ џџџџ€px€ˆ € џџџџ€ Ј€ џџџџР$ај€ џџџџ€€0Pp€ џџџџ€ 2x€ "А€ Hи€ € џџџџ€ џџџџ€ џџџџ*0,`€ џџџџ€ џџџџЈ€ џџџџ" А€ џџџџИ€ џџџџ€а€и€ џџџџ€рш€ј €  0 H € џџџџ€h p € џџџџˆ   А € џџџџ€И €Р Ш р   € џџџџ€ 2( € "` € Hˆ € а € џџџџ€ џџџџр *ј $( € P h € џџџџ€ € џџџџ˜ € џџџџ€   € џџџџ€ .Р € 4№ € "( € ,P € џџџџ€ € € (  € џџџџ€ (Ш € 0№ €  € 8 € џџџџ€ H € h € (ˆ € *А € .р € € џџџџ€ 2 € "X€ H€€ Ш€ џџџџ€ џџџџ€ џџџџ€ <и€ B€ џџџџ€ џџџџ€ `€ џџџџ" p€ 4x€А€И€Р€Ш€ &а€ 4ј€ $0€ $X€ (€€Ј€ А€а€и€ џџџџ€ џџџџ р№ј€ €8@€ DX€ Ј€ џџџџ€ <Р€ J€ @P€ & И 2Ш V€ HX   А Ш и&р   (€ 00 `p ˆ˜ € џџџџ"Ј€ џџџџ€А И€Ша€р€ш №  8€ џџџџHP Xh p€ ˆ€˜" € џџџџШ€ џџџџрш№ј€ џџџџ€ џџџџџџџџ–]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@'>№ >К .!B%.4№ 4!D!<.: 4!@'>К'F FœК :(Hdџџ8К :(Hkџџ К :(J]ѕа№Й Structured :!P%R.Lџџџџџџ L!ZЌAT2џџџџ№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")StriуDim oExdoc As Excel.Workbooks oTiуSet oExdoc = oExApp.WorkbooksTitlу!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ!F b'Vkџџ( dЌ ^!t’Bу Get the current row.imet]ѕP№ d ^%R.vау=Set a reference to the primary ComponentDefinition of the row(]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"(уCThe file property is obtained from the virtual component definitionџџиу1Worksheets("STR_BOM").Cells(printrow, 1).ActivateуActiveCell.Value = levelm_ x!|!@'l x!|!~'pу212291=Assembly , 12290= PartѕШЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r8 l lЌ $мЙidw 'nr rЙLCœœ n$„Ќœ‚ nAVџџ!HdџџxЙIDW does not exist for: lA@ kџџHkџџ@ x8œd dџџ(у *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ ATkџџШkџџРЪИoџџА– n 2!BB@!z]ѕ№ 2!8.4z]ѕ( 4!–'`]ѕ@ Й\$ž'œ!| 4!@ЙœЙSave first the Drawing...A@ !~|џџkџџј]ѕ€]ѕ˜ œŠ$œ'Ђ!HК dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪˆу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџ!†у MkDir sName & "\DWG PDF"џџ(уBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd If ЂЙ \DWG_DXF\ œ‘$œ'Ђ Ђ ЂЌ$ІЙDXF$ЄК 4B@ЈК 2!8B@BџџџџџџoџџP–А в 2!BB@]ѕ(]ѕ@]ѕX№ 2!8.4]ѕx 4!–']ѕ№ 4!D!`.^џџџџџџ№ 2!8!D!d.b№Й Thickness b%R.f]ѕА Й\$ž'œџџџџ 4!D!F Hœ H 4!D(FkџџH]ѕ№]ѕ œŠ$œ'Ђџџџџџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪиу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџџџџџу MkDir sName & "\DWG PDF"џџуBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd IfЙFLAT PATTERN DXF'Z ЂЙ \DWG_DXF\ œ‘$œ'Ђ Ђ ЂЌ$ІЙDXF$Є'\у MsgBox dnameџџџџџџ Z \ ^B@hК 2!8B@Boџџ`уSub DXF_single_EXPORT()у( Dim oDoc As Inventor.DrawingDocumentу- Set oDoc = ThisApplication.ActiveDocumentу Dim oFileName As Stringу% oFileName = oDoc.FullDocumentNameџџџџу Dim oArray() As Stringу" oArray = Split(oFileName, "\")у" If oDoc.FullFileName = "" Thenу* MsgBox "Save first the Drawing..."у Exit Subу End Ifу Dim sName As Stringу Dim i As Integer@%у" sName = oArray(LBound(oArray))у# For i = 1 To UBound(oArray) - 1у' sName = sName & "\" & oArray(i)џџу Nextу,If Dir(sName, vbDirectory) <> "DWG PDF" Thenџџу MkDir sName & "\DWG PDF"џџџџџџуBMsgBox "Ordner ''DWG'' wurde in folgendem Pfad angelegt: " & PfadуEnd Ifу5 sName = sName & "\DXF\" & (oArray(UBound(oArray)))у; oDoc.SaveAs Replace(sName, Right(sName, 3), "DXF"), TrueџџуEnd Sub– у-Iterate through the contents of the BOM Rows.]ѕР]ѕи]ѕ№]ѕуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooksу!Dim oExSheets As Excel.Worksheets]ѕ уDim DWGFileName As String]ѕ8]ѕP b V œ b'Vkџџ dЌ ^!t’у Get the current row.]ѕh№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕˆ№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'rу ADWGFileName = (Left(PartFileName, Len(PartFileName) - 3) + "idw") rЙLCœ l$„Ќœ lAXdџџ ЙPart does not exist: lA@ kџџ№ kџџш x8œdџџа у *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ Ajkџџp kџџh Ъ` oџџX –Ј]ѕ№ 2..]ѕ № .!8.4]ѕ@]ѕ` 4!@'>№ >К .!B%.4№ 4!D!<.: 4!@'>К'F FœК :(Hdџџ К :(Hkџџx К :(J]ѕx№Й Structured :!P%R.L L!ZЌAj№В.\№В.:№В.4№В..oџџј џџџџ№ –  oџџ]ѕ@№ !.]ѕ ]ѕ   ! “@@@@@@ !  œkџџ Ъ  ! “kџџџџp№ 2!8.ђkК (,@@@@@@ !  œ R (€DA@ ]ѕx ЪPЌ'd dЌ 'dlsЌ'd]бЌѕ@ !D d+*@@@@@  ! “ !  œ@@@@kџџЈ dЌ 'd@@Ъ d$* (€Dџџџџ˜К (,К (,]ѕ !!d'. .Ќ$мЙdxf:œК (,4!tџџџџP]ѕЈ ]ѕи ]ѕ ]ѕР  @Ќ 2!Ў!t’Ььџ]ѕ№ 8 F(вB@Ј]ѕ0 ]ѕH № @ 2!Ў%R.> М Д(lЎ%yџџˆkџџ€Ъx >ВœфяџЙ"The DXF add-in could not be found.A@ џ|џџ0kџџ(№ 2!И!К.Д!К.№ 2!И!Ш.F!Ш. >!<œџ >B@є"ШџkџџШ @ 2!Ў%R!ФЙ&{C24E3AC4-122E-11D5-8E91-0010B541CD80}œ1CD8Й=C:\_Vault Working Folder\Designs\Templates\INV-DXF-export.ini'B !2!4!t'6In.SЙ+C:\_Vault Working Folder\Designs\DXF Local\ 6 6Ќ $мЙ.dxf'8eMap, џџџџ ]ѕh № 2!И!Т.D!Т.ЙdoneA@ ilџџџџ@џџџџ ЙExport_Acad_IniFile B DBœпџџџџP 2!8 Д D F >BдџџџџА]ѕˆ Ќ % !D'Rcaџџџџу MsgBox strDXFFileNameџџџџ0џџџџиџџџџ˜џџџџЗAttribute VB_Name = "a_DXF_EXPORT" Publ€ic Sub \2() Dim objDrawDoc As" ingument Set D= ThisApp˜ation€.Active0ёSShe9QG}=R@&‘†V8iew•ДdblScale(2T0) ooe† BXase‚ iI@ntegerƒstr+Label%SЅng† Fi|le‚Јd Ѓ˜IЬni ) 6… €аC:\_Vau€lt Workw Folder\Designs\Template@s\INV-€7-export.i,niщRo€ AddInTranВs€ or‚CjALoA5For jс@‡1 ToOrGuB s.CouС€ Ifр Item(j).Class IdУRЃ{C24E3AC4-122E-11D5-8E91-0010B541CD80}"€en џССТž†7ž, ‡pExit€U{End If NЬex€ЖA 6‡P€Is NothСbTh…"MsgBox "@СЮ add-in could not bШe f@Jd.e‚СSub @ЛB FCОРwdШ=OG|СЃValu№eMapvЩmJ 'ТDiр{Objedct=reр C all oi.РB("EbP_AcaФd_ЄY", G['‹фCo mxta"SŸ †Є$eŸ.C‚…1 oЄ.TypŸkAoBrowseIOMechanismФ'Outp ut!DataрMediuРтMШd‰@“ЧB›.ƒ$Ћs(1).т“H iЁq sEИachЃ P! РzoД/#\`W(фЗ.ЁЅ StandalrdHA)Ьl†Љi~)€ь ФСZaЌ[НТ]РЩƒh_ Ё`i + 1Cm uppressedq TruЙ#tП"tяъ*Ѓ П"П" Za)УчжХ,Т.Tцˆa#р`Left(@a&, 4*"dxf: Э›№)S)!Falsџ@!Сe@ Wr@%Ь(Referenc edеx€dcriptor.Я.DiњsрeyСƒXPWˆ"CЏjЋj№ Lo y\" & (u55,!n‘) - 3))Р".]Р"PCхqog8.п%№˜ [ 'tZ?‡3M n.SaveCopyAs(ѓoi, %FѕWџр— = “•%#КS.… Љ2Е0яAвš4яAnњgЁ's“0яAяAэAч\&*?т?(i„i ?MXH..Ey хvdјoneRŽpђtAЋКЌСХhll_LCЏƒ­ѓТЄapBrInvџ№n€0ИЋSR_Qю^X5бbWаJmblyџ•6ЈЁ№BЄ­;B 8BOMъ№ЧvrtSelpyedёŒСVariaЅ˜§ƒР .FullЅ2яс…s.Opeфn(|, GДR†B` дCompрntDefрЇЂПр=ƒv  sLгFirstLevel№OnlyP=ˆN +ь w˜б2o0.Str€ucturedС.люЗ5E TПwОЈй,ЏwEnablџkб Еa aР ЁcŸТ‘ s.‚Ћ>"‡ єP“RK“.AllLC№KChilЌd(a с.pRаŽј, 1у“@t­џ—Сао`"p $У}Њ9PrivPЄ2цŸп г Q ”ЁEn`цФraj, l!Бєй“ 'e t@hroughpe З€Ѕnts ofыђ@ с.г a’оїCЯ•РЩpРa!њ4с]Д1Я ђФ2Э'1‘oEx EЁExаcel.§E'rC = Get3З(,о Д Tud3љsс1тbookГ]U!=З oExApp.Workbooks 'DimШSheets As ExcДel”sL˜ ˜PartFileNameRStrˆing>DWG<1>Typ9Ca@tegory  `eIf level > maxс ThenЮ=)End IfƒFor i = 1 To oBOMRows.`CountŠ Get the current Аrow.‚†o€ЗUƒ ‡ S€‚ =‡.€Item(i)'a refeA€.ce to‚6primaCompon€;Definition oўfD‡5о€Eџ& 'Р/€=Дs.B+1G+†'EEf@ property€%at c€ontains)"t Numbe,r"‡€j ‹is obС ed fromBvirt˜ual€' d†A 'ВƒЈ("STR_b").C ells(Rnt€J, 1).AcИtiv@—Ш‚eС Р.ValueРƒB“=‡ 0†Г€KDN.Docum€f.FuќllЬ Й‘ ХРe '12291=AssemblЬy Р*0=B ;ЧQPbxo"Inv€(@КE SumBKInformюaAJ %B="Ѕ Ђ!ˆiz= (Left()#, Len*) - 3) €+ "idw"ЇH pBh"LC" xxР|+Exiшst(()Уv ~сaCall DX€F_ExporЫУш@Else+сMsgBox "IDW does@ not e! С&: " &Ђ0>їa ŒЁ )Ž@>Of oEpIs >V#]!Э}Ћ"n'R@ecursi€Ёy iterр[ childA•s irfрsesсTkN3 !”.CсР€s ћ` hРЙа1сТ+C+`AllLC -Ђ(ѕ ,фГ+рnы "щNex`Џ!SubР Prv€V>bt:ЁуЯ L# ThФisмlicЂ[u€s.Open I? ƒ"Ј€dс …f.Dјraw@!eg#ТЇ!ў=@$+ Ѓ‰Ы …EЇХc o= oрb‰хСыСCтArrpay()Ют€bS plit(І , |"\"oC@>† ˆ"C­7%0SavepZrЦs#pд...Ї\P‚|itсЦу1 s•_‚ rsiQ InР~ "0H (PDF 'бMk]€ Їuч'EOrdner ''0'' wurde inРElgendem Pfad angele№gt: G0$ 6П1rУRc=ык_€:\БKє(Лфт!a№ŸReplaceЕRightYХ3) %"pT FLATA _EXPORќT(+  ??O?Ѕ$$b "(soutѓН41+dn­7!“+§“u.Qp%;cBЖHBПУ0‡@ц Г‡BtB4DataIOС Ÿ“йЃ4fn..wp Pes€E_ ”eѓeяЃonqєxpРcknessв€іogѓІ"&3ƒУQ?Д;пOBАпOпOc.UpДsOfMea sure.`‹gthB!>kInchŸ9ћw2= џѓ F;ч c:ьqQ=џQ`@QІSQqЎCkQбр Qf3QrўyQTиQ0XQQQѓQQ '6AQ1В#’>= "QE PРATTERN…”l7@/S iфDУB=ў џRџR#-аід`В bo8.WrPœБTхЂ? ‘ , ˆуP2:OoVoVsz]З 'Sub DXF_single_EXPORTP() и Dim oDoc As Inventor.Draw3МXum"TSetT= ThisApplication.Acti ve ^ДFileName_Str+UMo=U.FullA1  +IArray ()H = S t(W, "\f"t"If‡3ˆ="2"€fen„4‰MsgBox "Save first the Š..."Exit В End IfЗ]„\s’ if€Integer‰wLBounЈd(o‚)€f'P For i€x1 To U  - ^1%…У&D $& ƒ(iХNe\xt[\A 'РJDir(B , vb ec@†y) <> "DWG PœDFEN‚ Mk > ЧХ У‚ WOr€dner ''Р'' wurde in folgendem Pfad angel€egt: ".ћС'FZСТ@СI"= $XF\лСT(ЫNСW Ф.ХReplaceХBRightY3)™@з"РTxrueFСœ(† PrivateС‰ Export AllLC@Child2(oBO`MRowsСƒ„EnРоra], lpevelШŠРmA<'(Ite@e€ЇroHugh‚ЉcoР“n`ts ofТР A .ƒЦNLongGtempstra VarianфAЋСd1™2Ž'AoExР„aExcиel.h†c'‚ŠЃ= GetObj} M(р*.‚yр% dЃ–уWorkboxoksы a€i .Уm$Sheeр%`=G sbc СParіt†† SD™Т0РXуѕхTyp!!IEТC Cgoryэr r#A> maxyCTha—СaЦ=ŸcFуIeJ‡ХN.C Œ$>С'!1ЃIurrс Р rowHсСўo€JСУU a:aгР.cs.рTmЂaТ>a refeР c XoТ primaР ComponDefiniџaЬхY ‡ рџ№,… € Фn1„lСg'@T"fрк properDty at !oa(insт"!F NрumberрХЁaІ'р5`Ъlegi@ubted fromТvirtuЬal` ф d&!ШЛ!ZCU("STR_.").Cell$s(`)ntа, |1)z@&И3{Б.рValue№d"%Чю Z/Ф.ez2{e/7|б./tЖ№e '12291=Assembly ѓА 0=’ 62_Иt.P”а'є"еŒ е рWmв%InfИorm’‹аТ)"евШ!jЖ== ( Left(Љ, (Len)`x3)€ + "idwuK2 0<ЁШ "LC‰t_R@€A№…sл)ƒz?ECall рFLAT_АeХžЉ уH-1ElsDkq5z does not exispxbxиPˆАЉFЁ 7 ` ‘OИЅ8Is| Vу.m? N 'РRecursрЇ№#iqcauAKs iђf 6esАDLЁ vN` qL.bx№@0Аsњ PhpЊdЁR H"ПO|A|E‘‘U{+р7}?I1ЂT)“˜SФubAКPubPƘƒТ_ ƒ_LC_UГМѓЁТPapBfІМwђYџQ^МS R 3сTW:џЅ4ЃЂЁ9CFXРF `Iъ№ЧvrtТS0žctedЁ8п*ˆ§Р0ЏG эPaтЫs.Op№9|,8 Faа/1ВBOЮMА5ТŸŸ(n.рS Žv  ˜  F!ФвL!œOn0*=ƒЃ/@(ьћ.z.ƒucturedVieўwю—Їл1ПП2Ѓi(ЏwEnablћ j`#r•ЎВ"`a qџЄѓ%Т Р!сп%Z‡ 5RЃ?6F:ƒВџ‘S6uzG€ џ„<—a Vэџs2z и9˜`„вџџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ№џџџџџџџџџџџџрƒџџџџџџџџPџџџџџџџџџџџџџџP%џџџџрџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ№"д0џџџџZ–48ЩџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџXџџџџџџџџ(0@џџџџџџџџџџџџџџ Hџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџŽ<џџ<џџ <$<џџ€<џџ4<џџ:<џџќ<џџD<6 џџџџ<`џџ>„ „Іџџџџџџџџџџџџp% „џџџџџџџџџџџџ% „џџџџџџџџџџџџА% „"џџџџџџџџџџџџа%`„&џџџџџџџџџџџџџџ „,џџџџџџџџџџџџ % „0џџџџџџџџџџџџ(% „2џџџџџџџџџџџџH(% „8џџџџџџџџџџџџh0% „<џџџџџџџџџџџџЈˆ „>џџџџџџџџџџџџШ8% „Bџџџџџџџџџџџџш@% Nџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџ„ „4џџџџџџџџџџџџ`H%`„џџџџџџџџџџџџџџ „œџџџџџџџџџџџџИ˜`„вџџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ№џџџџџџџџџџџџрƒџџџџџџџџPџџџџџџџџџџџџџџP%џџџџрџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ4_ИW-$*\Rffff*0B576159abпўЪ]"€ џџџџ€€ (€8€@€HP€ Bh4Аш№€ џџџџ€€ џџџџ(€ џџџџ€8@€PX€h€ Rp€ џџџџ€ Ш€ џџџџ€шј€ џџџџ€0€ T8€ џџџџ€ џџџџ € џџџџ€ Ј€ џџџџ Р€ џџџџа€ џџџџ иш (0€ џџџџ8€ џџџџ X€ џџџџh€ џџџџx€ џџџџ"€€ џџџџ€ˆ€  Ј€ИР€и€ џџџџр$№ € џџџџ€(€08Pp€ џџџџ€ џџџџ˜€ џџџџА,а€ џџџџ€ џџџџ€ џџџџџџџџ–]ѕX№ 2!8.Іut]ѕx№ І!.fa]ѕ˜]ѕИ]ѕи І!(!tЌœу<If Not TypeOf oDrawDoc.SelectSet.item(1) Is DrawingView Thenѕh№ *ЙSelect the cutting-view. 2!и%в. datdџџ№Ќ І!(%R.kџџ№]ѕ№№ І!€., . ,Bœ D]ѕ№ І!.0rm]ѕ0№ 0%6.2]ѕPуKSet oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.item("RMD Title Block")r formуMsgBox oTitleBlockDef.Name]ЌЌѕpЙ Profile CutЌ+<џџшЙString 2Ќ+< t]ѕАуN Set oTitleBlock = oSheetnew.AddTitleBlock(oTitleBlockDef, , sPromptStrings)pК 0(@, D]ѕа№ 2!8!D.Bnd set B!F'"Й'& " Hœ%ю " B%J'&d &Й millimeterœ‚Йmm'& N(kџџаkџџШЙ Profile Cut & 0( B@єR!‚ 0 B@L(oџџ€–№]ѕH№ 2!8.4]ѕh 4!–'!‚]ѕ€ Й\$ž'œ(]ѕР 4!@ЙœЙSave first the Drawing...A@ |џџрkџџи]ѕи]ѕ№ œŠ$œ'Ђџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'ЂЪh œ‘$œ'вџџ ЂЙ\dxf\ в'Ђ Ђ ЂЌ$ІЙDXF$ЄК 4B@Јoџџјџџџџ№џџџџ˜ДAttribute VB_Name = "waterjet" Sub addCUTsheet(@) Dim oDraw€Doc As ingumen"tHSetH= ThisApplication.РActive 2WтSkoldX N==ZH)EVi kInchЈ—ˆ’a4 o!GeФ?ћС!с•(I р'Сa€ Ыmillimeн Œ"Ќ Сlm€Сaх†mcч4…гHM №" & G eYcРЧŸуТ€й&aЁ`Дpy@[ЧF ЁЁSubAР DXF_EXPORT_@п_DR`AWING­п#пIФnvЩor.ф’Qрп }CуBM ЕeТръSHЮoЁoc.pFullХ hA rray(Ўwoтe`hSР№t(&  a\П5`1/ГSаopђ8 "­tG"Save firstЃ’g„...y x€x_АV!у! s/ iq9InteŸ oуЃ@SLBPyd(Г)T,For, i€bNU -< 1ƒA)Хs& L"\a'У(iдNќex4ƒSИє‹ЧФУdxfВes’а!Replace(В, RightХ3)@M€,"pM и.рџџџџџџџџи(%џџџџџџџџј(%џџџџџџџџџџџџ(%b€0Шџџџџџџ@џџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџ 4№`џџџџџџџџџџџџџџџџџџџџРџџ”`„6џџџџџџџџџџџџџџ :``џџџџџџџџFффЦDr–4h—џџˆЖџџџџџџџџШџџ]Х=5•I€Мjж[оz%'’•`bпIЂMieQ[‚”ћЃШwл=B„|ѕ[8—ˆy3ф-(їЋLEДЇм>СМџџџџџџџџџџџџx3ф-(їЋLEДЇм>СМ]Х=5•I€Мjж[оzџџMEџџџџџџџџџџпџџxhџџџџџџџџ(џџџџ8џџџџџџџџ@џџ 0HџџXџџџџџџџџџџџџџџPџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ0џџ|0џџ(<џџ„<џџD<џџl<џџŽ1”џџ<џџš0џџќ<џџ6"џџџџ<џџџџџџ"иš0{3963014B-C8AD-492C-8973-36BC0586D588}{1A457FA1-AB20-4AAB-B463-F611A00274D6}аp%p%  %@џџџџџџџџ8 %`џџџџџџџџX(%€џџџџџџџџx(% џџџџџџџџ˜(%РџџџџџџџџИ(%рџџџџџџџџи(%џџџџџџџџј(% џџџџџџџџ(%@џџџџџџџџ8(%`џџџџџџџџX(%€џџџџџџџџx(% џџџџџџџџ˜(%РџџџџџџџџИ(%рџџџџџџџџи(%џџџџџџџџј(%џџџџџџџџџџџџ(%b€0Шџџџџџџ@џџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџџџ 4№`џџџџџџџџџџџџџџџџџџџџРџџ”`„6џџџџџџџџџџџџџџ :``џџџџџџџџџџџџџџџџџџџџШџџ”`„6џџџџџџџџџџџџџџ >а`џџџџџџџџџџџџџџџџџџџџаџџ”`„6џџџџџџџџџџџџџџ B@`џџџџџџџџџџџџџџџџџџџџиџџ”`„6џџџџџџџџџџџџџџ FА`џџџџџџџџџџџџџџџџџџџџрџџ”`„6џџџџџџџџџџџџџџ J`џџџџџџџџџџџџџџџџџџџџшџџ ” P``џџџџџџџџџџџџџџџџџџџџ№џџ ” VИ`џџџџџџџџџџџџџџџџџџџџјџџ ” \`џџџџџџџџџџџџџџџџџџџџџџ ” bш `џџџџџџџџџџџџџџџџџџџџџџrr” „ џџџџџџџџџџџџ€ % „dџџџџџџџџџџџџ 0% „hџџџџџџџџџџџџР8% „jџџџџџџџџџџџџр@% Є` `џџџџџџџџџџџџџџџџџџџџџџ” „ІџџџџџџџџџџџџXH% ЈИ `џџџџџџџџџџџџџџџџџџџџџџ” Њ `џџџџџџџџџџџџџџџџџџџџ џџ ” Дh `џџџџџџџџџџџџџџџџџџџџ(џџ ” ЖР`џџџџџџџџџџџџџџџџџџџџ0џџ ” И `џџџџџџџџџџџџџџџџџџџџ8џџ ” Кp `џџџџџџџџџџџџџџџџџџџџ@џџ ” МШ `џџџџџџџџџџџџџџџџџџџџHџџ” Ц `џџџџџџџџџџџџџџџџџџџџPџџ” Шx `џџџџџџџџџџџџџџџџџџџџXџџ” Ьа `џџџџџџџџџџџџџџџџџџџџ`џџ” Ю( `џџџџџџџџџџџџџџџџџџџџhџџ” а  `џџџџџџџџџџџџџџџџџџџџpџџ” „ џџџџџџџџџџџџ˜  % дј `џџџџџџџџџџџџџџџџџџџџxџџ” ж˜ `џџџџџџџџџџџџP џџџџ€џџ ”)ƒ“џџџџџџџџџџџџp џџџџ„P% „ џџџџџџџџџџџџ  % № `џџџџџџџџџџџџџџџџџџџџˆџџ” кˆ`џџџџџџџџџџџџџџџџџџџџџџ  ” „ џџџџџџџџџџџџ`  % „jџџџџџџџџџџџџ€ @% „hџџџџџџџџџџџџ  8% „˜џџџџџџџџџџџџР X% „фџџџџџџџџџџџџр X% „цџџџџџџџџџџџџX% „шџџџџџџџџџџџџ X%`„ъџџџџџџџџџџџџ џџ`„ьџџџџџџџџџџџџџџ`„юџџџџџџџџџџџџџџ`„№џџџџџџџџџџџџџџ,p `џџџџџџџџџџџџрџџ˜џџМiƒ№џџџџџџџџџџџџџџ€iƒўџџџџџџџџџџџџџџџџџџџ ,nИ`џџџџџџџџџџџџxџџ џџ Мiƒјџџџџџџџџџџџџџџ˜€iƒўџџџџџџџџџџџџџџџџџџџ ,њА`џџџџџџџџџџџџџџЈџџ""М)ƒќџџџџџџџџџџџџ08€`%iƒўџџџџџџџџџџџџџџX€iƒўџџџџџџџџџџџџџџџџџџџ „џџџџџџџџџџџџh%`„ џџџџџџџџџџџџџџ,џџџџ`џџџџџџџџџџџџ џџАџџ!!М)ƒќџџџџџџџџџџџџ(0€`%iƒўџџџџџџџџџџџџџџP€iƒџџџџџџџџџџџџџџp€iƒўџџџџџџџџџџџџџ џџџџџџ „џџџџџџџџџџџџЈh%`„ џџџџџџџџџџџџџџ€ўџ џџџџјџџШџџџџџџџџ %ўџџџџџџџџџџџџџ0џџџџџџџџџџ%"€ h`џџџџ@џџџџџџџџ. "€ ˜hџџџџ8@џџџџџџџџ"€ШpџџџџX@џџџџџџџџ!~"€јxџџџџx@џџџџџџџџо("€(€џџџџ˜@џџџџџџџџ€("€XˆџџџџИ@џџџџџџџџЈ "€ˆџџџџи@џџџџџџџџ"€И˜џџџџј@џџџџџџџџ"€ш џџџџ@џџџџџџџџh "€Јџџџџ8 @џџџџџџџџV G"€HАџџџџX @џџџџџџџџand "€ xИџџџџx @џџџџџџџџS T"€"ЈРџџџџ˜ @џџџџџџџџith "€$иШџџџџИ @џџџџџџџџS v"€&аџџџџи@џџџџџџџџll s"€(8иџџџџј@џџџџџџџџ i"€*hрџџџџ@џџџџџџџџry Ib€,˜шџџџџ џџ@џџџџџџџџds b€. џџџџџџ@џџџџџџџџb€2џџџџџџџџџџ@џџџџџџџџyInfАhџџџџџџџџџџџџˆЈ`џџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@№ ( РhИј `и Ш №x   ј Ш p ˜ АшHx8˜И 8ШџџџџџџџџџџџџџџџџИhџџџџџџџџИџџџџшџџџџџџџџXџџџџа ˜џџџџ€аџџџџˆџџџџ` CoџџџџР‚ џџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџАhџџџџџџџџџџџџˆЈ`џџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџ@№ ( РhИј `и Ш №x   ј Ш p ˜ АшHx8˜И 8ШџџџџџџџџџџџџџџџџИhџџџџџџџџИџџџџшџџџџџџџџXџџџџа ˜џџџџ€аџџџџˆџџџџ`+џџџџ0џџџџИџџџџР€џџџџ8ШџџџџџџџџАџџџџШџџџџџџџџџџџџ@PаИРџџџџџџџџџџџџџџџџџџџџџџШOx4_ИW-*\R1*#4a*\R1*#6b*\R3*#e*\R1*#1a9$*\Rffff*0S57b43aeaп5$г д(я0ѓ8\@HPX`hp%x`€Bˆ[N˜P уЈА_И]РпШWаbи р = 73 End H€,і{u€œTahomaer(ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq€œTaho€H€,і{u€œTahoma€H€,і{u€œTahoma(€DiameterіЇ5€œTahomaer(€LengtherіЇ5€œTahomaer(€CreateerE{u€œTahomaer(€DoneD{u€œTahomaer€H€,і{u€œTahomaer(€AngleaerіЇ5€œTahomaer4FР€€€€ €Џ{0tMDimensionme.5€œTahomafrmTypeeЇ$х€T chkDimeeЇ“ VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmrecholepattern Caption = "Rec-Flanch-Pattern By RAY-Design" ClientHeight = 3465 ClientLeft = 30 ClientTop = 270 ClientWidth = 6975 ЅTahoma,FР€€€€€{0ncMill5€ЅTahoma4H  €€џџ}иіTypeRу ‘ЮуЊKИQDBTahomaT‚o$х€PoptPunchЇд$х€LoptMillhР д  I}зр д‹$х€4txtLongЇЇ$х€4txtDiagЇі(ѕ€28Label1gqЪ(ѕ€2dшS№fјeTcйе ѕ(љ0ї8ќ@MHіPZXј`XhYpњxћ€aˆHI˜J KЈџџџџАLИўЪд€ џџџџ€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€€€ џџџџ€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€ џџџџ"А€ 2И€№ј  € џџџџ"(€ 20€hp ˆ˜€ џџџџ" € 2Ј€рш € џџџџ"€ 2 €X` xˆ€ џџџџ"€ 2˜€аи №€ џџџџ€ џџџџ"€ џџџџ 0 8H€ џџџџP€ џџџџ"X€ џџџџ` p€ ˆ˜€ џџџџ € џџџџ"Ј€ џџџџА Ра иш€ џџџџ№€ џџџџ"ј€ џџџџ   (8€ џџџџ@€ џџџџ"H€ џџџџ€P€X`€ 4p€ џџџџ€ЈА€ џџџџ€Р€ џџџџ€ џџџџ€ 0Шј8€ џџџџ@Xp€ џџџџx˜И€ џџџџРи№€ џџџџј(€ џџџџ0H`€ џџџџh€˜€ џџџџ Иа€ џџџџи№&8P€ џџџџXp€˜ЈРа иш № (08hpˆ ˜ИР0и  (  8 X ` 0x Ј А Ш  и ј  0 H P  h x      И Ш  р №     0 € џџџџ$8 `  Px  Ш  и ш №  ј  € џџџџ€ џџџџ" € џџџџ€   8 € џџџџH € џџџџ"P  X h € џџџџ"p € џџџџx  ˆ ˜    А  И  Ш  и € џџџџш "№ € џџџџ ј      ( € џџџџ8 € џџџџ"@ € џџџџH  X h  p €  ˆ  ˜  Ј € џџџџИ "Р € џџџџ Ш  и  ш  ј € џџџџ€ џџџџ"€ џџџџ (8 @P X h x€ џџџџˆ€ џџџџ" ˜ ИШ арш€ џџџџ"№ ј ( 0@H€ џџџџ"P X xˆ  Ј€ џџџџ"А И иш №€ џџџџ"  8H P`h€ џџџџ"p€ џџџџ€ &x€ 2 € и€ш№€ џџџџ*0@`0h˜И€ џџџџ€ џџџџР€ џџџџ"Ш€ џџџџ€ џџџџа€ џџџџ" и€ џџџџ€рш€ џџџџ&ј€ џџџџ € џџџџ"(€ џџџџ0€ џџџџ8€ џџџџ"@€ џџџџ€ џџџџ€ џџџџ€HP€ 4`&˜€ џџџџ€ џџџџР а р №    0 @P X h x ˆ ˜ Ј И Ши€ џџџџ€р€ џџџџ€ш№ € џџџџ€ \€ Zp€ Zа€ 0€H4PˆЈ€ PШ€ џџџџ€> € D`Ј€ џџџџ€Ш2а" 0€ PP€ V ј$&@ h ˆ ЈШш€ џџџџ€(80€hp€ џџџџ€ џџџџ€x€€€ˆ€ џџџџ€ џџџџ ˜$Ј€ џџџџ€ а€ №€ џџџџ€ џџџџ€ $ € џџџџ H Xh p€€ џџџџ€ џџџџ€ џџџџ€ Lˆ€ .и* P`€0ˆИирј(H`x˜€ џџџџ€ џџџџ€ &Аи шј€ џџџџ(@Ph€ x€ *ˆ€ (И€ (р(8H ` p €  0Р№ (8@Xhx    А а0№  0 8 @ H X h p ˆ ˜ Ј  Р  а  р  !0 !P! `!h!p!x!ˆ!˜! !И!Ш!и! №! " " 0"0P"€" "˜" "Ј"И"Ш"€ џџџџ€ џџџџ€ џџџџ€ а"№"# # #0#@# P# `#p#€# #  #А#Р# а# р#№#$ $ $0$8$H$X$h$x$ ˆ$ ˜$Ј$€ џџџџ€ џџџџ€ џџџџА$Р$ и$№$ј$%%(%$@%(h%%Ј%€ џџџџА%а%р%№%ј%&&€ џџџџ€ 0 &€ 8P&€ 6ˆ&€ 2Р&€ 4ј&€ .0'€ џџџџ€ џџџџ`'€ џџџџ€ џџџџB h' p'€ J€'а'ш'№' ј'(€ J( `(x(€(ˆ(€ џџџџ€ L(€ Pр(B 0)68)€ Hp)И)Р)€ $Ш)(№)* *€ џџџџ€ џџџџB (*€ $0*X*€ џџџџ€ T`*И*а*№*€ џџџџј*+0+€ џџџџ€8+@+€ @`+" +€ 6Ш+€ ,,€ 0, .8, h,€ џџџџ€ <ˆ, Ш,€ @и,-0- 8-@-H-P-€ џџџџ€ џџџџB X-€ $`-пџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ<џџ<џџџџџџš0{BB5978A9-AF9B-4C20-A986-967822430A74}{3421156C-29D4-4DD9-A465-2965E69A6681} %%џџџџ,FА`џџџџџџџџџџџџXџџœџџМiƒHџџџџџџџџџџx€iƒўџџџџџџџџџџџџџџџ ``„Nџџџџџџџџџџaliz Z№`џџџџџџџџџџџџџџџџџџџџ џџ” \0`џџџџџџџџџџџџџџџџџџџџЄџџ” ^џџџџ`џџџџџџџџџџџџџџџџџџџџЈџџ”€ўџ џџ˜џџpџџџџџџџџ%ўџџџџџџџџџШџџ џџџџџџџџ %b€Dџџџџ4џџ џџ@џџџџџџџџА0џџџџџџџџ№џџџџаџџџџрƒўџџџџџџџџџџџџџџџџџџџџџ‚ BџџџџўџџџџџўџџџџџџџџџџџџџџџША0џџџџџџџџ№џџџџаџџџџPџџџџаpџџџџџџџџ0џџџџа џџџџџџџџџџџџH џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxр.V пўЪ)€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€€ џџџџB € џџџџ€ (  H Xh€p xˆ Иа€ џџџџи€ џџџџ"ш€ џџџџ  € џџџџ"( 0@€ џџџџ"H P`€ џџџџ"hp €€ џџџџџџџџ Эџџx]@ђа–З'Dр! Initialize with the current date HЖœn Pa JB@LtA@<dџџ]ђ˜ HX'Nџџx N$P J(Pџџ N$R J(Rœ N$T J(Tџџџџkџџ( V џџB@ J!P J!R J!T$X'Fџџ џџ џџA@r(iџџи–А џџA@r:џџџџoџџИ–№ JB@L@џџџџoџџ˜–0Ж0, 0, 0'H џџA@rџџ oџџhџџџџ`џџџџgВAttribute VB_Name = "frmCalendarˆ" ˆBasˆ0{BB5978A9-AF9B-4C20-A986-967822430A74}{3421156C-29D4-4D"D^46565E69A6681} dGlobal!SpacoFalse ŠCreatablPre declaIdжTru BExpose0TemplateDeriv–CustoHmiz‹D O@ption 3lаicit P€%€) m_bGettingDAs €Booleanub Funcч €(SжƒŒ) € 9Œ+= { ' Initialize with the curˆ-€ џџџџ€ T-ш-. .€ џџџџ(.@.`.€ џџџџ€h.p.€ @."а.€ 6ј.€ ,0/€ `/ .h/ ˜/€ џџџџ€ <И/ ј/€ 80@0X0`0 h0p0x0€0џџџџ0аџџx]@ѕ8]@ѕh]@ѕ˜]@ѕШ]@ѕј]@ѕ(]@ѕX]@ѕˆ]@ѕИ]@ѕш]@ѕ]@ѕH]@ѕx]@ѕЈ]@ѕиr`ent d#У I f ˆ@…" The€'С…ˆ.Tohday E‚iEDќim( * D"и= CСШ8)У aЦYearРr(#H‘ Mon7= уТ Day€@ РEnd If#CMe.Show шvbMР>l‰„jˆteS€Žal(Š/ќ, †‚&ШРD2ƒUnload MР­!ХƒЩ‘Sub €btnOK_C€Œќk(ФL@  nыŠ-;AcmdC6lРg SGT`F0, A| “ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!К!МЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œЖMust be in Part documentA@<]@ѕ]@ѕ8]@ѕh]@ѕ˜]@ѕ ]@ѕШ–€у, Display the calendar form and set the date.џџџџџџ]ѕи 8!d ъ%ю'6џџ 6 8(d%oџџи–№у, Display the calendar form and set the date. џџџџ]ѕH <!d ъ%ю'6џџ 6 <(doџџ`–`у, Display the calendar form and set the date.(%]ѕИ @!d ъ%ю'6 6 @(doџџш–ау, Display the calendar form and set the date.]ѕ( D!d ъ%ю'6 6 D(doџџp–@у, Display the calendar form and set the date.]ѕ˜ H!d ъ%ю'6 6 H(doџџј–А L!‚КœК N(HdџџШК N(HkџџАoџџЈ– R!‚КœК T(HdџџxК T(Hkџџ`oџџX–` X!‚КœК Z(Hdџџ(К Z(Hkџџoџџ–И ^!‚КœК `(HdџџиК `(HkџџРoџџИ–]ѕh]ѕˆ№ 2!f. у. Set m_doc = ThisApplication.ActiveDocument]ѕЈ№ !D.h]ѕШу) Set the values of all of the properties. џџ!8!d !‚$nœ џџ!8!d$p (‚kџџР џџ!r!d !‚œ џџ!r!d (‚kџџˆ џџ!H!d !‚$nœ џџ!H!d$p (‚kџџ@ џџ!t!d !‚œ џџ!t!d (‚kџџ џџ!v!d !‚œ џџ!v!d (‚kџџа џџ!x!d !‚œ џџ!x!d (‚kџџ˜ џџ!z!d !‚œ џџ!z!d (‚kџџ` џџ!|!d !‚œ џџ!|!d (‚kџџ( џџ!~!d &!‚œ џџ!~!d &(‚kџџ№ џџ!€!‚ (!‚ €!HКœ џџ!€!‚ ((‚kџџЈ џџ!‚!‚КœЙLC "(‚ џџ!„!‚КeЙSC "(‚ џџ!†!‚КeЙHC "(‚dџџ(Й "(‚kџџЙ (‚Й *(‚of џџ!R!‚КœlGSЙMA (‚Я *!‚Й|MA; џџ!T!‚Й| *(‚kџџ џџ!^!‚КœMLN !‚Йœ !‚Й ,  (‚kџџ@ !‚ЙWE (‚ *!‚Й|WE; џџ!`!‚Й| *(‚kџџ№ џџ!L!‚Кœ x8ђЯ !‚Йœ !‚Й ,  (‚ kџџ  !‚ЙES (‚ *!‚Й|ES; џџ!N!‚Й| *(‚kџџP џџ!X!‚Кœ !‚Йœ !‚Й ,  (‚€ŒаЯkџџ !‚ЙPA (‚ *!‚Й|PA; џџ!Z!‚Й| *(‚kџџА џџ!ˆ!‚Кœ Œ h(Š8ђЯ џџ!Ž!‚Кex8ђЯ  h(Š џџ!’!‚Кe ” h(Šz џџ!–!‚Кex8ђЯ ˜ h(Š8ђЯ џџ!š!‚Кe œ h(Šdџџр ž h(ŠzkџџШ 2!Д Ж џџ! !‚Йœ, џџ! !‚ !‚œ№ џџ! !‚ !Ђ%R.jуL*m_MaterialProp.Value = Me.cbMaterial.Value j!A@  j !D(lkџџkџџ џџA@rуoџџ№–ш]ѕ@№ 0 2!B%.І џџA@roџџА–` џџA@rhweoџџ–И Ќ!‚КœК Ў(Haetdџџ`К Ў(HlerkџџHК А(HBBК ~(HК В(Hoџџ–К Ў(HК А(HeguК ~(HicК В(HoџџР–h Ќ!‚КœkК Ў(HurodџџК Ў(HWФљџџkџџxК А(HК ~(HК В(H oџџ@–РК Ў(H 'К А(HRК ~(HК В(Hзпaloџџ№– Ќ!‚КœК Ў(HMSdџџРК Ў(HeilkџџЈК А(Hl BК ~(HMSК В(Hookoџџp–p 8!d$О 8!dЙœ Т 8(Рdџџ0 Ф 8(Рkџџoџџ–Ш <!d$О <!dЙœ Т <(Р,dџџа Ф <(РiskџџИoџџА– Ъ!d$О Ъ!dЙœ Т Ъ(Р!dџџp Ф Ъ(Р.kџџXoџџP–x @!d$О @!dЙœ Т @(Рdџџ Ф @(Р$kџџјoџџ№–а D!d$О D!dЙœ Т D(РdџџА Ф D(Рkџџ˜oџџ–( у If txtStockNumber.Text = "" Thenу, txtStockNumber.Text = txtPartNumber.TextуEnd If]ѕ€ № 2!f.  !t !tЌ $м v!dœЙ џџ!v(вЌЌЌ$@ џџ!v(Рdџџ˜Й Partnumber doesnt match Filename џџ!v(вЌџЌЌ$@ џџ!v(Рkџџ@oџџ8–  oџџ(–ј ]ѕx № 2!f.  !t !tЌ $м v(doџџи –˜ AкoџџР –№ ]ѕH № 2!f. у. Set m_doc = ThisApplication.ActiveDocumentЙiPropertys of: !t џџ(‚ !~Ќ0œК  (HК  (мК о(HК Ў(HК €(HК €(мК р(HК Ќ(‚dџџЈ К  (HК  (мК о(HК €(HК €(мК р(HК Ў(HК т(‚kџџ ]ѕh ]ѕˆ № !D.h h!Š',уV Get all of the properties used on the dialog and assign them to the member variables.уS These wilуIIf the users quits with an Escape, clean up to prevent crashing Inventor.№В.Ь№В.ШoџџH–ру% Set the flag to indicate we're done.К'аoџџџџџџјџџџџ>ЕAttribute VB_Name = "clsSelect" " €Bas€0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalЪSpa‚c’False dCreatablPredecl2aIdЎCExposeTemplateDeriv–Customiz EOption 0licit ' DƒG the ev€ent obj€Ÿ0s P15 WithE s oInteractё„As …- ‰‰Œ.€дVarHelpID€-1“2с‡1‰ / I8a flag:at's uСXto de4mine Рwhen sI@Pps.Ч'bStilling €>Boolean Рub€T Func‚XPick(fdil€()A „ o„nFEnumТЂOТZ '€Ritialize‚*С = Tru@žСEže aЮncФsSex qhisAppР0aС/.CommandManager.Cz‰ DefAQthat w@Sa€’CSУ•s ra…™r`n mo`Џ„&ЭŠЦLAUvдУ=Х<2a ref№eren@r€9XjзЉу „J=MY.ЩC E G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To @UBoundFA)ѓC' суDRЁJvalue ШpasATindТo‰.AddуРU dNa NexЧР|!' TР|a GŽ9ЫDn1tar, LРoop un€bРƒ.Сfis made„Do WhiчрЁŒXч Do#2# H O€”rrр(GBo`(endoЃ' a1Су рŸite@m. If JrJecKo€ythЁ)wDas$zed,ej€Ѓ g€: first Ё€gd i(gnoТeKstЅ=D/edEnt6s>CwsAy Ђtoўrу Ё:k@MЪ6ƒ ЭР}e„I No`sЈ`Ћs €BAnd| _C (AУрu1 ў>aN€˜Ї!с‘Р­Iъ.I@'(1HREПкaehфg EмIfуЃ@Zt`BС*ЫпK@ЃaХШ.Sр+ bCЋ up 0с?:џЃс„цxŠ Х/1 EZсoз]SubA_OnTermi:n0p(dX;Вdo indicQrweњ'#dР'T#,/№ф~б'№PPrs hqui@%wpv!\Escape, c%4 MprУycr$asђ InyorЛФŸ=Ѕ#ЈŸo‚2џББPЁ…B)Г у(ByVal| J 4ч,П1А1, УpBDevi0[@t,ё4еModрelPos`2p‹А PointеViфewЮ2dщБaЯпппъ~= дxџџџџџџџџџџџџџџ77&„ „4џџџџџџџџџџџџ% „†џџџџџџџџџџџџ8 % „ŠџџџџџџџџџџџџX(% „Žџџџџџџџџџџџџx0% „–џџџџџџџџџџџџ˜8% „ џџџџџџџџџџџџИ@% „ЈџџџџџџџџџџџџиH% „АџџџџџџџџџџџџјP%`„Иџџџџџџџџџџџџџџ „џџџџ`џџџџџџџџџџџџ p џџџџ ]Œiƒвџџџџџџџџџџџџџџџџџџ„џџџџЈџџџџџџџџropeџџџџHƒdџџџџ№2 диџџџџ –4EџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ˜џџџџџџџџџџџџxџџџџџџџџџџџџџџX(08@HPџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@0џџ6<џџp1”џџ<џџ„<џџˆ< Œ<џџ<џџ˜<џџЂ<џџЊ<џџВ |(џџРџџџџ> џџџџ9џџџџџџџџџџџџ< џџ<Јџџ<Аџџ<Иџџ<Рџџ<Шџџ<аџџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџ&|0џџџџШ+f`џџџџџџџџџџџџ XџџџџŒ)ƒ4џџџџџџџџџџџџx€€%iƒhџџџџџџџџџџџџџџџџџџ€`„jџџџџџџџџџџџџџџ`„lџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ „nџџџџџџџџџџџџ%+vЈ`џџџџџџџџџџџџ ` џџџџ 8Œiƒxџџџџџџџџџџџџџџ€€)ƒ{џџџџџџџџџџџџ џџџџ€% ‚`џџџџџџџџџџџџџџџџџџџџџџ77D„ „4џџџџџџџџџџџџ% „†џџџџџџџџџџџџ8 % „ŠџџџџџџџџџџџџX(% „Žџџџџџџџџџџџџx0% „–џџџџџџџџџџџџ˜8% „ џџџџџџџџџџџџИ@% „ЈџџџџџџџџџџџџиH% „АџџџџџџџџџџџџјP%`„Иџџџџџџџџџџџџџџ „џџџџ`џџџџџџџџџџџџ p џџџџ {Œiƒвџџџџџџџџџџџџџџџџџџ„џџџџЈџџџџџџџџropeџџџџHƒdџџџџџџџџшџџџџџџџџџџџџџџџџџџp%џџџџxџџџџ№`„Дџџџџјџџџџџџџ џџX% rА`џџџџџџџџxpџџџkџџџџџџџџџџ „ „~џџџџаџџџџџџџ`„Мџџџџ№џџџџџџџ џџ`%+Ж`џџџџџџџџџџџџ џџџH џџџџ Œ)ƒКџџџџџџџџ(џџџџ€x% „ОџџџџаџџџџџџџЈџџџџАџџџџџџџџџџџџџџџџ АЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџH0џџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2Жјџџџџџџџ џџ@ўџ`рџџџџџџџ џџ @ўџџџџџиџџџџџџџ џџ @ўџџџџџИџџџџџџџ џџ @ўџ џџџџџџџ џџ @ўџЈˆџџџџџџџ џџ @ўџџџџџpџџџџџџџ џџ џџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИl be used to initialize the dialog with the current values and to set theуS values later if they're changed. These are all standard properties and will existу in all documents.]ѕЈ №ЙInventor Summary Information !€%R.˜№ЙKeywords ˜%R.№ЙComments ˜%R.*уJ Set m_RevisionNumberProp = oSummaryInfoPropSet.Item("Revision Number")]ѕШ №Й%Inventor Document Summary Information !€%R.фу> Set m_CompanyProp = oDocSummaryInfoPropSet.Item("Company")№ЙCategory ф%R."]ѕш №ЙDesign Tracking Properties !€%R.ц№Й Creation Time ц%R.№Й Cost Center ц%R.(уJ Set m_CheckedDateProp = oDocDesignTrackingPropSet.Item("Date Checked")уO Set m_MfgApprovedByProp = oDocDesignTrackingPropSet.Item("Mfg Approved By")№ЙVendor ц%R.&№ЙEngr Approved By ц%R.№ЙEngr Date Approved ц%R.№Й Part Number ц%R.№Й Stock Number ц%R.№Й Description ц%R.№ЙProject ц%R.№ЙDesigner ц%R.№ЙMaterial ц%R. ]ѕ№Й Inventor User Defined Properties !€%R.ш]ѕ(К'ъ]ѕ@]ѕX]ѕpЬh !@'. . .Ќ $мЙ.idw'0уMsgBox m_ModelFileNameуMsgBox m_DrawingFileName 0$~'2уMsgBox m_DrawingFileNameExist 2ЙœК ђ(HdџџК ђ(HkџџxуF Initialize the dialog with the current values. Special case for dateу' values to treat them as not being set. !‚ џџ!v(d !t !tЌ $м !‚œЙ џџ!v(вЌЌЌ$@ џџ!v(РdџџxЙ Partnumber doesnt match Filename џџ!v(вЌџЌЌ$@ џџ!v(Рkџџ  !‚ џџ!x(d !‚ џџ!z(d !‚ џџ!|(d !‚$n џџ!8(d !‚ џџ!r(d !‚ џџ!t(d !‚$n џџ!H(d &!‚ џџ!~(dу MsgBox m_CategoryProp.Value !~Ќ0œЙ "(‚kџџ "!‚ЙLCœК џџ!‚(‚ "!‚ЙSCeК џџ!„(‚ "!‚ЙHCeК џџ!†(‚у Elseу# Me.obSheetCut.Value = Falseу! Me.obSawCut.Value = Falseу" Me.obHandCut.Value = Falsekџџ№ !‚ЙMA„Ќ œК џџ!R(‚К џџ!T(H *!‚Й|MA„'ь ьЌ œК џџ!T(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!T(‚kџџјkџџ№dџџшК џџ!R(‚К џџ!T(HkџџР !‚ЙWE„Ќ œК џџ!^(‚К џџ!`(H *!‚Й|WE„'ь ьЌ œК џџ!`(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!`(‚kџџШkџџРdџџИК џџ!^(‚К џџ!`(Hkџџ !‚ЙES„Ќ œК џџ!L(‚К џџ!N(H *!‚Й|ES„'ь ьЌ œК џџ!N(H ьЌ *!‚Й|…'ю ю ьЌ  Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!N(‚kџџ˜kџџdџџˆК џџ!L(‚К џџ!N(Hkџџ` !‚ЙPA„Ќ œК џџ!X(‚К џџ!Z(H *!‚Й|PA„'ь ьЌ œК џџ!Z(H ьЌ *!‚Й|…'ю ьЌ  ю Ќ œ *!‚ ьЌ ю ьЌ  $њ'№ № џџ!Z(‚kџџhkџџ`dџџXК џџ!X(‚К џџ!Z(Hkџџ0уMsgBox m_DocTypeProp ,­ЫœК џџ!ˆ(‚К ~(HК В(H ,­ЫeК џџ!’(‚К ~(HК В(H ,­ЫeК џџ!–(‚К ~(HК В(H ,­ЫeК џџ!Ž(‚К ~(HК В(H ,­ЫeК џџ!š(‚К ~(HК В(HdџџШК џџ!ˆ(‚К џџ!Ž(‚К џџ!’(‚К џџ!–(‚К џџ!š(‚К ~(HК В(HkџџP  !HКœ j !Ђ“ j! џџ! B@Ъ !‚ џџ! (‚kџџш €!HКœЙ  џџ!€B@ЙMaterial Ordert џџ!€B@ЙMaterial from Stock џџ!€B@ (!‚ џџ!€(‚kџџP !єЌ$мЙ=<œК џџ!x(іК џџ!x(мdџџК џџ!x(іК џџ!x(мkџџру) Me.chbPaint.Value = m_PaintProp.Valueу1 Me.chbSparePart.Value = m_SparePartProp.Valueу/ Me.chbLaserCut.Value = m_LaserCutProp.Valueу+ Me.chbSawCut.Value = m_SawCutProp.Valueу- Me.chbMachine.Value = m_MachineProp.Valueу' Me.chbWeld.Value = m_WeldProp.Valueoџџ˜–ˆ №ЙœуC This is a special date within Inventor that signifies a null date.ЌAЌЌ$'pdџџЬ №X'p Тœу C This is a special date within Inventor that signifies a null date.ЌAЌЌ$'pkџџ€kџџxiџџpуF Check to see if the date is a valid date and return it it as a stringуJ if it is, otherwise return an empty string indicating it hasn't been set.–  ј$јЌA ј$њЌ ј$ќЌœуB The date is the default and hasn't been set to treat it as empty.Й'ndџџ8у Return the date as a string. ј$ј ј$њ ј$ќ$'nkџџрiџџи–Иу Initialize the return value.Й'њуN If there are < or > signs in the prompt replace them with the xml equivalent. ўЙ<„Ќœ ўЙ<Й<$Є'ўkџџ ўЙ>„Ќœ ўЙ>Й>$Є'ўkџџШ]ѕx  ќ!Ц!!“у9 Check to see if this text box defines a prompted string. !Ќ$ мЙ„ $ І'   Й<„Ќ $ м' у 5 Check to see if this is the specified prompted text.  ўœу: Get the current value of the prompt for this title block.  ќ% 'њzџџШkџџРkџџИЪАiџџЈ–Ау Initialize the return value.К'уN If there are < or > signs in the prompt replace them with the xml equivalent. ўЙ<„Ќœ ўЙ<Й<$Є'ўkџџи ўЙ>„Ќœ ўЙ>Й>$Є'ўkџџ˜]ѕ  ќ!Ц!!“у9 Check to see if this text box defines a prompted string. !Ќ$ мЙ„ $ І'   Й<„Ќ $ м' у 5 Check to see if this is the specified prompted text.  ўœу2 Set the value of the prompt for this title block.   ќBК'zџџ˜kџџkџџˆЪ€iџџxџџџџpџџџџ#ЕAttribute VB_Name = "frmIProp"  јBas|0{3963014B-C8AD-492C-8973-36BC0586D588}{1A457FA1-AB20-4AAB-B463-F611A00274D6} dGlobaBlŠSpacoFalse ŠCre atablPr@edeclaI"dгTru BEx0pose0TemplateDeriv–Customiz‹D ƒ€Option 4 licit P€&€* m_doc As Docum,en d ‡PartNum8berб!erty‰StockDescri‚)CYРject™K€eywordsйБ@ignv_ D@IСY Approf] Х нMРrial…йCРgoryк ommanлAVendošoCostvC@…yCР л\o cType…,Va9I›m_Mode`lFileA)сIS @‚ngЉIDrawingŸˆExi stЩ  Sub HbtnI3_C@dk () ' DisРoy th e cal&ar@ form €+ Јset"d2.C€Dim newС:ES№c.АVisiCE’ƒ3 ?= t№Machxine~ t † MўA АŠ > ПFБF€cbPaintn їRO F PO с‘J >‡O O C Weld> чA/ & WE}>'/ / " mdP^lyПI A!AcŸ˜"hЁp•˜З1—‡š‘Sh“=€(Disсicaёž.Act ЃEditЭ7'OOveƒ QoPp~pDef3qmЁon@№in^iё“ —=І.‡я$3чcurr№ŸѕAЕ:‘ ' ёСxv!8s of ИallaA ˜pЈiesдx@;Me.07pbšB <> ХФwSr†(m_IŠ§c")>1ц$Р №FromDпщI?џa“ С" Їaџ'  \Љ ћЦУщ/ t€1`ГteЯ'џ1m__вTџпг чПƒ SЖџЦ “GЄ • ‘Hќ= yfC/fвџGofOcЧџbof(иxXџ†_ƒo“иЏвKЌ0eоЈQzДriptionProp.Value Then  m_Desc”= Me.tx‚tt.TextrРEnd If If`вjectX <> m_?‚!~#zVe№ndory€!<…; ;ƒucbCostCenteоr­w‡ у„ @ommРx“E‚€Machine[XyMA„.‘R!& "|MA;" ђ&DоMAыФ AУ)CWeldЙрѓ2# \""LˆВrё@ , Ј Ÿ K59€ WEh 66(WE™((WE?(%(Exр~ўn(ЏK(JQ(a&( Œ= Б№4`(ES(Щv(ESh(ES(e(№Painк’в_(п_( пPPƒѕ1PyР/ІCя{|P yPy яЁ~obNorm$alйPoP0pDef.BOMSt@ructurgkГYП^Purch|asЏM8„еdOEePhantќom_ ']?6УReferenюc  Ÿkц_YInseparaџ€}П П Ÿ‘OУO ault5BCА5ThisAp plicaAЂ.ActiveDoc"u!oTypb"PaЄrt5ObС сŒ‘№ЁcbMpvri(§9 ”*ЏЁЁхи:ыЉЁMSet cur рtѕ`“m_doc.s.Item(? e) 'mn_eZAЯeчM sgBoxН.NœamŒГa6onА‚ёini… , ЇЉ[ЙUnload`> aSub„ Priv`  cmdCallDrawinˆg_C k()Q`Dim oq  ˜As $… a@ЁМ …s.Open(pТ3Fil~e@ *  p7lOЗ ЁП  obШ0_c… СЃ№+obA€ssemblyя6їfrRoughѓ"ІVЗFa№G3{5пOА1КФИЃfrС.~VFgг$Фз(LРabel22ЈШ3И™obеTп џo ` HО ИЯ 3ТчП goter)…iЏ џAoа? твx n?Ї ™50игП= џ(ЯШДєmЯ?=‡+П П ЈЕ22.Visible = Fal se End Sub Private8 obReference_€click()b nIfBAssembly.ValuАTr ThenTPfrRou ghCut€EŠO-UPЋIf f`rFileT&txtVendorСrLabel.ˆ*ApprovedD’_ChangІe…Š€‡Is (Œ.Text) OŒr  Ц"" ‹˜ForeCol„orvbWilw*‰ŠŸ›Red Р|СQд~@Cheќck_:ˆ :Эд9‰ Ќ9—h9Drawnџ]s J8Kд7 l7ёш6MFG]6DъiџДEЃM{@Jг?ѓу‘QA#ъHд$ПЊВŸ†PartNumber_AfterUŒpd ŠС‰ ' ‰СрStockcB§щ'„*p ‡  %ЇDim m_doc As Document (SetФ= ‘is `Оation.ActiveEd$itч @Left(‚ .DisplayName , LenЯ) p- 4)@ЯшŸMe.ыContrрolTipAž" У0.щ7RGBџџџџџџџџџџџџџџџџџџџџџџџџџџџџ P4_ИW-*\R1*#308*\R5*#3c8$*\Rffff*0b57b85f3d*\R1*#8b*\R1*#4a*\R1*#35f*\R1*#5cf*\R1*#5cd*\R1*#35e*\R0*#17пўЪ„"€ џџџџ€@(€ џџџџ€@Nx€ џџџџHˆ€ џџџџ€ џџџџB H€P&X€ *Ј€h p>Xи 0$@P€X€ џџџџ`€ џџџџ€ џџџџB € џџџџ€€€€ џџџџ€ € џџџџ€ џџџџ(€ џџџџ 8HPXpˆ ˜ ЈА€ џџџџИ€ џџџџР€ џџџџB Ш€ >а @HP€X`€ џџџџ€ џџџџ"h€ џџџџ€px€ џџџџ€ˆ€ џџџџ€ Ј€ џџџџ€И&Р€ џџџџ€ш№€ џџџџ€€ џџџџ 0 @HP€ џџџџ€X`xˆ€ џџџџ€˜€ џџџџ€АИ€ џџџџ и€ џџџџ6ш€ џџџџ R(€ џџџџ€ $€€ џџџџЈ€ @ИVјP€ 2X  € џџџџЈ€ џџџџB А€ џџџџИаирш€ џџџџ№€ џџџџџџџџx–]ѕ ]ѕИ]ѕа]ѕш 4!r!t'j jЌœЌ'ldџџ( dЌ j’№ d 4!r%R.n n!t hœ d'lkџџXЪPkџџH l'fiџџ8–у8 returns TRUE if the sheet exists in the active workbookК'vЬ~р x z%€!Ќ œК'vzџџАkџџЈЃ~ iџџ˜–Ј]ѕ№ 2!8.4]ѕ № 4!D.†џџ]ѕ@№ †!Œ.Šџџ]ѕ`№ 4Й Find Area 2!’%”.Žџџ]ѕ€№ Š!ž Š!š%œ.–]ѕ    Š!ž!Є“  !ІœyџџИkџџАЪЈ]ѕР Ј  !Ќ“ Ј –BЎЪp]ѕр№ –!Д!Ж.А]ѕ А!К!МЗшфg#зУ?'И ŽB@ОЙExternal surface area = ИЙ in^2A@ Ьи№ЙFlatPatternAreaЙ Inventor User Defined Properties 4!€%R%R.РуoCustomProperty.Value = dArea Т!ФЌœу9 Failed to get the existing property so create a new one.№ ИЙFlatPatternAreaЙ Inventor User Defined Properties 4!€%R%œ.РdџџЈу+ Change the value of the existing property. И Р(‚kџџXoџџP– в$~ЙœЌ'„dџџ Ќ'„kџџiџџџџџџ– oџџ№]ѕ№ 2$Ж.Д ДВ›G|jde.Mod]ѕx–А]ѕ№ К!Ў.МFo]ѕ0ЬЦ№ 2!8.~ ~Й DRAWINGS STD ДB@|у#Find the add-in you are looking forАџ№Й&{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} К!Ў%А.О ОВ›GzjАџ ОB@єАџ№ О!Ш.ЖzџџЈЃЦ iџџ˜џџџџџџџџhџџџџЕЖAttribute VB_Name = "c_GenFunc" Public Sub callup_Form() Dim iLogicAuto As Object Set 2= GetRddin(Th isAppВationMIf (KIs Nothing) TheРn Exit…wРcurDocsАumenu=5 b.Active , n.Run Rule ƒ, "DRAWING S STD€‚ xEnd?ŒZ jo#ˆhLInvKor.‰t …’Ÿadd8Ins‰ „ = ‰)‰#A 'FBiLthe -in you a€re look€ž№ forд)3ˆF‚" O€Wrro@r GoToС]FpoundCqƒ ".ItemById("{3bdd8@d79-214b11-8a5a-257b1c0€263ac}"„|gƒS{ХY B Cpa|te&K”€­ @ЂmП•РlСŒG”6:ССs‡ADК CheckEmbed (o€‚NssemˆblyE‘, s;Ю€ПSгAЌ€InptegeР^C_€ e@dfilec€VtСA†exis i CoOleRefA€erencedOLEFDescripОtС~6L@s@0.˜ xs.CсasЮ0qbr †C=ф 0/ls 4Ё€…ф i€31 KыУ/!^Хs‚M(i Ha`ф.DiрsplayD™Ш3Ёˆ7GЁ.iчСCIf1уNex€‹% C‹&)KэJExcelSheeТt`šsts(bKH`, oWBA;‚. Workbz)A€Boolean`@ retur ‡T€RUE if с€Ъs! ‚1s ‚bƒybŸ wФУэ€F†a7m‚SuchCƒ .Len( .ЂЈ).a) >Ž ЩD.0Tru$E?€Мg'BР›1No&рwm,@‚дFlatPattern№AreaдA#СlсхxPartexЃBP@€ lгЧM cpЂ M(0,^ A жGЬп "A'nт2 doesnр" atch ЭnРŠ"п С255Ф­aьWЎ‡6hЫ_„HDHblCТєBy ё ”Caїl P€тХ ёoSummaryInќfo!с‚ЁaIрwу qПtIs.Item("I\nv№`Ь$ 1r:mB†"iБ am_KeywordsџA1? $…ыР#Q?я& ф…сШ[Reђv ђon“uO…T§х ѓС3ђр*я џ1q/я!e18^ваћыСЕ ' Set m_CompanyProp = oDocSummaryInfoT˜.Item(B"Ј") ~aрtegor#€VACDimsDesignTrackingv As с erty…uЅ…1=бdoc.66sН0 c…,ieіs hƒDU"„‰ ŒO‹reatio@n Time‹%CostCentevrЅ% ƒ$‰гh`eckedЈK C &MfgAp€provedBIn‹™9Р  ByAСGVendo%9 C ENameфJEјngrW$(LBMЫ(PartNulmbfs C KS№tockЊB вРl№cripA $NH РrojectпТ?РЁK` yП8et)ЪrerЫMРori|al_BХ…ˆ‹Cрustomс@ˆ7Š#ЫиˆInvzor User De`fined‰!›yesNoValueBooleancH= Falpse !AjAc)РВosСIР‡gerG@mpTfabm!Str€ЉЃOn Err€GoTo 0m_ModelF˜ile!7`žm_ЁЈFul†m_Draw  hLeft(L, Len) - 4) & ".idw"# €бMsgBox? ЗЊ Œч ExˆistРDir€ŸŒРжx B If t "" TheФ8С5cmdCallФ.Visiblюe Ф:aE 0œР cbpMachР†Џс г YMA@*c8hїћQT…=dC нA%Kў|Q"A0 t ёŸвo›„‹еD+И 1,аvŸр|Зс1А(cQb(&`…Я EX‘= Mi&dРп, Ч, љO +А‹д>…qлџwP1gС)8§ѓ)џQ1`H%4/жЄљ Є'Д_KeywordsProp.Value, "WE") > 0 T@hen Me.cbWeld  = True >txtWEDesc.VisibleHcompos,InStr(m_Comment |‚YIf ?7•œ™y(end }T+ 1, Й•D")‡C!€E(# ) - (!4™уfabs€|˜Mid”{&, 2ŒF.‹~с2‡8 _E`nd If‡ ЩEЬls‹sŒ{Fa Q]ŸH РM…|ES@ExternšEђSП"|!ЧF€,Ddџ™\AhПРlU„PъС‡СПЁe+ 4)жNŸЅпNпNТ Ycb >OOю.OOPAOPaintњNPAџNџпaџNт#€~<џџNЏбЧ’BžЃ ппџcСрKпСcЋџNџNѓт Р cbы=вNЮ.аN !'MsgBox ЫDocTyœpeьЃ< ‹m_Ј!Ж51970юobРNormal”PА2Vр1orюЬLaрbel22!_Я С1яobPhрantomп2п<= ппegпopЄ2пobRefРerenceџџПфˆџџџє3џаurchasя§в я-”П&–ПЖ4ПobInse№para@˜пппџ1џш GK№3О*М§"P=Oo&?ЯЎ&џтo~o. GŽ‡A?P&>cbMa€‹iб;ъАќFor Each curEр,tU InРCdшoc.sїс8AddItemƒ0Љk.Name|№Nextw;"Р . pяф—й Ъ'E(hœsm_’t™…ИSpIePar—•m_6?`чhbLё`UrCu)%xSawћпвM™№7in—[0chчџђz№m_с™#с@ёSubЁ PrivA Funct`! Set DF )String(cA As{р*A)Ё!'X= "=%'0&is  a spec№GФ dqwit PEvр:0GthUЕat signifies a null date. SetDDFromSt€ring = @Serial(1 601, )fElsezOn Error Resume Nexжt:ЖC\(j VIfL Th,enC'is a spec˜Ц within Inventy…th ё(­zEрnd IfƒL…€Functio€Y ' Check to see€ if theƒUA‚^validƒa'return дitaбs‚С$C€ s, o€!r wise „an€ empty ƒ indicatоhasn't  beenBtРzPPrivРx E* 6G}Ca(‚,Сb AzsТ~)ƒ;@fYhearG )@‰† ‚A@1MonthЬёDay wv‡G‚Jefault ЧAG 2Utre@x9ŸK‚@HВ 5Р'""Фj§JЌ'€Њ]BAEШ]XЇСGФФŒB, @,@QŸI>…ЮРJ  h‚P@фptedT€д(TitleBlЮo€–РhG, ƒ l%Юn'Рcit@fizюeЂQ„H@Qu@'Щ ˆ'C(`"Yre ai`< `m>B‹ rn Ђ pТ Tplac  mТs‚xml шequ PluЄ,€JIn L(C, "<") <> 0чL€у€Re‚  р<"L,сuCЏ >П AЇ >"Ё ‚gЙ Dim o!5иBoxa1%’.dcBFР&EachGIn ‡9.Defin`5on.SkeШtchХesСKQŒ`‹tРD b dчТНC2edФ„ˆ[€"@Left$(e.@matФM, 7i|"<#/"ь1ЃEРxtract‰?У‘`, whi€€u>s рk`mУunhiqu ЄdBсгrЬ f #РЙs Eџaa, ЄAР`)”a= RighxˆLenє) -€fћASѕ#"€HDN1ƒ+fŽ,Є b]- 1€-#/Ш )@–Ђп љdў †;Ё%,%Р;F `3uЁ 'С`BcurЪrР ‚A oЃkcѓИH b‘HLСDчи-РQ‚lt11–\љQEx^Wu!5ЁS?5x1љГ‡З §ЯU Р#ЯUЯUpvЧUТ,ŽwVal€+і'WBoolead‹аRQ< ~WW<PF>avj!`OWOWptOWђOW !OWOW џueP4OWсPOW"ЅЃ _џOWс_ƒOWдsqџSOWc OWOWіtOWOWь OWšJ OWOW@ŸOWOWOW’A' OWŸtOW1 sѕ' OWџOW;OWЊEqЩFOWўr9OWEgOWMiOWСџ#4OWв…Ц @%†OWџяq7OWOWIрyd ЛOW1'1HB:ЯVtЯVу`ŸЯV CaамјU&E=_Vx‡KџV§P TrоuHоUY• yXAљY 3-4CC1-9846-E7A6D04EA6CD}{4A2гШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomaАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ6"џџџџ<0џџ<8џџ<џџџџџџš0{C4EAD57F-630D-418B-90A3-F68CE2C4782D}{CC3FE5D5-F2CE-44AA-9DDC-0F51DE1DDCBE}8 % %џџџџ,юШ`џџџџџџџџџџџџpџџ8џџМme џџџџџџџџџџџџџџџџџџџџџџџџ oApplication џџџџџџџџџџџџџџџџџџџџџџџџoDoc iƒ№џџџџџџџџџџџџџџ€iƒўџџџџџџџџџџџџџџџџџџџ `„іџџџџџџџџџџџџџџ  `џџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmIProp Caption = "Property Entry" ClientHeight = 6810 ClientLeft = 45 ClientTop = 435 ClientWidth = 14925 StartUpPosition = 1 'CenterOwner TypeInfoVer = 347 End ry" ClientHeight ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbtxtESDescablO; (х €“4txtWEDescablOE(х €”4txtMADescablOO(х €•4txtPADescablO1$х€–PcbPaintnдЖЖTahoma,FР€€€€€Р{0sePartџџџџџџџџџџџџ@џџ” x`гШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomaАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЗ€@№МTahomaal( €Cost Center.g {З€@№МTahomaA€H€,ЂN5€ДTahomaTahomaal(€Vendoralž{џџџџџџџџџџџџџџџџџџџџHџџ” џџџџ`џџџџџџџџџџџџџџџџџџџџPџџ”€ўџ џџџџџџа$  –џџ[}жfь.Rу ‘ЮуЊKИQ_џџџџџџџџ%ўџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Б %џџџџџџџџД'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџДTahoma,FР€€€€€Р{0sePartџџџџ%b€ьџџџџ`џџџџ џџ@џџџџџџџџ5€ДTahoma€€€€Р{0sePart@H  € €џџ}” qDocument TypeRу ‘ЮуЊKИQ_TahomaX‚o(х €ŒPobAssemblyypдд$х€LobPartlyд5€сTahomaal(€Vendoral{З€@№МTahomaalџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџabel21yџ*“ $е€N#frFile1yд˜(х OobAssemblyypдд$х€LobPartlyдџџџџШxџџџџџџџџ џџџџ@џџџџhƒўџџџџџџџџџ€T8cbMaterialmbы4Р (е €U#frRoughCutmbы4$е€r#frTYPe1yА'(х џџџџџџџџџџџџџџџџџџ‚ ъџџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџ0Шxџџџџџџџџ џџџџ@џџџџиџџџџ џџџџ(џџџџ@аџџџџџџџџxџџџџ@џџџџџџџџџџџџШ˜˜X8џџџџџџџџџџџџџџџџџџџџџџ4_ИW-$*\Rffff*0R57b43aeaпвhгpдxџџџџ€ўЪ)€ џџџџ€ џџџџ€ џџџџ€€ џџџџ€€ џџџџB € џџџџ€ (  H Xh€p xˆ Иа€ џџџџи€ џџџџ"ш€ џџџџ  € џџџџ"( 0@€ џџџџ"H P`€ џџџџ"hp €€ џџџџџџџџ аџџx]@ѕ@–К€}4txtVendortmb!a$(ѕ€~2<Label22y!!$е€€#frWorkst%B3п7:Мў'ьу! Initialize with the current date №Йœ ђB@єdџџ]ѕА №X'іџџx і$ј ђ(јetalCompon ПDefinўi!Хi Рd\У?Ha?Шh ‰a ef.h Transђa@Bona ш8ICЯtиMana€N.ќSt@xBStjс 1_ЬSketcвhQPlprѓhP  .Ses. l(o™TopF8aceДAƒ‚EdРgeLoopБЕЇуSJEaАo–ˆIn Пce.s“! He.IsњO•rѕИRЁ1ТŒџ-ћFqѓі Е {c б &ш C› oS1ByP ro‘š‚Entiјty(bdO џёk1Єc’3ХpT‡" Soli…Э;db!РrDoPІt@oC€`jg Ђаp0ertiAА= * 0.155003cSo(.Ab or€[7MsgB@ox "Ex!Ba€l surfр"…“a ?" & ѓШ& "РS^2АŸїб6QRes Ї wB@Custom„ yЛрсF.ѕ ”k"…Ё@ User bBeLd „")#n"O˜-Ё4s'oЫ.№ValuБЛв 3S)Err.Num bАџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% ^`џџџџџџџџџџџџHџџџџџџџџ55„)ƒ^џџџџџџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџџџџџџџ і$њ ђ(њџџ і$ќ ђ(ќџџkџџ( ў џџB@рџџ ђ!ј ђ!њ ђ!ќ$'ю џџA@riџџи–Ш џџA@rџџџџџџoџџИ–  ђB@єџџџџџџoџџ˜–xЙ0, 0, 0'№ џџA@rьџџџџoџџhџџџџ`џџџџhВAttribute VB_Name = "frmCalendarˆ" ˆBasˆ0{C4EAD57F-630D-418B-90A3-F68CE2C4782D}{CC3FE5D5-F2CE-44AA-9DDC-€0F51DE1BE} dGlob„alSpaco False ŠCr@eatablP€redeclaDIdжTru BE`xpose0TemplateDeriv–Cus tomiz‹D Option `„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџh(% „xџџџџџџџџџџџџˆ0% `џџџџ`џџџџџџџџџџџџшџџџџџџџџ„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%џџџџ№џџџџrefeџџџџИƒZџџџџџџџџxџџџџџџџџџџџџџџџџџџH%џџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(4_ИW-*\R1*#19f$*\Rffff*0:576159abпўЪd€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџA3licit P€%€) m_bGe@ttingDAs Booleanub Fuœnc €(Sж3ƒ) € ц Œ+= { ' Initialize with the cu€rrent dАgЖpyj€џџџpyjPџџџpyj џџџpЉnРўџџпZйаџџџ VТШџџџžШџџџйАџџџ9V ТЈџџџžЈџџџк№ўџџI#1У If ˆ@…" xThe€'С…ˆ. Today E‚iёEDim( * cD"= CСШ8)‡У ЦYearРr(H‘ Mon7Œ= Т Day€@ End If#CMe.Sho w vbMР>l‰#„jteS€Žalђ(Š/, †‚&ШРD2ƒUnload< MР­!ХƒЩ‘Sub btnOK_ђC€Œk(ФL@  ?nыŠ-;AcmиdClРg SGT`Fx0, A| “Option € џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџXјP`€ џџџџp€ џџџџ€ џџџџџџџџ€–]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@Вфˆ€І>–4ц'џџ€Жџџџџџџџџ˜џџ ЬSЧ'­A’оT7w“ь‡*=ћќњ hЇ8+3qЕрŠX0l)JBЁ hmєobџџџџџџџџџџџџxрŠX0l)JBЁ hmєob ЬSЧ'­A’оT7w“ь‡џџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ (џџџџ08Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ`џџЪ`Ю0џџж0џџш0џџє0џџј0@ќ0Hў6"џџџџ№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.LџџџџџџЌ'TЌ'V L!ZЌA^№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.џџџџ]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationџџу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksџџџџуSet oExdoc = oExApp.Workbooks%у!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’џџу Get the current row.џџџџ]ѕP№ d ^%R.vџџџџу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cel1*#66*\R1*#220*\R1*#16*\R1*#26*\R1*#49$*\Rffff*0Q57b43aeaп@pџџџџxˆўЪc€€ € (€ 8€ џџџџ€ DH€B… ˜€  И€ џџџџ€ *Р№€ џџџџ€ B P€ џџџџ€ ,`€ џџџџ€  €РШ€ 0р(€ џџџџ€ (0 X€ џџџџ€ &h˜АИРШаир€ Dш€ 40€hp$€ Ј€ џџџџ€ Р8 рј (( (0X .` ˜ Ј€ џџџџ€ Аа ир€ џџџџ€ *ш € џџџџ€ (€8@X`h€ џџџџ€ џџџџ"p€ ,xЈ€ PА€ џџџџ€ џџџџ" € , PX€ џџџџ" ` hx€ˆ€ џџџџ€ џџџџ˜€ џџџџџџџџЈаџџxу Declare the event objects]@ѕФ]@ѕФ@у> Declare a flag that's used to determine when selection stops.€]@ѕА–ˆу Initialize flag.К'ау$ Create an InteractionEvents object.2!Ў№ 2!и!к.Шју< Define that we want select events rather than mouse events.џџК Ш(мzџџџџу& Set a reference to the select events.џџџџ№ Ш!Ю.ЬуGet all the Filters]ѕP оЌ$д‘’у* Set the filter using the value passed in. о$д ЬB@рЪау" The the InteractionEvents object. ШB@ту Loop until a selection is made. аb !Z !BКœA@„dџџ@Ќ'~К'аkџџ(Мџџ Ьфу= Get the selected item. If more than one thing was selected,џџџџу- just get the first item and ignore the rest.%]ѕh№ Ь!ъ.цІ цВ ц!tЌ œџџџџ№Ќ ц%R.в%у '''''''''new'''''''џџ І  $ 0 < H в!l­2 в!l­5 в!l­' в!l­ в!l­  в!l­4 в!l­I в!l­) в!l­3 в!l­+ в!l­' в!l­M в!l­N в!l­PœЌ'~ в!l­eу-kWorkPlaneObjectЌ'~ в!l­eу-kWorkAxisObjectЌ'~ в!l­eу-kWorkPointObject ThenЌ'~dFЌ'~kџџPу '''''''''end new '''''''dџџ(№В.вkџџу# Stop the InteractionEvents object. ШB@Xу Clean up.ЃфР цВ›GЌ'~j№В.Ь№В.Шiџџ–ˆу% Set the flag to indicate we're done.К'ауIIf the users quits with an Escape, clean up to prevent crashing Inventor.№В.Ь№В.Шoџџш–ру% Set the flag to indicate we're done.К'аoџџ – шКœК'а№В.Ь№В.Шkџџhoџџ`џџџџXџџџџфЖAttribute VB_Name = "clsSelect1"D „Bas„0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalЬSpac’False dCreatablPredecdlaIdЏCE xposeTemplateDeriv–Customiz EOption 0lic€it ' DƒF the eve@nt objŸs P04 WithE s oI€nteract„јAs …, ‰ˆŒ.дVarHelШpID€~-1“2ƒр?‡1‰ / I8a flag:at's uAXto de4mine wрhen sТŽIРOps.Ч'bSti„lling €>€BooleanРubT FuncXPick(fi2l€()A „ onBFEnumТOQТZ '€Ri€tialize‚*С = TruРСE‚e anчcФsSex q@hisAppР0aС/.CommandManagerŽ.Cz‰ DefAQ@that w@Sa‡€’CSУ•s ra™Тr`n mo`з„&ЭŠЦLAUvдУ=Х<2a refeјrenr€9XjЉыу „J=MY.ЩC  "G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To U BoundFA)Cљ' суDRЁJvalue pdasATindoс‰.AddуРUŠ dNa Nex€|у!' TР|a Ž9#ЫDn1tar, Loрop un€bРƒ.Сfis made„Do Whi ЁŒXУIf frmVisiІ.tg lHideC OтrlUnhЇc`Ёg oсaDoƒ;ƒ EG‚Гс# TypaH4Ѓj$БEnd ŒIfС O€І$rr ;Go :enфdoЃ' ЁC*# рБitem. р)`\reЃ]oР‹thс;wasdŒed,eej€Е gРL f`irst ЁРyd  ignoТe@]stх*@O„AedEиntsСPƒ‰s‹`Дјtorу сLk€_c"oу%D_ eФ[ 3NŽo …CФ Is €ѕBA $_C &J ˆљ@C >Ё`РЊЇ!—!ЄР‹I@'(1ˆd‹Ёk'newД` С.є838`98880%}9№648 ( сp'm6064э117и448 џ љs 70q 9392џњ83904768я 896576яь89913‚6я89708п&rюп= Q 57УЯ Ю90600№0656RО!!'є0лQ=87616в@ 'kWo€rkPlaneЩuq5њˆЙџР809120г єAxмisяƒъ2я я X935" Ynх oxintѓ576159abпўЪv" € џџџџ€€ џџџџ 0€ џџџџ@€ џџџџH€ џџџџ" P€ џџџџX&p˜ И€ џџџџи€ џџџџ€ џџџџ"рш€ $ј € џџџџ"(€ џџџџ€0 8€ џџџџ HPhИР€ џџџџ€Ша€ џџџџ€рш€ џџџџ€*€ џџџџ@€PX€ џџџџ h xˆ€ џџџџА€ џџџџа€ џџџџи€ џџџџ"р€ 0ш€ 4€PX€ џџџџ€ "h€˜€ џџџџ€А€ >И€ $ј€  0€ 8€ џџџџ€ џџџџ€ 6H €€ џџџџ€ 2 €и"р€ џџџџ(€ џџџџ€ џџџџ@€ џџџџ"H€ џџџџ€P€X€ џџџџ`hRx"ај€ џџџџ* PX€ џџџџ `:p:А€ џџџџ€ џџџџ№€ џџџџџџџџ–]ѕР№ ž   4!r%œ.nor 2 h n(tivb№В.noџџ0–р І z%€B@H І z%€дЊ І z%€B@Ј ІЙ (2) z%€B@H Є ІЙ (2) z%€(oџџ –  2!ЎB@А‚уThisApplication.ActiveView.Fite waoџџи–ј]ѕP№ 2.. event .!Д Ж .!Д ИœЙ-Ppart- oder Assembly-Document muss aktiv seinЌЙFalscher FehlerA@ |џџ@kџџ8]ѕp№ 2!8.4’]ѕ№ 4!D!М!О.КЬј]ѕА№ЙCenter Of Mass 4!D!0%R.РX% Т!ФЌœ]ѕа№ Р!Ц.Тџџ К Т(ј 4B@Шdџџp№ К 4!D!0%Ъ.РЙCenter Of Mass Р(.џџџџkџџ(oџџ –№у* Set a reference to the assembly document.у- This assumes an assembly document is active.]ѕH№ 2!8.4џџу Set a reference to the BOMџџ]ѕh№ 4!D!<.:@џџџџ]ѕˆу8 If MsgBox("First level only?", vbYesNo) = vbYes Thenу FirstLevelOnly = Trueу ElseК'Fу End Ifу/ Make sure that the structured view is enabled.К :(JЙ- :(Юу, Set a reference to the "Structured" BOMView]ѕ №Й Structured :!P%R.аЙ Part Number аBвЌЌ аBдoџџИ–Р]ѕ]ѕ8Ь˜№ 2!8.4џџІ 4!~ Ж 4!и!кЙ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œџџџџџџЙMust be in Part documentA@ џџџџџџ|џџkџџј№ 2!м.– ТœЙ MUST BE IN ACTIVE SKETCH TO RUN!A@ џџџџџџ|џџЈkџџ  оB@рlџџџџЙ KWiK-ObroundЙSettingsЙTopЙ200$т о(˜Й KWiK-ObroundЙSettingsЙLeftЙ100$т о(м„џџџџoџџџџџџџџџџsЖAttribute VB_Name = "b_GenModul" Public Sub createEmbedFile(oDo c As umРent, s8Ž%.SЖng*Baselb2) Dim oO`leReferencedOLE.Descriptor SeRt+= ~./s`.Add(’|, kWА­din€gObject‚G„E.Display„‰lY‹CNotЦh€! End”Ž›Sheetin€EXCEL(s‚ ”oWBExcel.Workbјook€Ÿa €WВ €.‚s.…).Sel€nCopy B€efore:=—м & " (2œ)"фШ B7= ЧFƒ ˆU Єvie wfitbТ,save(€DThisApp­ation.ActiveV€ .GoHome 'иFit ШqAdpoint€atmassc€Мder C*ТВaDppqInvРo kPartУЎ A€ž™ Ass emblyŒ Th enCHMsgB@ox "Pp -` oder`-% muss akР* sein", 16, "F alsch Fephler`‡A aE8xitуbЂ IfџadЁb&@ р ‰т$/!ю$Ь"J CЂ2OfіM 4a P6 ъ„ˆ@ComponD`efiniТFсPropertie s.Щх On Error Resс  Nex`G†СEЂС†Hј†s€.Item("#а Of A"‚€ƒ ƒ€Fр.Numb 08= 0рKЉ;B-Fiјxedрb €Пу!‚/fрЦ.рз„$ХЧoE.#+'a a‚ЗupdЪёЃEls sУч ТF€гтё5†ТОТ(Ўoi%у o†.dŽџ­*%ус!Vс|h‘Hƒ€BOMSortƒ' Сa refcй to the† @Rbp doc"цz.у 'С @knљ/ iр"™dщfm{їЃ b'џgn0+e r џа BаС#FrAЫРр.пn.Т1FirstLe€velOnlyВ oolea€H'“p,ƒH("Ђ lБ oР?РFvbYрesNo)а ЂT.ЯЂсьаCruA_БљY& ž!LІfJГ'№6ke sure@at’strШuct d СhQ€enableddКo.рŽTahEр T‚ q owDe limit’<"-/дTАkЯ%У%"W" џPЁ“ RзД4gџroPЁUHwH%pCall oе^.в1"qk ѓIe-Mq€nrL(1/рeД;Wџ7S ЉObрroundё78С/ƒјЉйketch!€PlanarSђџ]]2a?is†А0<15P,ТJЯ{gШ{_м њ` !.ѕєID€"{28EC8354-9024-440F-A8A2-0E0E55D635Bx0}"Д1!&1ѕ}Must be iмn "ѕH?{bCQ?P…г"cЯУEdќitS j? 2‡MUST BE IN ACTIVE SKETCH TO RUN!ЧП М 3frmФ рАow Top1P7GetР  Иg(Р"KWiK-є E:"„sБаa20†0Б*hLeftЙngrс1ƒL,E6-9029-EE335AAFD6DC}€h %"€Щ@hШџџџџ@џџџџџџџџџџџџ(%"€Эџџџџрџџ8џџ@џџџџџџџџџџџџ€%€nфtpю\–41(џџˆЖџџџџџџџџрџџ;=ѕШ'M’Fy„ }рRЅj)їmI’pWШ#л‡–Жl?ќ[цM)ю3ZЏжмр­=уB†Ÿв‡К‚1Yџџџџџџџџџџџџxр­=уB†Ÿв‡К‚1Y;=ѕШ'M’Fy„ }рRџџMEџџџџџџџџџџпџџˆ0џџHџџXџџhџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџp(xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ`џџЪ` Ю0џџ0џџ˜0џџ0@0џџ 0P$0џџ00`4<џџЦ<џџж6"џџџџ<џџ<˜џџ< џџ<Јџџ<Аџџ<Иџџ<Рџџ<Шџџ<аџџ<иџџ<рџџ<шџџ<№џџ<јџџ<џџџџџџš0{E95C48BE-C9B2-433B-8B08-B3E00B5FF27A}{3EE293FD-476D-442E-A5A7-E2DBEF226C28}€h %"€Щ@hШџџџџ@џџџџџџџџџџџџ(%"€Эџџџџрџџ8џџ@џџџџџџџџџџџџ€%€ls(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA`у Elseу@ MsgBox "IDW does not exist for: " & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ A^kџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4ЙAREVAЙCompanyЙ%Inventor Document Summary Information 4!€%R%R(‚ 2!8B@b 2!8B@Boџџˆџџџџ€џџџџ)ЖAttribute VB_Name = "change_draw_prop" Public Sub IDW_ŒALL()  Dim oapp As Inventor.Appjatio"nJSetJ= 0This>EDoc EssemblryumXJ*=Q.Activeу #NBOM NAvrtSelectedItemVariantƒ61.FulрlFile™‚l7 € ƒ.Vs. Open(Œ#, `False„‚BS„.Compon€tDefiniŸ.4FirstLevelOnlŽy7‚$ƒ If XTheНвo€".Structur@edViewŽTшrueCE@(Cхˆ"End IfƒEnabledџ€/ЧEk%b+УŸХHРIA2s.n4("6"Vƒpr@introw2aCmaxlAP@1CCCCallЬЗCрhild(A0Aa€Rows, 1ŠƒС(Р$Not№hingGСвC“Я Aг= Ъ СUSub@фriva?@ю–,*DREnЩ€Єra@ц, У?‚u tegerФ'@) e throughрe conТt Qs ofт`Z с .ƒс6iС LoхAРipstrWJjh1™2Ž'1AoExР†aExhceloŒ'BEЃ=€ GetObj|p(, ".E% dCуWorkboјoks%0%8џџџџџџџџЈ8%B€   €џџџџ џџ@џџџџџџџџ€р "€а  џџџџP@џџџџџџџџXџџџџџџџџP@%џџџџџџџџpH%B€` Рџџџџ џџ @џџџџџџџџ€Ј "€ рџџџџ @џџџџџџџџ џџџџџџџџP%Шџџџџџџџџ8X%B€* џџџџ џџ@џџџџџџџџ€p "€.P џџџџр@џџџџџџџџшџџџџџџџџр`%џџџџџџџџh%B€:р @џџџџ џџ@џџџџџџџџ€8 b€>џџџџZџџџџ џџ@џџџџџџџџџџџџџџџџџџџџ џџ @`џџџџџџџџџџџџџџџџџџџџpџџ” JX`џџџџџџџџџџџџџџџџџџџџxџџ--” PА`џџџџџџџџУх aP .m$Sheet6s‡СsbG&Palrteˆ!S`Бщ'DЬWGйСTyт­-…AC`Cgory- < #Ѓ†A> ?fbK†He"уЉ{For i[1 ToЦ \BCCoueЈЁ‡F'1ƒIurr€I џrфGст&СCh Пaт9aУ~ $~i„VЂ3a refe5Р cXoТ €maџР pЊХY ‡ `ЏП№,… @.oФE†Сg' T"f…рЩ юerty „atoainsт"С: NumbeЎr`ђЁa'р5 k2i ubtЌfromТvirtuLal` „Ы dІЫ  'х—*UTR_Р").Cellьs(…TбO.ђv@&Иƒ#xБ.Valuб„џ8#1 V-ФцrŸuoƒ qб./tЖ№e '12291=A4ƒ А 0= Wт62_t.PЏ ‘а'є"u Х}№mв%Inforўm‚ŽауhевШЉ== (LeftЦ(ё •, L0ƒ) - 3) +р "idwQKPvсЭ "LC"№•™QвleExist:(()У;š‚S qj˜су‚w $M€sgBox "`Ѓ does no(t e1 0: ј" &ђ Еh…FgЉG!P Of ‚oФ$ Is Vг.œ”ŒKŽ'Re0cursРЄр•iteтpca€1Ks iђfP:es0LјK”РzМ oR@ё€РАs%|ї/Q-_@ЕD‡Š%{>+І‡в@љNeіxЌSAƒoƒ“МyQOeрUгМК7У­ п\!f’TБСDPХP‘џ4у^‘^СSF\НC6oO:(O:O:oncG: Жany5:0"рAREVAVNУВН.SavДВСйШ.Clos’œaеџџџџџџ55‘„)ƒ^џџџџџџџџџџџџАИ€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџџџџџџџџџџџџџ€џџ” R`џџџџџџџџџџџџџџџџџџџџˆџџ” T``џџџџџџџџџџџџџџџџџџџџџџ” XИ`џџџџџџџџџџџџџџџџџџџџ˜џџ44” b`џџџџџџџџџџџџџџџџџџџџ џџ44” jш`џџџџџџџџџџџџџџџџџџџџЈџџee” Єlџџџџџџџџџџџџ€p% „nџџџџџџџџџџџџРџџџџ x%`„xџџџџџџџџџџџџ џџ „€`џџџџџџџџџџџџџџџџџџџџАџџўў”@ p   а Єlџџџџџџџџџџџџp% „nџџџџџџџџџџџџXџџџџ8x%'`„xџџџџџџџџџџџџ џџ и `џџџџџџџџџџџџџџџџџџџџИџџ ” џџџџ `џџџџџџџџџџџџ0 џџџџРџџ”iƒ’џџџџџџџџџџџџџџP €iƒ”џџџџџџџџџџџџџџџџџџ€€ўџЈ џџџџ  џџp џџџџџџџџ'V%ўџџџџџџџџџџџџџи џџЈ џџџџџџџџ!‚%"€ `џџџџˆ@џџџџџџџџ!"€–@ hџџџџЈ@џџџџџџџџ!b€p pџџџџџџ@џџџџџџџџ-Se"€Аxџџџџ@џџџџџџџџ"b€ ˜џџџџџџ@џџџџџџџџЌ"€ Јџџџџp@џџџџџџџџ b€0 Аџџџџџџ@џџџџџџџџа"€xИџџџџШ @џџџџџџџџ b€аиџџџџџџ @џџџџџџџџœoO"€"Р шџџџџ8 @џџџџџџџџ@b€&№ №џџџџџџ@џџџџџџџџ"€(@јџџџџ@џџџџџџџџZ(b€,˜џџџџџџ@џџџџџџџџB("€2€ (џџџџ@џџџџџџџџ“omb€6А 0џџџџџџ@џџџџџџџџ9 "€88џџџџX@џџџџџџџџ b€<`Xџџџџџџ@џџџџџџџџ!р p џџџџ` џџџџ@ € а P А И0 р џџџџXx џџџџ` џџџџџџџџЈџџџџџџџџџџџџџџџџџџџџАџџџџџџџџ@џџџџџџџџ` џџџџџџџџџџџџџџџџши№ А€аР ˜  @ џџџџџџџџƒўџџџџџџџџџpџџџџџџџџџџџџџџџџџџ‚ џџџџўџџџџџџџxџџўџџџџџџџџџџџџџџџџџџџ˜ р p џџџџ` џџџџ@ € а P А И0 р џџџџXx џџџџ` џџџџџџџџЈџџџџџџџџџџџџџџџџџџџџАџџџџџџџџ@џџџџџџџџ` џџџџџџџџџџџџџџџџши№ А€аР ˜  @ џџџџџџџџx џџџџPџџџџX Јџџџџр p џџџџиџџџџ`Ј @џџџџџџџџ0шјpџџџџџџџџџџџџџџџџџџџџџџ :h4_ИW-*\R1*#21a*\R1*#21c*\R1*#4c7*\R1*#15e*\R1*#460*\R1*#461*\R1*#45d*\R1*#45e*\R1*#463*\R1*#2ee$*\Rffff*0P57b43aeaп џџџџ`pлxз€йˆ@˜ж иЈмАеИбРдШкаўЪŸ€ џџџџ€ € € џџџџ€ џџџџ€ €(€0„8€@€ џџџџ€P€X€`„h€p€ џџџџ€€€ˆ€„˜€ € џџџџ€А€И€Р„Ш€а€ џџџџ€р€ џџџџ"ш€ џџџџ№ (@NP АИарш№ј ( 08 @X hpx€ џџџџ€€ џџџџ"ˆ€ џџџџ  А Р а р №    (8Xhp ЈШи р шј(0P`hˆ˜   ЈИиш №ј€ џџџџ€ џџџџ€ џџџџ"€ џџџџ( 8PhNxШирј 8HP X` h€ ˜ € џџџџЈ€ џџџџ"А€ џџџџИШ и№0@H`px€ˆ АИ РШ аш ј€ џџџџ€ џџџџ"€ џџџџ 0 @Xpˆ  ЈА Иа ш€ џџџџ№ј€ џџџџ € џџџџ" € џџџџ   ( 8 @ P  X h € џџџџ p €     Ј  А Р  а fр H P  X  ` €p x €  ˆ ˜  Ј fИ  (  0  8 €H P X  ` p €   А  И Р  Ш €и р ш € џџџџ№ € џџџџ"ј € џџџџ    ( 0 @  H X € џџџџ ` p  €  ˜    А  Р fа 8 @  H  P €` h p  x ˆ  ˜ fЈ    (€8@H P` p€ Ј А И€Шаи€ џџџџр€ џџџџ"ш€ џџџџ №€ џџџџ( 0@€ џџџџH€X€ `€xˆ˜ЈИ€ џџџџ€Ш€ џџџџ€а€ џџџџи № € џџџџ  0@ P `2h   А€ џџџџ И Ш ишfј `p6x АРШ ар ш0№  0€ џџџџ 8 H Xhfx р№6ј 0@H P` h.p   А И Ш ишј (60 hx€ ˆ˜  0Ј и ш№ј€ џџџџ€ џџџџ€ џџџџ" € џџџџ (8@€ џџџџHX `p€ џџџџ€ џџџџx€ џџџџ ˆ˜И а №  8HP` hp €ˆ€ џџџџ    Риј(x8АРШаи№ €( 0€ џџџџ 8 H h€ РаxрXhpx€˜ЈАРШ€а и€ џџџџ р №€ џџџџ (Hhx ˆЈИРШашј€  (€ џџџџ€ 0€H€ џџџџ€ P€hxˆ˜Ј€И€ џџџџ€Р€ џџџџШ р№   0 8@H PX€ џџџџ ` p€˜И Ширш №   f0˜А а р №ј4 HX`h€  АРШаи р0ш  (€ џџџџ 0 @ P`fpи№    0 8 @ H 4P  ˆ ˜   Ј Р р  № !!!!  !.(! X! h!€ џџџџ p! €! ! !А!а!ш! " " ("0"8"@"4H" €""˜" "И"и" ш"ј"### #0 # P# `#h#p#x#€ џџџџ€€#ˆ#˜#€ џџџџ А# Ш#ш#№#ј#$  $ 8$X$`$h$x$ $ Ј$Ш$а$и$ш$ % %8%@%€ џџџџH%€ џџџџP%€ џџџџ"X%€ џџџџ`%x%%Ј%€ џџџџР%€ џџџџШ%€ џџџџ" а%€ џџџџи% ш%ј%& & &€ џџџџF(&Fp&DИ&D'DH'>'>а'€ џџџџ(џџџџ (]@ѕФs\publ]@ѕФ@ts\aut]@ѕр ]@ѕ ]@ѕ@ ]@ѕp ]@ѕАѕ  ]@ѕ]@ѕа ]@ѕ ]@ѕ0 ]@ѕxѕ` ]@ѕа]@ѕ ]@ѕР ]@ѕ№ ]@ѕ@ѕ ]@ѕ˜]@ѕP ]@ѕ€ ]@ѕА ]@ѕѕр ]@ѕ`–Ј B!‚Кœ D!‚Кœџџ ,Ќ *’ џџџџ ,Ќ$('&џџџџ F!‚КœІ  &Ќ$! &Ќ$! &Ќ$!œџџК &$(HdџџH &$!HКœ К &$(Hkџџkџџdџџ &$!HКœК &$(HkџџиkџџаЪШdџџР ,Ќ *’К ,$(HЪkџџˆkџџ€oџџx– B!‚Кœ F!‚КœКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$(HКЌ$.(Hdџџи L!‚КœЌЌ$ЙFalseœКЌ$(HkџџЌЌ$ЙFalseœКЌ$(HkџџXЌЌ$ЙFalseœКЌ$(Hkџџ kџџ D!‚КœЌЌ$(ЙFalseœКЌ$(HkџџаЌЌ$(ЙFalseœКЌ$(Hkџџ˜ЌЌ$(ЙFalseœКЌ$(Hkџџ`kџџX N!‚КœЌЌ$8ЙFalseœКЌ$.(Hkџџkџџkџџkџџјoџџ№–X B!‚Кœ L!‚Кœ Ќ ’ Ќ$' F!‚КœІ  Ќ$! Ќ$! Ќ$!œК $(Hdџџ  $!HКœК $(Hkџџ№kџџшdџџр $!HКœК $(HkџџАkџџЈЪ dџџ˜ Ќ ’К $(HЪhkџџ`kџџXoџџP–А B!‚Кœ N!‚Кœ <Ќ :’ <Ќ$8'6 F!‚Кœ 6Ќ$.!œК 6$.(HdџџИ 6$.!HКœК 6$.(Hkџџˆkџџ€dџџx 6$.!HКœК 6$.(HkџџHkџџ@Ъ8dџџ0 <Ќ :’К <$.(HЪkџџјkџџ№oџџш– B!‚Кœpa V!‚Кœn Ќ ’J_E Ќ$'2!8 Ќ$КœК  %R(H-RkџџXЪPdџџH Ќ ’4!@К  %R(H!BЪkџџkџџoџџј–` Z!‚КœК'>К Z(‚№r дшџџџџО )–4mкџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџˆџџџџџџџџџџџџH0џџ( џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<:6 џџџџ<џџК B(‚ѕkџџ VКœ:!P – “AК –(H'VЪXkџџP LКœВ.\  “4 F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œDiš\FkџџЈkџџ К (H-SeЃ\ˆЪ€kџџx DКœicatio " “Di F!‚КœceІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œš^FkџџаkџџШК "(Hœ_BlaЃ^АЪЈkџџ  NКœt’Re 2 .“ c F!‚КœoO 2!Ќ .%R!œn"š`Fkџџ@kџџ8К 2(Hry ComЃ` Ъkџџoџџ–И Z!‚Кœ%К'>К Z(‚the fikџџа B!‚КœinК'>К B(‚"rmkџџ  VКœperty  – “omК –(Hal comЪhkџџ` LКœ9   “ts F!‚КœllІ  !Ќ %R! !Ќ %R! !Ќ %R!œ12šdFkџџИkџџАК (HCateЃd˜Ъkџџˆ DКœInform " “! F!‚Кœ!І  "!Ќ %R! "!Ќ %R! "!Ќ %R!œtešfFkџџрkџџиК "(H ЃfРЪИkџџА NКœor: "  2 .“ F!‚Кœ 2!Ќ .%R!œRešhFkџџPkџџHК 2(Hesent.Ѓh0Ъ(kџџ oџџ– >КœџџК'>|џџ№kџџш B!‚КœB@К'>К B(‚ 2!kџџИ Z!‚Кœ!]ѕhу set the filter n]бЌѕˆ c pЌ+nne rЌ+nt tЌ+nig vЌ+nbe]ѕаЃz(№$n l%в.xџџК |(Hџџ ~Ќœ|џџшkџџр ~Ќœ V!‚Кœ№ x!€.–К –(Hdџџ˜Й&Sketches not Enabled in above checkbox |(‚К |(HkџџH ~Ќe L!‚Кœ№ x. F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œК (HdџџˆЙ) Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ8dџџ0К (HkџџdџџЙ$Planes not Enabled in above checkbox |(‚К |(HkџџШ ~Ќe D!‚Кœ№ x." F!‚КœІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œК "(Hdџџ Й) Ignore Origins Enabled in above Checkbox |(‚К |(HkџџИ dџџА К "(Hkџџ˜ dџџ Й"Axes not Enabled in above checkbox |(‚К |(HkџџH ~Ќe N!‚Кœ№ x.2 F!‚Кœ 2!Ќ .%R!œК 2(Hdџџа Й) Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ€ dџџx К 2(Hkџџ` dџџX Й$Points not Enabled in above checkbox |(‚К |(Hkџџ kџџ šzFdџџј kџџ№ №В.loџџр –ш >Кœš†FkџџИ Z!‚КœК'>К Z(‚kџџˆ B!‚Кœ !t' Ќ ЌЌфh Ќ ’ $! Ќ+ $!H Ќ+ V!‚Кœ $!HКœК $(HdџџА К $(Hkџџ˜ dџџ К $(Hkџџx Ъp !t'Ќ ЌЌф˜ Ќ ’ $! Ќ+ $!H Ќ+ L!‚Кœ F!‚КœІ  $!Ќ %R! $!Ќ %R! $!Ќ %R!œК $(HšˆFkџџ0kџџ( $!HКœК $(HdџџјК $(HkџџрkџџиЃˆаЪШ !t'*Ќ *ЌЌф(Ш ,Ќ *’ ,$! ,Ќ+( ,$!H ,Ќ+( D!‚Кœ F!‚КœІ  ,$!Ќ %R! ,$!Ќ %R! ,$!Ќ %R!œК ,$(HšŠFkџџˆkџџ€ ,$!HКœК ,$(HdџџPК ,$(Hkџџ8kџџ0ЃŠ(Ъ  .!t':Ќ :ЌЌф8ј <Ќ :’ <$.! <Ќ+8 <$.!H <Ќ+8 N!‚Кœ F!‚Кœ <$.!Ќ$.!œК <$.(HšŒFkџџ8kџџ0 <$.!HКœК <$.(HdџџК <$.(HkџџшkџџрЃŒиЪау New Selection]ѕу set the filter]бЌѕ  pЌ+n rЌ+n tЌ+n vЌ+n]ѕhЃŽ8№$n l%в.xК |(H B!‚Кœ|џџјkџџ№ ~Ќœ >Кœš†FdџџРК'>|џџАkџџЈkџџ  ~Ќœ№ x!€.– Ќ ’ Ќ$ –!œК Ќ+К –(Hyџџ kџџЪ ~Ќe L!‚Кœ№ x. F!‚КœІ  !Ќ %R! !Ќ %R! !Ќ %R!œ Ќ ’ Ќ$ !œК Ќ+К (HyџџkџџЪјdџџ№Й(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ dџџ˜ Ќ ’ Ќ$ !œК Ќ+К (Hyџџ8kџџ0Ъ(kџџ dџџЙ$Planes not Enabled in above checkbox |(‚К |(Hkџџа ~Ќe D!‚Кœ№ x." F!‚КœІ  "!Ќ %R! "!Ќ %R! "!Ќ %R!œ ,Ќ *’ ,Ќ$( "!œК ,Ќ+(К "(HyџџШkџџРЪИdџџАЙ(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџ`dџџX ,Ќ *’ ,Ќ$( "!œК ,Ќ+(К "(Hyџџјkџџ№ЪшkџџрdџџиЙ"Axis not Enabled in above checkbox |(‚К |(Hkџџ ~Ќe N!‚Кœ№ x.2 N!‚Кœ 2!Ќ .%R!œ <Ќ :’ <Ќ$8 2!œК <Ќ+8К 2(HyџџаkџџШЪРdџџИЙ(Ignore Origins Enabled in above Checkbox |(‚К |(Hkџџhdџџ` <Ќ :’ <Ќ$8 2!œК <Ќ+8К 2(HyџџkџџјЪ№kџџшdџџрЙ$Points not Enabled in above checkbox |(‚К |(Hkџџ˜kџџšŽFkџџ€Ѓ†x V!‚Кœ Ќ ’ Ќ$' Ќ$  %R(HЪkџџ L!‚Кœ Ќ ’ Ќ$' Ќ$  %R(HЪ kџџ˜ D!‚Кœ ,Ќ *’ ,Ќ$('& ,Ќ$( & %R(HЪ0kџџ( N!‚Кœ <Ќ :’ <Ќ$8'6 <Ќ$8 6 .%R(HЪРkџџИ№В.loџџЈ–€№ 2!8!D!š.№ 2!8!D!.№ 2!8!D! .№ 2!8!D!0..К'>oџџ0–и Z!‚КœК Z(‚kџџ B!‚КœК B(‚kџџиЙKWiK Inventor VisiblityЙSettingsЙ SketchCheck V!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ OriginCheck F!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ PlaneCheck L!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ AxisCheck D!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙ PointCheck N!‚A@–ЙKWiK Inventor VisiblityЙSettingsЙYLoc џџ!˜A@–ЙKWiK Inventor VisiblityЙSettingsЙXLoc џџ!мA@–oџџшџџџџрџџџџРДAttribute VB_Name = "frmVisible"D „Bas„0{E95C48BE-C9B2-433B-8B08-B3E00B5FF27A}{3EE293FD-47642E-A5A7-E2DBEF226C28} dGlobaBlŒSpacoFalse ŠCre8ataЃБPr@edeclaI"d#Tru BEx0pose TemplateDeriv–Customiz‹D P WithEvents oI€nteract„ˆAs …ion rŒ.€аVarH elpIDh-1с“2Sele‰1‰ /  oSk€etches @-РPlanarE [sУ SРnЪg‡v…():PiantЧiХ,0 iSKСNgerJ)A&У(Work{CЧoСFswŽ&Bs&C€%PrL•%Ax%Сˆ$AќxiТTA$С$…Ю#OU#СР"AXе"PќoiЃ€qAЂшТџaІ(†O$тV$ЂA$TдbTogglingсBoolean);Sub chkЁ_Cl ick()С If tglUnhideCZ.Va luс†a~ The@ !a фЙ!For iр(= 1˜ To@ 5 !­isA qvс(р8, 0@ЭУOrрigins=…€…Х oСF(1).bДF_яaOr ы2їџФу 3фK&Ххѓc" ).Х dЈ­§сEТЗ1aРY 8БдCОaEndј If3)uŸЉPm,NexЯЉO.iso# ?.?J1мј5 ї‘=>k2?>?>?>%А0>Я60AŸ-CasџБ5П,pu05ў(А4y=_^?џћГ\т[ŸЁ•%п!УCnKQ№vг(1, 1)Aк"ЂA"e1ca‘ 0NextvdFo r iPLМ1 ќTo‚Ы…S€ŽжOK LˆTХ' ASub Pr@ivate € chkPoints_Click()m€YtglUnhideSelect.ValuџС‹A{Œ‹@ Fй AУ?nTЧ?ТЯ?s&€ vC((iPT, 0@(AЩCOrigxins FoD1).NameџмТE ƒмf…ДA#џ\м$7џsџs! gџз_п+R•CЩ+зѓх\‹ ёџsсsџSХ-РR|@џsљsSkeјtchџs_€2рs# 3dтsSKцsЃes0tCAt…(iSKe–tvЋ1) Яoe.Item(sџУПB??OX?хKЌ€_@ˆТСЧ)Ii—BmDdH`YAll_! P[С?[mMbTogрglingP›5/џf‚S Y  %№bTЬ>џO%Oгf"kг9-ЯaёEach Бф InЅя, Ѕџ‘гёw< БoR|§{PQb’<5 lПPwп™S‚ck=Ež;Г2еl_ A1OrЗЄ@62dp ;ƒ 3џstGoЁ Skipb:Ÿ ™Е?РПП  ‘гAxisŸ_ёз#2Б#Ax}#ПC//!0oёџ†1џдea_QџЯЖ_№ ŸO–џqЏu@€r мЦќ qœoqšџ‡Rу5LЅSџРУ}з1тk/9ћС.tLЭЯё‘-СŸ-’-IџceОmјdUn?c’фаАW?cў Aaя[?cb /?cVрџ#?cџБ?c@@џO@?c`ЯA€vЯџЧ$“†в$Ѓ?cРЃиЋt?gLЯG 8-)cBД@nes If chkOrigins.Val€ue = TrpThen Ам`oPlane.NamVs.ItePm(1),_pOдr p25838­БGoTo Sk$ipЖH:MEn№d If‹ ‘ &„a@Visibl…• Т ’/Nextƒ*‰&!ЙAxis“ДFor Each oy‚InТл'†mAќxe#mT \lT ЈkA;yk‚O.jMйiPoиint^jB jУ џЫ’C|-йFkƒ йЁМntzPЂR(P (  A^Sub Private Р tglHideSelect_Click()k%bTogg0ling“cЩFalse'-Exit?A #%nЃ UnўhFymc•H'йDim o# As New0 clsC' set the РfilteraFList(3)CЃionFE˜num‡0)@,kSketchDРefaultƒ ‚1WorkPП=“2†Ёks@= >k [‰gЂ ObžjРC#Ч )АMoreЙЧSр#ЪoЄ=Ѕ).PЁLЃ)€M!9alblIxnfo\LJРF)TфypaН4 knKNA пЅ?aa'm 0l Ёџ` ёC29EaaЂУ`9ф.ParenїЯ%сo ЖkьAE:51•Capt@%Р"Уes €not Enaаpd in above@…eckboќx"НYѕqmя1—1 э1я0}СїB+ПП ттзџ Cп\/“Q 4@й<о>Ф/xHІAŠяџ@˜фПxZялOyъџФgп#f_$І€Aп$" Ign0= ѓd%Ch%9h%ПŒр&3 s ЯПBѕuŸ _б§o"Г*/5/5хr•чŸg /5byдNў2/5$5!^џIЏ25Сџџ4‡ џ4eЕџVё4RџRШс4џЌOШтв0ПГ•џŸ4&ПPІuДo4КџФmЉ_4Vo#І€я#џ_4mY_4ВП$брПџС?%"џ.cPпџfП`O4` _"‘ џ/4/4Too] ёћ€(*‚3O+uh1hhџthс3G Р‚hh7JД If oPoint.Name <>ps.Item(1)\The0n ‚Visible =  False^E2\lblInfo.CaptionJ" Ignore Origin s Enadd in above Checkbox" VЁTruy nd€Š%\%E,“*ƒвs nozt€c—€Ё|Э%ЩGoTo HidezMР`:CEЧ,I УSet oSelectoNothi@ng  SubPrivate € tglUnhРУ _Clрick() Сƒ€ЇРbToggl@Р Am ЫЂ(Fini№shUp(Zƒ%Р@С1У.ValuџAЊP CA#“ЛХCˆ/Р 8iSkTet@tsР;oХ. Count Re Dim v…(1F €iF, 0С1€Q-СFor iќSKР‹ G Ё `u )i(`Уš1фnы`2chkCџљ1aрц!cЫy CџХсі•Гr: IыџСBae“ _g­ NexhCЋiPlјane‚I#MIС ФI?„IƒPIТIPLЦIƒяv(iPўLХI'‘I ŠУI‰П’I<`џџџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% 4`џџџџџџџџсJCJ! спџ€PdЫŸƒЁЁQЉТчn= чТ-Ћч_# O~rEa$#"nЄ‚№2яФп=з3Ф{љ ~o‰ G6Я2U vвXSјkipR$YžџЯ1WПЗ­ п\Wџ”П ‹Kџ:љџђя@EŸ “uп•  ‹>q›%iAxi!Ђ>Axes> „>ad>ЁO>"B>A.XF>ЁŸ,va(iќAX>Бёу&џУ=”? `:‘?:џпб =P0тD§€o+ ё8O=yИџA=/'=Ž/[Я<џ.Ш ‡2Џ<юЊ<‘џŸ<6?-чПЗЛч џ<7”o o v_<џІ€па?<%? “пu5 Уs.It em(1)у_г"ЖA­й2пй3ФЯzЄТ‚QPL†QТЗTQхРvу зLRџ"[ХjПRХd,џц›TЅ•UхЇп%хS”Ѕ•YCapCQr"Ign_ !D' Ena0€d in above Checkboќx"џ#]—:Ÿ=ЕŸ џ“ Я!@rЯ!хр„ў !9*!Ж„O! џ=пJјЯ ЭяO БO›3Я "Ё5 not c љs • 0€FПŸžїч%Ё а=Ъ|2Uџ0XсXЯ*XС@/џФqO` X ‰_#Е @oRbpёWAxeџпWЇ—вWП“[ЏW*ПPuWКФЂ5A~XC€‘O™АvсQ(iAX5Wё/WџYЛWo#я5џ/6Я)=Џ6џKЙ/6џVџVџV9я6ќ= яIя@“ =O!iпVХвV!isџ!&ŠЯ Џт› /щ§ O аNш5ЯП‘`$Ÿ O "џ_Vсv_VС2u_V&  =Д ElseIf SelectType = 3 TРhen ŒchkPoint@s.Valu TrVlSet †o\ oObjМ ЂJ-Њ3X.Na me <>gs.€Item(1)–@For i„PT›1 To_lP…Vv€(с, 0)m‚!9ћ%Š!1!Ѓ=z@VisiblОFa€нŸExit €w›End IfсзNextSAз lblInfo.€Caption@L"Ignore Origins EnaР3d in above Checkbox"_CзPU6з--‡?† џ1…1„ƒA“@1“+AЁj notAcAO% @эщGo ~u@nHideM€Q:CM) FinipshUp„ <  S`ketch9 ЂGSK ]C‹#es -ыYsрvE(iьSKсŠ oХœфЬ).g 1)G6ƒ‰cPlaneКЙн#aLf#Ыs‚СћЃ€ЃLƒD‚*УcџуAxiПќAXІсlAAс(iAXAx`$§BЫsЁЊЧd.>ш{c.[гsТfуgр&Tџq.ƒ ƒ"k.ТГџ 1g9#ёгВ}ƒ NРothingс-сSubЁPrivate р UserP m_Initialize(' *ЩR5esрThisApplicac.ActiveDocument.ComponёDef№9"ѕ1у$яяяWorkџѓQ яяясбџй ‚яяяв ђSbToggl`3@x /+QueryClose(Cancel As Integer, ‚ModŽeX–-tgl!TџГ OQГ #Œq ѕ‡БƒUnhаYЏeмЉ ЏkЩ3 Sav e`,t"KWi:K0vP%`ЁcUit y", "4sВџB*в‰рМ`oop›oў"sh„‘у_с ",h#-_tOrђ OngBOHсџ//2"‚I‰ в-___WYLoc`Me.Top___QXfLefАX508002B3371B5}x%"€Щ@€Pџџџџ@џџџџџџџџџџџџ %"€Эџџџџhhџџ8џџ@џџџџџџџџџџџџX%џџџџ џџ,вˆ`џџџџџџџџџџџџр џџ8џџ00М)ƒдџџџџџџџџџџџџ 0€€џџџџ `(%!iƒўџџџџџџџџџџџџџ џџџџџџ `„оџџџџџџџџџџџџџџ*фˆјК–4­hџџ€Жџџџџџџџџ˜џџ_xF6СOž+ЃЈ{”ž*=ћќњ hЇ8+3qЕdО%§рбA€rВ М\HџџџџџџџџџџџџxdО%§рбA€rВ М\H_xF6СOž+ЃЈ{”žџџMEџџџџџџџџџџпџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ (џџџџ08Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ`џџЪ`Ю0џџж0џџш0џџє0џџј0@ќ0Hў6"џџџџ Declare a flag that's used to determine when selection stops.!t]@ѕ8–ˆу Initialize flag.К'ау$ Create an InteractionEvents object.nџџџџ№ 2!и!к.Шју< Define that we want select events rather than mouse events.џџ К Ш(му& Set a reference to the select events.џџџџ№ Ш!Ю.ЬуGet all the Filtersџџџџџџ]ѕP оЌ$д‘’у* Set the filter using the value passed in. о$д ЬB@р!žЪау" The the InteractionEvents object. ШB@т Ју Loop until a selection is made. аbA@„МџџXЬфPу= Get the selected item. If more than one thing was selected, suу- just get the first item and ignore the rest.Fl]ѕh№ Ь!ъ.цntІ цВ ц!tЌ œR№Ќ ц%R.вoCdџџp№В.вkџџ`у# Stop the InteractionEvents object.et the ШB@Xproperу Clean up.Ѓф№В.Ь№В.Шiџџ№–ˆу% Set the flag to indicate we're done.К'ауIIf the users quits with an Escape, clean up to prevent crashing Inventor.№В.Ь№В.ШoџџH–ру% Set the flag to indicate we're done.К'аoџџџџџџјџџџџ>ЕAttribute VB_Name = "clsSelect" " €Bas€0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalЪSpa‚c’False dCreatablPredecl2aIdЎCExposeTemplateDeriv–Customiz EOption 0licit ' DƒG the ev€ent obj€Ÿ0s P15 WithE s oInteractё„As …- ‰‰Œ.€дVarHelpID€-1“2с‡1‰ / I8a flag:at's uСXto de4mine Рwhen sI@Pps.Ч'bStilling €>Boolean Рub€T Func‚XPick(fdil€()A „ o„nFEnumТЂOТZ '€Ritialize‚*С = Tru@žСEže aЮncФsSex qhisAppР0aС/.CommandManager.Cz‰ DefAQthat w@Sa€’CSУ•s ra…™r`n mo`Џ„&ЭŠЦLAUvдУ=Х<2a ref№eren@r€9XjзЉу „J=MY.ЩC E G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To @UBoundFA)ѓC' суDRЁJvalue ШpasATindТo‰.AddуРU dNa NexЧР|!' TР|a GŽ9ЫDn1tar, LРoop un€bРƒ.Сfis made„Do WhiчрЁŒXч Do#2# H O€”rrр(GBo`(endoЃ' a1Су рŸite@m. If JrJecKo€ythЁ)wDas$zed,ej€Ѓ g€: first Ё€gd i(gnoТeKstЅ=D/edEnt6s>CwsAy Ђtoўrу Ё:k@MЪ6ƒ ЭР}e„I No`sЈ`Ћs €BAnd| _C (AУрu1 ў>aN€˜Ї!с‘Р­Iъ.I@'(1HREПкaehфg EмIfуЃ@Zt`BС*ЫпK@ЃaХШ.Sр+ bCЋ up 0с?:џЃс„цxŠ Х/1 EZсoз]SubA_OnTermi:n0p(dX;Вdo indicQrweњ'#dР'T#,/№ф~б'№PPrs hqui@%wpv!\Escape, c%4 MprУycr$asђ InyorЛФŸ=Ѕ#ЈŸo‚2џББPЁ…B)Г у(ByVal| J 4ч,П1А1, УpBDevi0[@t,ё4еModрelPos`2p‹А PointеViфewЮ2dщБaЯпппъ~= дxџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџ0% Rи`џџџџџџџџџџџџџџџџџџ55‘„)ƒ^џџџџџџџџџџџџАИ€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ773„ „4џџџџџџџџџџџџ% „†џџџџџџџџџџџџ8 % „ŠџџџџџџџџџџџџX(% „Žџџџџџџџџџџџџx0% „–џџџџџџџџџџџџ˜8% „ џџџџџџџџџџџџИ@% „ЈџџџџџџџџџџџџиH% „АџџџџџџџџџџџџјP%`„Иџџџџџџџџџџџџџџ „џџџџ`џџџџџџџџџџџџp џџџџ jŒiƒвџџџџџџџџџџџџџџџџџџ„џџџџЈџџџџџџџџropeџџџџHƒdџџџџџџџџшџџџџџџџџџџџџџџџџџџ`%џџџџxџџџџ№`„Дџџџџјџџџџџџџ џџX% rА`џџџџџџџџџџџџџџџџџџџџџџ „ „~џџџџџџџџџџџџ`„Мџџџџџџџџџџџџ џџ`%+Жџџџџџџџџџџџџџџџџ џџџџџџŒ)ƒКџџџџџџџџџџџџ(џџџџ€x% „ОџџџџџџџџџџџџЈџџџџА џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪƒ"€ џџџџ€(€ џџџџ€@x€ џџџџˆ€ џџџџ€ џџџџB H€PX€ *Ј€hp>и 0@P€X`€ џџџџ€ џџџџB € џџџџ€€€€ џџџџ€ € џџџџ€ џџџџ(€ џџџџ 8HPXpˆ ˜ ЈА€ џџџџИ€ џџџџР€ џџџџB Ш€ >а @HP€X`€ џџџџ€ џџџџ"h€ џџџџ€px€ џџџџ€ˆ€ џџџџ€ Ј€ џџџџ€И&Р€ џџџџ€ш№€ џџџџ€€ џџџџ 0 @HP€ џџџџ€X`xˆ€ џџџџ€˜€ џџџџ€АИ€ џџџџ и€ џџџџ6ш€ џџџџ R(€ џџџџ€ $€€ џџџџЈ€ @ИVјP€ 2X  € џџџџЈ€ џџџџB А€ џџџџИаирш€ џџџџ№€ џџџџџџџџp–]ѕ ]ѕИ]ѕа]ѕш 4!r!t'j jЌœЌ'ldџџ( dЌ j’№ d 4!r%R.n n!t hœ d'lkџџXЪPkџџH l'fiџџ8–у8 returns TRUE if the sheet exists in the active workbookК'vЬ~р x z%€!Ќ œК'vzџџАkџџЈЃ~ iџџ˜–Ј]ѕ№ 2!8.4]ѕ № 4!D.†џџ]ѕ@№ †!Œ.Šџџ]ѕ`№ 4Й Find Area 2!’%”.Žџџ]ѕ€№ Š!ž Š!š%œ.–]ѕ    Š!ž!Є“  !ІœyџџИkџџАЪЈ]ѕР Ј  !Ќ“ Ј –BЎЪp]ѕр№ –!Д!Ж.А]ѕ А!К!МЗшфg#зУ?'И ŽB@ОЙExternal surface area = ИЙ in^2A@ Ьи№ЙFlatPatternAreaЙ Inventor User Defined Properties 4!€%R%R.РуoCustomProperty.Value = dArea Т!ФЌœу9 Failed to get the existing property so create a new one.№ ИЙFlatPatternAreaЙ Inventor User Defined Properties 4!€%R%œ.РdџџЈу+ Change the value of the existing property. И Р(‚kџџXoџџP– в$~ЙœЌ'„dџџ Ќ'„kџџiџџџџџџ– oџџ№]ѕ№ 2$Ж.Д ДВ›G|jde.Mod]ѕx–А]ѕ№ К!Ў.МFo]ѕ0ЬЦ№ 2!8.~ ~Й DRAWINGS STD ДB@|у#Find the add-in you are looking forАџ№Й&{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} К!Ў%А.О ОВ›GzjАџ ОB@єАџ№ О!Ш.ЖzџџЈЃЦ iџџ˜џџџџџџџџАЖAttribute VB_Name = "c_GenFunc" Public Sub callup_Form() Dim iLogicAuto As Object Set 2= GetRddin(Th isAppВationMIf (KIs Nothing) TheРn Exit…wРcurDocsАumenu=5 b.Active , n.Run Rule ƒ, "DRAWING S STD€‚ xEnd?ŒZ jo#ˆhLInvKor.‰t …’Ÿadd8Ins‰ „ = ‰)‰#A 'FBiLthe -in you a€re look€ž№ forд)3ˆF‚" O€Wrro@r GoToС]FpoundCqƒ ".ItemById("{3bdd8@d79-214b11-8a5a-257b1c0€263ac}"„|gƒS{ХY B Cpa|te&K”€­ @ЂmП•РlСŒG”6:CsС”ФЙ CheckEmbed(oNssembФlyХ, s‚ЭПS€вСЋ€Int8ege@^У^€ ed filecVtчш†exisi CoOleR efA€eren€cedOLEFDescript_A~6LРr@0.˜ sМ.CсaРrЮ0"r8 †C= r0€+ls`4Ё@… ђi@31 рJыУ—с]ХsBM(iрGa`ф.Dis№play™Ш3aˆG›Ё.iч}Ifу˜Nex@‹% C?‹&)KэJExcelSheeta šsts(bKH,0 oWBA;‚.WPorkbРy)AB@oolean  retur`‡TR@UE if Ё€sх! ‚1s Р"ƒ"Ÿ< wФУэ€FaУ7-‚SuchƒЁ .Len( .Ђ Ј).a) > ЧЩD.0Tru$EŸ@Мg'B€›1No&ВwСгFlatPatternAre>aAдA#СlхxPaќrtexЃBP@€ ,гЮЦM cpЂ Meta€lComponрОРDefiniсФi џРd\УHa?ШЧh ‰a ef.h @Transa@Bo~na ш8IЏtиMˆana€N.St@пxBSptтiс _Ь@SketchQPњlprѓhP  ".Ses.рk(o™TopFaceДAƒ‚EdgeLјoopБЕуSJEaАo–In бПce.s“! CHe.IsOр”rџѕИRЁ1ЂŒеEџбѓF‘ѓі Е c ^ б &ш Cp› oS1ByProqš№EntityŽ(bdm oџёk1Єc’3ХpT‡" Soli№„ЭK db!РrDo0Іt@oC€`jgЂаp0ertiAА= * 0.155003cSo(.Ab or€[7MsgB@ox "Ex!Ba€l surfр"…ё’a ?" & ѓШ& "РS^2Ÿїб6QResЇ wB@Custom„ yЛрсF.ѕ ”k"eЁ@ User bBeLd „")#n"O˜-Ё4s'oЫ.№Valu‘Лв 3S)Err.Num bАџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% ^`џџџџџџџџџџџџHџџџџџџџџ55„)ƒ^џџџџџџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџџџЈƒ0џџџџџџџџHџџџџџџџџџџџџџџџџџџP% 2№`џџџџџџџџџџџџџџџџџџџџџџ „ш0рџџџџџџџ џџ ш „8АџџџџџџџџџџџHP`џџџџџџџџџџџџDџџџџџџџџџџщ„џџџџˆЈP`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџшџџџџ0џџџџџџџџ№Hшџџџџџџџџи8PџџџџhџџџџрџџџџшPџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 4_ИW-*\R1*#19f$*\Rffff*09576159abпўЪъ€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџh(% „xџџџџџџџџџџџџˆ0% `џџџџ`џџџџџџџџџџџџшџџџџџџџџ„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%џџџџ№џџџџrefeџџџџИƒZџџџџџџџџxџџџџџџџџџџџџџџџџџџH%џџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(4_ИW-*\R1*#19f$*\Rffff*0:576159abпўЪd€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџXјP`€ џџџџp€ џџџџ€ џџџџџџџџ€–]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџ€ џџџџ€ џџџџ€ј€ € F0и x€ "ˆА И Ш€ иј   € џџџџ0€ џџџџ"8€@ H€X`€p€x €АШа иш №   € " € џџџџH P € џџџџX € џџџџ€ џџџџp x € ˆ € џџџџ " ˜ € 4  €и €р €ш €№ € &ј € 4 € $X € $€ € (Ј €а €и €р €ш € џџџџ€ џџџџ №    € ( €H P € Dh €А И € џџџџ€ <а € J € @` € &   Ш  2и  V  &h       И € Ш € Fр  ( 0 8H€ 0P € ЈАИР€ џџџџ" Ш€ џџџџа€ џџџџ€ш№€ џџџџ€ џџџџ€ џџџџ€€ € F8€ V€ и€ "ш  (€ 8X ` p€€ џџџџ€ џџџџ"˜€ џџџџ   А Р€ џџџџа€ џџџџ€ џџџџџџџџ–P]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@'>№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.LџџџџџџЌ'TЌ'V L!ZЌA4№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.џџџџ]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationџџу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooks%у!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’џџу Get the current row.џџџџ]ѕP№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"џџџџуCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA6у Elseу@ MsgBox "IDW does not exist for: '>№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.LџџџџџџЌ'TЌ'V L!ZЌA^№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.џџџџ]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationџџу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksџџџџуSet oExdoc = oExApp.Workbooks%у!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’џџу Get the current row.џџџџ]ѕP№ d ^%R.vџџџџу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA`у Elseу@ MsgBox "IDW does not exist for: " & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ A^kџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4ЙAREVAЙCompanyЙ%Inventor Document Summary Information 4!€%R%R(‚ 2!8B@b 2!8B@Boџџˆџџџџ€џџџџ)ЖAttribute VB_Name = "change_draw_prop" Public Sub IDW_ŒALL()  Dim oapp As Inventor.Appjatio"nJSetJ= 0This>EDoc EssemblryumXJ*=Q.Activeу #NBOM NAvrtSelectedItemVariantƒ61.FulрlFile™‚l7 € ƒ.Vs. Open(Œ#, `False„‚BS„.Compon€tDefiniŸ.4FirstLevelOnlŽy7‚$ƒ If XTheНвo€".Structur@edViewŽTшrueCE@(Cхˆ"End IfƒEnabledџ€/ЧEk%b+УŸХHРIA2s.n4("6"Vƒpr@introw2aCmaxlAP@1CCCCallЬЗCрhild(A0Aa€Rows, 1ŠƒС(Р$Not№hingGСвC“Я Aг= Ъ СUSub@фriva?@ю–,*DREnЩ€Єra@ц, У?‚u tegerФ'@) e throughрe conТt Qs ofт`Z с .ƒс6iС LoхAРipstrWJjh1™2Ž'1AoExР†aExhceloŒ'BEЃ=€ GetObj|p(, ".E% dCуWorkboјoksУх aP .m$Sheet6s‡СsbG&Palrteˆ!S`Бщ'DЬWGйСTyт­-…AC`Cgory- < #Ѓ†A> ?fbK†He"уЉ{For i[1 ToЦ \BCCoueЈЁ‡F'1ƒIurr€I џrфGст&СCh Пaт9aУ~ $~i„VЂ3a refe5Р cXoТ €maџР pЊХY ‡ `ЏП№,… @.oФE†Сg' T"f…рЩ юerty „atoainsт"С: NumbeЎr`ђЁa'р5 k2i ubtЌfromТvirtuLal` „Ы dІЫ  'х—*UTR_Р").Cellьs(…TбO.ђv@&Иƒ#xБ.Valuб„џ8#1 V-ФцrŸuoƒ qб./tЖ№e '12291=A4ƒ А 0= Wт62_t.PЏ ‘а'є"u Х}№mв%Inforўm‚ŽауhевШЉ== (LeftЦ(ё •, L0ƒ) - 3) +р " & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ A4kџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4]ѕ(№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another one Ь 8(@уSet the paper size and scaleЬ D 8(B' H 8(FdуSet the paper orientationЬИ L 8(J_E 8B@NЂЙ 2!8B@Boџџ€–]ѕ № 2..Й-R]ѕР№ .!8.4']ѕр]ѕ 4!@'>07№ >К .!B%.4B@B№ 4!D!<.:n К'F FœК :(H the PdџџШК :(HIn.rkџџАК :(J6FD96-]ѕ№Й Structured :!P%R.L.ЊAЌ'TЌ'V L!ZЌARe docu№В.\№В.:№В.4№В..oџџ –8у-Iterate through the contents of the BOM Rows. Д]ѕи]ѕ№]ѕ]ѕ уDim oExApp As Excel.Application.у-Set oExApp = GetObject(, "Excel.Application")јуDim oExdoc As Excel.Workbooks wheуSet oExdoc = oExApp.Workbooks optу!Dim oExSheets As Excel.Worksheets]ѕ8]ѕP]ѕh]ѕ€ b V œ_Bla b'VkџџЈ dЌ ^!t’Reу Get the current row.)oO]ѕ˜№ d ^%R.vion"у=Set a reference to the primary ComponentDefinition of the rower i]ѕИ№Ќ v!z%R.xу5Get the file property that contains the "idwQKPvсЭ "LC"№•™QвleExist:(()У;š‚S qj˜су‚w $M€sgBox "`Ѓ does no(t e1 0: ј" &ђ Еh…FgЉG!P Of ‚oФ$ Is Vг.œ”ŒKŽ'Re0cursРЄр•iteтpca€1Ks iђfP:es0LјK”РzМ oR@ё€РАs%|ї/Q-_@ЕD‡Š%{>+І‡в@љNeіxЌSAƒoƒ“МyQOeрUгМК7У­ п\!f’TБСDPХP‘џ4у^‘^СSF\НC6oO:(O:O:oncG: Жany5:0"рAREVAVNУВН.SavДВСйШ.Clos’œaеџџџџџџ55‘„)ƒ^џџџџџџџџџџџџАИ€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ"Part Number"rmуCThe file property is obtained from the virtual component definition = Repу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= Part dЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nR rЙLCœа n$„Ќœument. nATts.iteу Elsepeу@ MsgBox "IDW does not exist for: " & PartFileNamekџџˆkџџ€ x8œЙ-Rdџџhу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ ARkџџkџџЪјoџџ№–и n 2!BB@rans]ѕP№ 2!8.4]ѕp№ 4!<.82Cу Set the printer name%Ау? comment this line to use default printer or assign another onebeуPoDrgPrintMgr.Printer = "Engineering HP LaserJet 5200 Series PCL 5 on server-sbs" Ь 8(@уSet the paper size and scaleЬ  V 8(B H 8(FуSet the paper orientationЬX L 8(J 8B@N 2!8B@Boџџ –H ЬA@  VA@  HA@ oџџрЙ Adobe PDF 8(>џџџџ  џџџџаџџџџшџџџџшџџџџ>ЗAttribute VB_Name = "a_IDW_PRINT_ALL" @ Priva˜Sub t()  Dim oapp As Inventor.ApplicatiDonJSetJ=` This>EDoc EssembфlyumXJ*=Q.ActivЦe #NBOM NAvrtSelectedItemVariantƒ61.FuРllFile™o‚l  ƒ.Vs@.Open(Œ#,Р False„‚BS„.Compon€tDefini Ÿ.4FirstLevelOnly7‚$ƒ If Б TheНвo€".Structu€redViewŽаTrueCE@(Cхˆ"End IfƒEnableўd€/ЧEk%b+?УХHРIA2s.in("6"Vƒp€rintrowТ2CmaxlAP@†1CCCall‹ЗРChild(0AaRows, 1?JC(€$РNoрthingGСв'Я г= Ъ ёUSubфG,A*ФQIEnЄraРх, C?‚ъteger Є') e th roughрe cont`Qs oжfт@ с .cЁ6riС LoХA€ipИstr jh1™Š2Ž'AoEx€†AaExcel/Œ'EЃ= GetO„bjР{(, ".ХD% dуWorРkbooksУх 7aРO .m$ShАeets‡СsbсG&Part%ˆ!€WcЦEСDWGйСT.yЂ­-AC`Еgoфry- #ЃР…љA> &b †e"уAi{For iрZ10 To a\BCCo6u%Јa‡'1ƒIurњr€I РqфGст&џС#h aт9aƒ~ ф}i„VЂ3a rЈefeР cXoТ љ@maР 0ЊХY ‡ џ Џ№,… }@.Ф%†Сg' T"f Щ pro perty atЁoainsт"С:€ Number ђЋЁa'р5 ki u btРЋfromТvirtual` DЫ dfЫ 'Gх—*рTTR_Р").Cells(ћeTСO.вv@&ИxБр.ValuЁ„8#џ1 V-ФЦruƒ qб./tЖ№e '€12291=AƒЦ А 0= WЧт62_t.P”а'є"U Ѕ} Sumв%InformџbŽаУhевШЉ== (Left(cё •, Lƒ) - 3) + №"idwQK0vЭ №"LC"а•yQВleExist(()У;z‚S ћp?ZˆбГ‚g Ms@gBox " Ѓ does not e! : "ќ &т ЅXuFg™G!@ qOf oСД$ Is VУ.l”|Ž'RecursЄА•ite вpcA€!Ks ify@:es LшK” z оoB@ё€Аs|ПQсЖє{z{+v‡Т@ љNexPЌ§Sƒ?ƒ"ОY!OуdпАUГlКц6s­ %ЂM™' Бth†eрАer nаб=S'QTШUРVli"nђfuseAUau ltFРqassiаgn a/h`)ySoDwаазAdobe PDFCT^RangбUkqAllѓ†Ф v aA d sizeАd scaltНOn Err  ResН Ё s"%ЛSё= kPХ11x$17 .SёMoЂd‡ BesŽt‚ѓП Ёrip4ис , Ž OwАKkLanВdа pex .00јmit"г-ѓkр 0nt.ClosHЗ/4Vђ_LCЏ№ПЏ№Џ№ œу ?4oѕџЏ№р!q, Вч› шр|!>іљBЗ OM Dim vrtSelectedItem As Var0iantŒ |= oDoc.FullFileNamЂePSet4 Bapp.Juments.Open( Ž, FalsФe);BOM;]@Compon Іb‹†ˆe"ущ{For ‚i U1 To Ё\БBCCouЅЈa'1бƒIurr€› @rфGћсoСch aпт9a .cd~i„VЂ>a refeР šcXoТ РmaР џАЊХY ‡  Џп№,… €.ФЗe†Сg' T"f Ъ property atoain sт"С: NumАber"шр5 kРis obt@ЌfromТvir0tual` ФЫ dёцЫ 'aZ#U@ЊTR_.").РCells(EЉСŸp.Act"hBea.Value€BџhF" aІZ &„'цpы?цЁ]QЈ‚эрe '12291=Aрssemb ф`ј0= !Ї&т62_8t.P”а'є"IМnv+р.аWmв%РInformBHа?iевШЉ== @(Left(™, LPƒ) - 3) + "id>wUK’ <И "LxC" [<‘€‘E xist()Г;Њ‚’@,qlettќerЪшASƒж$!1MsgBox "аu does  not e‘ €р: " &Ѕ!ИwрйFб   СOШf o% I œ/ќ”мЋŽ'Re cursip–y 6i0ЁvcБ€qKs фif:esа 8Lk ЁL.Вƒ AsяСє€Q Џ‡І‡2Eї‘‘u{+ˆт@-БљNex­SЁƒЯƒпPУeV3Tиhis(wœЎ М!ФfBU@3ёE4.DraОw’Е4уВ^‘=?›гEыCYЃrgс№‘ntMgт‡”#xanaрŽ#гШ=ОŸ' БtheCp№Єer nЦП'1UбОpV Wlinвguse!VaultFАCassignt a0h`)Г'\oD‡аGS=@‹n geС HP @LaserJ№Ц5H200P riр4PCL 5 on Аver-sbsC$b_RangЁYkqRAllУŠTfaAph size  d scal„СOn Err ResНpW г%q(ЛSёа= kPХLDГEъSMod— Bєes№‘t‚Я Ё Мnt˜ŸŸ q/ž OwA OkLandр pex . 3mit2г0ћ).Clo.sHЛ›7trjі(І5DR(Œ№! зwЛю€"tЙ* џџџџ8@џџџџџџџџb€њџџџџhџџџџџџ@џџџџџџџџџџџџџџџџџџџџјxИXшџџџџџџџџИƒўџџџџџџџџџџџџџџџ фŒ> м |–4э$џџˆЖџџџџџџџџрџџŽ…ЉЯOЊ;JŠ{Ю‚ы кЩDFЫ-„Kž=і­ˆfА:3јшКˆDИХяFиЉыЉ№ЗhэФIŽu6ЂБЦ<џџџџџџџџџџџџx№ЗhэФIŽu6ЂБЦ<Ž…ЉЯOЊ;JŠ{Ю‚ы кџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџо6"џџџџ<џџџџџџ0š0{EFBA89C8-53CF-477F-A5FC-FAAA93B9686F}{D9F5F889-E18B-422A-B904-DCA1FF02E02E}№0%0%@€џџџџџџџџџџџџџџ ќ`џџџџџџџџџџџџџџџџџџџџ€џџ” „.џџџџџџџџџџџџШ %`„ўџџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ ј`џџџџџџџџџџџџџџџџџџџџˆџџ” „.џџџџџџџџџџџџˆ % „мџџџџџџџџџџџџЈ(%`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ x`џџџџџџџџџџџџџџџџџџџџџџEE” „.џџџџџџџџџџџџh % „мџџџџџџџџџџџџˆ(% „ џџџџџџџџџџџџЈ(% „"џџџџџџџџџџџџШ(%`„џџџџџџџџџџџџџџ`„рџџџџџџџџџџџџџџ`„тџџџџџџџџџџџџџџ`„$џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„&џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ .џџџџ`џџџџџџџџџџџџаџџџџ˜џџ”iƒџџџџџџџџџџџџџџ№€Iƒbџџџџџџџџџџџџ џџџџџџ€ „.џџџџџџџџџџџџ( %`„ўџџџџџџџџџџџџџџ€ўџ€ џџџџxџџHџџџџџџџџ%ўџџџџџџџџџџџџџАџџ€џџџџџџџџ%"€јш`џџџџ8@џџџџџџџџb€њџџџџhџџџџџџ@џџџџџџџџџџџџџџџџџџџџјxИXшџџџџџџџџИƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ іџџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџјxИXшџџџџџџџџ€џџџџиџџџџрXџџџџИHџџџџџџџџxџџџџш€џџџџџџџџџџџџxHш €џџџџџџџџџџџџџџџџџџџџџџ А4_ИW-$*\Rffff*0N57b43aeaп џџџџpвxд€гˆкз˜и йЈлАмИбРнШоаўЪ“„€€ џџџџ€ џџџџ"€ џџџџ€ €0€8€@€ џџџџHPp ˆ ˜Ј Шш ј€ џџџџ€ џџџџ" € џџџџ€( 0€@€ џџџџ€H€ џџџџ€P€X€ џџџџ`h€ џџџџp ˆ ˜ ЈШар ј€ џџџџ € џџџџ0€ џџџџ"8€ џџџџ€@ H€X€`€h€ џџџџ€p€x€€€ˆ€€ џџџџ€˜€ € џџџџЈ€ џџџџРШ€ џџџџаш   (€ џџџџ0 H X hˆ   АИ€ џџџџ Рр №  0@HP Xx ˆ ˜Ј Ширш №  0@ `px€€ џџџџˆ€ џџџџ" € џџџџ€ џџџџ€˜  €А€ џџџџИШ р№ 0 @HPX€ џџџџ€ џџџџ`€ џџџџџџџџp]ѕИ]ѕш–X]ѕА№ 2..ntor 2]ѕа]ѕш]ѕЌ'њ .!ф!ц!Й\'  $~'ўџџx B@ џџџџџџ ўЙb ўЙ. ўЙ..œ  ў$   œ ў B@џџkџџkџџј ~'ўМџџшoџџр–]ѕp№ 2..]ѕ]ѕА]ѕШ]ѕрЌ'Ќ' м .!ф!№“ м!' Йœ м!@ !%'kџџ0  шB@  .!ф!ц!œ 'kџџј Ќ 'oxЪрК  ш,ьoџџШ–ј]ѕP№ 2..1.Clea]ѕp]ѕ]ѕА]ѕа]ѕш]ѕ]ѕ]ѕ0]ѕH]ѕ` .!ф!ц!'р џЌ'&Ќ' dЌ ш!ъ’ S d ш%ьКœ32"' d ш%ю'тgeA" ( d'&kџџиЪа м .!ф!№“ B м!'As L Йœm As м!@ !%'ate Cokџџp  тœџџџџ мB@єate SukџџHЪ@ .!ф!ц!Й\*.iam' $~'$ti (B@ џџ $Йa $Й. $Й..œ $ (B@kџџИ ~'$МџџЈ .!ф!ц!Й\*.ipt' $~'$ *B@  $Йa $Й. $Й..œ $ *B@kџџ  ~'$Мџџ .!ф!ц!Й\*.idw' $~'$ ,B@  $Йa $Й. $Й..œ $ ,B@kџџˆ ~'$Мџџxoџџp–x]ѕ№ 2..]ѕ0 Й\'  $~'ў ўЙb ўЙ. ўЙ..œ  ў$   œ ў B@kџџИkџџА ~'ўМџџ oџџ˜џџџџџџџџдЕAttribute VB_Name = "frmStartWin@dow" ”Bas”0{EFBA89C8-53CF-477F-A5FC-FAAA93B9686F}{D9F5F889-E18B-422A-B904-№r дшџџџџО )–4mкџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџˆџџџџџџџџџџџџH0џџ( џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<:6 џџџџ<џџџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% 4`џџџџџџџџџџџџHџџџџџџ55!„)ƒ^џџџџџџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџh(% „xџџџџџџџџџџџџˆ0% 6`џџџџџџџџџџџџшџџџџџџV„iƒnџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @% „8џџџџџџџџџџџџ@H% Xџџџџ`џџџџџџџџџџџџџџџџџџџџџџ с„ „.џџџџџџџџџџџџИ% „4џџџџџџџџџџџџи% „:џџџџџџџџџџџџј%`„>џџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџ0% Rи`џџџџџџџџџџџџџџџџџџ55‘„)ƒ^џџџџџџџџџџџџАИ€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџА(% „xџџџџџџџџџџџџа0% TH`џџџџџџџџџџџџ0џџџџџџЦ„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџh@% „8џџџџџџџџџџџџˆH%№8PиџџџџHџџџџџџџџџџџџшЈP „4јџџџџџџџџџЈƒ0џџџџџџџџHџџџџџџџџџџџџџџџџџџP% 2№`џџџџџџџџџџџџџџџџџџџџџџ „ш0рџџџџџџџ џџ ш „8АџџџџџџџџџџџHP`џџџџџџџџџџџџDџџџџџџџџџџщ„џџџџˆЈP`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџшџџџџ0џџџџџџџџ№Hшџџџџџџџџи8PџџџџhџџџџрџџџџшPџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 4_ИW-*\R1*#19f$*\Rffff*09576159abпўЪъ€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџ€ џџџџ€ џџџџ€ј€ € F0и x€ "ˆА И Ш€ иј   € џџџџ0€ џџџџ"8€@ H€X`€p€x €АШа иш №   € " € џџџџH P € џџџџX € џџџџ€ џџџџp x € ˆ € џџџџ " ˜ € 4  €и €р €ш €№ € &ј € 4 € $X € $€ € (Ј €а €и €р €ш € џџџџ€ џџџџ №    € ( €H P € Dh €А И € џџџџ€ <а € J € @` € &   Ш  2и  V  &h       И € Ш € Fр  ( 0 8H€ 0P € ЈАИР€ џџџџ" Ш€ џџџџа€ џџџџ€ш№€ џџџџ€ џџџџ€ џџџџ€€ € F8€ V€ и€ "ш  (€ 8X ` p€€ џџџџ€ џџџџ"˜€ џџџџ   А Р€ џџџџа€ џџџџ€ џџџџџџџџDCA1FPF02E} dG lobalSpacoFalse ŠCreatablPredec$laIdйTru BExpose0Templa€teDeriv–Customiz‹DDim sArray_DirList() As„ S€Иng "i€ Row In€teger P7; Sub CommandButton1_C@lick() C"oapp!ventor.App€ation B Set ‚=` ThisŽAsР"AХ'С ТPath/Level†/ CE6= 0s‚=‚!.DesignProj€ectMana@>0.ActYŠ.W0orksA€B& œ"\@ŠA&B+= Р,Т(B, vb€˜ory@GСLBE^`.CleaРVAD`o WhiРŒ‚<> "„If †." AndШqThe„TA D (˜GetШC" &‚ џРz % ˆbШ,AddIte‘/Р5УPСE@IfЧЭ‚0GУLoo>pŒС €”I˜UserForm_Initializ6eLLcPIopќrjAE*№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.LџџџџџџЌ'TЌ'V L!ZЌA4№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.џџџџ]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationџџу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooks%у!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’џџу Get the current row.џџџџ]ѕP№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"џџџџуCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA6у Elseу@ MsgBox "IDW does not exist for: 0€8€ џџџџ@€ џџџџXp ˆ Ј€ џџџџ АР р№€ џџџџј€ џџџџ€ € џџџџ€ * € $P€ џџџџ€ x€ ˜€ џџџџ€ NИ€ џџџџ€ € џџџџ€ " € H€ <`€ џџџџ€  € џџџџ€ џџџџ€0ЦА€ џџџџ€ "x€ џџџџ€ џџџџ€ џџџџ€ ( € џџџџ€ *Ш€ $ј€ џџџџ€  € @€ џџџџ€ N`€ џџџџ€ А€ џџџџ€ "Ш€ №€ B€ џџџџ€ џџџџ€ P€ џџџџ€ џџџџџџџџh–]ѕX№ 2..]ѕx]ѕ˜]ѕА]ѕШ .!ф!ц!'р dЌ ш!ъ’ d ш%ьКœx d ш%ю'тFœkџџXЪP т тœ:(№ т .!ф!№%ђ.м мB@єџџkџџoџџуPrivate Sub filelistfill()у$ Dim oapp As Inventor.Application^џџџџу Set oapp = ThisApplicationџџџџу Dim sFile As Stringџџу Dim sPath As StringџџуH sPath = oapp.DesignProjectManager.ActiveDesignProject.DesignDataPathу MsgBox sPathуsFile = Dir$(sPath & "*.*")џџџџџџу List1.Clearџџџџџџу5Call SendMessage(List1.hwnd, LB_DIR, 0&, ByVal sPath)уEnd SubІЯџЖџ џŠџrџуЇPrivate Declare Function SendMessage Lib "user32"' Al" & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ A4kџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4]ѕ(№ 4!<.8у Set the printer nameу? comment this line to use default printer or assign another one Ь 8(@уSet the paper size and scaleЬ D 8(B' H 8(FdуSet the paper orientationЬИ L 8(J_E 8B@NЂЙ 2!8B@Boџџ€–]ѕ № 2..Й-R]ѕР№ .!8.4']ѕр]ѕ 4!@'>07№ >К .!B%.4B@B№ 4!D!<.:n К'F FœК :(H the PdџџШК :(HIn.rkџџАК :(J6FD96-]ѕ№Й Structured :!P%R.L.ЊAЌ'TЌ'V L!ZЌARe docu№В.\№В.:№В.4№В..oџџ –8у-Iterate through the contents of the BOM Rows. Д]ѕи]ѕ№]ѕ]ѕ уias "SendMessageA" (' ByVal hwnd As Long,' ByVal wMsg As Long,' ByVal wParam As Long,' lParam As Any) As LongџџуPrivate Const LB_DIR = &H18Dџџџџџџу"Private Sub CommandButton1_Click()у$ Dim oapp As Inventor.Applicationџџџџџџу Set oapp = ThisApplicationу Dim sFile As Stringу Dim sPath As StringуG sPath = oapp.DesignProjectManager.ActiveDesignProject.WorkspacePathу MsgBox sPathуsFile = Dir$(sPath & "*.*")уLB_FileList.Clearу;Call SendMessage(LB_FileList.hwnd, LB_DIR, 0&, ByVal sPath)уEnd Subџџџџ˜џџџџГAttribute VB_Name = "UserForm1" " €Bas€0{C6D09458-9548-4347-810B-EC985AD3971B}{25536979-F5CE-4404-8A62-0041D283B195} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DP Sub LB_ProjectList_Click()  Dim oapp As Inventor.App€ationƒSetƒ= ThisŽ‚"prj"Design9 34iƒ2teger‡ Р [_actЅСS„ngsР Џ)‰ Щ=‚).Ъ Mana.AcіtRŠ.CC@„ i@k1 ToLN‚.OCountƒ ‰AOIf Sel@Z`ed(i)}@Leп„Q СE,4=‘@End IfУјNex€У IќTh Тo€€${гGJFs.ItemBКyH(ŽE1o€OU€šƒ$‰* ASubС€'IЄfilЌelРЂРlCЂ'a '_QТyQ & sF‡  щI'Path*M=Фs_HKHЃDataСу  Msg№Box т  Ѓ€= Dir$(у €& "*.*"+'!L1.CleaРc'Call S€endMess X‚(Уhwnd,FDIR, 0&,Р ByValЃ  /  / E/DУ‘ F$un aoni L ib "uрЎ32" _  Al ias "(A"< („ca!)Lohng,*w`4PParammlІA8ny)Ѕƒ&Const$ Y&H18DŒЈN CommandBut№ton1Iž†@{žТ“MР8m M SEšт* C5zqq•Wor,ks!вџL'ќLB_ЁcсIИMˆN ЊNџџџџџ @%`„џџџџџџџџџџџџџџ`„’џџџџџџџџџџџџџџ`„”џџџџџџџџџџџџџџ „˜џџџџџџџџџџџџˆH% „œџџџџџџџџџџџџШЈ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ †И`џџџџџџџџџџџџXџџџџџџ@@€„iƒnџџџџџџџџџџџџџџџџџџ€ „ЊџџџџџџџџџџџџP% „ВџџџџџџџџџџџџАX% „Дџџџџџџџџџџџџа`% „Оџџџџџџџџџџџџ№h% „Фџџџџџџџџџџџџ№в дшџџџџ&1–4LlџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџјџџџџџџиџџџџ0шџџ( џџџџXџџ@џџHџџP`џџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<џџš<џџЌ<џџ|<џџЖ<џџРџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% X`џџџџџџџџџџџџHџџџџџџ55!„)ƒ^џџџџџџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџh(% „xџџџџџџџџџџџџˆ0% Œ`џџџџџџџџџџџџшџџџџџџ**V„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%`„џџџџџџџџџџџџџџ`„’џџџџџџџџџџџџџџ`„”џџџџџџџџџџџџџџ „˜џџџџџџџџџџџџˆH% „œџџџџџџџџџџџџШЈ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ †И`џџџџџџџџџџџџXџџџџџџ@@€„iƒnџџџџџџџџџџџџџџџџџџ€ „ЊџџџџџџџџџџџџP% „ВџџџџџџџџџџџџАX% „Дџџџџџџџџџџџџа`% „Оџџџџџџџџџџџџ№h% „Фџџџџџџџџџџџџp%`„џџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ`„Юџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ „œџџџџџџџџџџџџА жџџџџ`џџџџџџџџџџџџ@џџџџџџџџџџKKР„ „Њ аџџџџџџџ(P% „Вџџџџ8џџџџџџџHX% „Др0џџџџџџџh`% „Оџџџџ(џџџџџџџˆh% „Ф џџџџџџџЈp%`„0Иўџџџџџџџџ`„Ђ8Аўџџџџџџџџ`„ЮpЈўџџџџџџџџ`„dџџџџ ўџџџџџџџџ „œџџџџ˜ўџџџџџџH€(џџџџџџџџИџџџџ№џџџџˆƒ(џџџџџџџџЈџџџџџџџџџџџџџџџџџџx%џџџџ8`„аџџџџјџџџџџџџџџџџџџ˜џџџџа „BИ№џџџџџџџји% „<џџџџшџџџџџџџр%`„@џџџџрџџџџџџџџџ „vџџџџиџџџџџџџPш%џџџџџџџџИџџџџ№џџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ@ўџHџџџџџџџ џџ џџџџ@џџџџџџџ џџ @ўџџџџџџџџ џџ @ўџ№ўџџџџџџ џџ @ўџиўџџџџџџ џџ @ўџРўџџџџџџ џџ @ўџўџџџџџџџџ џџџџpџџџџH џџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџX4_ИW-*\R1*#19f$*\Rffff*06576159abпўЪ € џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ј€€ € 4(&`€ џџџџ€ џџџџ€ˆ€ џџџџЈ$Ирш€ џџџџ€№€ј8X€ џџџџ&`€ џџџџ2ˆ€ џџџџ€ Р€ џџџџи€ џџџџш€ џџџџј€ џџџџ"  € џџџџ € џџџџ€ & €H >P € L €р ш € џџџџ€ј    € џџџџ€ $( €P X € џџџџ€ "p €˜   € џџџџ€ <И ј € џџџџ€  € џџџџ$0 € џџџџ€ 0X € 0ˆ NИ $ "0 € џџџџX € џџџџ€ $` € \ˆ €ш  № € € € €  8 P p  P˜ € fш &P2x А€ џџџџ€ Ри€ џџџџј€ џџџџ€ џџџџ"€ &€ џџџџ€Р€ €Ј€А€№€ џџџџ€ џџџџ€@>H€ Lˆ€ир€ џџџџ€№ј € џџџџ€ $ €HP€ џџџџ€ "h€˜€ џџџџ€ <А№€ џџџџ€ € џџџџ$(€ џџџџ€ 0P€ 0€NА$"(€ џџџџP€ џџџџ€ $X€ \€€р ш€ј€€€€ $и€ &€ *0€ `€ џџџџ€ џџџџˆxиР€ џџџџ€ џџџџ€ h€ fp4$2Xа 8€ џџџџ€ HL`€€ џџџџџџџџ –]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@'>№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.L.8 Ќ'TЌ'V L!ZЌAX№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooksу!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’у Get the current row.]ѕP№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA†у Elseу@ MsgBox "IDW does not exist for: " & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ AXkџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4]ѕ(]ѕ@]с&'A'q'Б'q(A(Ё(б(HiTИgg^пZйаџџџ VТШџџџžШџџџйАџџџVРЈџџџUТшџџџьШџџџЈџџџъаџџџАџџџg^žшџџџйаџџџ VТШџџџžШџџџйАџџџ3VР џџџŸјџџџОШџџџъаџџџАџџџЛ˜џџџ„gЊpyj€џџџpyjPџџџpyj џџџпZйаџџџ VТШџџџžШџџџйАџџџ9V ТѕX 4!–']ѕp№ЙInventor Summary Information 4!€%R.˜ЙRevision Number ˜%R!‚'’]ѕ Й\$ž'œ 4!@ЙœЙSave first the Drawing...A@ |џџkџџ]ѕа]ѕш œŠ$œ'Ђџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'Ђ_EЪ  ЂЙ\pdf\ œ‘$œ'ЂF Ђ ЂЌ$ІЙ-R ’Й.PDF$Є'”rFoу MsgBox pName307 ”К 4B@ЈК 2!8B@Boџџ– n 2!BB@Wiу Get the PDF translator Add-In.r]ѕx№Й&{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4} 2!Ў%А.ЊAуFSet a reference to the active document (the document to be published).џџџ]ѕ˜№ 2!8.Вg]ѕИ№ 2!И!К.Д556 М Д(lџџHу Create a NameValueMap objectаЛ]ѕи№ 2!И!Т.ОFunу Create a DataMedium objectGen]ѕј№ 2!И!Ш.Фу6 Check whether the translator has 'SaveCopyAs' optionsct В Д О Њ%Ъœу Options for drawings...3ЌЙAll_Color_AS_Black О,‚џ1(у)oOptions.Value("Remove_Line_Weights") = 0у)oOptions.Value("Vector_Resolution") = 400 ЬЙ Sheet_Range О,‚у8*<------------ alle Blфtter ins PDF drucken1ЌЙCustom_Begin_Sheet О,‚enЌ ЙCustom_End_Sheet О,‚frmkџџ уSet the destination file nameIPуUoDataMedium.FileName = Replace(odoc.FullFileName, Right(odoc.FullFileName, 3), "pdf")0=]ѕ В!–'w]ѕ0]ѕH]ѕ`]ѕx Й\$ž'œPO œŠ$œ'Ђ072 dЌ œ‘Ќ ’RT ЂЙ\ d$œ'ЂarЪhЙRevision NumberЙInventor Summary Information В!€%R%R!‚'ау_revno = oDocument.PropertySets.item("Design Tracking Properties").item("Revision Number").Values ЂЙ\PDF\ œ‘$œ'ЂЊ Ђ ЂЌ$ІЙ-R аЙ.PDF$Є'”071 ” Ф(вerуPublish document. В Д О Ф ЊBдB56К 2!8B@BoЈџџџžЈџџџк№ўџџIV rиўџџžјџџџл dьШџџџЈџџџъаџџџАџџџ№ўџџиўџџgŸјџџџО˜џџџТg^žшџџџйаџџџ VТШџџџžШџџџйАџџџ3VРИўџџŸ№џџџОШџџџъаџџџАџџџЛАўџџrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ8`§џџџџџџџџџџџџџџџџџџџ8`§џџџџџџџџџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџDim oExApp As Excel.Application.у-Set oExApp = GetObject(, "Excel.Application")јуDim oExdoc As Excel.Workbooks wheуSet oExdoc = oExApp.Workbooks optу!Dim oExSheets As Excel.Worksheets]ѕ8]ѕP]ѕh]ѕ€ b V œ_Bla b'VkџџЈ dЌ ^!t’Reу Get the current row.)oO]ѕ˜№ d ^%R.vion"у=Set a reference to the primary ComponentDefinition of the rower i]ѕИ№Ќ v!z%R.xу5Get the file property that contains the "Part Number"rmуCThe file property is obtained from the virtual component definition = Repу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= Part dЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nR rЙLCœа n$„Ќœument. nATts.iteу Elsepeу@ MsgBox " Р€('ќў'џ'<џѕўС\џ7 МTahoma$(€File List Drawings{З€@МTahoma`€™S5€ЅTahoma  D&`€щS5€ЅTahoma`€05€ЅTahoma`€€S5€ЅTahoma (€Directory Lists{З€@МTahoma`€G!Ћ<5€ЅTahoma (€CommandBIDW does not exist for: " & PartFileNamekџџˆkџџ€ x8œЙ-Rdџџhу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ ARkџџkџџЪјoџџ№–и n 2!BB@rans]ѕP№ 2!8.4]ѕp№ 4!<.82Cу Set the printer name%Ау? comment this line to use default printer or assign another onebeуPoDrgPrintMgr.Printer = "Engineering HP LaserJet 5200 Series PCL 5 on server-sbs" Ь 8(@уSet the paper size and scaleЬ  V 8(B H 8(FуSet the paper orientationЬX L 8(J 8B@N 2!8B@Boџџ –H ЬA@  VA@  HA@ oџџрЙ Adobe PDF 8(>џџџџ  џџџџаџџџџшџџџџшџџџџ>ЗAttribute VB_Name = "a_IDW_PRINT_ALL" @ Priva˜Sub t()  Dim oapp As Inventor.ApplicatiDonJSetJ=` This>EDoc EssembфlyumXJ*=Q.ActivЦe #NBOM NAvrtSelectedItemVariantƒ61.FuРllFile™o‚l  ƒ.Vs@.Open(Œ#,Р False„‚BS„.Compon€tDefini Ÿ.4FirstLevelOnly7‚$ƒ If Б TheНвo€".Structu€redViewŽаTrueCE@(Cхˆ"End IfƒEnableўd€/ЧEk%b+?УХHРIA2s.in("6"Vƒp€rintrowТ2CmaxlAP@†1CCCall‹ЗРChild(0AaRows, 1?JC(€$РNoрthingGСв'Я г= Ъ ёUSubфG,A*ФQIEnЄraРх, C?‚ъteger Є') e th roughрe cont`Qs oжfт@ с .cЁ6riС LoХA€ipИstr jh1™Š2Ž'AoEx€†AaExcel/Œ'EЃ= GetO„bjР{(, ".ХD% dуWorРkbooksУх 7aРO .m$ShАeets‡СsbсG&Part%ˆ!€WcЦEСDWGйСT.yЂ­-AC`Еgoфry- #ЃР…љA> &b †e"уAi{For iрZ10 To a\BCCo6u%Јa‡'1ƒIurњr€I РqфGст&џС#h aт9aƒ~ ф}i„VЂ3a rЈefeР cXoТ љ@maР 0ЊХY ‡ џ Џ№,… }@.Ф%†Сg' T"f Щ pro perty atЁoainsт"С:€ Number ђЋЁa'р5 ki u btРЋfromТvirtual` DЫ dfЫ 'Gх—*рTTR_Р").Cells(ћeTСO.вv@&ИxБр.ValuЁ„8#џ1 V-ФЦruƒ qб./tЖ№e '€12291=AƒЦ А 0= WЧт62_t.P”а'є"U Ѕ} Sumв%InformџbŽаУhевШЉ== (Left(cё •, Lƒ) - 3) + №"idwQK0vЭ №"LC"а•yQВleExist(()У;z‚S ћp?ZˆбГ‚g Ms@gBox " Ѓ does not e! : "ќ &т ЅXuFg™G!@ qOf oСД$ Is VУ.l”|Ž'RecursЄА•ite вpcA€!Ks ify@:es LшK” z оoB@ё€Аs|ПQсЖє{z{+v‡Т@ љNexPЌ§Sƒ?ƒ"ОY!OуdпАUГlКц6s­ %ЂM™' Бth†eрАer nаб=S'QTШUРVli"nђfuseAUau ltFРqassiаgn a/h`)ySoDwаазAdobe PDFCT^RangбUkqAllѓ†Ф v aA d sizeАd scaltНOn Err  ResН Ё s"%ЛSё= kPХ11x$17 .SёMoЂd‡ BesŽt‚ѓП Ёrip4ис , Ž OwАKkLanВdа pex .00јmit"г-ѓkр 0nt.ClosHЗ/4Vђ_LCЏ№ПЏ№Џ№ œу ?4oѕџЏ№р!q, Вч› шр|!>іљBЗ OM Dim vrtSelectedItem As Var0iantŒ |= oDoc.FullFileNamЂePSet4 Bapp.Juments.Open( Ž, FalsФe);BOM;]@Compon Іb‹†ˆe"ущ{For ‚i U1 To Ё\БBCCouЅЈa'1бƒIurr€› @rфGћсoСch aпт9a .cd~i„VЂ>a refeР šcXoТ РmaР џАЊХY ‡  Џп№,… €.ФЗe†Сg' T"f Ъ property atoain sт"С: NumАber"шр5 kРis obt@ЌfromТvir0tual` ФЫ dёцЫ 'aZ#U@ЊTR_.").РCells(EЉСŸp.Act"hBea.Value€BџhF" aІZ &„'цpы?цЁ]QЈ‚эрe '12291=Aрssemb ф`ј0= !Ї&т62_8t.P”а'є"IМnv+р.аWmв%РInformBHа?iевШЉ== @(Left(™, LPƒ) - 3) + "id>wUK’ <И "LxC" [<‘€‘E xist()Г;Њ‚’@,qlettќerЪшASƒж$!1MsgBox "аu does  not e‘ €р: " &Ѕ!ИwрйFб   СOШf o% I œ/ќ”мЋŽ'Re cursip–y 6i0ЁvcБ€qKs фif:esа 8Lk ЁL.Вƒ AsяСє€Q Џ‡І‡2Eї‘‘u{+ˆт@-БљNex­SЁƒЯƒпPУeV3Tиhis(wœЎ М!ФfBU@3ёE4.DraОw’Е4уВ^‘=?›гEыCYЃrgс№‘ntMgт‡”#xanaрŽ#гШ=ОŸ' БtheCp№Єer nЦП'1UбОpV Wlinвguse!VaultFАCassignt a0h`)Г'\oD‡аGS=@‹n geС HP @LaserJ№Ц5H200P riр4PCL 5 on Аver-sbsC$b_RangЁYkqRAllУŠTfaAph size  d scal„СOn Err ResНpW г%q(ЛSёа= kPХLDГEъSMod— Bєes№‘t‚Я Ё Мnt˜ŸŸ q/ž OwA OkLandр pex . 3mit2г0ћ).Clo.sHЛ›7trjі(І5DR(Œ№! зwЛю€"tЙ* џџџџ8@џџџџџџџџb€њџџџџhџџџџџџ@џџџџџџџџџџџџџџџџџџџџјxИXшџџџџџџџџИƒўџџџџџџџџџџџџџџџ фŒ> м |–4э$џџˆЖџџџџџџџџрџџŽ…ЉЯOЊ;JŠ{Ю‚ы кЩDFЫ-„Kž=і­ˆfА:3јшКˆDИХяFиЉыЉ№ЗhэФIŽu6ЂБЦ<џџџџџџџџџџџџx№ЗhэФIŽu6ЂБЦ<Ž…ЉЯOЊ;JŠ{Ю‚ы кџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџо6"џџџџ<џџџџџџ0š0{EFBA89C8-53CF-477F-A5FC-FAAA93B9686F}{D9F5F889-E18B-422A-B904-DCA1FF02E02E}№0%0%@€џџџџџџџџџџџџџџ ќ`џџџџџџџџџџџџџџџџџџџџ€џџ” „.џџџџџџџџџџџџШ %`„ўџџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ ј`џџџџџџџџџџџџџџџџџџџџˆџџ” „.џџџџџџџџџџџџˆ % „мџџџџџџџџџџџџЈ(%`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ x`џџџџџџџџџџџџџџџџџџџџџџEE” „.џџџџџџџџџџџџh % „мџџџџџџџџџџџџˆ(% „ џџџџџџџџџџџџЈ(% „"џџџџџџџџџџџџШ(%`„џџџџџџџџџџџџџџ`„рџџџџџџџџџџџџџџ`„тџџџџџџџџџџџџџџ`„$џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„&џџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ .џџџџ`џџџџџџџџџџџџаџџџџ˜џџ”iƒџџџџџџџџџџџџџџ№€Iƒbџџџџџџџџџџџџ џџџџџџ€ „.џџџџџџџџџџџџ( %`„ўџџџџџџџџџџџџџџ€ўџ€ џџџџxџџHџџџџџџџџ%ўџџџџџџџџџџџџџАџџ€џџџџџџџџ%"€јш`џџџџ8@џџџџџџџџb€њџџџџhџџџџџџ@џџџџџџџџџџџџџџџџџџџџјxИXшџџџџџџџџИƒўџџџџџџџџџџџџџџџџџџџџџџџџџџџ‚ іџџџџўџџџџџџџџџўџџџџџџџџџџџџџџџџџџџрџџџџџџџџџџџџјxИXшџџџџџџџџ€џџџџиџџџџрXџџџџИHџџџџџџџџxџџџџш€џџџџџџџџџџџџxHш €џџџџџџџџџџџџџџџџџџџџџџ А4_ИW-$*\Rffff*0N57b43aeaп џџџџpвxд€гˆкз˜и йЈлАмИбРнШоаўЪ“„€€ џџџџ€ џџџџ"€ џџџџ€ €0€8€@€ џџџџHPp ˆ ˜Ј Шш ј€ џџџџ€ џџџџ" € џџџџ€( 0€@€ џџџџ€H€ џџџџ€P€X€ џџџџ`h€ џџџџp ˆ ˜ ЈШар ј€ џџџџ € џџџџ0€ џџџџ"8€ џџџџ€@ H€X€`€h€ џџџџ€p€x€€€ˆ€€ џџџџ€˜€ € џџџџЈ€ џџџџРШ€ џџџџаш   (€ џџџџ0 H X hˆ   АИ€ џџџџ Рр №  0@HP Xx ˆ ˜Ј Ширш №  0@ `px€€ џџџџˆ€ џџџџ" € џџџџ€ џџџџ€˜  €А€ џџџџИШ р№ 0 @HPX€ џџџџ€ џџџџ`€ џџџџџџџџp]ѕИ]ѕш–X]ѕА№ 2..ntor 2]ѕа]ѕш]ѕЌ'њ .!ф!ц!Й\'  $~'ўџџx B@ џџџџџџ ўЙb ўЙ. ўЙ..œ  ў$   œ ў B@џџkџџkџџј ~'ўМџџшoџџр–]ѕp№ 2..]ѕ]ѕА]ѕШ]ѕрЌ'Ќ' м .!ф!№“ м!' Йœ м!@ !%'kџџ0  шB@  .!ф!ц!œ 'kџџј Ќ 'oxЪрК  ш,ьoџџШ–ј]ѕP№ 2..1.Clea]ѕp]ѕ]ѕА]ѕа]ѕш]ѕ]ѕ]ѕ0]ѕH]ѕ` .!ф!ц!'р џЌ'&Ќ' dЌ ш!ъ’ S d ш%ьКœ32"' d ш%ю'тgeA" ( d'&kџџиЪа м .!ф!№“ B м!'As L Йœm As м!@ !%'ate Cokџџp  тœџџџџ мB@єate SukџџHЪ@ .!ф!ц!Й\*.iam' $~'$ti (B@ џџ $Йa $Й. $Й..œ $ (B@kџџИ ~'$МџџЈ .!ф!ц!Й\*.ipt' $~'$ *B@  $Йa $Й. $Й..œ $ *B@kџџ  ~'$Мџџ .џџ№–Иу Get the PDF translator Add-In.5]ѕ№Й&{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4} 2!Ў%А.ЊџАуFSet a reference to the active document (the document to be published).џџџ`]ѕ0№ 2!8.Вџџ]ѕP№ 2!И!К.Д М Д(lу Create a NameValueMap object]ѕp№ 2!И!Т.Оу Create a DataMedium object]ѕ№ 2!И!Ш.Фу6 Check whether the translator has 'SaveCopyAs' options В Д О Њ%Ъœу Options for drawings...ЌЙAll_Color_AS_Black О,‚у)oOptions.Value("Remove_Line_Weights") = 0у)oOptions.Value("Vector_Resolution") = 400 ЬЙ Sheet_Range О,‚у8*<------------ alle Blфtter ins PDF druckenЌЙCustom_Begin_Sheet О,‚Ќ ЙCustom_End_Sheet О,‚kџџЈ уSet the destination file nameуUoDataMedium.FileName = Replace(odoc.FullFileName, Right(odoc.FullFileName, 3), "pdf")]ѕА В!–']ѕШ]ѕр]!ф!ц!Й\*.idw' $~'$ ,B@  $Йa $Й. $Й..œ $ ,B@kџџˆ ~'$Мџџxoџџp–x]ѕ№ 2..]ѕ0 Й\'  $~'ў ўЙb ўЙ. ўЙ..œ  ў$   œ ў B@kџџИkџџА ~'ўМџџ oџџ˜џџџџџџџџдЕAttribute VB_Name = "frmStartWin@dow" ”Bas”0{EFBA89C8-53CF-477F-A5FC-FAAA93B9686F}{D9F5F889-E18B-422A-B904-DCA1FPF02E} dG lobalSpacoFalse ŠCreatablPredec$laIdйTru BExpose0Templa€teDeriv–Customiz‹DDim sArray_DirList() As„ S€Иng "i€ Row In€teger P7; Sub CommandButton1_C@lick() C"oapp!ventor.App€ation B Set ‚=` ThisŽAsР"AХ'С ТPath/Level†/ CE6= 0s‚=‚!.DesignProj€ectMana@>0.ActYŠ.W0orksA€B& œ"\@ŠA&B+= Р,Т(B, vb€˜ory@GСLBE^`.CleaРVAD`o WhiРŒ‚<> "„If †." AndШqThe„TA D (˜GetШC" &‚ џРz % ˆbШ,AddIte‘/Р5УPСE@IfЧЭ‚0GУLoo>pŒС €”I˜UserForm_Initializ6eLLcPIopќrjAE*!t'@Ќ B!D%R'<!]ѕр]ѕ]ѕ џџџџшЌ v%R!d'а№ @ <!>%R.v]ѕ8џџџџ˜№Ќ В%.BгєџџџџџџџџGЗAttribute VB_Name = "a_PDF_EXPORT" Public Sub Export_All()  Dim oapp As Inventor.AppjationJSetJ= This>EDoc EssemblyЙumXJ*=Q€.Active #ёNBOM NAvrtSelec€tedItem€Variantƒ61.Full№File—‚l €žƒ.Vs.Open(Œ#, FАalse„‚BS„.Compon€t@DefiniŸ.4FirstLevelOnlyG7‚$ƒ If T,heНвo€".Structure dView'TrєueCE@(Cхˆ"РEnd Ifƒ€Enabled€/џЧEk%b+УХHOРIA2s.n("6"Vƒpri ntrow2CАmaxlAP@1CсCCallФЗ€З€РРChild(С/СaRows, 1? A(@$€NoрthingGСв'УŒЯ Св= Ъ AUSubРуriv~aРь,*DQE’n€Ѓra@х, У>Aъteger„'Р( e throughрe co„nt Qs ofтЕ  с .Ca6iС LoЅA@ipstЎrЪih1™2Žb'AoEx@†aEаxcelя‹'ТDЃ= GetObjс€{(, ".…D% dУŽуWorkb№ooksУх a€O  .m$Sheelts‡LB_FileList_iamД:і(ѕ€ 2DLabel4њЇ(х € 4 LB_DirListt_њі,х€@ CommandButton1m „(stwOі,х€46\џ<џџќў('ќў'џ'<џѕўС\џ8 6\џ<џџќў('ќў'џ'<џѕўС\џ6 6\џ<џџќў€€$3 \џ<џџќўMXџk0Templat@eDeriv–C€ustџ %lHџ§oџ%ўС|ў%ўС\ў%рўYHў§“`ФўM(ў %Lџahџ#§ѓ СsbG&Pиartх‡!S`Ащ'˜DWGйСTyb­ -AC Cgoryy- #Ѓ€…A>~ цaЫ…Шd"у){For iРZ1 TŒo A\BCCouхЇ!‡'1ƒIurr€Iў €qфGст&Сh aт9aC~ Є}i„VЂ3a refjeР cXoТ mўaР №ЉХY ‡ рЎ№,… @.пФ†Сg' T"f`Щ propeHrty atoa(insт"С: NрumberрёЁa*'р5 ki ubtC€ЋfromТvРirtual` ЫФ d&Ы 'х—*РTTR_Р").РCells(ETБO>.Вv@&ИуwБ.VјaluQ„8#1 V-џФІr_uƒ qб./tЖ№e '12 291=Aє‚ А ё0= Wт62q_t.P”а'є"-5 …}Аmв%In№formBŽаЃhевШЉ== (L0eft(ё •, L№‚) - 3) + "idwQKvЭ "LC"А•YQdџdџўЂTџP§ѓ Œўdџ6hџTџhhlœ6„  ўўўАўФў’’ LџŒўрў’’xџHџ dџPџhџTџјўk§Эфў| ьўў‹фўQ!ьўahџ2*§ѓ[мўрў5hџўˆиўПlрў§o$џ%№ўў # рўў‹иў.№ўahџ—§ѓdџdџaTџY§ѓдўdџ6hџTџ5дўahџ1§ѓdџdџaTџžBњшфg#зУ?ГtЬўdџ6hџTџ Dџў  '='єў'4џ'TџѕoЬўќ#Шў*#Фў*Fhџ 2ШўФў6hџTџ4џєўKџџX:џ%:$џ%xџahџ§ѓdџdџўЂTџ§ѓPџPџўЂ4џ§ѓќќЄў)dџPџ6hџTџ4џ$ ў dџdџ  l ўѕЬdџP`oЬў§kџ%:ў%:$џ%xџahџ§ѓdџdџўЂTџ§ѓPџPџўЂ4џ§ѓќќЄў)dџPџ6hџTџ4џcoЬў§k$џ%ЄўџC!ќhX@ шўфўмўиўxџLџ№ўЄўдўьўHџDџрў,ШўФўdџPџhџTџ4џєўŒPlChџ"ѕhџMXџ@ #Tџћ=/Tџ8 (XџќіlџE (Xџќіlџ§•і (P,&lџhџ’leExаist(()У;Z‚йS вpw 2zЈёГ‚‡ 4MsgBox "IDW does not eA @: "ќ & Хx•FgЙG!` ‘Of oСд$ Is Vу.l”œŽ'RecursЄА•ite ђpcQ€AKs ify`:es@LL”Аz оob@ё€Аs|?ПQ3Е‡j{+v‡В@§љNex@Ќ§Sƒ;ƒgYAOeпаUГlК7s­ С>бAџq аˆB#ђ ПP6џјŽETаг 1ѕDSR Я0 ЄЏPisPж%b)CX‘лER Arrаay()or@ ВS№кt(v`“\b’cа6fFат GU?Sxaveрi№ЪRh .ь..(lItaхі+Ыу1 sŸ bЇ~IаЉЌуЃpcLnBpˆаЛв)є‚‹U?`VдРс5Хs& ь"\СJ“(е‡36сЃGpdf‚(”+U гC*= Re@place(R,@ RightХ4r)@-RБR!€ .яР $iњeА8.#_XП€yлђд(›ХpB з)—r)Ф4Q(-RС{Г  .рE/@‹=v Ђ–3PcxЖzФxCЯp>‡SWSяRxtчRџG6„гŸ˜Ÿ˜Pч›>ЖSĘ! cЃ˜г S tle (DЯ“Я“ О Ѓ16ѓŒ:oТI"3qQo`TabРOP%9owCЧ2’†џ8RowЪџ0ѓYР ѓ›рe†ќor"ЃЁ—FпuhЏџBOžOžOžё\OžOžА8ѓOžOž 2uOбЕџG 6RАEo#i#E,BХ›пјm™!5~Я.bOžŸен•OžOž OžџOžr х…p 1@ВDа јџO bЊ{“OžOžџ@Ÿч<Тц ш(  ч 7†H COžGаOžЧOžr.Ožons_KYKџOžOžGOž#OžOžu‘Џ›OžOžOžcpс_OžџCБOžOžOžužOž€FOžMOžOž+Ož`91'Ož"§OžonLžvВ 'oDataMedium.FileName = Replace(odoc.Fulll, Right`3), "pdf") ADim oІAs String80= oDocрumenti ‰Hs˜ Daref(no iIn tegerGoAРrray() 1ƒ a€|Splio‡w":\h'BX"LB ound()„z@'For i$1 To U  -t 1E''ƒ&" €4 & '(ia…'Next‰S€et oShe  ‚(1„oRe`vTablш.A€ision s .Itemˆ ow:C€4t@/†K Roјws.Т#‚!\ ‚oР ‚D'revO@n@/Р".TR;'Ц †ŠProper ty@ „1"Inv‘€_Summary InformЄatР;")ƒ"@€ NumberР`Valueƒ3нiK"Design@ TrackД ё„"ies@ƒZХ}"C:\PDF Сšs to be moved\"ћРФ•(‹…™ХъТAРп.idw"Р :(€ СƒN@—).OХВд§Т Є!P€ublish €€ƒуsуCall ` AddIn.SaveCopyAs‚(y, oCo@oЄxt Op0s g@@End Sub џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџёџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџRŠ.CC@„ i@k1 ToLN‚.OCountƒ ‰AOIf Sel@Z`ed(i)}@Leп„Q СE,4=‘@End IfУјNex€У IќTh Тo€€${гGJFs.ItemBКyH(ŽE1o€OU€šƒ$‰* ASubС€'IЄfilЌelРЂРlCЂ'a '_QТyQ & sF‡  щI'Path*M=Фs_HKHЃDataСу  Msg№Box т  Ѓ€= Dir$(у €& "*.*"+'!L1.CleaРc'Call S€endMess X‚(Уhwnd,FDIR, 0&,Р ByValЃ  /  / E/DУ‘ F$un aoni L ib "uрЎ32" _  Al ias "(A"< („ca!)Lohng,*w`4PParammlІA8ny)Ѕƒ&Const$ Y&H18DŒЈN CommandBut№ton1Iž†@{žТ“MР8m M SEšт* C5zqq•Wor,ks!вџL'ќLB_Ёcс6lџXџ$dX3> 0џФўРўџœўџШўџxў џИў0 Ќўˆўhџ4џџlџXџ џŒў0 ќЦј  WќўMMџџџ"0 ќЦ  0 ќЦ  RшўLџ\џфўаў i a"a ё"a  S ё"ap sEmbedName SheetName џџџџџџџџџџџџџџџџџџџџџџџџoWBoWB]ѕА №X'іџџx і$ј ђ(ј˜№џџџь&Ч.g{gH˜шџџџИШџџџŸШџџџЖ @ŸјџџџЖIИMˆN ЊNџџџџџ @%`„џџџџџџџџџџџџџџ`„’џџџџџџџџџџџџџџ`„”џџџџџџџџџџџџџџ „˜џџџџџџџџџџџџˆH% „œџџџџџџџџџџџџШЈ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ †И`џџџџџџџџџџџџXџџџџџџ@@€„iƒnџџџџџџџџџџџџџџџџџџ€ „ЊџџџџџџџџџџџџP% „ВџџџџџџџџџџџџАX% „Дџџџџџџџџџџџџа`% „Оџџџџџџџџџџџџ№h% „Фџџџџџџџџџџџџ№в дшџџџџ&1–4LlџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџјџџџџџџиџџџџ0шџџ( џџџџXџџ@џџHџџP`џџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<<џџ<џџN0џџ`<џџ\<џџD<џџˆ<8<џџš<џџЌ<џџ|<џџЖ“K*š џџџџ  rUР@@~~~~~~~~~~~~ ~ ~ ~ ~ ~~ ~ ~~~~~~~ ~ ~ ~ ~ ~~ ~ ~~ ~ ~ ~ ~ ~ ~ ~~~~~~~~~~~~~B"џџџџџџџџџџџџџџџџџџџџџџџџ!сч–ьОI„‹Н6ŸiрL  ф џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џјўhџ<џќўM<џќўMэ 4!B.>І >!Ю 8 >!и!кЖ&{‘+Щ+ЁyбЙ/С,щYYй/PиG€ FHџ%$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџ;$alџ §ѓhџhџaXџ§ѓ[4џ=(џ)hџ4џ6lџXџ(џalџM`1$џ5lџ.(џalџ§ѓhџhџaXџ9§ѓ џhџ6lџXџJ$aџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<џџРџџџџџџџџџџџџ џџ „Lџџџџџџџџџџџџш% X`џџџџџџџџlџ §ѓhџhџaXџ§ѓ4џ4џWџ џA№ў!џўN)hџ4џ6lџXџџ:Hџ"%џџBlџрўўN8ѕѕџџџџ:Hџ#Nlџlџl$џXџ $Xџџ6 Yиўмўџ6lџXџ2(џalџ+§ѓ,hџhџaXџ9ќ"ѕ,Ьhџ6lџXџЛ*ўСHџ,%(џalџ+§ѓ,hџhџ,9hџ5lџlмўєLlмўžCдўєвўlмўєќЫѕЎфўcЮў lдў#*#Шўkвўчlмўž*1дў/Шў вўdЮўч'C0џlдў(*#ШўlмўєќЫlмўž*1дў/ШўAѕдўMHџ@lџ ) ѕѕџџџџѕ*lџ§ўШўlдў +1,џ/Шў5lџ0џ§“@,џ§“@ џў DcHџ%$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџДиP36 (џџдў,џ џ$џрў0џмў(Шўhџ4џlџXџџ№ў`єDџ],џћt Dџќі,џѕxџH a џќ"5 џўdџ№ xџ§“@H ўЂ џ§ѓ џ5 џ:ўСџ%џa џ-§ѓшўшўўЂиў§ѓќўшў6 џиўќўa џ6џAиў`1Dџ6 џиўќўa џ6џAиў`1@џ6 џиўE:Шў%:џ%ќўa џ6џ=иўџ>Јўџ>˜ўџAˆў`1<џ6 џиўЈў˜ўˆў l<џћ0lDџ џ  џ(џ]ћ35 џQ Dџ }*'˜ў'Јў'иўѕlDџ*F џ 6 џџџџHџџџџџџ55!„)ƒ^џџџџџџџџџџџџhp€ %iƒbџџџџџџџџџџџџџџџџџџ€`„dџџџџџџџџџџџџџџ`„fџџџџџџџџџџџџ џџ`„hџџџџџџџџџџџџ џџ`„jџџџџџџџџџџџџ џџ`„lџџџџџџџџџџџџџџ`„nџџџџџџџџџџџџџџ`„pџџџџџџџџџџџџџџ`„rџџџџџџџџџџџџџџ „vџџџџџџџџџџџџh(% „xџџџџџџџџџџџџˆ0% Œ`џџџџџџџџџџџџшџџџџџџ**V„iƒnџџџџџџџџџџџџџџџџџџ€ „4џџџџџџџџџџџџ @%`„џџџџџџџџџџџџџџ`„’џџџџџџџџџџџџџџ`„”џџџџџџџџџџџџџџ „˜џџџџџџџџџџџџˆH% „œџџџџџџџџџџџџШЈ`„Ђџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ †И`џџџџџџџџџџџџXџџџџџџ@@€„iƒnџџџџџџџџџџџџџџџџџџ€ „ЊџџџџџџџџџџџџP% „ВџџџџџџџџџџџџАX% „Дџџџџџџџџџџџџа`% „Оџџџџџџџџџџџџ№h% „ФџџџџџџџџџџџџџиўЈў˜ў lќўўф!џa џ -§ѓ [шўќcћвУшў5 џт/VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmStartWindow Caption = "UserForm2" ClientHeight = 9765 ClientLeft = 45 ClientTop = 375 ClientWidth = 18825 StartUpPosition = 1 'CenterOwner TypeInfoVer = 27 End 98-00AA00574A4F} frmStўџ џџџџMicrosoft Forms 2.0 FormEmbџa џ -ќ‹єЉ+†ў џ§ѓ шўшў шў5 џ xџfџ@p%`„џџџџџџџџџџџџџџ`„Ђџџџџџџџџџџџџџџ`„Юџџџџџџџџџџџџџџ`„dџџџџџџџџџџџџџџ „œџџџџџџџџџџџџА жџџџџ`џџџџџџџџџџџџ@џџџџџџџџџџKKР„ „Њ аџџџџџџџ(P% „Вџџџџ8џџџџџџџHX% „Др0џџџџџџџh`% „Оџџџџ(џџџџџџџˆh% „Ф џџџџџџџЈp%`„0Иўџџџџџџџџ`„Ђ8Аўџџџџџџџџ`„ЮpЈўџџџџџџџџ`„dџџџџ ўџџџџџџџџ „œџџџџ˜ўџџџџџџH€(џџџџџџџџИџџџџ№џџџџˆƒ(џџџџџџџџЈџџџџџџџџџџџџџџџџџџx%џџџџ8`„аџџџџјџџџџџџџџџџџџџ˜џџџџа „BИ№џџџџџџџји% „<џџџџшџџџџџџџр%`„@џџџџрџџџџџџџџџ „vџџџџиџџџџџџџPш%џџџџџџџџИџџџџ№џџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈ@ўџHџџџџџџџ џџ џџџџ@џџџџџџџ џџ @ўџџџџџџџџ џџ @ўџ№ўџџџџџџ џџ @ўџиўџџџџџџ џџ @ўџРўџџџџџџ џџ @ўџўџџџџџџџџ џџџџpџџџџH џџџџџџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџX4_ИW-*\R1*#19f$*\Rffff* јєH&0 <џџ,џDџ@џXџHџhџќў$шў џиўЈў˜ўˆўД$ahџ §ѓxџ5hџxџahџ§ѓ[`џ=dџ`џ5hџdџahџ`F<џќіLџ5hџKLџќF<џ%ќfџ%xџahџ§ѓ`џ`џўЂќў§ѓ[јў=dџ)`џјў6hџ<џќў.dџahџ§ѓ`џ`џa<џ§ѓ\џ`џ6hџ<џdedded Objectє9Вq 45 ClientTop = 3( €Project List; {З€@МTahoma$(€File List Assembly{З€@МTahoma (€File List Parts{З€@џahџ`F<џќіLџ5hџ ќf,џќішў шўџc,џ%\џ,)ќf,џ%\џ,)c,џ%\џ,)7:,џ%\џahџ)§ѓ `џ`џўЂ<џ§ѓ фў`џ6hџ<џ+фўahџ +ќ‹є+тўhџ§ѓ `џ`џ `џ5hџќcќћаў ќc=\џ ќc=dџ ќc=xџЋЌД@&(dџxџшўLџ\џфўаў `џјўhџ<џќўaLџ\џфўаў `џјўhџ<џќўaHџ Д lџ§i№ўHџў06576159abпўЪ € џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ј€€ € 4(&`€ џџџџ€ џџџџ€ˆ€ џџџџЈ$Ирш€ џџџџ€№€ј8X€ џџџџ&`€ џџџџ2ˆ€ џџџџ€ Р€ џџџџи€ џџџџш€ џџџџј€ џџџџ"  € џџџџ € џџџџ€ & €H >P € L €р ш € џџџџ€ј    € џџџџ€ $( €P X € џџџџ€ "p €˜   € џџџџ€ <И ј € џџџџ€  € џџџџ$0 € џџџџ€ 0X € 0ˆ NИ $ џџџџџџџџ a_PDF_EXPORT UserForm1frmStartWindowa_IDW_PRINT_ALLchange_draw_prop c_GenFunc clsSelect frmVisible b_GenModul clsSelect1 frmCalendarfrmIPropwaterjet a_DXF_EXPORT StartWindowCreatePartsListWithThumbnail UserForm2"0 € џџџџX € џџџџ€ $` € \ˆ €ш  № € € € €  8 P p  P˜ € fш &P2x А€ џџџџ€ Ри€ џџџџј€ џџџџ€ џџџџ"€ &€ џџџџ€Р€ €Ј€А€№€ џџџџ€ џџџџ€@>H€ Lˆ€ир€ џџџџ€№ј € џџџџ€ $ €HP€ џџџџ€ "h€˜€ џџџџ€ <А№€ џџџџ€ € џџџџ$(€ џџџџ€ 0P€ 0€NА$"(€ џџџџP€ џџџџ€ $X€ \€€р ш€ј€€€€ $и€ &€ *0€ `€ џџџџ€ џџџџˆxиР€ џџџџ€ џџџџ€ h€ fp4$2Xа 8€ џџџџ€ HL`€€ џџџџџџџџ –]ѕX№ 2..ts\aut]ѕx№ .!8.4fa]ѕ˜]ѕИ 4!@'>№ >К .!B%.4№ 4!D!<.:К'F FœК :(HdџџHК :(Hkџџ0К :(J]ѕа№Й Structured :!P%R.L.8 Ќ'TЌ'V L!ZЌAX№В.\№В.:№В.4№В..oџџ –№у-Iterate through the contents of the BOM Rows.]ѕ]ѕЈ]ѕР]ѕиуDim oExApp As Excel.Applicationу-Set oExApp = GetObject(, "Excel.Application")уDim oExdoc As Excel.WorkbooksуSet oExdoc = oExApp.Workbooksу!Dim oExSheets As Excel.Worksheets]ѕ№]ѕ]ѕ ]ѕ8 b V œ b'Vkџџ( dЌ ^!t’у Get the current rowGENERALTESTApplicationProjectяРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ Šй:>LГnaі hдˆ:C:\Program Files\Autodesk\Inventor 2015\Bin\RxInventor.tlbInventor џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџstdole0РFC:\Windows\system32\stdo.]ѕP№ d ^%R.vу=Set a reference to the primary ComponentDefinition of the row]ѕp№Ќ v!z%R.xу5Get the file property that contains the "Part Number"уCThe file property is obtained from the virtual component definitionу9 Worksheets("STR_BOM").Cells(printrow, 1).Activateу ActiveCell.Value = level x!|!@'l x!|!~'pу212291=Assembly , 12290= PartЙCategoryЙ%Inventor Document Summary Information x!|!€%R%R!‚'r l lЌ $мЙidw 'nу$ If PartCategory = "LC" Then n$„Ќœ nA†у Elseу@ MsgBox "IDW does not exist for: " & PartFileNamekџџшу End If x8œdџџИу *Recursively iterate child rows if present. v!ŠВœ v!Š bЌ AXkџџXkџџPЪHoџџ@– n 2!BB@]ѕ№ 2!8.4]ѕ(]ѕ@]ѕX 4!–']ѕp№ЙInventor Summary Information 4!€%R.˜ЙRevision Number ˜%R!‚'’]ѕ Й\$ž'œ 4!@ЙœЙSave first the Drawing...A@ |џџkџџ]ѕа]ѕш œŠ$œ'Ђџџ dЌ œ‘Ќ ’ ЂЙ\ d$œ'Ђ_EЪ  ЂЙ\pdf\ œ‘$œ'ЂF Ђ ЂЌ$ІЙ-R ’Й.PDF$Є'”rFoу MsgBox pName307 ”К 4B@ЈК 2!8B@Boџџ– n 2!BB@Wiу Get the PDF translator Add-In.r]ѕx№Й&{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4} 2!Ў%А.ЊAуFSet a reference to the active document (the document to be published).џџџ]ѕ˜№ 2!8.Вg]ѕИ№ 2!И!К.Д556 М Д(lџџHу Create a NameValueMap objectаЛ]ѕи№ 2!И!Т.ОFunу Create a DataMedium objectGen]ѕј№ 2!И!Ш.Фу6 Check whether the translator has 'SaveCopyAs' optionsct В Д О Њ%Ъœу Options for drawings...3ЌЙAll_Color_AS_Black О,‚џ1(у)oOptions.Value("Remove_Line_Weights") = 0у)oOptions.Value("Vector_Resolution") = 400 ЬЙ Sheet_Range О,‚у8*<------------ alle Blфtter ins PDF drucken1ЌЙCustom_Begin_Sheet О,‚enЌ ЙCustom_End_Sheet О,‚frmkџџ уSet the destination file nameIPуUoDataMedium.FileName = Replace(odoc.FullFileName, Right(odoc.FullFileName, 3), "pdf")0=]ѕ В!–'w]ѕ0]џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџѕH]ѕ`]ѕx Й\$ž'œPO œŠ$œ'Ђ072 dЌ œ‘Ќ ’RT ЂЙ\ d$œ'ЂarЪhЙRevision NumberЙInventor Summary Information В!€%R%R!‚'ау_revno = oDocument.PropertySets.item("Design Tracking Properties").item("Revision Number").Values ЂЙ\PDF\ œ‘$œ'ЂЊ Ђ ЂЌ$ІЙ-R аЙ.PDF$Є'”071 ” Ф(вerуPublish document. В Д О Ф ЊBдB56К 2!8B@Boџџ№–Иу Get the PDF translator Add-In.5]ѕ№Й&{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4} 2!Ў%А.ЊџАуFSet a reference to the active document (the document to be published).џџџ`]ѕ0№ 2!8.Вџџ]ѕP№ 2!И!К.Д М Д(lу Create a NameValueMap object]ѕp№ 2!И!Т.Оу Create a DataMedium object]ѕ№ 2!И!Ш.Фу6 Check whether the translator has 'SaveCopyAs' options В Д О Њ%Ъœу Options for drawings...ЌЙAll_Color_AS_Black О,‚у)oOptions.Value("Remove_Line_Weights") = 0у)oOptions.Value("Vector_Resolution") = 400 ЬЙ Sheet_Range О,‚у8*<------------ alle Blфtter ins PDF druckenЌЙCustom_Begin_Sheet О,‚Ќ ЙCustom_End_Sheet О,‚kџџЈ уSet the destination file nameуUoDataMedium.FileName = Replace(odoc.FullFileName, Right(odoc.FullFileName, 3), "pdf")]ѕА В!–']ѕШ]ѕр]ѕј]ѕ Й\$ž'œу# sName = sName & "\" & oArray(i)ЌуNextЂу_revno = oDocument.PropertySets.item("Design Tracking Properties").item("Revision Number").ValueуsName = oArray(LBound(oArray))ЂЙC:\PDF Files to be moved\ œ‘$œ'Ђ Ђ Ф(вуPublish document. В Д О Ф ЊBдoџџ џџџџ уFor i = 1 To UBound(oArray) - 1…џџџџџИ]ѕИџџџџ8 ЂЙ.idwЙ (Rev аЙ).PDF$Є'ЂџџџџPуarevno = oDocument.PropertySets.Item("Inventor Summary Information").Item("Revision Number").Value <!>!t'@Ќ B!D%R'<!]ѕр]ѕ]ѕ џџџџшЌ v%R!d'а№ @ <!>%R.v]ѕ8џџџџ˜№Ќ В%.BгєџџџџџџџџGЗAttribute VB_Name = "a_PDF_EXPORT" Public Sub Export_All()  Dim oapp As Inventor.AppjationJSetJ= This>EDoc EssemblyЙumXJ*=Q€.Active #ёNBOM NAvrtSelec€tedItem€Variantƒ61.Full№File—‚l €žƒ.Vs.Open(Œ#, FАalse„‚BS„.Compon€t@DefiniŸ.4FirstLevelOnlyG7‚$ƒ If T,heНвo€".Structure dView'TrєueCE@(Cхˆ"РEnd Ifƒ€Enabled€/џЧEk%b+УХHOРIA2s.n("6"Vƒpri ntrow2CАmaxlAP@1CсCCallФЗ€З€РРChild(С/СaRows, 1? A(@$€NoрthingGСв'УŒЯ Св= Ъ AUSubРуriv~aРь,*DQE’n€Ѓra@х, У>Aъteger„'Р( e throughрe co„nt Qs ofтЕ  с .Ca6iС LoЅA@ipstЎrЪih1™2Žb'AoEx@†aEаxcelя‹'ТDЃ= GetObjс€{(, ".…D% dУŽуWorkb№ooksУх a€O  .m$Sheelts‡СsbG&Pиartх‡!S`Ащ'˜DWGйСTyb­ -AC Cgoryy- #Ѓ€…A>~ цaЫ…Шd"у){For iРZ1 TŒo A\BCCouхЇ!‡'1ƒIurr€Iў €qфGст&Сh aт9aC~ Є}i„VЂ3a refjeР cXoТ mўaР №ЉХY ‡ рЎ№,… @.пФ†Сg' T"f`Щ propeHrty atoa(insт"С: NрumberрёЁa*'р5 ki ubtC€ЋfromТvРirtual` ЫФ d&Ы 'х—*РTTR_Р").РCells(ETБO>.Вv@&ИуwБ.VјaluQ„8#1 V-џФІr_uƒ qб./tЖ№e '12 291=Aє‚ А ё0= Wт62q_t.P”а'є"-5 …}Аmв%In№formBŽаЃhевШЉ== (L0eft(ё •, L№‚) - 3) + "idwQKvЭ "LC"А•YQ’leExаist(()У;Z‚йS вpw 2zЈёГ‚‡ 4MsgBox "IDW does not eA @: "ќ & Хx•FgЙG!` ‘Of oСд$ Is Vу.l”œŽ'RecursЄА•ite ђpcQ€AKs ify`:es@LL”Аz оob@ё€Аs|?ПQ3Е‡j{+v‡В@§љNex@Ќ§Sƒ;ƒgYAOeпаUГlК7s­ С>бAџq аˆB#ђ ПP6џјŽETаг 1ѕDSR Я0 ЄЏPisPж%b)CX‘лER Arrаay()or@ ВS№кt(v`“\b’cа6fFат GU?Sxaveрi№ЪRh .ь..(lItaхі+Ыу1 sŸ bЇ~IаЉЌуЃpcLnBpˆаЛв)є‚‹U?`VдРс5Хs& ь"\СJ“(е‡36сЃGpdf‚(”+U гC*= Re@place(R,@ RightХ4r)@-RБR!€ .яР $iњeА8.#_XП€yлђд(›ХpB з)—r)Ф4Q(-RС{Г  .рE/@‹=v Ђ–3PcxЖzФxCЯp>‡SWSяRxtчRџG6„гŸ˜Ÿ˜Pч›>ЖSĘ! cЃ˜г S tle (DЯ“Я“ О Ѓ16ѓŒ:oТI"3qQo`TabРOP%9owCЧ2’†џ8RowЪџ0ѓYР ѓ›рe†ќor"ЃЁ—FпuhЏџBOžOžOžё\OžOžА8ѓOžOž 2uOбЕџG 6RАEo#i#E,BХ›пјm™!5~Я.bOžŸен•OžOž OžџOžr х…p 1@ВDа јџO bЊ{“OžOžџ@Ÿч<Тц ш(  ч 7†H COžGаOžЧOžr.Ožons_KYKџOžOžGOž#OžOžu‘Џ›OžOžOžcpс_OžџCБOžOžOžužOž€FOžMOžOž+Ož`91'Ož"§OžonLžvВ 'oDataMedium.FileName = Replace(odoc.Fulll, Right`3), "pdf") ADim oІAs String80= oDocрumenti ‰Hs˜ Daref(no iIn tegerGoAРrray() 1ƒ a€|Splio‡w":\h'BX"LB ound()„z@'For i$1 To U  -t 1E''ƒ&" €4 & '(ia…'Next‰S€et oShe  ‚(1„oRe`vTablш.A€ision s .Itemˆ ow:C€4t@/†K Roјws.Т#‚!\ ‚oР ‚D'revO@n@/Р".TR;'Ц †ŠProper ty@ „1"Inv‘€_Summary InformЄatР;")ƒ"@€ NumberР`Valueƒ3нiK"Design@ TrackД ё„"ies@ƒZХ}"C:\PDF Сšs to be moved\"ћРФ•(‹…™ХъТAРп.idw"Р :(€ СƒN@—).OХВд§Т Є!P€ublish €€ƒуsуCall ` AddIn.SaveCopyAs‚(y, oCo@oЄxt Op0s g@@End Sub џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџсџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџџџџџџџ435 ClientWidth = 3000 StartUpPosition = 1 'CenterOwner TypeInfoVer = 11 End џџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџrU@@@~xџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH&˜џџџиџџџ€џџџ aS бS  Z  ZHџџџ№ўџџg2ž(џџџйHџџџ6‘№ўџџ`З˜џџџъџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџbbј џџ€џџџ aS бPXЁ `ќџџџџџџџџџџџџџџџџџџџё!ooqџџџџ(РCompObjџџџџџџџџџџџџ&p__SRP_2vzџџџџA __SRP_3џџџџtџџџџ,iўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq (€CommandButton1Р "u€ЅTahoma(€Todayaь Ou€ЅTahoma(€OKhoDOu€ЅTahomaМРдArial ($  џџ }ЌRу ‘ЮуЊKИQDBTahoma€ƒo(ѕ€;@cmdCloseіE$х€8btnTodayі$х€4btnOKday'ЌH{@CМР дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{le2.tlb џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџс.E р….`ŒM ДC:\Windows\system32\FM20.DLLMSForms џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџљ™!VЊ<гNŠч7QŒљ"а4C:\Users\AGIDRA~1\AppData\Local\Temp\VBE\MSForms.exd џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlu*ый)AИ“'ї-\PublishSinglePDF4C:\Program Files\Common Files\System\ado\msado28.tlbADODB џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџExport_All_LC_DXFExportAllLCDXFChildXPнМечˆNŽјcpрЫЃ DXF_EXPORTFLAT_DXF_EXPORTExportAllLCDXFChild2Export_All_LC_FLAT_DXF Export_All_PDFExportAllPDFChild PDF_EXPORT PDF_EXPORT2Ч\ѓsnэвЗ…`АёYя L{0AC6FD96-2F4D-42C€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHi0дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{€dD јџџџАџџџ,иџџџИџџџрџџџРџџџдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{,я€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHiˆдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHiHix aS бS џџџџџџџџS џџџџџџџџV rиўџџž№џџџл ьШџџџЈџџџъаџџџАџџџ№ўџџиўџџgS џџџџџџџџS03ƒ) € ц Œ+= { ' Initialize with the cu€rrent dŸ№џџџОАўџџтg{€Иd> џџџ˜џџџИўџџАўџџјџџџ№џџџшџџџџ8ШџџџЈџџџаџџџАџџџ№ўџџиўџџ #1У If ˆ@…" xThe€'С…ˆ. Today E‚iёEDim( * cD"= CСШ8)‡У ЦYearРr(H‘ Mon7Œ= Т Day€@ End If#CMe.Sho w vrU@@@џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџXџџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^џџџџџџџџF@џџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџP@џџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџPX! `ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^џџџџџџџџF8Б `§џџџџџџџџџџџџџџџџџџџb`§џџџџџџџџџџџџџџџџџџџb&žјџџџйрџџџVТАџџџМрџџџgїФPџџџg€№Ÿ@џџџпZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџй(џџџ–ьиџџџИџџџърџџџРџџџ(џџџ‡џџџ~gАŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV Тјўџџžјўџџйрўџџ`gиўџџї DНиўџџьиџџџИџџџјўџџърџџџРџџџ(џџџрўџџЧbgŒŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV РјўџџU ТHџџџьиџџџИџџџјўџџърџџџРџџџ(џџџg Ц~ggŸ@џџџЅџџџg˜Hџџџь&ЧшgLёрўџџё(џџџёРџџџ№ўџџџ IрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{gg&žHџџџйрџџџл МрџџџЧ(gžHџџџиggrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТˆўџџьиџџџИџџџърџџџРџџџ(џџџg,ўџџџ—PџџџqЈўџџžˆўџџиLgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТ€ўџџьиџџџИџџџърџџџРџџџ(џџџgљџџџ3ž€ўџџлJgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТxўџџьиџџџИџџџърџџџРџџџ(џџџg|љџџџžАџџџйрџџџVТиџџџžиџџџкРџџџVТИџџџžИџџџй(џџџЎНxџџџьиџџџИџџџърџџџРџџџ(џџџgqБpџџџg8žАџџџйрџџџVРpўџџŸЈџџџМрџџџЛhўџџTg,žЈџџџйрџџџ–№)?МрџџџЧg.žЈџџџйрџџџЎ‘pџџџ‘ŸˆџџџMМрџџџgŸxџџџЖ@žЈџџџлgg‘pџџџqУБpџџџgюџџџžЈџџџлFgŸЈџџџОhўџџg8žАџџџйрџџџVР`ўџџŸЈџџџМрџџџЛXўџџ g,žЈџџџйрџџџ–№)?МрџџџЧшgJžЈџџџйрџџџGVТиџџџžиџџџйРџџџš`ЗhџџџОиџџџърџџџРџџџgD№ŸhџџџЗџџџ@Ÿрџџџџ–рџџџўРўџџХKМрџџџЧтgяџџџžЈџџџлFgVžЈџџџйрџџџ2VТиџџџžиџџџйРџџџ*‘(џџџ`З`џџџОиџџџърџџџРџџџ(џџџgjўЈўџџ—`џџџL№аŸ`џџџЗџџџ@Ÿрџџџџ–рџџџўРўџџOРџџџO(џџџ`ЗXџџџърџџџРџџџ(џџџgŸXџџџЖ@žxўџџлKgŒпZйрџџџ VТиџџџžиџџџйРџџџVr(џџџ˜€ўџџrРўџџ˜ˆўџџrўџџ˜xўџџr(ўџџžHџџџи 0ОиџџџърџџџРџџџ(џџџgюџџџžЈџџџлFgggŸЈџџџОXўџџŒgqБpџџџg8žАџџџйрџџџVРўџџŸЈџџџМрџџџЛўџџь g,žЈџџџйрџџџ–№)?МрџџџЧž g&‘pџџџ‘Ÿˆџџџ/Ж@žЈџџџлgg‘pџџџqУБpџџџgяџџџžЈџџџлFgŸЈџџџОўџџL gLёрўџџё(џџџёРџџџ№ўџџџIрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{@ шТpўџџhўџџ`ўџџXўџџўџџўџџˆўџџXџџџ€ўџџhџџџˆџџџ иЁGЁЖЂ&Ђ–ЃvЃцЄVЄЧЅ8ЅЉІ’АџџџPџџџxўџџ`џџџЈџџџHџџџјџџџЙJDиўџџиџџџИџџџјўџџрџџџРџџџ(џџџрўџџHidœ HiHi№HiHiАHi HiЈ aS бS rU@@@~xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџl @ gg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg&žјџџџйрџџџVТАџџџМрџџџgїФPџџџg€№Ÿ@џџџпZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџй(џџџ–ьиџџџИџџџърџџџРџџџ(џџџ‡џџџ~gАŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV Тјўџџžјўџџйрўџџ`gиўџџї DНиўџџьиџџџИџџџјўџџърџџџРџџџ(џџџрўџџЧbgŒŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV РјўџџU ТHџџџьиџџџИџџџјўџџърџџџРџџџ(џџџg Ц~ggŸ@џџџЅџџџg˜Hџџџь&ЧшgLёрўџџё(џџџёРџџџ№ўџџџ IрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{gg&žHџџџйрџџџл МрџџџЧ(gžHџџџиggrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТˆўџџьиџџџИџџџърџџџРџџџ(џџџg,ўџџџ—PџџџqЈўџџžˆўџџиLgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТ€ўџџьиџџџИџџџърџџџРџџџ(џџџgљџџџ3ž€ўџџлJgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТxўџџьиџџџИџџџърџџџРџџџ(џџџg|љџџџžАџџџйрџџџVТиџџџžиџџџкРџџџVТИџџџžИџџџй(џџџЎНxџџџьиџџџИџџџърџџџРџџџ(џџџgqБpџџџg8žАџџџйрџџџVРpўџџŸЈџџџМрџџџЛhўџџTg,žЈџџџйрџџџ–№)?МрџџџЧg.žЈџџџйрџџџЎ‘pџџџ‘ŸˆџџџMМрџџџgŸxџџџЖ@žЈџџџлgg‘pџџџqУБpџџџgюџџџžЈџџџлFgŸЈџџџОhўџџg8žАџџџйрџџџVР`ўџџŸЈџџџМрџџџЛXўџџ g,žЈџџџйрџџџ–№)?МрџџџЧшgJžЈџџџйрџџџGVТиџџџžиџџџйРџџџš`ЗhџџџОиџџџърџџџРџџџgD№ŸhџџџЗџџџ@Ÿрџџџџ–рџџџўРўџџХKМрџџџЧтgяџџџžЈџџџлFgVžЈџџџйрџџџ2VТиџџџžиџџџйРџџџ*‘(џџџ`З`џџџОиџџџърџџџРџџџ(џџџgjўЈўџџ—`џџџL№аŸ`џџџЗџџџ@Ÿрџџџџ–рџџџўРўџџOРџџџO(џџџ`ЗXџџџърџџџРџџџ(џџџgŸXџџџЖ@žxўџџлKgŒпZйрџџџ VТиџџџžиџџџйРџџџVr(џџџ˜€ўџџrРўџџ˜ˆўџџrўџџ˜xўџџr(ўџџžHџџџи 0ОиџџџърџџџРџџџ(џџџgюџџџžЈџџџлFgggŸЈџџџОXўџџŒgqБpџџџg8žАџџџйрџџџVРўџџŸЈџџџМрџџџЛўџџь g,žЈџџџйрџџџ–№)?МрџџџЧž g&‘pџџџ‘Ÿˆџџџ/Ж@žЈџџџлgg‘pџџџqУБpџџџgяџџџžЈџџџлFgŸЈџџџОўџџL gLёрўџџё(џџџёРџџџ№ўџџџIрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{@ шТpўџџhўџџ`ўџџXўџџўџџўџџˆўџџXџџџE-8BE0-8AEA580399E4}E 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œџџџџџџџџџџџџџџџџџџџџџџџџ špСcвЗ‹`Аь ъH 1 гЗ`АёYяыH 1 гЗ`АёYя‡МЬn ЅдфЕAЪЈЁšpСcвЗ‹`Аь з5ЄkжЛдцЕAЪЈй5ЄkжЛдцЕAЪЈн5ЄkжЛдцЕAЪЈл5ЄkжЛдцЕAЪЈ $All_Color_AS_Black Sheet_Range \ $Custom_Begin_Sheet Custom_End_SheetVBE7.DLLџџџџџџџџџџџџџџџџЧ џџџџџџџџџџџџџџџџ(~ Revision Number 8Inventor Summary InformationШ\ѓsnэвЗ…`АёYяЩ\ѓsnэвЗ…`АёYя 2C:\PDF Files to be moved\ .idw (Rev  ).PDFџџџџџџџџџџџџџџџџШ џџџџџџџџџџџџџџџџ,џџџџџџџџџџџџџџџџ Sheets RevisionTablesItem "RevisionTableRows CountText SheetЎYk І"дЗЈ`АёYяг%+лѓfЬGПжЗFŽчnGтJdКяњIŸU8LЈ-ЕI€рэХ:ШM•`Иg§)пжƒћйо-F›Х•І“:пLModule1 Print_Macro iLogic_start DXF_Export RuniLogicGetiLogicAddin DXF 2Missing Inventor Documentgд№)СвЗ`АёYяџџџџџџџџџџџџџџџџS џџџџџџџџџџџџџџџџ(~RunExternalRuleIDW_PRINT_PaperIDW_PRINT_Paper_11x17_allIDW_PRINT_Paper_8x11_allIDW_PRINT_Paper_11x17_sheetIDW_PRINT_Paper_8x11_sheet IDW_PRINT_PDFIDW_PRINT_PDF_11x17_all&io1НGЎu‹ddШЊ-ЧU3жC‰№Ыїн4ŽM Adobe PDFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ L{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} NRICOH Aficio MP C5502A PCL 6 (Drafting)CreateDrawingExcelTablechange_Layer_ColorяпXŒ пD—ЏMЌ…sKMU}^CMЃ‰Е{QЇПЈыŸЕkB‚оёФЁcœpЋM fЧ•EЄIv%w.ˆв 50383104 05 Lines(BSI) tata 1:05 Lines(BSI)mгЊдбаќKœ:Фq=’ СЎЉЇејџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЕAЪЈIDW_PRINT_PDF_11x17_SheetIDW_PRINT_Paper_ANSI_C_alldxf_export_from_IDWActiveSheetВYk І"дЗЈ`АёYяБYk І"дЗЈ`АёYя=o!Щ†шuN‰Ћзf_ЁJБЗ‚†Dk№OŒЋ!вv`.*ЌХ9dЕLКEvR–(^`ј]kгЗ”`АёYяFullFileNameDocumentType Category JInventor Document Summary InformationџџъаџџџАџџџg˜шџџџь&ЧЪgLё џџџёPџџџёАџџџ№ў˜џџџIаџџџŸаџџџџ(ъаџџџАџџџPџџџ џџџg{gg@пZйаџџџ VТШџџџŸШџџџТ№џџџОШџџџМаџџџgrU@@@џџџџџџџџџџџџXё`§џџџџџџџџџџџџџџџџџџџЁ^APX`§џџџџџџџџџџџџџџџџџџџбAP^8`§џџџџџџџџџџџџџџџџџџџ@@ž№џџџа ˜ШџџџUТшџџџОШџџџg{р€L&јџџџшџџџ№џџџ2ШџџџаџџџАџџџPџџџ џџџjјgg&юйиџџџ%V Т№џџџМиџџџg ЮюgXўИџџџ юйиџџџ%V Т˜џџџž˜џџџк€џџџV ТаџџџО˜џџџъиџџџ€џџџg˜аџџџь&ЧЎgwgžаџџџиg$žаџџџйиџџџДИјџџџМиџџџgwgwџџ€јL&јџџџаџџџ№џџџШџPropertySets Valueџџџџџџџџџџџџџџџџi џџџџџџџџџџџџџџџџ"h idw LC CheckEmbedeд№)СвЗ`АёYяExcelSheetExistsРF<C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXEExcel џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџкРFFlatPatternArea FileExist   ўџџџ ўџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџZ[\]ўџџџeџџџџџџџџџџџџџџџџџџџџџџџџўџџџghyџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџz{|}~€rUР@@@~x‘Ё9 Q1Aa!:ББ$сq:Hi@l ggїg{{ 8Hiўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вqџџџџџ(€CheckaseO ї€@сМTahomase ( €Update (Data)O ї€@сМTahomase (€Update (Struc)O ї€@сў€g—ФјџџџgNпZйаџџџ VТШџџџžШџџџйАџџџVТшџџџОШџџџъаџџџАџџџg˜шџџџь&ЧЪgLё џџџёPџџџёАџџџ№ў˜џџџIаџџџŸаџџџџ(ъаџџџАџџџPџџџ џџџg{gg@пZйаџџџ VТШџџџŸШџџџТ№џџџОШџџџМаџџџg˜№џџџь&Ч.g{gH˜шџџџИШџџџŸШџџџЖ @ŸјџџџЖ@ž№џџџа ˜ШџџџUТшџџџОШџџџg{р€L&јџџџшџџџ№џџџ2ШџџџаџџџАџМTahomase (€Update (compl)O ї€џџPџџџ џџџjјgg&юйиџџџ%V ^БF81 `§џџџџџџџџџџџџџS  Z  Z  Z\,žЈџџџйрџџџ–№)?МрџџџЧHg.žЈџџџйрџџџЎ‘xџџџ‘ŸˆџџџMМрџџџgqЉnHџџџžЈџџџлgg‘xџџџqУБxџџџgюHџџџžЈџџџлFgŸЈџџџО`џџџаg8žАџџџйрџџџVР(џџџŸЈџџџМрџџџЛ џџџ>g,žЈџџџйрџџџ–№)?МрџџџЧ 0IDW does not exist for: С*eдЙдeMŒ+”-tA dxf:ЪЯUзžJЏшqxшЧcDisplayName .dxfSaveCopyAs zC:\_Vault Working Folder\Designs\Templates\INV-DXF-export.ini L{C24E3AC4-122E-11D5-8E91-0010B541CD80} DThe DXF add-in could not be fou€ўџџhџџџˆџџџ@сzўП€ Р %љ?@’Р`АџџџPџџџxўџџ`џџџЈџџџHџџџјџџџРDиўџџиџџџИџџџјўџџрџџџРџџџ(џџџрўџџHiHi№HiHiАHi HiЈ џџџџџџџџS џџџџџџџџS џџџџџџџџ"a џџџџџџџџ Z  Z ‘ "a џџџџџџџџS^ i a"a ё"a  S ё"ap sEmbedName SheetName џџџџџџџџџџџџџџџџџџџџџџџџoWBoWB]ѕА №X'іџџx і$ј ђ(ј˜№џџџь&Ч.g{gH˜шџџџИШџџџŸШџџџЖ @ŸјџџџЖnd. &Export_Acad_IniFileAdd VC:\_Vault Working Folder\Designs\DXF Local\DXF2Document SaveAs done dxf_view_setSelectSet DXF_View_Set dxf_view-set dxf_view_set RuniLogic2RuninternalRule gJžЈџџџйрџџџGVТиџџџžиџџџйРџџџš`ЗpџџџОиџџџърџџџРџџџgD№ŸpџџџЗHџџџ@Ÿрџџџџ–рџџџў0џџџХKМрџџџЧgяHџџџžЈџџџлFgxёЈўџџёиўџџё№ўџџ№žЈџџџйрџџџ2VТиџџџžиџџџйРџџџ*Žџџџ џ(Оиџџџъ рџџџРџџџџџџ№ўџџиўџџЈўџџgggŸЈџџџО џџџЮgqБxџџџg8žАџџџйрџџџVР ўџџŸЈџџџМрџџџЛ˜ўџџ$g,žЈџџџйрџџџ–№)?МрџџџЧжg&P џџџ џџџ0џџџxџџџЈџџџ˜џџџr callup_Form DRAWINGS STDRunRule noHi˜Hi0дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџўџџ‘xўџџ`Зџџџъ Hџџџ№ўџџЈўџџўџџxўџџgX—ЈџџџL№аŸЈџџџЗ`џџџ@ŸHџџџџ–HџџџўџџџШ№ўџџ`З џџџъHџџџ№ўџџg—џџџїDЧьg6— џџџŸHџџџ–Hџџџј`џџџХKМHџџџЧ–gŸ џџџ ЦцggJёўџџёЈўџџё№ўџџ№ї—ЈџџџPqHџџџџ(ъHџџџ№ўџџЈўџџўџџggg˜(џџџРЧЦЂgg8ž0џџџйHџџџ -VРџџџь& ОџџџМHџџџЧœgPž0џџџйHџџџ -сqУpўџџ–HџџџVТџџџŸџџџ ОџџџМHџџџgggŸјџџџЅ8џџџzg{ШtШџџџАџџџрџџџ(џџџ8џџџHџџџ№ўџџЈўџџўџџxўџџHiHiАHi HiЈ a“K*š џџџџ  rUР@@~~~~~~~~~~~~ ~ ~ ~ ~ ~~ ~ ~~~~~~~ ~ ~ ~ ~ ~~ ~ ~~ ~ ~ ~ ~ ~ ~ ~~~~~~~~~~~~H"џџџџџџџџџџџџџџџџџџџџџџџџСf3Вѓ?GŸјbQ‹  ф џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ435 ClientWidth = 3000 StartUpPosition = 1 'CenterOwner TypeInfoVer = 11 End џџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџrU@@@~xџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ a_PDF_EXPORT UserForm1frmStartWindowa_IDW_PRINT_ALLchange_draw_prop c_GenFunc clsSelect frmVisible b_GenModul clsSelect1 frmCalendarfrmIPropwaterjet a_DXF_EXPORT StartWindowCreatePartsListWithThumbnail UserForm2GENERALTESTApplicationProjectяРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ Šй:>LГnaі hдˆ:C:\Program Files\Autodesk\Inventor 2015\Bin\RxInventor.tlbInventor џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџstdole0РFC:\Windows\system32\stdole2.tlb џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџс.E р….`ŒM ДC:\Windows\system32\FM20.DLLMSForms џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџљ™!VЊ<гNŠч7QŒљ"а4C:\Users\AGIDRA~1\AppData\Local\Temp\VBE\MSForms.exd џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlu*ый)AИ“'ї-\PublishSinglePDF4C:\Program Files\Common Files\System\ado\msado28.tlbADODB џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџExport_All_LC_DXFExportAllLCDXFChildXPнМечˆNŽјcpрЫЃ DXF_EXPORTFLAT_DXF_EXPORTExportAllLCDXFChild2Export_All_LC_FLAT_DXF Export_All_PDFExportAllPDFChild PDF_EXPORT PDF_EXPORT2Ч\ѓsnэвЗ…`АёYя L{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}E 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œџџџџџџџџџџџџџџџџџџџџџџџџ špСcвЗ‹`Аь ъH 1 гЗ`АёYяыH 1 гЗ`АёYя‡МЬn ЅдфЕAЪЈЁšpСcвЗ‹`Аь з5ЄkжЛдцЕAЪЈй5ЄkжЛдцЕAЪЈн5ЄkжЛдцЕAЪЈл5ЄkжЛдцЕAЪЈ $All_Color_AS_Black Sheet_Range \ $Custom_Begin_Sheet Custom_End_SheetVBE7.DLLџџџџџџџџџџџџџџџџЧ џџџџџџџџџџџџџџџџ(~ Revision Number 8Inventor Summary InformationШ\ѓsnэвЗ…`АёYяЩ\ѓsnэвЗ…`АёYя 2C:\PDF Files to be moved\ .idw (Rev  ).PDFџџџџџџџџџџџџџџџџШ џџџџџџџџџџџџџџџџ,џџџџџџџџџџџџџџџџ Sheets RevisionTablesItem "RevisionTableRows CountText SheetЎYk І"дЗЈ`АёYяг%+лѓfЬGПжЗFŽчnGтJdКяњIŸU8LЈ-ЕI€рэХ:ШM•`Иg§)пжƒћйо-F›Х•І“:пLModule1 Print_Macro iLogic_start DXF_Export RuniLogicGetiLogicAddin DXF 2Missing Inventor Documentgд№)СвЗ`АёYяџџџџџџџџџџџџџџџџS ё"a  Z ‘  Z  "a Ё S,g6— џџџŸHџџџ–Hџџџј`џџџХKМHџџџЧ–gŸ џџџ ЦцggJёўџџёЈўџџё№ўџџ№ї—ЈџџџPqHџџџџ(ъHџџџ№ўџџЈўџџўџџggg˜(џџџРЧЦЂgg8ž0џџџйHџџџ -VРџџџь& ОџџџМHџџџЧœgPž0џџџйHџџџ&˜џџџиџџџ€џџџ aS бS  Z  ZHџџџ№ўџџg2ž(џџџйHџџџ6‘№ўџџ`З˜џџџъџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџbbј џџ€џџџ aS бџџМиџџџg ЮюgXўИџџџюйиџџџ%VТ˜џџџžiўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq (€CommandButton1Р "u€ЅTahoma(€Todayaь Ou€ЅTahoma(€OKhoDOu€ЅTahomaМРдArial ($  џџ }ЌRу ‘ЮуЊKИQDBTahoma€ƒo(ѕ€;@cmdCloseіE$х€8btnTodayі$х€4btnOKday'ЌH{@CМР дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHi0дdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{€dD јџџџАџџџ,иџџџИџџџрџџџРџџџдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{,я€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHiˆдdgg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg6žјџџџйрџџџ1VРиџџџUТАџџџОиџџџМрџџџgў˜џџџžАџџџлMgљ˜џџџ7žАџџџлNg Юџџџџgљ˜џџџ8žАџџџлMgљ˜џџџ6žАџџџлNg Юџџџџgљ˜џџџ5žАџџџлMgžАџџџи Mg{€dD јџџџАџџџ,иџџџИџџџрџџџРџџџHiHix aS бS џџџџџџџџS џџџџџџџџV rиўџџž№џџџл ьШџџџЈџџџъаџџџАџџџ№ўџџиўџџgS џџџџџџџџS03ƒ) € ц Œ+= { ' Initialize with the cu€rrent dŸ№џџџОАўџџтg{€Иd> џџџ˜џџџИўџџАўџџјџџџ№џџџшџџџџ8ШџџџЈџџџаџџџАџџџ№ўџџиўџџ ТиџџџŸиџџџТјџџџОиџџџМрџџџg˜јџџџь&Чdg{gNпZйрџџџ VТиџџџžиџџџйИџџџVТаџџџОrU@@@џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџ8џџџџџџџџ`§џџџџџџџџџџџџџџџџџџџXџџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^џџџџџџџџF@џџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџP@џџџџџџџџ`ќџџџџџџџџџџџџџџџџџџџџџџџџџџџPX! `ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^џџџџџџџџF8Б `§џџџџџџџџџџџџџџџџџџџb`§џџџџџџџџџџџџџџџџџџџb&žјџџџйрџџџVТАџџџМрџџџgїФPџџџg€№Ÿ@џџџпZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџй(џџџ–ьиџџџИџџџърџџџРџџџ(џџџ‡џџџ~gАŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV Тјўџџžјўџџйрўџџ`gиўџџї DНиўџџьиџџџИџџџјўџџърџџџРџџџ(џџџрўџџЧbgŒŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV РјўџџU Т -сqУpўџџ–HџџџVТџџџŸџџџ ОџџџМHџџџgggŸјџџџЅ8џџџzg{ШtP џџџ џџџ0џџџxџџџЈџџџ˜џџџШџџџАџџџрџџџ(џџџ8џџџHџџџ№ўџџЈўџџўџџxўџџHiHiАHi HiЈ aS бS "a  Z  Z ‘ "a  S^HiЈHHџџџьиџџџИџџџјўџџърџџџРџџџ(џџџg Ц~ggŸ@џџџЅџџџg˜Hџџџь&ЧшgLёрўџџё(џџџёРџџџ№ўџџџ IрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{gg&žHџџџйрџџџл МрџџџЧ(gžHџџџиggrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТˆўџџьиџџџИџџџърџџџРџџџ(џџџg,ўџџџ—PџџџqЈўџџžˆўџџиLgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТ€ўџџьиџџџИџџџърџџџРџџџ(џџџgљџџџ3ž€ўџџлJgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТxўџџьиџџџИџџџърџџџРџџџ(џџџg|љџџџžАџџџйрџџџVТиџџџžиџџџкРџџџVТИџџџžИџџџй(џџџЎНxџџџьиџџџИџџџърџџџРџџџ(џџџgqБpџџџg8žАџџџйрџџџVРpўџџŸЈџџџМрџџџЛhўџџTg,žЈџџџйрџџџ–№)?МрџџџЧg.žЈџџџйрџџџЎ‘pџџџ‘ŸˆџџџMМрџџџgŸxџџџЖ@žЈџџџлgg‘pџџџqУБpџџџgюџџџžЈџџџлFgŸЈџџџОhўџџg8žАџџџйрџџџVР`ўџџŸЈџџџМрџџџЛXўџџ g,žЈџџџйрџџџ–№)?МрџџџЧшgJžЈџџџйрџџџGVТиџџџžиџџџйРџџџš`ЗhџџџОиџџџърџџџРџџџgD№ŸhџџџЗџџџ@Ÿрџџџџ–рџџџўРўџџХKМрџџџЧтgяџџџžЈџџџлFgVžЈџџџйрџџџ2VТиџџџžиџџџйРџџџ*‘(џџџ`З`џџџОиџџџърџџџРџџџ(џџџgjўЈўџџ—`џџџL№аŸ`џџџЗџџџ@Ÿрџџџџ–рџџџўРўџџOРџџџO(џџџ`ЗXџџџърџџџРџџџ(џџџgŸXџџџЖ@žxўџџлKgŒпZйрџџџ VТиџџџžиџџџйРџџџVr(џџџ˜€ўџџrРўџџ˜ˆўџџrўџџ˜xўџџr(ўџџžHџџџи 0ОиџџџърџџџРџџџ(џџџgюџџџžЈџџџлFgggŸЈџџџОXўџџŒgqБpџџџg8žАџџџйрџџџVРўџџŸЈџџџМрџџџЛўџџь g,žЈџџџйрџџџ–№)?МрџџџЧž g&‘pџџџ‘Ÿˆџџџ/Ж@žЈџџџлgg‘pџџџqУБpџџџgяџџџžЈџџџлFgŸЈџџџОўџџL gLёрўџџё(џџџёРџџџ№ўџџџIрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{@ шТpўџџhўџџ`ўџџXўџџўџџўџџˆўџџXџџџ€ўџџhџџџˆџџџ иЁGЁЖЂ&Ђ–ЃvЃцЄVЄЧЅ8ЅЉІ’АџџџPџџџxўџџ`џџџЈџџџHџџџјџџџЙJDиўџџиџџџИџџџјўџџрџџџРџџџ(џџџрўџџHidœ HiHi№HiHiАHi HiЈ aS бS rU@@@~xџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџl @ gg^пZйрџџџ VТиџџџžиџџџйРџџџVРИџџџUТјџџџьиџџџИџџџърџџџРџџџg&žјџџџйрџџџVТАџџџМрџџџgїФPџџџg€№Ÿ@џџџпZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџй(џџџ–ьиџџџИџџџърџџџРџџџ(џџџ‡џџџ~gАŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV Тјўџџžјўџџйрўџџ`gиўџџї DНиўџџьиџџџИџџџјўџџърџџџРџџџ(џџџрўџџЧbgŒŸ@џџџЖ@пZйрџџџ VТиџџџžиџџџйРџџџ%V ТИџџџžИџџџк(џџџV РјўџџU ТHџџџьиџџџИџџџјўџџърџџџРџџџ(џџџg Ц~ggŸ@џџџЅџџџg˜Hџџџь&ЧшgLёрўџџё(џџџёРџџџ№ўџџџ IрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{gg&žHџџџйрџџџл МрџџџЧ(gžHџџџиggrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТˆўџџьиџџџИџџџърџџџРџџџ(џџџg,ўџџџ—PџџџqЈўџџžˆўџџиLgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТ€ўџџьиџџџИџџџърџџџРџџџ(џџџgљџџџ3ž€ўџџлJgrпZйрџџџ VТиџџџžиџџџйРџџџ9VТИџџџžИџџџй(џџџIVТxўџџьиџџџИџџџърџџџРџџџ(џџџg|љџџџžАџџџйрџџџVТиџџџžиџџџкРџџџVТИџџџžИџџџй(џџџЎНxџџџьиџџџИџџџърџџџРџџџ(џџџgqБpџџџg8žАџџџйрџџџVРpўџџŸЈџџџМрџџџЛhўџџTg,žЈџџџйрџџџ–№)?МрџџџЧg.žЈџџџйрџџџЎ‘pџџџ‘ŸˆџџџMМрџџџgŸxџџџЖ@žЈџџџлgg‘pџџџqУБpџџџgюџџџžЈџџџлFgŸЈџџџОhўџџg8žАџџџйрџџџVР`ўџџŸЈџџџМрџџџЛXўџџ g,žЈџџџйрџџџ–№Z ‘ "a  S^ўЪг€€€ џџџџ"  ( 8$H$pT˜№€ џџџџ" ј   € џџџџ€ џџџџ"(€ џџџџ€0 8€ џџџџ HPhИР€ џџџџ€Ша€ џџџџ€р`§џџџџџџџџџџџџџџџџџџџqbШ˜˜X8џџџџџџџџџџџџџџџџџџrU€@@@~xHiHiHiЈHS џџџџџџџџџџџџџџџџ(~RunExternalRuleIDW_PRINT_PaperIDW_PRINT_Paper_11x17_allIDW_PRINT_Paper_8x11_allIDW_PRINT_Paper_11x17_sheetIDW_PRINT_Paper_8x11_sheet IDW_PRINT_PDFIDW_PRINT_PDF_11x17_all&io1НGЎu‹ddШЊ-ЧU3жC‰№Ыїн4ŽM Adobe PDF L{3bdd8d79-2179-4b11-8a5a-257b1c0263ac} NRICOH Aficio MP C5502A PCL 6 (Drafting)CreateDrawingExcelTablechange_Layer_ColorяпXŒ пD—ЏMЌ…sKMU}^CMЃ‰Е{QЇПЈыŸЕkB‚оёФЁcœpЋM fЧ•EЄIv%w.ˆв 50383104 05 Lines(BSI) tata 1:05 Lines(BSI)mгЊдбаќKœ:Фq=’ СЎЉЇејЕAЪЈIDW_PRINT_PDF_11x17_SheetIDW_PRINT_Paper_ANSI_C_alldxf_export_from_IDWActiveSheetВYk І"дЗЈ`АёYяБYk І"дЗЈ`АёYя=o!Щ†шuN‰Ћзf_ЁJБЗ‚†Dk№OŒЋ!вv`.*ЌХ9dЕLКEvR–(^`ј]kгЗ”`АёYяFullFileNameDocumentType Category JInventor Document Summary InformationPropertySets Valueџџџџџџџџџџџџџџџџi џџџџџџџџџџџџџџџџ"h idw LC CheckEmbedeд№)СвЗ`АёYяExcelSheetExistsРF<C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXEExcel џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџкРFFlatPatternArea FileExist 0IDW does not exist for: С*eдЙдeMŒ+”-tA dxf:ЪЯUзžJЏшqxшЧcDisplayName .dxfSaveCopyAs zC:\_Vault Working Folder\Designs\Templates\INV-DXF-export.ini L{C24E3AC4-122E-11D5-8E91-0010B541CD80} DThe DXF add-in could not be found. &Export_Acad_IniFileAdd VC:\_Vault Working Folder\Designs\DXF Local\DXF2Document SaveAs done dxf_view_setSelectSet DXF_View_Set dxf_view-set dxf_view_set RuniLogic2RuninternalRuler callup_Form(2RuninternalRuler.€ 2@€ x˜ ЈШ а р( 8@HP€ џџџџ€ џџџџ"X`.xЈА€ џџџџ€ИР€ џџџџ€рш€ џџџџ€ј€ џџџџ€€ €(€0€8€@)?МрџџџЧшgJžЈџџџйрџџџGVТиџџџžиџџџйРџџџš`ЗhџџџОиџџџърџџџРџџџgD№ŸhџџџЗџџџ@Ÿрџџџџ–рџџџўРўџџХKМрџџџЧтgяџџџžЈџџџлFgVžЈџџџйрџџџ2VТиџџџžиџџџйРџџџ*‘(џџџ`З`џџџОиџџџърџџџРџџџ(џџџgjўЈўџџ—`џџџL№аŸ`џџџЗџџџ@Ÿрџџџџ–рџџџўРўџџOРџџџO(џџџ`ЗXџџџърџџџРџџџ(џџџgŸXџџџЖ@žxўџџлKgŒпZйрџџџ VТиџџџžиџџџйРџџџVr(џџџ˜€ўџџrРўџџ˜ˆўџџrўџџ˜xўџџr(ўџџžHџџџи 0ОиџџџърџџџРџџџ(џџџgюџџџžЈџџџлFgggŸЈџџџОXўџџŒgqБpџџџg8žАџџџйрџџџVРўџџŸЈџџџМрџџџЛўџџь g,žЈџџџйрџџџ–№)?МрџџџЧž g&‘pџџџ‘Ÿˆџџџ/Ж@žЈџџџлgg‘pџџџqУБpџџџgяџџџžЈџџџлFgŸЈџџџОўџџL gLёрўџџё(џџџёРџџџ№ўџџџIрџџџŸрџџџџ(ърџџџРџџџ(џџџрўџџg{@ шТpўџџhўџџ`ўџџXўџџўџџўџџˆўџџXџџџ€ўџџhџџџˆџџџ@сzўП€ Р %љ?@’Р`АџџџPџџџxўџџ`џџџЈџџџHџџџјџџџРDиўџџиџџџИџџџјўџџрџџџРџџџ(џџџрўџџHiHi№HiHiАHi HiЈ џџџџџџџџS џџџџџџџџS џџџџџџџџ"a џџџџџџџџ Z  Z ‘ "a џџџџџџџџS^ ^џџџџџџџџX`§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ^џџџџџџџџPXЁ`§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP^џџџџџџџџ81`§џџџџџџџџџџџџџџџџџџџ@ `§џџџџџџџџџџџџџџџџџџџџџџџџџџџbшџџџьШџџџЈџџџъаџџџАџџџg^žшџџџйаџџџ VТШџџџžШџџџйАџџџ3VР џџџŸјџџџОШџџџъаџџџАџџџЛ˜џџџ„gЊpyj€џџџpyjPџџџpyj џџџпZйаџџџ VТШџџџžШџџџйАџџџ9V ТЈџџџžЈџџџк№ўџџIV rиўџџžјџџџл dьШџџџЈџџџъаџџџАџџџ№ўџџиўџџgŸјџџџО˜џџџТg^žшџџџйаџџџ VТШџџџžШџџџйАџџџ3VРИўџџŸ№џџџОШџџџъаџџџАџџџЛАўџџrU@@@џџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџџџџџ8a`§џџџџџџџџџџџџџџџџџџџ8`§џџџџџџџџџџџџџџџџџџџ8`§џџџџџџџџџџџџџџџџџџџ8ё`§џџџџџџџџџџџџџџџ   ўџџџ ўџџџўџџџ !ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџZ[\]ўџџџeџџџџџџџџџџџџџџџџџџџџџџџџўџџџghyџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџz{|}~€иџџџърџџџИџџџgH˜аџџџИиџџџŸиџџџЖ @ўˆџџџžјџџџа˜иџџџUТаџџџОиџџџg{€D аџџџјџџџ&иџџџрџџџИџџџТDgg&юйиџџџ%VТ№џ`ќџџџџџџџџџџџџџџџџџџџ^бb 8ў€g—ФјџџџgNпZйаџџџ VТШџџџžШџџџйАџџџVТшџџџОШџ˜џџџк€џџџV ТаџџџО˜џџџъиџџџ€џџџg˜аџџџь&ЧЎS  Z  Z  Z\,žЈџџџйрџџџ–№)?Мрџџџgwgžаџџџиg$žаџџџйиџџџДИјџџџМиџџџgwgLё џџџёPџџџё€џџџ№ўИџџџ IиџџџŸиџџџџ (ъиџџџ€џџџPџџџ џџџgwјџрDL&јџџџаџџџ№џџџ2˜џџџиџџџ€џџџPџџџ џџџHiHiHiЈHi aS б Z "a "a   S  "a,ўџџ`З џџџъHџџџ№ўџџg—џџџїDЧьg6— џџџŸHџџџ–Hџџџј`џџџХKМHџџџЧ–gŸ џџџ ЦцggJёўџџёЈўџџё№ўџџ№ї—ЈџџџPqHџџџџ(ъHџџџ№ўџџЈўџџўџџggg˜(џџџРЧЦЂgg8ž0џџџйHџџџ -VРџџџь& ОџџџМHџџџЧœgPž0џџџйHџџџ -сqУpўџџ–HџџџVТџџџŸџџџ ОџџџМHџџџg Єв ож ЄVoџџ@–H]ђˆр Check that an assembly is open.]ђ ]ђР 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџЈ dџџ  э 4!B.€kџџˆ р$ Get the name of the file to create.]ђр]ђј ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџА dџџЈ 5˜'†kџџ˜ qџџ р Open the file.]ђ А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šAјр Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –0 р6 Iterate through the occurrences in the current level.]ђи ]ђј џ Јў Ђ“р3 Write information for this occurrence to the file.р_Print #FilePointer, String$(level, ",") & occ.Name & "," & occ.Definition.Document.FullFileName ЈB@ќ Ј!^!@!ž'˜ ˜ ˜Ќ $мЖidw 'њр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šAјdџџ0 њ$ўœ Ј!^!@!ž 4!B@ЖtataA@< Ј!^!@!žA@< 4!BB@BkџџРkџџИџЧАoџџЈ– 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџPkџџH]ђP ЖC:\Temp\Export.csv'а]ђh э 4!B.в]ђˆ э в!H!В.А]ђЈ ]ђШ ]ђр ]ђј ]ђ ]ђ( ]ђ@ ]ђX ]ђp ]ђ ]ђЈ Ќ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'к >!ž' >!Ю'   Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџ8џЧ0 ЄVoџџ–Р ]ђ ]ђА ]ђШ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'к >!Ю'  >!ž'  Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџАџЧЈoџџ –р A@ь B@Ќ  !(€ '  Д{ЎGсz”? bA@„Йџџ0Ќ  !(€oџџ–@ ]ђ€ э 4! .р Get the active project]ђ  э !&."]ђР э !*.( (!,A@<џ "ў (“ЖName: "!A@<џЧXoџџPџџџџHџџџџеЗAttribute VB_Name = "Module1" Dim DB As ConnectHionTrsTRecordset Priva”Sub Form_Load€() SetŒр= New ’0ILDB.Cur€sorLocat–adUseClienm Pro viderБicrosoft.J@et.OLE4.0СB.Open "C:\DeineDЁnba@nk.mdb rsSELECT * FROM ‚BќcherT€abelle,a, ad'Dyn0amic€PkOptimistiТc(End €€“ˆUnl‰Cancel Integ er’DClosže€Џ€~ƒ†% Џ ublic- Workpoint€atmassc€‰дerД У мPoapp1v€oрr.App ‚Ї€N€ПB = ThiFsЬУIf .AveDocum@Type <€> kPartШObj€ˆ A@™ AssemblyqŒ TheР–@%‚MsgBox "Pbp- oz-E muss a@ktiv sw", 16, "FalsAn Fehlere…ExiЮtDg€WIfСVСџТL€СLEШIAЮIŒEŠCРIerOfM;@hСPlЪ= o.ComponDefini О.СЛpert0ies.‰ ХOn Error RьesРgРйxф@55џ‹B!ˆ"ј†s.item("Ё# Of A"`XХO€Fр.Numbt0рKЉ;ЂFixќedрb €ƒпС2‚TfрЦ.р„$ыХЧoE.#+'Чa aт.updр‚ЃќElpУч ТF€Žƒі5†s.AddТ\(oi%у o†.џЅЏ#І*%у%V-aЌ ЎToggleSel`pedIHOWPƒ МDO ccA1'ccurre • 'braucht man nur fќrП nA уЂ#=d.љр(1ф #BBal€ЭќIn$–рТˆ A`9;` Ш?. У€PNoBtтj Is `hˆing1QAsm!џЦ-”у !6тС?< bFlagA Booleaшœ#€ .ЈVisibility.@OriginbDlАanes'o? V!Т hр&?GoЌn.'`. lБO?KuK82)?aюgОO83?@7—Мl4ZView.y>ЏАdVnЧ*” ^op'ƒ•8X8Pzr Re$Struct8ure8гA!stˆr_WqRowБ!`№)ѓS' Check that 7€d’s is oP.cСasmАaЯ+1docr{6А‚5ёEnuўmƒЯ-п06Eб€НЏ}Ё}An  €|t be a5R†.{bѓЙY б8„/ + ф ‰'„ G€Љthe аœe of€e fi.to creУ a(csvFАВ' щбsaр‘iallo‚>‘Dв“C˜all GJ–.C" Ї(7ДQWithЎ WГё.` tУЏ`CSV (P[АYd del Јted)(*. )|bE.c Tit="Specify Рoutputт!ё­onsEna№bled D–€ЊТSuppres"sр‡oluQ‹Warnа,sРTruсКhowSАЕ‹л`$ eВШ"\Z1OЋ›ˆzё )=ў &gU;тР ё…ќ' ’Тё 1 ˜R„4ЛSЙ= FјreeГђ9 Pбь Osp#ИG"A’(top-levџ€Тv2„ #JDQлЧС гйnt y Ыƒ’BP splayR‡€& "," &р8СAD.FullЁ Б!w Read` roXughт F a€wџLb гN%Д в/‚ _P3ДPƒ;пgаgo–‡sљН, xp1Ѓ АQ1в"ш"д Хёlze2 1 0*WHЇ t˜o: Ш Ј^AщюМ ByValў h YВН0d„•р чЃcЗ%, s˜!ћзтEI@@`J`‡yЬin“œt rDAKЗocc As ComponentOccurren ce Fo€r Each  lIn|s€H' Write information  thi"sb to$e file.zPr@int #FPo er, Stg$(level, ",") ‚&J.Name Definis.DocumФ`.FullO, 2 ЈIf•€Qa subassembly eratУ€ƒoover€ ‰fnsa€*€.E…DType = kA„-… Object` Then‡N5CallƒІucture(-SubЭs, Œ + (1, œ)&End IfƒNex8t #‡Pu blic € B€OMSort(‚' Set a prefe…lЦFd›…XC'€0СOss^ s an N СctivХ|Dimќ oBСЭEC!Bb=‚App@+‚•.ўAB…QХvж-@7ƒ_@Т=$.FСШ” СAFirШstLСЄOnŠЮ@Booleaq'AoРMsgBox,("‚ „io ?", vbYesNќo)@„‚@7С‚3Œ@?ru€ЁТElцsHЄN FaТƒ „~!GGMake€Иre™Пat@trƒ—@d viewЁ4e@nabledфZoЉ .SІV€EРTaаDelŒimh"-"0д –4"Ї "сQA џƒЂ6Ї ad8Чт8OЯ :aЄs.@m^(‰ Фec "ooЎ.Ђc"Part NРumber"ФЈRenт(`s1F ѕoTest_PrŽoсƒp‚FLoГџ{@‚_"ЎbЂcŽiƒQ oс.ЊsˆDirЫrivŸ1т‚ExpР‚`'To˜CSV!€[Noa–|is7rfА?Ÿ$Ÿd"Funk"Чnu@­n Baugruppen mіg €h.DIExitЇacœ &sтУs9ing ‡= "C:\Temp\ƒ.csіv@ ƒo@‘–’‚.ŸЯ.o’B8`'$U `Rу™ХRowџ$ dQ м$…0iCouрш@InАtege@;Сs!Wп"EА А[nbт№LineAЉУf™D 3= 1в3 О ‡‚` С‚ .0ѓ‘:я7")Б ”„2O s;€?ont1)–&у;фЗTotalQuantiМty3З`.p7`perty ѕ Design Tr(ack$ $ies№ DЖ@.VaўlAZБPёФt?z"?oa?єF9'АDebup-ё'Д3AД& " x0&ц ‡1inFг дЂ=П–В–","–яŠГTp…17р@endтц6, sƒЄCБbbhil‚d€s Is 0EhЛТUproc€essAllCњ(4,{@ёс-$‘єVе“ Clo|se0І!qyOЯsh(Byа $Ї8,ў „ єР1№ђЃ€%У5QRef H@ћc5p5р фHА3џ`‡4@’Ц1 Ё;Нѓq3= „№ЂQЗ:wY;.b€Ÿ9oџя9я9qEЁ*$*`13 ž.я9X+`я9teа{oЏ3Џ3Љzя9t€‰oыЖ_@(:rooУ.љ:x ф:ВЬ€г:џP4А C#на:ГЯГ:ч(:t ыo:Оg$Ћ!1o:ƒ=(‰П:sБП:@h ‰' E inzel iZe[№сЦejq d ŠiahфngcД’6nт: voll@stфndi p ѕpd0мDAБЈГ0 АInhalt, gespeich`a werdэр‡s !=М hжФEпAgеAп# v>сQБ>F1Av~ a' В zu m "AnS"p‚n‚n іffў Ѓu Т! zGЗeile ans End€fќgen F €= FreeF€ k=Obj8ect€&ƒП| MsgBox "Anhmust fbж‚3."ƒ.E˜xitВ‚ls‚Сс Se‹|YlIfa' GAthe no"fZe fAto€ createˆXјcsvŠТ Р‡‰k‚s‚aHialogX A DBCCallЭNUC‚‡ (sЦ@ŠСС8With GУE.€)terД"CSV (Command delimР”d)(*.Y@,)|‚T.ƒ%Tit@Щ= "Specify ouptput‚?8I OpsEnabledбaЪa.SuppressResolu WarŠn@Гs TruШlР.ShowSР9EaЗA3€‘4eТVР$"ŒŒ?С ‚B !A‰h= џF Ч&@ТР%с+ЧAтЯсAa@(?!4Po. ?IntegerчЃ iЋ‹ т i!ŒіOу,р#h‡B‚"Qtop-leve~lчd$УŠˆ '1пф6ЃЅ—@Zф,` !…A @splayŸ&@ "," &EF8ullAaчReadРroughїТІ‘сNw™Т Ѓџ!JdЂ_ЄЂт€gDЂ—".рWponР•DefiniAH.occurrenceРs, 1, Ш%Љџ@ЄТБЌ6eДЅјletРYA@U УЕУГ$to: #h8” aHSЅО `,v… ПLByVaмl Ј„OЉCѓƒ>'M, у AфPЭh!I@‚athЧ4щЬinB4У*t т D4A˜@TУIaDWGСтF 9`'УЁ[EˆachA In)Ёn' Ђ# inаformЂЫ рћкf! Аl:Ђ1Zcд$(Т,aY)Р,Р О.R е-и%Хl.ы.їQ1бdxK!AфI‚vВ = (Left(Х, Lenж) - 3) + "idwN"`ђ@' Rt y(1€a sub'GУЉovKitџа‚G&єБPЛ ~[чџ|џ|q >6јSubj.’€N=гx EЎ]А q'P`sєt(8)ЏbBŒЅ дs.RY(‹.хJ‡(… хCtata(rьЯ"wХO—I—.2M[щlQљNexАŸабOЋJdxfЯq…`‰QЉаNošoŸwgŸFRЄ=яžюžеFunk!] nur? Baugr0ƒбрЗmіgPІh%ŸW~љЕ aGWКHGGoC:\Temp\РExportБ№=УopЉБMЊ ?AЄ_Є‹ЏaбoB'>а'€ џџџџ(џџџџ (]@ђФ D]@ђФ8 event]@ђh]@ђ]@ђИ]@ђр]@ђ ђ ]@ђ№]@ђ0 ]@ђX ]@ђ€ ]@ђ`ђЈ 2]@ђА]@ђа ]@ђј ]@ђ ]@ђ ђH ]@ђp]@ђp ]@ђ˜ ]@ђР ]@ђрђш ]@ђ0–x Ž!шЗœ !шЗœџџџ |ўЌ z’`џџџџ |Ќ$x'v % ’!шЗœІ  vЌ$n! vЌ$n! vЌ$n!œЗ v$n(xdџџH v$n!xЗœџџџџЗ v$n(xkџџkџџdџџ v$n!xЗœЗ v$n(xkџџиkџџаџЧШdџџРџ |ўЌ z’З |$n(xџЧkџџˆkџџ€oџџx–И Ž!шЗœ ’!шЗœЗЌ$`(xЗЌ$`(xЗЌ$`(xЗЌ$n(xЗЌ$n(xЗЌ$n(xЗЌ$~(xdџџи –!шЗœЌЌ$hЖFalseœЗЌ$`(xkџџЌЌ$hЖFalseœЗЌ$`(xkџџXЌЌ$hЖFalseœЗЌ$`(xkџџ kџџ !шЗœЌЌ$xЖFalseœЗЌ$n(xkџџаЌЌ$xЖFalseœЗЌ$n(xkџџ˜ЌЌ$xЖFalseœЗЌ$n(xkџџ`kџџX ˜!шЗœЌЌ$„ЖFalseœЗЌ$~(xkџџkџџkџџkџџјoџџ№–ј Ž!шЗœ –!шЗœџ lўЌ j’ lЌ$h'f ’!шЗœІ  fЌ$`! fЌ$`! fЌ$`!œЗ f$`(xdџџ  f$`!xЗœЗ f$`(xkџџ№kџџшdџџр f$`!xЗœЗ f$`(xkџџАkџџЈџЧ dџџ˜џ lўЌ j’З l$`(xџЧhkџџ`kџџXoџџP–8 Ž!шЗœ ˜!шЗœџ ˆўЌ †’ ˆЌ$„'‚ ’!шЗœ ‚Ќ$~!œЗ ‚$~(xdџџИ ‚$~!xЗœЗ ‚$~(xkџџˆkџџ€dџџx ‚$~!xЗœЗ ‚$~(xkџџHkџџ@џЧ8dџџ0џ ˆўЌ †’З ˆ$~(xџЧkџџјkџџ№oџџш–x Ž!шЗœ  !шЗœџ ^ўЌ \’ ^Ќ$Z'X ^Ќ$ZЗœЗ X T%T(xkџџXџЧPdџџHџ ^ўЌ \’З ^ T%T(xџЧkџџkџџoџџј–И Є!шЗœЗ'ŠЗ Є(шkџџР Ž!шЗœЗ'ŠЗ Ž(шkџџ  Зœџ дў T“З д(xџЧXkџџP –Зœџ bў `“ ’!шЗœІ  b!Ќ `%T! b!Ќ `%T! b!Ќ `%T!œšІFkџџЈkџџ З b(xЃІˆџЧ€kџџx Зœџ rў n“ ’!шЗœІ  r!Ќ n%T! r!Ќ n%T! r!Ќ n%T!œšЈFkџџаkџџШЗ r(xЃЈАџЧЈkџџ  ˜Зœџ €ў ~“ ’!шЗœ €!Ќ ~%T!œšЊFkџџ@kџџ8З €(xЃЊ џЧkџџoџџ–ј Є!шЗœЗ'ŠЗ Є(шkџџа Ž!шЗœЗ'ŠЗ Ž(шkџџ   Зœџ дў T“З д(xџЧhkџџ` –Зœџ bў `“ ’!шЗœІ  b!Ќ `%T! b!Ќ `%T! b!Ќ `%T!œšЎFkџџИkџџАЗ b(xЃЎ˜џЧkџџˆ Зœџ rў n“ ’!шЗœІ  r!Ќ n%T! r!Ќ n%T! r!Ќ n%T!œšАFkџџрkџџиЗ r(xЃАРџЧИkџџА ˜Зœџ €ў ~“ ’!шЗœ €!Ќ ~%T!œšВFkџџPkџџHЗ €(xЃВ0џЧ(kџџ oџџ–8 ŠЗœЗ'Š|џџ№kџџш Ž!шЗœЗ'ŠЗ Ž(шkџџИ Є!шЗœ]ђxр set the filter]ЮЌђ˜ ЖЌ+ ИЌ+ КЌ+ МЌ+]ђиЃР(э$ %.ОЗ Т(x ФЌœ€Ѓh|џџшkџџр ФЌœ  !шЗœэ О!Ц.дЗ д(xdџџ˜Ж&Sketches not Enabled in above checkbox Т(ШЗ Т(xkџџH ФЌe –!шЗœэ О.b ’!шЗœІ  b!Ќ `%T! b!Ќ `%T! b!Ќ `%T!œЗ b(xdџџˆЖ) Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџ8dџџ0З b(xkџџdџџЖ$Planes not Enabled in above checkbox Т(ШЗ Т(xkџџШ ФЌe !шЗœэ О.r ’!шЗœІ  r!Ќ n%T! r!Ќ n%T! r!Ќ n%T!œЗ r(xdџџ Ж) Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџИ dџџА З r(xkџџ˜ dџџ Ж"Axes not Enabled in above checkbox Т(ШЗ Т(xkџџH ФЌe ˜!шЗœэ О.€ ’!шЗœ €!Ќ ~%T!œЗ €(xdџџа Ж) Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџ€ dџџx З €(xkџџ` dџџX Ж$Points not Enabled in above checkbox Т(ШЗ Тs iPTќ).ФЯ0  =ѓЯ=џџб3Я=Я=Г V€§гкsС Ѓ р5яюќПцZ‡+(+rt_5џ_&ЧПЗMч ~5aД oPoints(iPT).Visible = False qМ E2ZžTruœnd IfjESkipO@rigPt: $Next' New Selec0tion’Diˆm o As‚8cls‡ƒ' set the Рfilter‡"FList(3)#ƒ4FEnu&m0)€ЄkSketchDefАault 1WorkPlan e2Axisу“M= k$ы ё‚„Obj@H0C# unHideАMore[SРE oФ=ХS.Pic$k(C;)) lb lInfo”If€ tglUnh€ACR.Valu†ž TheˆpqExiрt SubG…ˆAGСУTypA4PРbTogglingХЙŒ GoTo FinishќUp ПNЧ(Х&O/пAM0ЭЧ(xkџџ kџџ šРFdџџј kџџ№ эА.oџџр –№ ŠЗœšЬFkџџИ Є!шЗœЗ'ŠЗ Є(шkџџˆ Ž!шЗœ T!,'\Ќ \ЌЌсZPџ ^ўЌ \’ ^$T! ^Ќ+Z ^$T!x ^Ќ+Z  !шЗœ ^$T!xЗœЗ ^$T(xdџџА З ^$T(xkџџ˜ dџџ З ^$T(xkџџx џЧp `!,'jЌ jЌЌсhxџ lўЌ j’ l$`! lЌ+h l$`!x lЌ+h –!шЗœ ’!шЗœІ  l$`!Ќ `%T! l$`!Ќ `%T! l$`!Ќ `%T!œЗ l$`(xšЮFkџџ0kџџ( l$`!xЗœЗ l$`(xdџџјЗ l$`(xkџџрkџџиЃЮаџЧШ n!,'zЌ zЌЌсx џ |ўЌ z’ |$n! |Ќ+x |$n!x |Ќ+x !шЗœ ’!шЗœІ  |$n!Ќ n%T! |$n!Ќ n%T! |$n!Ќ n%T!œЗ |$n(xšаFkџџˆkџџ€ |$n!xЗœЗ |$n(xdџџPЗ |$n(xkџџ8kџџ0Ѓа(џЧ  ~!,'†Ќ †ЌЌс„Шџ ˆўЌ †’ ˆ$~! ˆЌ+„ ˆ$~!x ˆЌ+„ ˜!шЗœ ’!шЗœ ˆ$~!Ќ$~!œЗ ˆ$~(xšвFkџџ8kџџ0 ˆ$~!xЗœЗ ˆ$~(xdџџЗ ˆ$~(xkџџшkџџрЃвиџЧар New Selection]ђар set the filter]ЮЌђ№ ЖЌ+ ИЌ+ КЌ+ МЌ+]ђ0Ѓд8э$ %.ОЗ Т(x Ž!шЗœ|џџјkџџ№ ФЌœ ŠЗœšЬFdџџРЗ'Š|џџАkџџЈkџџ  ФЌœэ О!Ц.дџ ^ўЌ \’ ^Ќ$Z д!œЗ ^Ќ+ZЗ д(xyџџ kџџџЧ ФЌe –!шЗœэ О.b ’!шЗœІ  b!Ќ `%T! b!Ќ `%T! b!Ќ `%T!œџ lўЌ j’ lЌ$h b!œЗ lЌ+hЗ b(xyџџkџџџЧјdџџ№Ж(Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџ dџџ˜џ lўЌ j’ lЌ$h b!œЗ lЌ+hЗ b(xyџџ8kџџ0џЧ(kџџ Э60а6‚hƒ›€6k.ParenDЪE#сFor HiSK 1 iЙesoЁрv%R(Р, Ђ[oc.№Name0!eЬџb^з‚Ё… п’d ‚,рџS+„‚‰!!<-Ї$ЮQ`chуusfWџсд ‚3Т{g3яЃ смinп $€o" У0<> Уs.it em(1)у_г"ЖA­й2пй3ФЯzЄТ‚QPL†QТЗTQхРvу зLRџ"[ХjПRХd,џц›TЅ•UхЇп%хS”Ѕ•YCapCQr"Ign_ !D' Ena0€d in above Checkboќx"џ#]—:Ÿ=ЕŸ џ“ Я!@rЯ!хр„ў !9*!Ж„O! џ=пJјЯ ЭяO БO›3Я "Ё5 not c љs • 0€FПŸžїч%Ё а=Ъ|2Uџ0XсXЯ*XС@/џФqO` X ‰_#Е @oRbpёWAxeџпWЇ—вWП“[ЏW*ПPuWКdџџЖ$Planes not Enabled in above checkbox Т(ШЗ Т(xkџџа ФЌe !шЗœэ О.r ’!шЗœІ  r!Ќ n%T! r!Ќ n%T! r!Ќ n%T!œџ |ўЌ z’ |Ќ$x r!œЗ |Ќ+xЗ r(xyџџШkџџРџЧИdџџАЖ(Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџ`dџџXџ |ўЌ z’ |Ќ$x r!œЗ |Ќ+xЗ r(xyџџјkџџ№џЧшkџџрdџџиЖ"Axis not Enabled in above checkbox Т(ШЗ Т(xkџџ ФЌe ˜!шЗœэ О.€ ˜!шЗœ €!Ќ ~%T!œџ ˆўЌ †’ ˆЌ$„ €!œЗ ˆЌ+„З €(xyџџаkџџШџЧРdџџИЖ(Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџhdџџ`џ ˆўЌ †’ ˆЌ$„ €!œЗ ˆЌ+„З €(xyџџkџџјџЧ№kџџшdџџрЖ$Points not Enabled in above checkbox Т(ШЗ Т(xkџџ˜kџџšдFkџџ€ЃЬx  !шЗœџ ^ўЌ \’ ^Ќ$Z'X ^Ќ$Z X T%T(xџЧkџџ –!шЗœџ lўЌ j’ lЌ$h'f lЌ$h f `%T(xџЧ kџџ˜ !шЗœџ |ўЌ z’ |Ќ$x'v |Ќ$x v n%T(xџЧ0kџџ( ˜!шЗœџ ˆўЌ †’ ˆЌ$„'‚ ˆЌ$„ ‚ ~%T(xџЧРkџџИэА.oџџЈ–Hэ 4!B!H!и.Tэ 4!B!H!v.`э 4!B!H!p.nэ 4!B!H!R.~З'Šoџџ0–ˆ Є!шЗœЗ Є(шkџџ Ž!шЗœЗ Ž(шkџџиЖKWiK Inventor VisiblityЖSettingsЖ SketchCheck  !шA@оЖKWiK Inventor VisiblityЖSettingsЖ OriginCheck ’!шA@оЖKWiK Inventor VisiblityЖSettingsЖ PlaneCheck –!шA@оЖKWiK Inventor VisiblityЖSettingsЖ AxisCheck !шA@оЖKWiK Inventor VisiblityЖSettingsЖ PointCheck ˜!шA@оЖKWiK Inventor VisiblityЖSettingsЖYLoc џџ!рA@оЖKWiK Inventor VisiblityЖSettingsЖXLoc џџ!мA@оoџџшџџџџрџџџџРДAttribute VB_Name = "frmVisible"D „Bas„0{6138E0CA-66F4-498C-B347-9746B0C40018}{CDA8860E-89F3-4C7@3A9-5EBE7C9E2B08} dGlobaBlŒSpacoFalse ŠCre8ataЃБPr@edecla'CenterOwner TypeInfoVer = 277 End cbMaterialmbыbedded ObjectForms.Frame.1є9Вq$е€N0FР€€€€€ў{0inNormally5€ДTahoma0FР€€€€€ў{0rmPurchase5€ДTahoma0FР€€€€€ў{0rcPhantomy5€ДTahoma4FР€€ўџ џџџџ№i*ЦмЮž˜ЊWJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.1є9Вq€h1TcI"d#Tru BEx0pose TemplateDeriv–Customiz‹D P WithEvents oI€nteract„ˆAs …ion rŒ.€аVarH elpIDh-1с“2Sele‰1‰ /  oSk€etches @-РPlanarE [sУ SРnЪg‡v…():PiantЧiХ,0 iSKСNgerJ)A&У(Work{CЧoСFswŽ&Bs&C€%PrL•%Ax%Сˆ$AќxiТTA$С$…Ю#OU#СР"AXе"PќoiЃ€qAЂшТџaІ(†O$тV$ЂA$TдbTogglingсBoolean);Sub chkЁ_Cl ick()С If tglUnhideCZ.Va luс†a~ The@ !a фЙ!For iр(= 1˜ To@ 5 !­isA qvс(р8, 0@ЭУOrрigins=…€…Х oСF(1).bДF_яaOr ы2їџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€~€€€~џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР~џџџШагџџџ™™™™™™™™™™™™™™€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~џџџШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomal€H€,Ђ5€сTahomal( €Part Numberg {З€@№МTahomal€H€,ЮC5€сTahomal( €Descriptiong {З€@№МTahomal€H€,Ђ5€сTahomal( €Stock Numberg {З€@№МTahomal(€Projectg {З€@№МTahomat€H€,Ђ5€сTahomat(€DesigntžЇЗ€@УМTahomat(€ApprovedžЇЗ€@УМTahomaed(€NamežЇЗ€@УМTahomaed(€DatežЇЗ€@УМTahomaed(€MaterialР {З€@№МTahomaalA€H€,№N5€ДTahomage0FР€€€€€т{0sePaintne5€ДTahoma4FР€€€€ €т{0inSpare Parte.5€ДTahoma€H€,Ђ5€сTahomaal(€Vendoral{З€@№МTahomaal$  ~џџ}[x3Rу ‘ЮуЊKИQ_Tahoma@ž€(х €@ cmdCancelme.Р Ђ$х€@ cmdApplyдЂ,х €4txtDesignName ^,х€ 4txtApprovedName ',х €4txtDesignDateme˜^,х€4txtApprovedDate˜'(х €К Фу 3фK&Ххѓc" ).Х dЈ­§сEТЗ1aРY 8БдCОaEndј If3)uŸЉPm,NexЯЉO.iso# ?.?J1мј5 ї‘=>k2?>?>?>%А0>Я60AŸ-CasџБ5П,pu05ў(А4y=_^?џћГ\т[ŸЁ•%п!УCnKQ№vг(1, 1)Aк"ЂA"e1ca‘ 0NextvdFo r iPLМ1 ќTo‚Ы…S€ŽжOK LˆTХ' ASub Pr@ivate € chkPoints_Click()m€YtglUnhideSelect.ValuџС‹A{Œ‹@ Fй AУ?nTЧ?ТЯ?s&€ vC((iPT, 0@(AЩCOrigxins FoD1).NameџмТE ƒмf…ДA#џ\м$7џsџs! gџз_п+R•CЩ+зѓх\‹ ёџsсsџSХ-РR|@џsљsSkeјtchџs_€2рs# 3dтsSKцsЃes0tCAt…(iSKe–tvЋ1) Яoe.item(sџУПB??OX?хKЌ€_@ˆТСЧ)Ii—BmDdH`YAll_! P[С?[mMbTogрglingP›5/џf‚S Y  %№bTЬ>џO%Oгf"kг9-ЯaёEach Бф InЅя, Ѕџ‘гёw< БoR|§{PQb’<5 lПPwп™S‚ck=Ež;Г2еl_ A1OrЗЄ@62dp ;ƒ 3џstGoЁ Skipb:Ÿ ™Е?РПП  ‘гAxisŸ_ёз#2Б#Ax}#ПC//!0oёџ†1џдea_QџЯЖ_№ ŸO–џqЏu@€r мЦќ qœoqšџ‡Rу5LЅSџРУ}з1тk/9ћС.tLЭЯё‘-СŸ-’-IџceОmјdUn?c’фаАW?cў Aaя[?cb /?cVрџ#?cџБ?c@@џO@?c`ЯA€vЯџЧ$“†в$Ѓ?cРЃиЋt?gLЯG 8-)c?Д@nes If chkOrigins.Val€ue = TrpThen Ам`oPlane.NamVs.itePm(1),_pOдr p25838­БGoTo Sk$ipЖH:MEn№d If‹ ‘ &„a@Visibl…• Т ’/Nextƒ*‰&!ЙAxis“ДFor Each oy‚InТл'†mAќxe#mT \lT ЈkA;yk‚O.jMйiPoиint^jB jУ џЫ’C|-йFkƒ йЁМntzPЂR(P (  A^Sub Private Р tglHideSelect_Click()k%bTogg0ling“cЩFalse'-Exit?A #%nЃ UnўhFymc•H'йDim o# As New0 clsC' set the РfilteraFList(3)CЃionFE˜num‡0)@,kSketchDРefaultƒ ‚1WorkPП=“2†Ёks@= >k [‰gЂ ObžjРC#Ч )АMoreЙЧSр#ЪoЄ=Ѕ).PЁLЃ)€M!9alblIxnfo\LJРF)TфypaН4 knKNA пЅ?aa'm 0l Ёџ` ёC29EaaЂУ`9ф.ParenїЯ%сo ЖkьAE:51•Capt@%Р"Уes €not Enaаpd in above@…eckboќx"НYѕqmя1—1 э1я0}СїB+ПП ттзџ Cп\/“Q 4@й<о>Ф/xHІAŠяџ@˜фПxZялOyъџФgп#f_$І€Aп$" Ign0= ѓd%Ch%9h%ПŒр&3 s ЯПBѕuŸ _бэo"Г*/5o/5ѕ™чŸW /5byдNў2/5$5!^џIЏ25Сџџ4‡ џ4eЕџVё4RџRШс4џЌOШтв0ПГ•џŸ4&ПPІuДo4КџФmЉ_4Vo#І€я#џ_4mY_4ВeП$ЎџP:гQ ЕпџfАяЯ*O4#_"‘ /4/4џToA№+-] a€(§*‚3O+uh1hhthџс3G Р‚hh7JД If oPoint.Name <>ps.item(1)\The0n ‚Visible =  False^E2\lblInfo.CaptionJ" Ignore Origin s Enadd in above Checkbox" VЁTruy nd€Š%\%E,“*ƒвs nozt€c—€Ё|Э%ЩGoTo HidezMР`:CEЧ,I УSet oSelectoNothi@ng  SubPrivate € tglUnhРУ _Clрick() Сƒ€ЇРbToggl@Р Am ЫЂ(Fini№shUp(Zƒ%Р@С1У.ValuџAЊP CA#“ЛХCˆ/Р 8iSkTet@tsР;oХ. Count Re Dim v…(1F €iF, 0С1€Q-СFor iќSKР‹ G Ё `u )i(`Уš1фnы`2chkCџљ1aрц!cЫy CџХсі•Гr: IыџСBae“ _g­ NexhCЋiPlјane‚I#MIС ФI?„IƒPIТIPLЦIƒяv(iPўLХI'‘I ŠУI‰П’IсJCJ! спџ€PdЫŸƒЁЁQЉТчn= чТ-Ћч_# O~rEa$#"nЄ‚№2яФп=з3Ф{љ ~o‰ G6Я2U vвXSјkipR$YžџЯ1WПЗ­ п\Wџ”П ‹Kџ:љџђя@EŸ “uп•  ‹>q›%iAxi!Ђ>Axes> „>ad>ЁO>"B>A.XF>ЁŸ,va(iќAX>Бёу&џУ=”? `:‘?:џпб =P0тD§€o+ ё8O=yИџA=/'=Ž/[Я<џ.Ш ‡2Џ<юЊ<‘џŸ<6?-чПЗЛч џ<7”o o v_<џІ€па?<%? “пu5 Уs.it em(1)у_г"ЖA­й2пй3ФЯzЄТ‚QPL†QТЗTQхРvу зLRџ"[ХjПRХd,џц›TЅ•UхЇп%хS”Ѕ•YCapCQr"Ign_ !D' Ena0€d in above Checkboќx"џ#]—:Ÿ=ЕŸ џ“ Я!@rЯ!хр„ў !9*!Ж„O! џ=пJјЯ ЭяO БO›3Я "Ё5 not c љs • 0€FПŸžїч%Ё а=Ъ|2Uџ0XсXЯ*XС@/џФqO` X ‰_#Е @oRbpёWAxeџпWЇ—вWП“[ЏW*ПPuWКФЂ5A~XC€‘O™АvсQ(iAX5Wё/WџYЛWo#я5џ/6Я)=Џ6џKЙ/6џVџVџV9я6ќ= яIя@“ =O!iпVХвV!isџ!&ŠЯ Џт› /щ§ O аNш5ЯП‘`$Ÿ O "џ_Vсv_VС2u_V&  =Д ElseIf SelectType = 3 TРhen ŒchkPoint@s.Valu TrVlSet †o\ oObjМ ЂJ-Њ3X.Na me <>gs.€item(1)–@For i„PT›1 To_lP…Vv€(с, 0)m‚!9ћ%Š!1!Ѓ=z@VisiblОFa€нŸExit €w›End IfсзNextSAз lblInfo.€Caption@L"Ignore Origins EnaР3d in above Checkbox"_CзPU6з--‡?† џ1…1„ƒA“@1“+AЁj notAcAO% @эщGo ~u@nHideM€Q:CM) FinipshUp„ <  S`ketch9 ЂGSK ]C‹#es -ыYsрvE(iьSKсŠ oХœфЬ).g 1)G6ƒ‰cPlaneКЙн#aLf#Ыs‚СћЃ€ЃLƒD‚*УcџуAxiПќAXІсlAAс(iAXAx`$§BЫsЁЊЧd.>ш{c.[гsТfуgр&Tџq.ƒ ƒ"k.ТГџ 1g9#ёгВ}ƒ NРothingс-сSubЁPrivate р UserP m_Initialize(' *ЩR5esрThisApplicac.ActiveDocument.ComponёDef№9"ѕ1у$яяяWorkџѓQ яяясбџй ‚яяяв ђSbToggl`3@x /+QueryClose(Cancel As Integer, ‚ModŽeX–-tgl!TџГ OQГ #Œq ѕ‡БƒUnhаYЏeмЉ ЏkЩ3 Sav e`,t"KWi:K0vP%`ЁcUit y", "4sВџB*в‰рМ`oop›oў"sh„‘у_с ",h#-_tOrђ OngBOHсџ//2"‚I‰ в-___WYLoc`Me.Top___QXfLefАX5Ќ n%T! r!Ќ n%T!œџ |ўЌ z’ |Ќ$x r!œЗ |Ќ+xЗ r(xyџџШkџџРџЧИdџџАЖ(Ignore Origins Enabled in above Checkbox Т(ШЗ Т(xkџџ`dџџXџ |ўЌ z’ |Ќ$x r!œФЂ5A~XC€‘O™АvсQ(iAX5Wё/WџYЛWo#я5џ/6Я)=Џ6џKЙ/6џVџVџV9я6ќ= яIя@“ =O!iпVХвV!isџ!&ŠЯ Џт› /щ§ O аNш5ЯП‘`$Ÿ O "џ_Vсv_VС2u_V&  =Д ElseIf SelectType = 3 TРhen ŒchkPoint@s.Valu TrVlSet †o\ oObjМ ЂJ-Њ3X.Na me <>gs.€item(1)–@For i„PT›1 To_lP…Vv€(с, 0)m‚!9ћ%Š!1!Ѓ=z@VisiblОFa€нŸExit €w›End IfсзNextSAз lblInfo.€Caption@L"Ignore Origins EnaР3d in above Checkbox"_CзPU6з--‡?† џ1…1„ƒA“@1“+AЁj notAcAO% @эщGo ~u@nHideM€Q:CM) FinipshUp„ <  S`ketch9 ЂGSK ]C‹#es -ыYsрvE(iьSKсŠ oХœфЬ).g 1)G6ƒ‰cPlaneКЙн#aLf#Ыs‚СћЃ€ЃLƒD‚*УcџуAxiПќAXІсlAAс(iAXAx`$§BЫsЁЊЧd.>ш{c.[гsТfуgр&Tџq.ƒ ƒ"k.ТГџ 1g9#ёгВ}ƒ NРothingс-сSubЁPrivate р UserP m_Initialize(' *ЩR5esрThisApplicac.ActiveDocument.ComponёDef№9"ѕ1у$яяяWorkџѓQ яяясбџй ‚яяяв ђSbToggl`3@x /+QueryClose(Cancel As Integer, ‚ModŽeX–-tgl!TџГ OQГ #Œq ѕ‡БƒUnhаYЏeмЉ ЏkЩ3 Sav e`,t"KWi:K0vP%`ЁcUit y", "4sВџB*в‰рМ`oop›oў"sh„‘у_с ",h#-_tOrђ OngBOHсџ//2"‚I‰ в-___WYLoc`Me.Top___QXfLefАX5џџџ€ DH€B… ˜€  И€ џџџџ€ *Р№€ џџџџ€ B P€ џџџџ€ ,`€ џџџџ€  €РШ€ 0р(€ џџџџ€ (0 X€ џџџџ€ &h№,дxџџџџ;з–4­hџџ€ЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ,џџџџџџ џџ $(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ<џџ&<џџ*<џџ<џџ<<џџH<џџF<N<џџP<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`( %"€%8џџџџџџџџџџџџџџџџџџџџџџ%"€)џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџ џџ,XџџџџџџџџџџџџџџџџИ џџџџџџ00М)ƒŽџџџџџџџџ№€џџџџ„ и% iƒўџџџџџџџџџ џџџџџџ (`„4џџџџџџџџџџџџџџ „:џџџџџџџџP%% @˜џџџџџџџџџџџџџџ№,дxџџџџ;з–4­hџџ€ЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ,џџџџџџ џџ $(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SџџџџS џџџџS”џџџџ<џџ&<џџ*<џџ<џџ<<џџH<џџF<N<џџP<0џџ<4џџ<8џџ<<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`( %"€%8џџџџџџџџџџџџџџџџџџџџџџ%"€)џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџ џџ,XџџџџџџџџџџџџџџџџИ џџџџџџ00М)ƒŽџџџџџџџџ№€џџџџ„ и% iƒўџџџџџџџџџ џџџџџџ (`„4џџџџџџџџџџџџџџ „:џџџџџџџџP%% @˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ ” Bџџџџџџџџџџџџџџџџџџџџиџџџџџџџџ”)ƒDџџџџџџџџј„%)ƒFџџџџџџџџ („%)ƒJџџџџџџџџHP„ %)ƒLџџџџџџџџpx„$%)ƒPџџџџџџџџ˜џџџџ„(%€ўџџџџџџџШџџ џџџџџџџџ%b€,џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџаџџџџ˜8џџџџxXџџџџиxџџџџа џџџџ˜џџџџа 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ј‚\TпўЪF€€ џџџџ€ € (€ 8€ џџџџ€ DH€B… ˜€  И€ џџџџ€ *Р№€ џџџџ€ B P€ џџџџ€ ,`€ џџџџ€  €РШ€ 0р(€ џџџџ€ (0 X€ џџџџ€ &h˜ Ј€ DА€ 4ј€08$H pˆ ˜€ џџџџ€ *  а€ џџџџ€ р€№ј€ џџџџ€ џџџџ"€ ,H€ PP Ј€ џџџџА€ џџџџ" И€ ,Р№ј€ џџџџџџџџЭџџxр Declare the event objects]@ђФ value]@ђФ8o falsр> Declare a flag that's used to determine when selection stops.]@ђа–xр Initialize flag.З',р$ Create an InteractionEvents object.dэ 4!.!0.$јр< Define that we want select events rather than mouse events.З $(2р& Set a reference to the select events.э $!*.(рGet all the Filters]ђ џ 4ўЌ$Ž‘’р* Set the filter using the value passed in. 4$Ž (B@6џЧар" The the InteractionEvents object. $B@р Loop until a selection is made. ,bA@„ЙџџXЩ8Pр= Get the selected item. If more than one thing was selected,р- just get the first item and ignore the rest.]ђ8э (!>.:І :А :!,Ќ œэЌ :%T.dџџpэА.kџџ`р# Stop the InteractionEvents object. $B@Xр Clean up.Ѓ8эА.(эА.$iџџ№–Xр% Set the flag to indicate we're done.З',рIIf the users quits with an Escape, clean up to prevent crashing Inventor.эА.(эА.$oџџH–˜р% Set the flag to indicate we're done.З',oџџџџџџјџџџџ<ЕAttribute VB_Name = "clsSelect" " €Bas€0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalЪSpa‚c’False dCreatablPredecl2aIdЎCExposeTemplateDeriv–Customiz EOption 0licit ' DƒG the ev€ent obj€Ÿ0s P15 WithE s oInteractё„As …- ‰‰Œ.€дVarHelpID€-1“џџџџџџџџџџџџџџ ” Bџџџџџџџџџџџџџџџџџџџџиџџџџџџџџ”)ƒDџџџџџџџџј„%)ƒFџџџџџџџџ („%)ƒJџџџџџџџџHP„ %)ƒLџџџџџџџџpx„$%)ƒPџџџџџџџџ˜џџџџ„(%€ўџџџџџџџШџџ џџџџџџџџ%b€,џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџаџџџџ˜8џџџџxXџџџџиxџџџџа џџџџ˜џџџџа 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ј‚\TпўЪF€€ џџџџ€ € (€ 8€ џџџџ€ DH€B… ˜€  И€ џџџџ€ *Р№€ џџџџ€ B P€ џџџџ€ ,`€ џџџџ€  €РШ€ 0р(€ џџџџ€ (0 X€ џџџџ€ &h˜ Ј€ DА€ 4ј€08$H pˆ ˜€ џџџџ€ *  а€ џџџџ€ р€№ј€ џџџџ€ џџџџ"€ ,H€ PP Ј€ џџџџА€ џџџџ" И€ ,Р№ј€ џџџџџџџџЭџџxр Declare the event objects]@ђФ value]@ђФ8o falsр> Declare a flag that's used to determine when selection stops.]@ђа–xр Initialize flag.З',р$ Create an InteractionEvents object.dэ 4!.!0.$јр< Define that we want select events rather than mouse events.З $(2р& Set a reference to the select events.э $!*.(рGet all the Filters]ђ џ 4ўЌ$Ž‘’р* Set the filter using the value passed in. 4$Ž (B@6џЧар" The the InteractionEvents object. $B@р Loop until a selection is made. ,bA@„ЙџџXЩ8Pр= Get the selected item. If more than one thing was selected,р- just get the first item and ignore the rest.]ђ8э (!>.:І :А :!,Ќ œэЌ :%T.dџџpэА.kџџ`р# Stop the InteractionEvents object. $B@Xр Clean up.Ѓ8эА.(эА.$iџџ№–Xр% Set the flag to indicate we're done.З',рIIf the users quits with an Escape, clean up to prevent crashing Inventor.эА.(эА.$oџџH–˜р% Set the flag to indicate we're done.З',oџџџџџџјџџџџ<ЕAttribute VB_Name = "clsSelect" " €Bas€0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalЪSpa‚c’False dCreatablPredecl2aIdЎCExposeTemplateDeriv–Customiz EOption 0licit ' DƒG the ev€ent obj€Ÿ0s P15 WithE s oInteractё„As …- ‰‰Œ.€дVarHelpID€-1“2с‡1‰ / I8a flag:at's uСXto de4mine Рwhen sI@Pps.Ч'bStilling €>Boolean Рub€T Func‚XPick(fdil€()A „ o„nFEnumТЂOТZ '€Ritialize‚*С = Tru@žСEže aЮncФsSex qhisAppР0aС/.CommandManager.Cz‰ DefAQthat w@Sa€’CSУ•s ra…™r`n mo`Џ„&ЭŠЦLAUvдУ=Х<2a ref№eren@r€9XjзЉу „J=MY.ЩC E G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To @UBoundFA)ѓC' суDRЁJvalue ШpasATindТo‰.AddуРU dNa NexЧР|!' TР|a GŽ9ЫDn1tar, LРoop un€bРƒ.Сfis made„Do WhiчрЁŒXч Do#2# H O€”rrр(GBo`(endoЃ' a1Су рŸite@m. If JrJecKo€ythЁ)wDas$zed,ej€Ѓ g€: first Ё€gd i(gnoТeKstЅ=D/edEnt6s>CwsAy Ђtoўrу Ё:k@MЪ6ƒ ЭР}e„I No`sЈ`Ћs €BAnd| _C (AУрu1 ў>aN€˜Ї!с‘Р­Ѕъ.(1HREк_aehфg EIюfуЃ@Zt`BС*пKe@ЃaХШ.Sр+ CБЋ up 0с?:Ѓџс„цxŠ Х/1 GEZсoз]SubA_OnTermin0p(dX;Вdo indicQrwe'§#dР'T#,/№ф~б'№PPrs q4ui@%wpv!\Es€cape, c4 MprУycra’sђ InyorФнŸ=Ѕ#ЈŸo‚2БџБPЁ…B)Г у(ByVal >J 4ч,П1А1, ‡УpBDevi0[@t,ё4еModeplPos`2p‹АPointеV2с‡1‰ / I8a flag:at's uСXto de4mine Рwhen sI@Pps.Ч'bStilling €>Boolean Рub€T Func‚XPick(fdil€()A „ o„nFEnumТЂOТZ '€Ritialize‚*С = Tru@žСEže aЮncФsSex qhisAppР0aС/.CommandManager.Cz‰ DefAQthat w@Sa€’CSУ•s ra…™r`n mo`Џ„&ЭŠЦLAUvдУ=Х<2a ref№eren@r€9XjзЉу „J=MY.ЩC E G@&allрe У7`c!Dim aЁ;!#р$уFor = 0 To @UBoundFA)ѓC' суDRЁJvalue ШpasATindТo‰.AddуРU dNa NexЧР|!' TР|a GŽ9ЫDn1tar, LРoop un€bРƒ.Сfis made„Do WhiчрЁŒXч Do#2# H O€”rrр(GBo`(endoЃ' a1Су рŸite@m. If JrJecKo€ythЁ)wDas$zed,ej€Ѓ g€: first Ё€gd i(gnoТeKstЅ=D/edEnt6s>CwsAy Ђtoўrу Ё:k@MЪ6ƒ ЭР}e„I No`sЈ`Ћs €BAnd| _C (AУрu1 ў>aN€˜Ї!с‘Р­Ѕъ.(1HREк_aehфg EIюfуЃ@Zt`BС*пKe@ЃaХШ.Sр+ CБЋ up 0с?:Ѓџс„цxŠ Х/1 GEZсoз]SubA_OnTermin0p(dX;Вdo indicQrwe'§#dР'T#,/№ф~б'№PPrs q4ui@%wpv!\Es€cape, c4 MprУycra’sђ InyorФнŸ=Ѕ#ЈŸo‚2БџБPЁ…B)Г у(ByVal >J 4ч,П1А1, ‡УpBDevi0[@t,ё4еModeplPos`2p‹АPointеVieђwЮ2dщБaпgппъ~= дx <>ps.item(1)\The0n ‚Visible =  False^E2\lblInfo.CaptionJ" Ignore Origin s Enadd in above Checkbox" VЁTruy nd€Š%\%E,“*ƒвs nozt€c—€Ё|Э%ЩGoTo HidezMР`:CEЧ,I УSet oSelectoNothi@ng  SubPrivate € tglUnhРУ _Clрick() Сƒ€ЇРbToggl@Р Am ЫЂ(Fini№shUp(Zƒ%Р@С1У.ValuџAЊP CA#“ЛХCˆ/Р 8iSkTet@tsР;oХ. Count Re Dim v…(1F €iF, 0С1€Q-СFor iќSKР‹ G Ё `u )i(`Уš1фnы`2chkCџљ1aрц!cЫy CџХсі•Гr: IыџСB№<дрџџџџH–4*™џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ <џџ<<џџ<h<џџ<џџ<џџџџџџn(аАџџџџџџџџxpieђwЮ2dщБaпgппъ~= дxџџџџ"И€ џџџџ Р€ џџџџа€ џџџџ€ џџџџ" и€ џџџџ€ р€ј€ € (€ 68€px€ џџџџ€ .ˆ€И.Ш€ џџџџ€ ј€€ џџџџ*(€ 2X € 8  иш №ј € & 0€ LH ˜€ 0 №џџџџџџџџџџџџ pџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ №џџџџџџџџџџџџџџџџ№џџџџџџџџ<<„iƒџџџџџџџџ џџџџџџ€ Єџџџџџџџџ(% „>џџџџџџџџH% „ џџџџџџџџh% „џџџџџџџџ џџџџˆ % „џџџџџџџџШ% „џџџџџџџџш% џџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ„)ƒ џџџџџџџџPџџџџ„% „"џџџџџџџџp%т€ќ џџџџ џџџџџџџџџџџџџџт€ўџџџџџџџџџџџџџџџџџџџџџџџџџџ00џџџџxџџџџџџџџџџџџ№џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‚\TпўЪ`€ l€ p€ џџџџ€€€ џџџџ€ˆ€"˜€ џџџџ  € џџџџА€ џџџџ"И€ џџџџ Р€ џџџџа€ џџџџ€ џџџџ" и€ џџџџ€ р€ј€ € (€ 68€px€ џџџџ€ .ˆ€И.Ш€ џџџџ€ ј€€ џџџџ*(€ 2X € 8  иш №ј € & 0€ LH ˜€ №<дрџџџџH–4*™џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ <џџ<<џџ<h<џџ<џџ<џџџџџџn(аАџџџџџџџџxp0 №џџџџџџџџџџџџ pџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ №џџџџџџџџџџџџџџџџ№џџџџџџџџ<<„iƒџџџџџџџџ џџџџџџ€ Єџџџџџџџџ(% „>џџџџџџџџH% „ џџџџџџџџh% „џџџџџџџџ џџџџˆ % „џџџџџџџџШ% „џџџџџџџџш% џџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ„)ƒ џџџџџџџџPџџџџ„% „"џџџџџџџџp%т€ќ џџџџ џџџџџџџџџџџџџџт€ўџџџџџџџџџџџџџџџџџџџџџџџџџџ00џџџџxџџџџџџџџџџџџ№џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‚\TпўЪ`€ l€ p€ џџџџ€€€ џџџџ€ˆ€"˜€ џџџџ  € џџџџА€ џџџџ"И€ џџџџ Р€ џџџџа€ џџџџ€ џџџџ" и€ џџџџ€ р€ј€ € (€ 68€px€ џџџџ€ .ˆ€И.Ш€ џџџџ€ ј€€ џџџџ*(€ 2X € 8  иш №ј € & 0€ LH ˜€ џџџџАШ р№ј€ 48€ џџџџ€@H` xˆ ЈИРШ€ џџџџ€аи,р€ џџџџ€ џџџџ€ џџџџ"  € џџџџ€(0€ 2H€ џџџџ € ˜ ЈА Ши рш№€џџџџАШ р№ј€ 48€ џџџџ€@H` xˆ ЈИРШ€ џџџџ€аи,р€ џџџџ€ џџџџ€ џџџџ"  € џџџџ€(0€ 2H€ џџџџ € ˜ ЈА Ши рш№€ џџџџџџџџрe Fixed bug in Top Level routine. The visible value was set to false rather than the bVisible variablexр 02/10/02Эџџx]@ђx]@ђ –0ЗA@urchasoџџH–pЗA@џџ0oџџ(–Ар New Selectionx]ђрGet Reference to Document]ђ0э 4!B.>р/ Set reference to Assembly Component Definition]ђPэ >!H. р( set the filter to pick any sketchpoint.]ЮЌђpЌAЌ+рkAssemblyOccurrenceFilter]ђDАgј]ђаэ$ %. Аbр,Hit escape to break outр+ Check to make sure an object was selected. Аœр 2 Get current visibility so we can do the opposite. !xЗœЗ'ќdџџЗ'ќkџџјр  get File name of selected part !^!@!œ'ўр E If we are doing going to go into the subs then move to that section. З›GšFjџ ў !Ђ“ !^!@!œ ўœ ќ (xkџџџЧр- Skip subs since we are only doing Top Level.šFЃИџ ў !Ђ“ !^!@!œ ўœ ќ (xdџџp !Ќ!,Ќœ Akџџ@kџџ8џЧ0Ѓ(kџџ э$ %.р/get the next oneЙџџшoџџр–№]ђXџ "ў !Ќ“р+ Check if it's child occurrence (leaf node) "!^!@!œ ўœ ќ "(xdџџP "!Ќ!,Ќœ "Akџџ kџџџЧoџџџџџџџџџџqЕAttribute VB_Name = "Module11" ' Fixed bug in Top Level routine. The visiblalue was set to false rathe@r thaneˆ bV^ria8g02/10/02 Option Exp€licit  PrivaЋ@As Boolean sDefЭ Sсng  PubL SuРb HideЪЩ€Parts()1  (Trueq‚ End "Aєll"F€€"€^€kпˆ$H„f…HƒDbБ‡k@' New `SelecƒwDаim oƒ €˜clsƒ'G€ФReferenceЩDocume>nЊ+B€InvРor.Ass embly‹ S@ o =}isAp%ga#.AР$veХ‹ '+t r‰Х€ Componт jiniL4Т Сјdef&Х † M ‚&щJ = *.V DGЊ!€АfiltСЈo pick any sketchp`oint.ƒ KF€List(0)С% Z@ЊFBEnum  = 16640 'kХ0Occќurc  Ccў СF0Ч Fš ‚GЇ‡ РFC..PР:(ƒ)†TТBo WhiA@zNot oGI„s hingЁ 'Hit escapbKbreak @ƒC ' CheР)@mak@e sure`+ 8objРX$…!ZedѓD,С If др„}[#` a\Ѓ*tc‘ilit8o we$ c ŽdoopРpositeh ф §G.…“ \€с›ь Ay&= "|фA`E ž+hA‹L`ŒIbfk' g@nРDed nAГofРUЃ% ОpР–ЋfžР;6.'e.Хs.DisplМayЄ @/@&a 4bdр^g gЂР7gžoрПр Й 8bsс)`n movт>@Лt`"“+Bš<> Ёт) GoTo CцaРk€Ÿs:ЋЋ!'For Each„ oˆcIn oI~є.o&ksOС€џ]# сF*Nс e‰ ЇGХ=s!Сэ=с Nex# Г`Їkip-siƒЗЄ2only C3сФ‚Я.т)IgnoЬre*с е-бџАbС7Д]ѓП'ё,=  дџqŠЩ?8йœ @—%BsPcunt +0я?YВCall €process№€§Ѓ(( „UŽ_ WџПГ"w`…Ÿр§УO`O`)) '1GQ>n( @zѓ+Looђp q@вŒByVal oђcЁ~ccџi2pKgвŒќubбKр/"ѓ+яА+є.`(CA%iif it'hs c`nd` Uy ‚(рЄf nodСŸџ1їбб#gDƒя8VD19oШDЛџ-‘ №Шџ,ЩЕл, (Ј , =&Б9Г* #P€ џџџџX" `€ 4h€ €Ј€А€И€ &№ддHџџџџф`–4аЛџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ<џџ<џџМ<џџ”<џџж<џџH<џџЪ<џџ<(џџ<,џџ<0џџ<4џџ џџџџџџџџрe Fixed bug in Top Level routine. The visible value was set to false rather than the bVisible variablexр 02/10/02Эџџx]@ђx]@ђ –0ЗA@urchasoџџH–pЗA@џџ0oџџ(–Ар New Selectionx]ђрGet Reference to Document]ђ0э 4!B.>р/ Set reference to Assembly Component Definition]ђPэ >!H. р( set the filter to pick any sketchpoint.]ЮЌђpЌAЌ+рkAssemblyOccurre<8џџ<<џџ<џџџџџџ 2nВіџџџџ циџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „0џџџџџџџџX% „>џџџџџџџџx% „Аџџџџџџџџ˜%`„„џџџџџџџџ џџ „ џџџџџџџџа % ь`џџџџџџџџџџџџџџџџџџџџџџџџ55„)ƒ’џџџџџџџџ8@€%iƒІџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„šџџџџџџџџ џџ`„юџџџџџџџџ џџ`„œџџџџџџџџ џџ`„џџџџџџџџџџ`„њџџџџџџџџџџ`„№џџџџџџџџџџј`„ђџџџџџџџџџџ „†џџџџџџџџ8% „ˆџџџџџџџџX% єџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ„iƒњџџџџџџџџџџџџџџ€ „>џџџџџџџџи %џџџџи`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр‚\TпўЪd€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџXјP`€ џџџџp€ џџџџ€ џџџџџџџџ€–]ђ@э 4.0]ђ`э 0!B.>]ђ€]ђ  >!ž'„э „З 0!%.>э >!H!В.АHЗ'Д ДœЗ А(ОurchasdџџHЗ А(ОџџЈkџџ0З А(Жџџ]ђИэЖ Structured А!О%T. Ќ'шЌ'ъ  !рЌAьэА.жэА.АэА.>эА.0oџџ –ир-Iterate through the contents of the BOM Rows.]ђ`]ђx]ђ]ђЈрDim oExApp As Excel.Applicationр-Set oExApp = GetObject(, "Excel.Application")рDim oExdoc As Excel.WorkbooksрSet oExdoc = oExApp.Workbooksр!Dim oExSheets As Excel.Worksheets]ђР]ђи]ђ№]ђ І ъ œ І'ъkџџ(џ 2ўЌ ’!,’р Get the current row.ќ]ђ э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the row]ђ@эЌ †!т%T.ˆр5Get the file property that contains the "Part Number"рCThe file property is obtained from the virtual component definitionр9 Worksheets("STR_BOM").Cells(printrow, 1).Activateр ActiveCell.Value = level ˆ!@!ž' ˆ!@!Ю'№р212291=Assembly , 12290= PartЖCategoryЖ%Inventor Document Summary Information ˆ!@!ц%TnceFilter]ђDАgј]ђаэ$ %. Аbр,Hit escape to break outр+ Check to make sure an object was selected. Аœр 2 Get current visibility so we can do the opposite. !xЗœЗ'ќdџџЗ'ќkџџјр  get File name of selected part !^!@!œ'ўр E If we are doing going to go into the subs then move to that section. З›GšFjџ ў !Ђ“ !^!@!œ ўœ ќ (xkџџџЧр- Skip subs since we are only doing Top Level.šFЃИџ ў !Ђ“ !^!@!œ ўœ ќ (xdџџp !Ќ!,Ќœ Akџџ@kџџ8џЧ0Ѓ(kџџ э$ %.р/get the next oneЙџџшoџџр–№]ђXџ "ў !Ќ“р+ Check if it's child occurrence (leaf node) "!^!@!œ ўœ ќ "(xdџџP "!Ќ!,Ќœ "Akџџ kџџџЧoџџџџџџџџџџqЕAttribute VB_Name = "Module11" ' Fixed bug in Top Level routine. The visiblalue was set to false rathe@r thaneˆ bV^ria8g02/10/02 Option Exp€licit  PrivaЋ@As Boolean sDefЭ Sсng  PubL SuРb HideЪЩ€Parts()1  (Trueq‚ End "Aєll"F€€"€^€kпˆ$H„f…HƒDbБ‡k@' New `SelecƒwDаim oƒ €˜clsƒ'G€ФReferenceЩDocume>nЊ+B€InvРor.Ass embly‹ S@ o =}isAp%ga#.AР$veХ‹ '+t r‰Х€ Componт jiniL4Т Сјdef&Х † M ‚&щJ = *.V DGЊ!€АfiltСЈo pick any sketchp`oint.ƒ KF€List(0)С% Z@ЊFBEnum  = 16640 'kХ0Occќurc  Ccў СF0Ч Fš ‚GЇ‡ РFC..PР:(ƒ)†TТBo WhiA@zNot oGI„s hingЁ 'Hit escapbKbreak @ƒC ' CheР)@mak@e sure`+ 8objРX$…!ZedѓD,С If др„}[#` a\Ѓ*tc‘ilit8o we$ c ŽdoopРpositeh ф §G.…“ \€с›ь Ay&= "|фA`E ž+hA‹L`ŒIbfk' g@nРDed nAГofРUЃ% ОpР–ЋfžР;6.'e.Хs.DisplМayЄ @/@&a 4bdр^g gЂР7gžoрПр Й 8bsс)`n movт>@Лt`"“+Bš<> Ёт) GoTo CцaРk€Ÿs:ЋЋ!'For Each„ oˆcIn oI~є.o&ksOС€џ]# сF*Nс e‰ ЇGХ=s!Сэ=с Nex# Г`Їkip-siƒЗЄ2only C3сФ‚Я.т)IgnoЬre*с е-бџАbС7Д]ѓП'ё,=  дџqŠЩ?8йœ @—%BsPcunt +0я?YВCall €process№€§Ѓ(( „UŽ_ WџПГ"w`…Ÿр§УO`O`)) '1GQ>n( @zѓ+Looђp q@вŒByVal oђcЁ~ccџi2pKgвŒќubбKр/"ѓ+яА+є.`(CA%iif it'hs c`nd` Uy ‚(рЄf nodСŸџ1їбб#gDƒя8VD19oШDЛџ-‘ №Шџ,ЩЕл, (Ј , =&Б9Г* #И€ ,Р№ј€ џџџџџџџџЭџџxр Declare the event objects]@ђФ№ддHџџџџф`–4аЛџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ<џџ<џџМ<џџ”<џџж<џџH<џџЪ<џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ 2nВіџџџџ циџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „0џџџџџџџџX% „>џџџџџџџџx% „Аџџџџџџџџ˜%`„„џџџџџџџџ џџ „ џџџџџџџџа % ь`џџџџџџџџџџџџџџџџџџџџџџџџ55„)ƒ’џџџџџџџџ8@€%iƒІџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„šџџџџџџџџ џџ`„юџџџџџџџџ џџ`„œџџџџџџџџ џџ`„џџџџџџџџџџ`„њџџџџџџџџџџ`„№џџџџџџџџџџј`„ђџџџџџџџџџџ „†џџџџџџџџ8% „ˆџџџџџџџџX% єџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ„iƒњџџџџџџџџџџџџџџ€ „>џџџџџџџџи %џџџџи`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџр‚\Tп%T!ш'ђ  Ќ $мЖidw 'њр$ If PartCategory = "LC" Then њ$ўЌœ њAєр Elseр@ MsgBox "IDW does not exist for: " & PartFileNamekџџшр End If ˆœdџџИр *Recursively iterate child rows if present. †!ьАœ †!ь ІЌ AьkџџXkџџPџЧHoџџ@–` њ 4!B@]ђРэ 4!B.>ЖAREVAЖCompanyЖ%Inventor Document Summary Information >!ц%T%T(ш 4!BB@ј 4!BB@Boџџˆџџџџ€џџџџ)ЖAttribute VB_Name = "change_draw_prop" Public Sub IDW_ŒALL()  Dim oapp As Inventor.Appjatio"nJSetJ= 0This>EDoc EssemblryumXJ*=Q.Activeу #NBOM NAvrtSelectedItemVariantƒ61.FulрlFile™‚l7 € ƒ.Vs. Open(Œ#, `False„‚BS„.Compon€tDefiniŸ.4FirstLevelOnlŽy7‚$ƒ If XTheНвo€".Structur@edViewŽTшrueCE@(Cхˆ"End IfƒEnabledџ€/ЧEk%b+УўЪd€ џџџџ"€ € (€8€@ HXx˜  А ИШ а€р"ш€ џџџџ€ џџџџ € џџџџ€ џџџџ8@HP€ џџџџX" `€ 4h€ €Ј€А€И€ &Р€ 4ш€ $ € $H€ (p€˜€ €Ј€А€ џџџџ€ џџџџ ИШаи€ №€€ D0€x€€ џџџџ€ <˜€ Jи€ @(€ &h  2  Vи &0€ *X ˆ  € А€ FШ €  0@€ 0H xˆ  ЈАИ€ џџџџ" Р€ џџџџШ€ џџџџ€рш€ џџџџXјP`€ џџџџp€ џџџџ€ џџџџџџџџ€–]ђ@э 4.0]ђ`э 0!B.>]ђ€]ђ  >!ž'„э „З 0!%.>э >!H!В.АHЗ'Д ДœЗ А(ОurchasdџџHЗ А(ОџџЈkџџ0З А(Жџџ]ђИэЖ Structured А!О%T. Ќ'шЌ'ъ  !рЌAьэА.жэА.АэА.>эА.0oџџ –ир-Iterate through the contents of the BOM Rows.]ђ`]ђx]ђ]ђЈрDim oExApp As Excel.Applicationр-Set oExApp = GetObject(, "Excel.Application")рDim oExdoc As Excel.WorkbooksрSet oExdoc = oExApp.Workbooksр!Dim oExSheets As Excel.Worksheets]ђР]ђи]ђ№]ђ І ъ œ І'ъkџџ(џ 2ўЌ ’!,’р Get the current row.ќ]ђ э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the row]ђ@эЌ †!т%T.ˆр5Get the file property that contains the "Part Number"рCThe file property is obtained from the virtual component definitionр9 Worksheets("STR_BOM").Cells(printrow, 1).Activateр ActiveCell.Value = level ˆ!@!ž' ˆ!@!Ю'№р212291=Assembly , 12290= PartЖCategoryЖ%Inventor Document Summary Information ˆ!@!ц%T%T!ш'ђ  Ќ $мЖidw 'њр$ If PartCategory = "LC" Then њ$ўЌœ њAєр Elseр@ MsgBox "IDW does not exist for: " & PartFileNamekџџшр End If ˆœdџџИр *Recursively iterate child rows if present. †!ьАœ †!ь ІЌ AьkџџXkџџPџЧHoџџ@–` њ 4!B@]ђРэ 4!B.>ЖAREVAЖCompanyЖ%Inventor Document Summary Information >!ц%T%T(ш 4!BB@ј 4!BB@Boџџˆџџџџ€џџџџ)ЖAttribute VB_Name = "change_draw_prop" Public Sub IDW_ŒALL()  Dim oapp As Inventor.Appjatio"nJSetJ= 0This>EDoc EssemblryumXJ*=Q.Activeу #NBOM NAvrtSelectedItemVariantƒ61.FulрlFile™‚l7 € ƒ.Vs. Open(Œ#, `False„‚BS„.Compon€tDefiniŸ.4FirstLevelOnlŽy7‚$ƒ If XTheНвo€".Structur@edViewŽTшrueCE@(Cхˆ"End IfƒEnabledџ€/ЧEk%b+УХHРIA2s.ii€n("6"Vƒp€rintrowТ2CmaxlAP@†1CCCallЬЗРChild(A0AaRows, 1?ŠƒС(Р$NoрthingGСв'CЯ Aг= Ъ СUSub@фriv~a@ю–,*DRE’n€Єra@ц, У?A‚utegerФ' ` e throughрe co„nt Qs ofтЕ` с .ƒс6iС LoхA`2pstЎrJjh1™2Žb'AoExР†aEаxceloŒ'BEЃ= GetObjс|(, ".E% dCуWorkb№ooksУх aP  .m$Sheelts‡СsbG&Pиarteˆ!S`Бщ'˜DWGйСTyт­ -AC`Cgoryy- #Ѓ†A>~ fbK†He"уЉ{For i[1 TŒo \BCCoueЈЁ‡'1ƒIurr€Iў rфGст&СCh aт9aУ~ $~i„VЂ3a refjeР cXoТ €mўaР pЊХY ‡ `Џ№,… @.пФE†Сg' T" fрЩ юerty atoainsт"С: Numb\er`ђЁa'р5 eki ubtЌfromТvirt˜ual` „Ы dІЫ8 'х—*UTR_Р").Celиls(…TбO.ђv@&И#xБ.Valuџб„8#1 V-ФцrпŸuƒ qб./tЖ№e '122914=A4ƒ А 0=> Wт62_t.^P ‘а'є"u Х}№mв%Infoќrm‚ŽауhевШЉ== (LefŒt(ё •, L0ƒ) - 3) Р+ "idwQKУPvЭ "LC"№•™QвleExistt(()У;š‚S ў qj˜су‚w $MsgBox "`Ѓ does nPot e1 0:№ " &ђ Еh?…FgЉG!P Of oФ$ Is V?г.œ”ŒKŽ'RрecursРЄр•  тpca€1Ks ifyP:es0LјK”Рz оoR@ё€РАs%|/{Q-_@ЕD‡Š%{+І‡в@љNexћЌSAƒoƒ“МyQOПeрUгМК7У­ \!яf’TБСDPХP‘4у^‘^СSF\НCo›O:(O:O:onG:1 Жany5:0"A№REVAVNсВН.SavДВйШр.Clos’œaе selected. Аœр 2 Get current visibility so we can do the opposite. !xЗœЗ'ќdџџЗ'ќkџџјр  get File name of selected part !^!@!œ'ўр E If we are doing going to go into the subs then move to that section. З›GšFjџ ў !Ђ“ !^!@!œ ўœ ќ (xХHРIA2s.ii€n("6"Vƒp€rintrowТ2CmaxlAP@†1CCCallЬЗРChild(A0AaRows, 1?ŠƒС(Р$NoрthingGСв'CЯ Aг= Ъ СUSub@фriv~a@ю–,*DRE’n€Єra@ц, У?A‚utegerФ' ` e throughрe co„nt Qs ofтЕ` с .ƒс6iС LoхA`2pstЎrJjh1™2Žb'AoExР†aEаxceloŒ'BEЃ= GetObjс|(, ".E% dCуWorkb№ooksУх aP  .m$Sheelts‡СsbG&Pиarteˆ!S`Бщ'˜DWGйСTyт­ -AC`Cgoryy- #Ѓ†A>~ fbK†He"уЉ{For i[1 TŒo \BCCoueЈЁ‡'1ƒIurr€Iў rфGст&СCh aт9aУ~ $~i„VЂ3a refjeР cXoТ €mўaР pЊХY ‡ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ@<џџж< џџ<џџџџџџџџџџ вџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „>џџџџџџџџX% „дџџџџџџџџx%џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€‚\TпўЪ€€ џџџџ"€ џџџџ€€€ џџџџ (R8"ИР€ џџџџШи*р€ џџџџ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!и!кЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œЖMust be in Part documentA@<|џџ@kџџ8э 4!м.д VœЖ MUST BE IN ACTIVE SKETCH TO RUN!A@<hшœg|џџшkџџр оB@Ж KWiK-ObroundЖSettingsЖTopЖ200$т о(рЖ KWiK-ObroundЖSettingsЖLeftЖ100$т о(мoџџHџџџџ@џџџџфБAttribute VB_Name = "Obround" Option Explicit Pub, SHub œ(). Dim oDo c As um enf2Sketch8Planar kPartObject And ј_ X†kID""{28EC8354-9024-440F-A8A2-0E0E55D635B0}"€Ren {MsgBox "Must b e in F doc‚€ГExi–t­EPIfƒƒ‚„Ѓ†EditGƒpƒ‰Err•IUST BE IN ACTIVE SKETCH TРO RUN!о&Уfrmƒ.Shoˆw Top•Get/ting€("KWiK-Ф а", "sС@ a200"€•ˆLИeftш 1™SРw kџџ( V џџB@ J!P J!R J!T$X'Fџџ џџ џџA@r(iџџи–А џџA@r:џџџџoџџИ–№ JB@L@џџџџoџџ˜–0Ж0, 0, 0'H џџA@rџџ oџџhџџџџ`џџџџhВAttribute VB_Name = "frmCale№Œ дHџџџџ  Є0–4сЗџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ4џџџџџџџџџџ џџџџџџџџ џџџџџџ$џџ,џџ(џџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџJ<џџ<џџn<џџ<џџ<џџж<H<џџ(<џџ”<џџМ<џџЄ<џџЪ<8џџ<<џџ<џџџџџџ 2X~ВџџџџИ F€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „0џџџџџџџџX% „Hџџџџџџџџx% R(џџџџџџџџџџџџџџџџРџџџџџџџџ„iƒTџџџџџџџџџџр€)ƒVџџџџџџџџ€%iƒZџџџџџџџџџџџџџџ€ hаџџџџџџџџџџџџџџџџhџџџџџџџџ„iƒTџџџџџџџџџџˆ€)ƒVџџџџџџџџЈА€%iƒZџџџџџџџџџџџџџџ€+lXџџџџџџџџџџџџџџџџ џџџџџџ ŒiƒTџџџџџџџџџџ0€)ƒVџџџџџџџџPџџџџ€%+pшџџџџџџџџџџџџџџџџ˜џџџџџџŒiƒrџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„tџџџџџџџџџџ vXџџџџџџџџџџџџџџџџџџџџџџџџџџџџАА„ „0џџџџџџџџ@% „>џџџџџџџџ` %`„xџџџџџџџџџџ`„zџџџџџџџџџџ „HџџџџџџџџА% „Vџџџџџџџџа% „|џџџџџџџџ№% „€џџџџџџџџ% „‚џџџџџџџџ0% „АџџџџџџџџP%`„„џџџџџџџџ џџ „†џџџџџџџџˆ% „ˆџџџџџџџџЈ% „ŠџџџџџџџџрШ`„Œџџџџџџџџџџ „Žџџџџџџџџ % „џџџџџџџџ8 % „’џџџџџџџџX$% „–џџџџџџџџx % „˜џџџџџџџџ˜ %`„šџџџџџџџџџџ`„œџџџџџџџџџџ`„žџџџџџџџџџџ`„Дџџџџџџџџ џџ „ џџџџџџџџ(% „Ђџџџџџџџџ8,%`„Рџџџџџџџџџџ Ьџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџGG„)ƒ’џџџџџџџџИР€$%)ƒVџџџџџџџџрш€%)ƒ|џџџџџџџџ€%iƒЮџџџџџџџџџџ0€iƒаџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„РџџџџџџџџџџXшџџџџаXџџџџ(џџџџџџџџ€<џџ@<џџж< џџ<џџџџџџџџџџ вџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „>џџџџџџџџX % „дџџџџџџџџx%џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€‚\TпўЪ€€ џџџџ"€ џџџџ€€€ џџџџ (R8"ИР€ џџџџШи*р€ џџџџ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!и!кЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œP 0ЖMust be in Part documentA@<M List|џџ@kџџ8э 4!м.дH VœЖ MUST BE IN ACTIVE SKETCH TO RUN!A@<Zџџџџ|џџшkџџр оB@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџНџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџЖ KWiK-ObroundЖSettingsЖTopЖ200$т о(рTџџџџЖ KWiK-ObroundЖSettingsЖLeftЖ100$т о(м%oџџHџџџџ@џџџџфБAttribute VB_Name = "Obround" Option Explicit Pub, SHub œ(). Dim oDo c As um enf2Sketch8Planar kPartObject And ј_ X†kID""{28EC8354-9024-440F-A8A2-0E0E55D635B0}"€Ren {MsgBox "Must b e in F doc‚€ГExi–t­EPIfƒƒ‚„Ѓ†EditGƒp`Џ№,… @.пФE†Сg' T" fрЩ юerty atoainsт"С: Numb\er`ђЁa'р5 eki ubtЌfromТvirt˜ual` „Ы dІЫ8 'х—*UTR_Р").Celиls(…TбO.ђv@&И#xБ.Valuџб„8#1 V-ФцrпŸuƒ qб./tЖ№e '122914=A4ƒ А 0=> Wт62_t.^P ‘а'є"u Х}№mв%Infoќrm‚ŽауhевШЉ== (LefŒt(ё •, L0ƒ) - 3) Р+ "idwQKУPvЭ "LC"№•™QвleExistt(()У;š‚S ў qj˜су‚w $MsgBox "`Ѓ does nPot e1 0:№ " &ђ Еh?…FgЉG!P Of oФ$ Is V?г.œ”ŒKŽ'RрecursРЄр•  тpca€1Ks ifyP:es0LјK”Рz оoR@ё€РАs%|/{Q-_@ЕD‡Š%{+І‡в@љNexћЌSAƒoƒ“МyQOПeрUгМК7У­ \!яf’TБСDPХP‘4у^‘^СSF\НCo›O:(O:O:onG:1 Жany5:0"A№REVAVNсВН.SavДВйШр.Clos’œaе „0џџџџџџџџX % „Hџџџџџџџџx% R(џџџџџџџџџџџџџџџџРџџџџџџџџ„iƒTџџџџџџџџџџр€ )ƒVџџџџџџџџ€gh t%iƒZџџџџџџџџџџџџџџ€$ hаџџџџџџџџџџџџџџџџhџџџџџџџџ„iƒTџџџџџџџџџџˆ€m sF)ƒVџџџџџџџџЈА€m sPedded Object Forms.Form.1є9Вqition = 1 'Cent(€Cancel O ї€@сМTahoma(€Applya O ї€@сМTahoma€H€,Š45€ЅTahoma€H€,‰45€ЅTahoma€H€,”45€ЅTahoma€H€,N45€ЅTahomaАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€~€€€~џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР~џџџШагџџџ™™™™™™™™™™™™™™€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~џџџШагШагШагШагШаџџџџHџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €‚\TпўЪ2"€ џџџџ€ € z(€ џџџџ"Ј€ џџџџаи€ џџџџр" ш€ џџџџ№.8XNxШ" а€ џџџџи№€ џџџџ€ џџџџB € >X`hˆ˜€ Ј€ џџџџB А€ џџџџ€И€Р€ џџџџШаи№  ($8`hp€ џџџџx€ џџџџ"€€ џџџџ€ 0ˆ€ 4И€ џџџџ€№€ј€€€€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџ Ра€ џџџџр №€ џџџџ  (@&` ˆ˜ АИШ"ај(8X"p ˜ И Р и ш& HP X` hpx€€ џџџџ€ џџџџˆЈ€ џџџџРи€ џџџџ ј 0 @PX€ џџџџ"h€ џџџџ€ џџџџ€ џџџџ˜  А ИШ€ џџџџ€ 6а  € џџџџ € џџџџ2(  `  €   И и № € џџџџ€ 2ј € џџџџ€ b0 € j˜ € џџџџ€ ( €0 8 @ € X x € џџџџ€ D и € џџџџ€ џџџџ€ <№ € 40 € 6h L  € џџџџ€ <№ L0  €  € џџџџ    И  $и  $ $( P*`   А(Рш$№  "( P Xhp€ џџџџxЈ РаLиL(x &ˆАИР€ џџџџШ€ џџџџ" а€ 4и€ џџџџ(@X€ џџџџ€`€hpx€ А€ џџџџ€ DШ€ џџџџ€ џџџџ€ <(€ 4h€ 6 Lи€ џџџџ€ <(Lh ИШ и № $ $8 $` ˆ*˜ Ши ш(ј $(P X"` ˆ  ЈАШр јLL`А Р&и  0H€ џџџџ€ џџџџP€ џџџџ€ џџџџ€ џџџџџџџџ`–]ђ@э 4.0]ђ`эЖZP:\Inventor System Files\2013\Inventor 2013 Templates\Inventor 2013 Templates\BOM-List.xls P 0!B!L%N.HЖAll BOM List Pur    ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџZ[\]ўџџџeџџџџџџџџџџџџџџџџџџџџџџџџўџџџghyџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџz{|}~€chase H(œэА.HэА.0oџџ–€ЖBOM V%\B@HЖBOM V%\б`ЖBOM V%\B@^ЖBOM (2) V%\B@H TЖBOM (2) V%\(ЖBILL OF MATERIALЌ $f TЌ $f Z T V%\!b(doџџ0–(ЖBOM V%\B@H T V%\B@jјoџџ№–ар8 returns TRUE if the sheet exists in the active workbookЗ'lЩn˜ T V%\!Ќ œЗ'lzџџhkџџ`ЃnXiџџP–X]ђИ]ђаЌ'tЌ'2џ 2ўЌ r’ r 2Ќ$њЖ-œ 2'tkџџрџЧи tЌ œ r tЌ r t $њ'pdџџ˜ r'pkџџˆiџџ€–шр* Set a reference to the assembly document.р- This assumes an assembly document is active.]ђ(]ђH]ђh]ђ€]ђ˜]ђИ]ђи]ђј]ђ]ђ8]ђX]ђp]ђ]ђА]ђш]ђ]ђ ]ђ@]ђ`]ђ€]ђ ]ђИ]ђа]ђш]ђ]ђ э 4.0э 0!B.> >!L!,'xЌ'z xЌœAFЌ'zdџџиџ 2ўЌ x’э 2 0!B!L%T.H H!œЖAll BOM List Purchaseœ x'zkџџhџЧ` zЌœAF xЌ 'zdџџ0ЖDelete existing BOM-Lists?'І Њ Ќ Ў 'ЈЖ All BOM List'АЖDEMO.HLP'ВЌш'Др Define topic І Ј А$<'Ж Ж Иœр$ User chose Yes. z 0!B!L%TB@jAF 0!B!L!,'xЌ'zџ 2ўЌ x’э 2 0!B!L%T.H H!œЖAll BOM List Purchaseœ x'zkџџЈџЧ dџџ˜|џџkџџˆkџџ€kџџxэ z 0!B!L%T.H К V HBBэЖBOM V%М.|эЖBOM_Data V%М.€ >!ž'„јэ >!H!В.АЗ А(Ж А!ОЗœЗ А(ОkџџЈЖ- А(ИэЖ Structured А!О%T. З'Д ДœЗ А(ОdџџHЗ А(Оkџџ0р/ Make sure that the structured view is enabled.З А(Жэ  !р.’эЖDesign Tracking Properties >!ц%T.ЂэЖ Part Number Ђ%T.–эЖ Description Ђ%T.˜ –!ш V$lœ –!ш V ˜!шARэ –!ш V%М.‚kџџр+Set a reference to the "Structured" BOMViewр[ Debug.Print "Item"; Tab(15); "Quantity"; Tab(30); "Part Number"; Tab(70); "Description"рd Debug.Print "----------------------------------------------------------------------------------"р!Initialize the tab for ItemNumber]ђ@Ќ'Рџ 2ўЌ ’!,’р Get the current row.э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the rowэЌ †!т%T.ˆр 5Get the file property that contains the "Part Number"р -The file property is obtained from the parentр /document of the associated ComponentDefinition.эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.Žр 5Get the file property that contains the "Description"эЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!Т'š š­Ыœ †!Ф$p'ž ž РЌ Ќ ‚%Ц(ш †!Ш РЌ Ќ ‚%Ц(ш Ž!ш РЌ Ќ ‚%Ц(ш !ш РЌ Ќ ‚%Ц(ш š­ЫœЖ Purchased РЌ Ќ ‚%Ц(ш š­Ыe ˆ!@!Ю'œ œЌ0œЖAssembly РЌ Ќ ‚%Ц(шdџџЖPart РЌ Ќ ‚%Ц(шkџџрdџџиЖ РЌ Ќ ‚%Ц(шkџџЈ РЌ 'РkџџџЧˆџ 2ўЌ ’!,’э 2 ’%T.†эЌ †!т%T.ˆ ˆ0œdџџ(эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.ŽэЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!ьАœ †!ь V | Ž!ш !шAЬkџџHkџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ@<џџж< џџ<џџџџџџџџџџ вџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „>џџџџџџџџX% „дџџџџџџџџx%џџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€‚\TпўЪ€€ џџџџ"€ џџџџ€€€ џџџџ (R8"ИР€ џџџџШи*р€ џџџџ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!и!кЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œЖMust be in Part documentA@<|џџ@kџџ8э 4!м.д VœЖ MUST BE IN ACTIVE SKETCH TO RUN!A@<hшœg|џџшkџџр оB@Ж KWiK-ObroundЖSettingsЖTopЖ200$т о(рЖ KWiK-ObroundЖSettingsЖLeftЖ100$т о(мoџџHџџџџ@џџџџфБAttribute VB_Name = "Obround" Option Explicit Pub, SHub œ(). Dim oDo c As um enf2Sketch8Planar kPartObject And ј_ X†kID""{28EC8354-9024-440F-A8A2-0E0E55D635B0}"€Ren {MsgBox "Must b e in F doc‚€ГExi–t­EPIfƒƒ‚„Ѓ†EditGƒpƒ‰Err•IUST BE IN ACTIVE SKETCH TРO RUN!о&Уfrmƒ.Shoˆw Top•Get/ting€("KWiK-Ф а", "sС@ a200"€•ˆLИeftш 1™SРw kџџ( V џџB@ J!P J!R J!T$X'Fџџ џџ џџA@r(iџџи–А џџA@r:џџџџoџџИ–№ JB@L@џџџџoџџ˜–0Ж0, 0, 0'H џџA@rџџ oџџhџџџџ`џџџџhВAttribute VB_Name = "frmCale№Œ дHџџџџ  Є0–4сЗџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ4џџџџџџџџџџ џџџџџџџџ џџџџџџ$џџ,џџ(џџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџJ<џџ<џџn<џџ<џџ<џџж<H<џџ(<џџ”<џџМ<џџЄ<џџЪ<8џџ<<џџ<џџџџџџ 2X~ВџџџџИ F€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „0џџџџџџџџX% „Hџџџџџџџџx% R(џџџџџџџџџџџџџџџџРџџџџџџџџ„iƒTџџџџџџџџџџр€)ƒVџџџџџџџџ€%iƒZџџџџџџџџџџџџџџ€ hаџџџџџџџџџџџџџџџџhџџџџџџџџ„iƒTџџџџџџџџџџˆ€)ƒVџџџџџџџџЈА€%iƒZџџџџџџџџџџџџџџ€+lXџџџџџџџџџџџџџџџџ џџџџџџ ŒiƒTџџџџџџџџџџ0€)ƒVџџџџџџџџPџџџџ€%+pшџџџџџџџџџџџџџџџџ˜џџџџџџŒiƒrџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„tџџџџџџџџџџ vXџџџџџџџџџџџџџџџџџџџџџџџџџџџџАА„ „0џџџџџџџџ@% „>џџџџџџџџ` %`„xџџџџџџџџџџ`„zџџџџџџџџџџ „HџџџџџџџџА@џЧ8oџџ0–Xр. Iterate through the contents of the BOM Rows. Ю V$lœ Ю V аARэ Ю V%М.‚kџџ ]ђP]ђhЌ'Рџ 2ўЌ ’!,’р Get the current row.э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the rowэЌ †!т%T.ˆр 5Get the file property that contains the "Part Number"р -The file property is obtained from the parentр /document of the associated ComponentDefinition.эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.Žр 5Get the file property that contains the "Description"эЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!Т'š š­Ыœ †!Ф$p'ž ž РЌ Ќ ‚%Ц(ш †!Ш РЌ Ќ ‚%Ц(ш Ž!ш РЌ Ќ ‚%Ц(ш !ш РЌ Ќ ‚%Ц(ш š­ЫœЖ Purchased РЌ Ќ ‚%Ц(ш š­Ыe ˆ!@!Ю'œ œЌ0œЖAssembly РЌ Ќ ‚%Ц(шdџџи ЖPart РЌ Ќ ‚%Ц(шkџџЈ dџџ  Ж РЌ Ќ ‚%Ц(шkџџp РЌ 'РkџџX џЧP џ 2ўЌ ’!,’э 2 ’%T.†эЌ †!т%T.ˆ ˆ0œdџџ№ эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.ŽэЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!ьАœ Ž!ш V$lœ †!ь V | Ž!ш !шAЬkџџјkџџ№kџџшџЧр РЌœ Ю V аAhkџџАoџџЈџџџџ џџџџљЖAttribute VB_Name = "purBOMListtoexel" Priva”Su`b cre(„EXCEL() Dim oapp As Inventor.Applicati€on SetBР= This 6=РOleRef@erencedOLEFileDeрscripSG+=Q.Activ@eDocumx.>s.Add("P:\Є System 3s\2013  Tehmpl€zs– €‡-™.xls", kZ…EEmbeddingObject•o^.Di s,yНAll €$ $ Purc0hase€ПxNoœth( Й= † Р End е‘л€SheetinƒкТ@lS€‚ng, oWBС_Excel.WorkbРook, dƒ_ЫC Р1 A ".Bs("0")0.Sel;UCopy Before:=R (2~)лDS7NF) .PageЅup.C@erHeaderAСBILL OF MATERIAL" & €Chr(10)@/†JФH`d@DteB?`@3`F.).DG$ЈxFun io$n ExР€s(†Ч?E)!Booleaр}' returns TRUE if thHe saP eB ”inbaТw wфMc6H@2FalseOn Erro@r GoTo _Such‚УIf pLen(шJ‚C)B.Ђ > 0@e?`СWaBу€ TrЮud aРt %#c alIf No†f:C)ч e t@rakt_iрŒn|o(УЇ)Т&уj%ЉiЁInteger‘cЋposj !@= 1 i@0чР @"A1 Р"A у #$EР"Midd, i, 1)р"-"L!У i extL `Ё> @ h?Х' ˆ@ Щ С+ Œ1,B2ф - Р§РEF:nCC*-#q‰+Pub@Ы!ІlС UQueryƒбС6T' Юa€PfcЩ toЃMssembАly dхХc'!Рis ass ШрЖnA+ с‚U.cпc3ћоbлрСС7AdХУу€ edfileџ*<с&fЮ$ЩсZцяBQЛє т/1a—_2§љ2џ0!ЂВ@x?paС–№ГvrbtгbedIaxРhV arian•Row‘єComЬpDЃ‚Ёon№[№iniЃ†B Arrоa№ СХ5qs1@MoPartNumPropertyŸёЕ4$ˆty'# b:ЄEn $raЧb‹2 dberq_r˜0pstrпY d2ypp @FirstLРevelOnР0pЧ–[Ђ VieЕЁ …oc ignT№rackАhЁ Б6 џЁёрЁLQТ1/Ÿу Яa1?œат5 —1PРЏФ s.CoЦua#L3= -@RвK3щ)`CaА—П­ELяS>№ЧKFyWІ“HBџЊџЊяЎorsђ.ЁP(iT\ёPXЄТЛЄЄќ]! o {5nёNZ РЮ-чщ`сяtoBЇGN= №bs'AMs~gёjs‹„А'С_ВЗsŽ? Вq1StyРT= vbYesNBo vbCrРAc alТРBault$Bu`Юn2g Tit‚"ЉˆHelpREMO.HLBPЈCtxt 1H000!' IePgpicRes0ponsё Bo$x(`,  , ?ђЛт тUsёрЊchoаp$iЁџ1q7бДpе„&{gЂџUqяюa>>џЏ<Џ<тХБњГpc=Хџq81uЇЕ9їєч9e 9ЂfPѕ9џ9fk`%я ‰:E;‹4xitpЖ€ Sub РEnd IfxX Set oOleRef = oapp.ActiveDo€cument.2erencedOLEFileDescriptors.item(e mbedf2exist) Ca llUNate( kShowCVe€rb, oWB)€Sheet1€WB.Workss("BOM"&Ѕ$2$_Data) vrtSelectedI€N€e.FulТl^Name„:.…ComponwDefinitiˆon. o€.StructuredViewE@nabledTDru€%If FirstLeve lOnly ThenЦ!Fals0…зDeliŠmТr0"-"†шП@-*@ „Фk"Ч3ŸƒLЮ*СC+ @9їŒ ы2УJE4С3•!Х?ƒ#' Make s€c that'@Fh v€h ihs eƒi.тpG„Rјows„MAPAFVР’РignTrackingPropСЇ@ЯС™ertЎy€…[У  „ies_СoPaаrtNuРбrСыеƒм" C РчsП@c("ЄС]ЁЁ`4Х4T|ypр˜iБ7б1№2291OFob‘ Ass Еlyќ џ!ї“„~б?~ щ•U‘?> ы Я g=0 —%§eNР4Ё–яg`™Р]цg§ A ё.3/fБ ”AЯaRОШaQАAO НЕIs Vir№tualLТˆ+џть4aT?NџYџYџџYёYЁ 1Rь7_@нџ_aБ P­_ЊQЊŸUY@ƒaЃтGChildАi…s PhВп0 ЃQueryl уџАX 4 `Б3TІтІ@џЂSРRеŸE FGРЊ/XЩ('ёS‘ѓ ­€Ÿv xє ? p v›2 S sб“ЄEn0wLraёРWB‘Excel"эboožk`C Ћ2, р"џi78џџџџџџџџQ n`єЮ›ЭЊ`Ž %ёAwЭаНzsУЭoNRџџџџюРCompObjџџџџџџџџџџџџьpfџџџџџџџџџџџџ‘ХшD#jр‰Чд 'Qž0Дhrough the conte@nts ofxBOM Rows. If Not SheetExists(P arИ tNum, oWB) T@hen Call createhinEXC$ELj, IDe@scrip)CSet o=Act =b.Works… €2End If: Dim i As LoTngkIхg er kQ1  For€= 1` To oz‚yCount%' G€C‚ury ro~wŠr‚PNiрtem(i€G@a refece toЏprimary Compon€ЄDefiРnition…Р€3Пƒ!3€5€8.єs.‚=1‚=ƒR€'afile p€roperty€C„atТ}ainsB% "Сs tber"ЉŠ 'w Ыi‹bted fr4om‚pТ…Ьdocum9…6assшoci‡d@DW/w‚>%Р$PХ-€‚DC.КD. ФA"@“ign Trac king „ieјs")ƒJŠ;†lССџgMФ­oHMТ.„…'oџџ.˜7ЫР.E-Р0pstrХ‰€ЅSt€ructureeƒРѓЧ 51973hwУ% 9tnum@A€ extrakt_ЁALno(oaPI`cEшЁІv.Cells(k + 1, 1).ValМueР g +E42'&Quantitіy@3ЬIcП§ 4Ј ;БП,D-Д5Ч "PurchasedЬrElsКeю 0А9A d>20ЦoЎPEiTyp(E$… Ћ Ј1229 ІЦНЅх"Assрemblyь!aџы1џ KBzq ЈУЅ ѓ љ" IЯ… сЫт^л'ХN€i?Я т‡рlџЁ5ЎЫС ф8arСьЩшТЁ EAub (€Cancelt O ї€@сМTahomat(€Applyat O ї€@сМTahomat€H€,Š45€ЅTahomat€H€,‰45€ЅTahomat€H€,”4№@д|џџџџIQ –4‰цџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ$<џџ<џџџџџџ2š0{4E33C8BC-B0F7-43AF-BFD0-35EF52C6CB02}{1B588230-0665-4664-8B61-84247A6727D9}џџџџ8 .џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџGG” „0џџџџџџџџX% „0џџџџџџџџx%`„2џџџџџџџџџџ`„4џџџџџџџџџџthe `„6џџџџџџџџџџ'š€ўџјџџ№џџШџџџџџџџџ%ўџџџџџџџџџ џџјџџџџџџџџ %џџџџџџџџШџџџџџџџџШџџџџџџџџџџџџџџџџјџџџџџџ€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР~џџџШагџџџ™™™™™™™™™™™™™™€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~џџџШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomatАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€~€€€~џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР~џџџШагџџџ™™™™™™™™™™™™™™€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~џџџШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahomat€H€,Ђ5€сTahomat( €Part Numberg {З€@№МTahomat€H€,ЮC5€сTahomat( €Descriptiong {З€@№МTahomat€H€,Ђ5€сTahomat( €Stock Numberg {З€@№МTahomat(€Projectg {% „Vџџџџџџџџа% „|џџџџџџџџ№% „€џџџџџџџџ% „‚џџџџџџџџ0% „АџџџџџџџџP%`„„џџџџџџџџ џџ „†џџџџџџџџˆ% „ˆџџџџџџџџЈ% „ŠџџџџџџџџрШ`„Œџџџџџџџџџџ „Žџџџџџџџџ % „џџџџџџџџ8 % „’џџџџџџџџX$% „–џџџџџџџџx % „˜џџџџџџџџ˜ %`„šџџџџџџџџџџ`„œџџџџџџџџџџ`„žџџџџџџџџџџ`„Дџџџџџџџџ џџ „ џџџџџџџџ(% „Ђџџџџџџџџ8,%`„Рџџџџџџџџџџ Ьџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџGG„)ƒ’џџџџџџџџИР€$%)ƒVџџџџџџџџрш€%)ƒ|џџџџџџџџ€%iƒЮџџџџџџџџџџ0€iƒаџџџџџџџџџџџџџџ€`„2џџџџџџџџџџ`„РџџџџџџџџџџXшџџџџаXџџџџ(џџџџџџџџ€$  ŠџџA}[x3Rу ‘ЮуЊKИQ_Tahomaфœr(х €@ cmdCancelme.Р Ђ$х€@ cmdApplyдЂ,х €4txtDesignName ^,х€ 4txtApprovedName ',х €4txtDesignDateme˜^,х€4txtApprovedDate˜'(х €К btnDrawnDateP"^,х€#К btnApprovedDateP"',х €%4txtPartNumberte{(ѕ€&2@ Label1lyдO,х€'4txtDescriptione(ѕ€(2@Label2lyдq,х€)4txtStockNumbere98{(ѕ€*2@Label3lyџ*O(ѕ€+2<Label4lyд” (х €,4txtProjectmbР (ѕ€12<Label7lyЇ^(ѕ€22<Label8lyЇЌ(ѕ€?28Label18y: Ж(ѕ€@28Label19yHЖ(ѕ€G2<LџџџџHџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €‚\TпўЪ2"€ џџџџ€ € z(€ џџџџ"Ј€ џџџџаи€ џџџџр" ш€ џџџџ№.8XNxШ" а€ џџџџи№€ џџџџ€ џџџџB € >X`hˆ˜€ Ј€ џџџџB А€ џџџџ€И€Р€ џџџџШаи№  ($8`hp€ џџџџx€ џџџџ"€€ џџџџ€ 0ˆ€ 4И€ џџџџ€№€ј€€€€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€А€И€ џџџџ Ра€ џџџџр №€ џџџџ  (@&` ˆ˜ А€L1HcmdDBComplUpdate]ь ,ѕ €M1DcmdDBStrShowдт0ѕ €R1HcmdDBStrCheckateдЪ0ѕ€S1HcmdDBComplCheckeдь ™™™™™™™™™™™™™€€€џџџШагџџџfЬўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqШагџџџџџџџџџџџџџ(€Checkaseg O ї€@сМTahomase(€Drawingeg O ї€@сМTahomage(€Checkageg O ї€@сМTahomage@H  Q€ €џџ}№ЖRelated FilesRу ‘ЮуЊKИQ_Tahomaœƒo0ѕ€O1@CommandButton6тЇ,х€P@cmdCallDrawingдЇ0ѕ€Q1@CommandButton8т€@№МTahoma(€Projectg {ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqckateдЪ,4FР€€€€ €”{0Sheet Cuton.5€ДTahoma0FР€€€€€”{0Saw Cut5€ДTahoma0FР€€€€€”{0w Machine5€ДTahoma,FР€€€€€”{0chWeld5€ДTahoma0FР€€€€€”{0ldAssembly5€ДTahoma4FР€€€€ €т{0inSpar<H  p€ €џџ0}g ЖFabrication.€€ €ў{0anReferencete.5€ДTahoma4FР€€€€ €ў{0anInseparable.5€ДTahomaќЦ`  4H  |€€џџ@}“ ЖTYPoRу ‘ЮуЊKИQ_Tahomaр…e$х€xPobNormalдд(х €yPobPurchaseChдO(х €zPobPhantomeChдЪ(х €{TobReferencehдE,х €|TobInseparableckeдР ИШ"ај(8X"p ˜ И Р и ш& HP X` hpx€€ џџџџ€ џџџџˆЈ€ џџџџРи€ џџџџ ј 0 @PX€ џџџџ"h€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ@<џџИ< џџ<џџџџџџџџџџШ Дџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „>џџџџџџџџX% „Жџџџџџџџџx%џџџџџџџџџџџџџџџџ€џџџџџџџџџџџџЈџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ`cSпўЪ€€ џџџџ"€ џџџџ€€€ џџџџ (R8"ИР€ џџџџШи*р€ џџџџ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!К!МЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œЖMust be in Part documentA@<|џџ@kџџ8э 4!О.Ж VœЖ MUST BE IN ACTIVE SKETCH TO RUN!A@<ZАŠZ|џџшkџџр РB@Ж KWiK-ObroundЖSettingsЖTopЖ200$Ф Р(ТЖ KWiK-ObroundЖSettingsЖLeftЖ100$Ф Р(мoџџHџџџџ@џџџџфБAttribute VB_Name = "Obround" Option Explicit Pub, SHub œ(). Dim oDo c As um enf2Sketch8Planar kPartObject And ј_ X†kID""{28EC8354-9024-440F-A8A2-0E0E55D635B0}"€Ren {MsgBox "Must b e in F doc‚€ГExi–t­EPIfƒƒ‚„Ѓ†EditGƒpƒ‰Err•IUST BE IN ACTIVE SKETCH TРO RUN!о&Уfrmƒ.Shoˆw Top•Get/ting€("KWiK-Ф а", "sС@ a200"€•ˆLИeftш 1™SРw И`cSпўЪ€€ џџџџ"€ џџџџ€€€ џџџџ (R8"ИР€ џџџџШи*р€ џџџџ :0:p€ џџџџ€ џџџџАџџџџРЭџџx–]ђ@]ђ`ЩXэ 4!B.>І >!Ю 8 >!К!МЖ&{28EC8354-9024-440F-A8A2-0E0E55D635B0}œЖMust be in Part documentA@<|џџ@kџџ8э 4!О.Ж VœЖ MUST BE IN ACTIVE SKETCH TO RUN!A@<ZАŠZ|џџшkџџр РB@Ж KWiK-ObroundЖSettingsЖTopЖ200$Ф Р(Т€ џџџџ€ џџџџ˜  А ИШ€ џџџџ€ 6а  € џџџџ € џџџџ2(  `  €   И и № € џџџџ€ 2ј € џџџџ€ b0 € j˜ € џџџџ€ ( €0 8 @ € X x € џџџџ€ D и € џџџџ€ џџџџ€ <№ € 40 € 6h L  € џџџџ€ <№ L0  €  € џџџџ    И  $и  $ $( P*`   А(Рш$№  "( P Xhp€ џџџџxЈ РаLиL(x &ˆАИР€ џџџџШ€ џџџџ" а€ 4и€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(‚\TпўЪG"€ џџџџ€ € € џџџџ€ џџџџ€(€0€8€ џџџџ@€ џџџџXp ˆ Ј€ џџџџ АР р№€ џџџџј€ џџџџ€ € џџџџ€ * € $P€ џџџџ€ x€ ˜€ џџџџ€ NИ€ џџџџ€ € џџџџ€ " € H€ <`€ џџџџ€  € џџџџ€ џџџџ€0ЦА€ џџџџ€ "x€ џџџџ€ џџџџ€ џџџџ€ ( € џџџџ€ *Ш€ $ј€ џџџџ€  € @€ џџџџ€ N`€ џџџџ€ А€ џџџџ€ "Ш€ №€ B€ џџџџ€ џџџџ€ P€ џџџџ€ џџџџџџџџh–]ђ@э 4. џџџџ(@X€ џџџџ€`€hpx€ А€ џџџџ€ DШ€ џџџџ€ џџџџ€ <(€ 4h€ 6 Lи€ џџџџ€ <(Lh ИШ и № $ $8 $` ˆ*˜ Ши ш(ј $(P X"` ˆ  ЈАШр јLL`А Р&и  0H€ џџџџ€ џџџџP€ џџџџ€ џџџџ€ џџџџџџџџ`–]ђ@э 4.0]ђ`эЖZP:\Inventor System Files\2013\Inventor 2013 Templates\Inventor 2013 Templates\BOM-List.xls P 0!B!L%N.HЖAll BOM List Purchase H(œэА.HэА.0oџџ–€ЖBOM V%\B@HЖBOM V%\б`ЖBOM V%\B@^ЖBOM (2) V%\B@H TЖBOM (2) V%\(ЖBILL OF MATERIALЌ $f TЌ $f Z T V%\!b(doџџ0–(ЖBOM V%\B@H T V%\B@jјoџџ№–ар8 returns TRUE if the sheet exists in the active workbookЗ'lЩn˜ T V%\!Ќ œЗ'lzџџhkџџ`ЃnXiџџP–X]ђИ]ђаЌ'tЌ'2џ 2ўЌ r’ r 2Ќ$њЖ-œ 2'tkџџрџЧи tЌ œ r tЌ r t $њ'pdџџ˜ r'pkџџˆiџџ€–шр* Set a reference to the assembly document.р- This assumes an assembly document is active.]ђ(]ђH]ђh]ђ€]ђ˜]ђИ]ђи]ђј]ђ]ђ8]ђX]ђp]ђ]ђА]ђш]ђ]ђ ]ђ@]ђ`]ђ€]ђ ]ђИ]ђа]ђш]ђ]ђ э 4.0э 0!B.> >!L!,'xЌ'z xЌœAFЌ'zdџџиџ 2ўЌ x’э 2 0!B!L%T.H H!œЖAll BOM List Purchaseœ x'zkџџhџЧ` zЌœAF xЌ 'zdџџ0ЖDelete existing BOM-Lists?'І Њ Ќ Ў 'ЈЖ All BOM List'АЖDEMO.HLP'ВЌш'Др Define topic І Ј А$<'Ж Ж Иœр$ User chose Yes. z 0!B!L%TB@jAF 0!B!L!,'xЌ'zџ 2ўЌ x’э 2 0!B!L%T.H H!œЖAll BOM List Purchaseœ x'zkџџЈџЧ dџџ˜|џџkџџˆkџџ€kџџxэ z 0!B!L%T.H К V HBBэЖBOM V%М.|эЖBOM_Data V%М.€ >!ž'„јэ >!H!В.АЗ А(Ж А!ОЗœЗ А(ОkџџЈЖ- А(ИэЖ Structured А!О%T. З'Д ДœЗ А(ОdџџHЗ А(Оkџџ0р/ Make sure that the structured view is enabled.З А(Жэ  !р.’эЖDesign Tracking Properties >!ц%T.ЂэЖ Part Number Ђ%T.–эЖ Description Ђ%T.˜ –!ш V$lœ –!ш V ˜!шARэ –!ш V%М.‚kџџр+Set a reference to the "Structured" BOMViewр[ Debug.Print "Item"; Tab(15); "Quantity"; Tab(30); "Part Number"; Tab(70); "Description"рd Debug.Print "----------------------------------------------------------------------------------"р!Initialize the tab for ItemNumber]ђ@Ќ'Рџ 2ўЌ ’!,’р Get the current row.э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the rowэЌ †!т%T.ˆр 5Get the file property that contains the "Part Number"р -The file property is obtained from the parentр /document of the associated ComponentDefinition.эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.Žр 5Get the file property that contains the "Description"эЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!Т'š š­Ыœ †!Ф$p'ž ž РЌ Ќ ‚%Ц(ш †!Ш РЌ Ќ ‚%Ц(ш Ž!ш РЌ Ќ ‚%Ц(ш !ш РЌ Ќ ‚%Ц(ш š­ЫœЖ Purchased РЌ Ќ ‚%Ц(ш š­Ыe ˆ!@!Ю'œ œЌ0œ0Ц.]ђ`]ђ€]ђ˜]ђА 0! !&!'4t.Jeџ 2ўЌ 8!:’ 2 8%<Зœx 2 8%>'6 CkџџXџЧP 6 6œэ 6 0! !*%@.0ly s 0B@Bo: kџџoџџрPrivate Sub filelistfill()р$ Dim oapp As Inventor.Applicationр Set oapp = ThisApplicationр Dim sFile As Stringр Dim sPath As StringрH sPath = oapp.DesignProjectManager.ActiveDesignProject.DesignDataPathр MsgBox sPathрsFile = Dir$(sPath & "*.*")р List1.Clearр5Call SendMessage(List1.hwnd, LB_DIR, 0&, ByVal sPath)рEnd SubІЯџЖџ џŠџrџрЇPrivate Declare Function SendMessage Lib "user32"' Alias "SendMessageA" (' ByVal hwnd As Long,' ByVal wMsg As Long,' ByVal wParam As Long,' lParam As Any) As LongрPrivate Const LB_DIR = &H18Dр"Private Sub CommandButton1_Click()р$ Dim oapp As Inventor.Applicationр Set oapp = ThisApplicationр Dim sFile As Stringр Dim sPath As StringрG sPath = oapp.DesignProjectManager.ActiveDesignProject.WorkspacePathр MsgBox sPathрsFile = Dir$(sPath & "*.*")рLB_FileList.Clearр;Call SendMessage(LB_FileList.hwnd, LB_DIR, 0&, ByVal sPath)рEnd Subџџџџ˜џџџџГAttribute VB_Name = "UserForm1" " €Bas€0{4E33C8BC-B0F7-43AF-BFD0-35EF52C6CB02}{1B588230-0665-4664-8B61-84247A6727D9} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DP Sub LB_ProjectList_Click()  Dim oapp As Inventor.App€ationƒSetƒ= ThisŽ‚"prj"Design9 34iƒ2teger‡ Р [_actЅСS„ngsР Џ)‰ Щ=‚).Ъ Mana.AcіtRŠ.CC@„ i@k1 ToLN‚.OCountƒ ‰AOIf Sel@Z`ed(i)}@Leп„Q СE,4=‘@End IfУјNex€У IќTh Тo€€${гGJFs.ItemBКyH(ŽE1o€OU€šƒ$‰* ASubС€'IЄfilЌelРЂРlCЂ'a '_QТyQ & sF‡  щI'Path*M=Фs_HKHЃDataСу  Msg№Box т  Ѓ€= Dir$(у €& "*.*"+'!L1.CleaРc'Call S€endMess X‚(Уhwnd,FDIR, 0&,Р ByValЃ  /  / E/DУ‘ F$un aoni L ib "uрЎ32" _  Al ias "(A"< („ca!)Lohng,*w`4PParammlІA8ny)Ѕƒ&Const$ Y&H18DŒЈN CommandBut№ton1Iž†@{žТ“MР8m M SEšт* C5zqq•Wor,ks!вџL'ќLB_ЁcсIИMˆN ЊN †!Т'š š­Ыœ †!Ф$p'ž ž РЌ Ќ ‚%Ц(ш †!Ш РЌ Ќ ‚%Ц(ш Ž!ш РЌ Ќ ‚%Ц(ш !ш РЌ Ќ ‚%Ц(ш š­ЫœЖ Purchased РЌ Ќ ‚%Ц№дрџџџџ8 G–4vљџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџTџџџџџџLPџџ џџџџ(џџџџ,0џџџџ4џџ8<џџ@Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<џџ <џџ<џџ@< F<џџP<џџ\<џџh<<<$n<џџ„<џџŠ<џџЄ<џџВ<џџМ<џџШ<џџж< џџџџџџџџX % „Dџџџџџџџџx% „Nџџџџџџџџ˜% „ZџџџџџџџџИ% dxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „fџџџџџџџџ% „>џџџџџџџџ8 % „lџџџџџџџџX$%`„pџџџџџџџџ џџ |`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ77„`„~џџџџџџџџџџ „€џџџџџџџџш(% „‚џџџџџџџџ,%`„†џџџџџџџџџџ „ˆџџџџџџџџ@0%`„šџџџџџџџџџџ  (џџџџџџџџџџџџџџџџ џџџџџџџџ„)ƒЂџџџџџџџџРШ„4%iƒІџџџџџџџџџџш„iƒšџџџџџџџџџџџџџџ„ј „Јџџџџџџџџ џџџџ% Ўрџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „>џџџџџџџџ€x(% „Аџџџџџџџџ ˜8%`„Дџџџџџџџџ џџИ „Кџџџџџџџџиџџџџ<% Ф@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „Цџџџџџџџџ8.@% Ьџџџџџџџџџџџџџџџџџџџџџџџџџџџџ++„`„аџџџџџџџџџџDate „вџџџџџџџџА(% „АџџџџџџџџаrTab8% „дџџџџџџџџ№ockOD%`„иџџџџџџџџџџ`„кџџџџџџџџџџ`„мџџџџџџџџџџи „>џџџџџџџџX4. %`„оџџџџџџџџџџ6 `„Іџџџџџџџџџџder юАџџџџџџџџџџџџџџџџаџџџџџџџџ„)ƒдџџџџџџџџ№ј„4!D%)ƒ№џџџџџџџџ „D(%iƒаџџџџџџџџџџ@‚ >iƒђџџџџџџџџџџџџџџ„!X „єџџџџџџџџxN!D%`„оџџџџџџџџџџB@``„ІџџџџџџџџџџD ъHџџџџџџџџџџџџџџџџ№џџџџџџџџ „iƒаџџџџџџџџџџ„шНgiƒоџџџџџџџџџџџџџџ„lect`„Єџџџџџџџџџџ.f і0 џџџџџџџџџџџџџџџџџџџџџџџџџџџџ77„`„~џџџџџџџџџџ!r „€џџџџџџџџИr((% „‚џџџџџџџџиv,%`„†џџџџџџџџџџv „ˆџџџџџџџџ 0%`„šџџџџџџџџџџ ј џџџџџџџџџџџџџџџџp џџџџџџџџ„)ƒЂџџџџџџџџ ˜ „џџџџ4%iƒІџџџџџџџџџџИ „џџџџiƒšџџџџџџџџџџџџџџ„ „Јџџџџџџџџ№ џџ%`„њџџџџџџџџџџ Р џџџџџџџџџџџџџџџџџџџџџџџџџџџџ11„`„аџџџџџџџџџџџџџџ „вџџџџџџџџ€ %(% „Аџџџџџџџџ  %8% „дџџџџџџџџР %D%`„џџџџџџџџџџ%`„њџџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„иџџџџџџџџџџџџџџ`„џџџџџџџџџџ%`„кџџџџџџџџџџ`„мџџџџџџџџџџX „>џџџџџџџџˆ џџџџ %`„оџџџџџџџџџџ`„Іџџџџџџџџџџ  р џџџџџџџџџџџџџџџџ џџџџџџџџ„)ƒдџџџџџџџџ ( „D%)ƒ№џџџџџџџџH P „(%iƒаџџџџџџџџџџp ‚џџџџiƒђџџџџџџџџџџџџџџ„ „єџџџџџџџџЈ D%`„оџџџџџџџџџџџџџџ`„Іџџџџџџџџџџ @ џџџџџџџџџџџџџџџџ џџџџџџџџ„iƒџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџ˜ H% „"џџџџџџџџИ B@L% „(џџџџџџџџи ineBP%Ђ€џџџџџџџџџџџџџџџџЂ€џџџџџџџџ8џџџџџџџџџџџџ`џџџџџџџџџџџџР џџџџ€ @ @р рџџџџџџџџрџџџџџџџџxр (H@А0 џџџџџџџџРmblyџџџџP@џџџџр џџџџџџџџџџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0‚\TпўЪг€€€ џџџџ"  ( 8$H$pT˜№€ џџџџ" ј   € џџџџ€ џџџџ"(€ џџџџ€0 8€ џџџџ HPhИР€ џџџџ€Ша€ џџџџ€рш€ џџџџ€*€ џџџџ@€PX€ џџџџ h xˆ€ џџџџА€ џџџџа€ џџџџи€ џџџџ"рш€(№€ џџџџ€08€ џџџџ P€`h€x€€ џџџџЈШш€ џџџџ08€ џџџџ"@€ џџџџ€H€ џџџџ€ &P€x€€ ˆ ˜&Јаир№€ џџџџ€ *ј€(€08H,P € ЈА€ џџџџ И Ша ирш€ џџџџ€ №€€ џџџџ€ *(€ џџџџ XЖAssembly РЌ Ќ ‚%Ц(шdџџЖPart РЌ Ќ ‚%Ц(шkџџрdџџиЖ РЌ Ќ ‚%Ц(шkџџЈ РЌ 'РkџџџЧˆџ 2ўЌ ’!,’э 2 ’%T.†эЌ †!т%T.ˆ ˆ0œdџџ(эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.ŽэЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!ьАœ †!ь V | Ž!ш !шAЬkџџHkџџ@џЧ8oџџ0–Xр. Iterate through the contents of the BOM Rows. Ю V$lœ Ю V аARэ Ю V%М.‚kџџ ]ђP]ђhЌ'Рџ 2ўЌ ’!,’р Get the current row.э 2 ’%T.†р=Set a reference to the primary ComponentDefinition of the rowэЌ †!т%T.ˆр 5Get the file property that contains the "Part Number"р -The file property is obtained from the parentр /document of the associated ComponentDefinition.эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.Žр 5Get the file property that contains the "Description"эЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!Т'š š­Ыœ †!Ф$p'ž ž РЌ Ќ ‚%Ц(ш †!Ш РЌ Ќ ‚%Ц(ш Ž!ш РЌ Ќ ‚%Ц(ш !ш РЌ Ќ ‚%Ц(ш š­ЫœЖ Purchased РЌ Ќ ‚%Ц(ш š­Ыe ˆ!@!Ю'œ œЌ0œЖAssembly РЌ Ќ ‚%Ц(шdџџи ЖPart РЌ Ќ ‚%Ц(шkџџЈ dџџ  Ж РЌ Ќ ‚%Ц(шkџџp РЌ 'РkџџX џЧP џ 2ўЌ ’!,’э 2 ’%T.†эЌ †!т%T.ˆ ˆ0œdџџ№ эЖ Part NumberЖDesign Tracking Properties ˆ!@!ц%T%T.ŽэЖ DescriptionЖDesign Tracking Properties ˆ!@!ц%T%T. †!ьАœ Ž!ш V$lœ †!ь V | Ž!ш !шAЬkџџјkџџ№kџџшџЧр РЌœ Ю V аAhkџџАoџџЈџџџџ џџџџљЖAttribute VB_Name = "purBOMListtoexel" Priva”Su`b cre(„EXCEL() Dim oapp As Inventor.Applicati€on SetBР= This 6=РOleRef@erencedOLEFileDeрscripSG+=Q.Activ@eDocumx.>s.Add("P:\Є System 3s\2013  Tehmpl€zs– €‡-™.xls", kZ…EEmbeddingObject•o^.Di s,yНAll €$ $ Purc0hase€ПxNoœth( Й= † Р End е‘л€SheetinƒкТ@lS€‚ng, oWBС_Excel.WorkbРook, dƒ_ЫC Р1 A ".Bs("0")0.Sel;UCopy Before:=R (2~)лDS7NF) .PageЅup.C@erHeaderAСBILL OF MATERIAL" & €Chr(10)@/†JФH`d@DteB?`@3`F.).DG$ЈxFun io$n ExР€s(†Ч?E)!Booleaр}' returns TRUE if thHe saP eB ”inbaТw wфMc6H@2FalseOn Erro@r GoTo _Such‚УIf pLen(шJ‚C)B.Ђ > 0@e?`СWaBу€ TrЮud aРt %#c alIf No†f:C)ч e t@rakt_iрŒn|o(УЇ)Т&уj%ЉiЁInteger‘cЋposj !@= 1 i@0чР @"A1 Р"A у #$EР"Midd, i, 1)р"-"L!У i extL `Ё> @ h?Х' ˆ@ Щ С+ Œ1,B2ф - Р§РEF:nCC*-#q‰+Pub@Ы!ІlС UQueryƒбС6T' Юa€PfcЩ toЃMssembАly dхХc'!Рis ass ШрЖnA+ с‚U.cпc3ћоbлрСС7AdХУу€ edfileџ*<с&fЮ$ЩсZцяBQЛє т/1a—_2§љ2џ0!ЂВ@x?paС–№ГvrbtгbedIaxРhV arian•Row‘єComЬpDЃ‚Ёon№[№iniЃ†B Arrоa№ СХ5qs1@MoPartNumPropertyŸёЕ4$ˆty'# b:ЄEn $raЧb‹2 dberq_r˜0pstrпY d2ypp @FirstLРevelOnР0pЧ–[Ђ VieЕЁ …oc ignT№rackАhЁ Б6 џЁёрЁLQТ1/Ÿу Яa1?œат5 —1PРЏФ s.C€ џџџџ$h€ џџџџ€ >а€ џџџџ€ № € џџџџ:X€ џџџџ€ џџџџ€ џџџџ" `€ џџџџ€ <h€ЈА€ :Р>€ џџџџ€ 2@€ x˜ ЈШаи€ џџџџ"р€ 0ш€ 4 €P X € џџџџ€ "h € ˜ € џџџџ€А € >И € $oЦua#L3= -@RвK3щ)`CaА—П­ELяS>№ЧKFyWІ“HBџЊџЊяЎorsђ.ЁP(iT\ёPXЄТЛЄЄќ]! o {5nёNZ РЮ-чщ`сяtoBЇGN= №bs'AMs~gёjs‹„А'С_ВЗsŽ? Вq1StyРT= vbYesNBo vbCrРAc alТРBault$Bu`Юn2g Tit‚"ЉˆHelpREMO.HLBPЈCtxt 1H000!' IePgpicRes0ponsё Bo$x(`,  , ?ђЛт тUsёрЊchoаp$iЁџ1q7бДpе„&{gЂџUqяюa>>џЏ<Џ<тХБњГpc=Хџq81uЇЕ9їєч9e 9ЂfPѕ9џ9fk`%я ‰:E;‹4xitpЖ€ Sub РEnd IfxX Set oOleRef = oapp.ActiveDo€cument.2erencedOLEFileDescriptors.item(e mbedf2exist) Ca llUNate( kShowCVe€rb, oWB)€Sheet1€WB.Workss("BOM"&Ѕ$2$_Data) vrtSelectedI€N€e.FulТl^Name„:.…ComponwDefinitiˆon. o€.StructuredViewE@nabledTDru€%If FirstLeve lOnly ThenЦ!Fals0…зDeliŠmТr0"-"†шП@-*@ „Фk"Ч3ŸƒLЮ*СC+ @9їŒ ы2УJE4С3•!Х?ƒ#' Make s€c that'@Fh v€h ihs eƒi.тpG„Rјows„MAPAFVР’РignTrackingPropСЇ@ЯС™ertЎy€…[У  „ies_СoPaаrtNuРбrСыеƒм" C РчsП@c("ЄС]ЁЁ` 0а  8@€ џџџџ H€ џџџџX€ џџџџ" `€ џџџџ€h€p€ џџџџ€x€ џџџџ€€ џџџџЈ ШJиJ(€ x€ >ˆ0Ш~creР|‚inEXCELџИ@AШC €}С<‚"B  ‘С!ы‚В@%E  '!a refБƒ— toEi_ ФbC\ЅKрDebug.Print "ˆ"; Tab(15); "Qu@antity„3ю0щ1ƒ7т), ћ Њ -?*‚€с 'I™alizeBtab for #G Dim k As Integer kЁ -1 FiA ToТ›`.CoˆuntУ%' G@Ч€the curрУрt row€m!Ђ7прС|B"Хi`4Фє3primaryт В ofтр cџТ €ЖA р ЙФpо1b#a'eЁз< p yAw  РŠcoРntainsbъm›lр  ы ob! ФfromBpaЁ$ldЄьeassшociРhd1 Ф+!bN 9}т@Ф!.џрCу{ХџHLњHяEџA\ _O@^л/q їЖ ЄП fП П ПTАTД I0UOpst§ro"А?fpч Pwр51973TNА tnтZp'extrakt_.no(/в76‘oEM.Cells(k +Р 1, 1)уOряЗ;Ÿ’2—–Jйet№TЋ3 %ч3 __ 4XЌ_њ Љ Ѕ‘џі5ч"Purch№asedOЉБ†ў~0XkЩдтЅ>4Х4T|ypр˜iБ7б1№2291OFob‘ Ass Еlyќ џ!ї“„~б?~ щ•U‘?> ы Я g=0 —%§eNР4Ё–яg`™Р]цg§ A ё.3/fБ ”AЯaRОШaQАAO НЕIs Vir№tualLТˆ+џть4aT?NџYџYџџYёYЁ 1Rь7_@нџ_aБ P­_ЊQЊŸUY@ƒaЃтGChildАi…s PhВп0 ЃQueryl уџАX 4 `Б3TІтІ@џЂSРRеŸE FGРЊ/XЩ('ёS‘ѓ ­€Ÿv xє ? p v›2 S sб“ЄEn0wLraёРWB‘Excel"эboožk`C Ћ2, р"џј08€ џџџџ@€ џџџџ€ 0H€ 0x€ 6Ј€ 6р" € џџџџ€ € џџџџ€ ,(€ &X€ˆ˜ ЈИ€ џџџџ€ џџџџ"Р€ џџџџ€Ш€ џџџџ€ &а€ј€  &(PX`p€ џџџџ€ *x€Ј€шD#jр‰Чд 'Qž0Дhrough the conte@nts ofxBOM Rows. If Not SheetExists(P arИ tNum, oWB) T@hen Call createhinEXC$ELj, IDe@scrip)CSet o=Act =b.Works… €2End If: Dim i As LoTngkIхg er kQ1  For€= 1` To oz‚yCount%' G€C‚ury ro~wŠr‚PNiрtem(i€G@a refece toЏprimary Compon€ЄDefiРnition…Р€3Пƒ!3€5€8.єs.‚=1‚=ƒR€'afile p€roperty€C„atТ}ainsB% "Сs tber"ЉŠ 'w Ыi‹bted fr4om‚pТ…Ьdocum9…6assшoci‡d@DW/w‚>%Р$PХ-€‚DC.КD. ФA"@“ign Trac king „ieјs")ƒJŠ;†lССџgMФ­oHMТ.„…'oџџ.˜7ЫР.E-Р0pstrХ‰€ЅSt€ructureeƒРѓЧ 51973hwУ% 9tnum@A€ extrakt_ЁALno(oaPI`cEшЁІv.Cells(k + 1, 1).ValМueР g +E42'&Quantitіy@3ЬIcП§ 4Ј ;БП,D-Д5Ч "PurchasedЬrElsКeю 0А9A d>20ЦoЎPEiTyp(E$… Ћ Ј1229 ІЦНЅх"Assрemblyь!aџы1џ KBzq ЈУЅ ѓ љ" IЯ… сЫт^л'ХN€i?Я т‡рlџЁ5ЎЫС ф8arСьЩшТЁ EAџџџџрEnd Subџџџџ˜џџџџГAttribute VB_Name = "UserForm1" " €Bas€0{A9129C5E-7DCF-4E9C-AC69-E9FC5FBE8E5C}{D89AFD63-2C78-45C1-A422-0E3A05BF8F4C} dGlob„al‹Spaco False ŠCr@eatabl№@д|џџџџIQ –4‰цџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSPџџџџSџџџџSџџџџSџџџџ<џџ<џџ$<џџ<џџџџџџ2š0{9C53AFE6-3D82АИШ,а  (0€ џџџџ 8 HP X`h€ џџџџ€ p€ˆ˜€ џџџџ€ *Ј€ џџџџ и€ џџџџ$ш€ џџџџ€ >P€ џџџџ€ p ˆ€ џџџџ:˜и€ џџџџ€ џџџџ€ џџџџ" р€ џџџџ€ <ш€(€08€ :H€ fˆ №&€ 2@€ x˜ ЈШ а р( 8@HP€ џџџџ€ џџџџ"X`.xЈА€ џџџџ€ИР€ џџџџ€рш€ џџџџ€ј€ џџџџ€€ €(€0€8€@€H€P€X€`€h€ џџџџp€ џџџџ*xЈ Ш и ш&јJ RpJШ&€ $@>hЈРШ€ џџџџ а€ џџџџр€ џџџџ" ш€ џџџџ€№€ј€ џџџџ€€ џџџџ€ џџџџ0 P ` p&€JЈRјJP& € $Ш>№0HP€ џџџџX€ џџџџ€ џџџџ" `€ џџџџ h x€ џџџџˆ€ џџџџ ЈРШ€ џџџџа€ џџџџш€ џџџџ"№€ џџџџ€ј€ џџџџ€ €08€ џџџџ€ џџџџ€HP€ џџџџ`€ џџџџp€ € џџџџ€ џџџџЈџџџџИ]ђр ]ђ–@эЦ.эЦ. & ($ЖMicrosoft.Jet.OLEDB.4.0 ((ЖC:\DeineDatenbank.mdb B@ЖESELECT * FROM DeineBќcherTabelle, DB, adOpenDynamic, adLockOptimistic B@oџџ–€ B@B B@Boџџи–р]ђ э 4.0 0!6 8 0!6 :œЖ-Ppart- oder Assembly-Document muss aktiv sei-41CD-A1ED-BAA4088A4A75}{0CA41891-B8D8-4B9F-82BB-E09554A6175D}џџџџ8 .џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџGG” „0џџџџџџџџX% „0џџџџџџџџx%`„2џџџџџџџџџџ`„4џџџџџџџџџџthe `„6џџџџџџџџџџ'š€ўџјџџ№џџШџџџџџџџџ%ўџџџџџџџџџ џџјџџџџџџџџ %џџџџџџџџШџџџџџџџџШџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(‚\TпўЪG"€ џџџџ€ € € џџџџ€ џџџџ€(€0€8€ џџџџ@€ џџџџXp ˆ Ј€ џџџџ АР р№€ џџџџј€ џџџџ€ € џџџџ€ * € $P€ џџџџ€ x€ ˜€ џџџџ€ NИ€ џџџџ€ € џџџџ€ " € H€ <`€ џџџџ€  € џџџџ€ џџџџ€0ЦА€ џџџџ€ "x€ џџџџ€ џџџџ€ џџџџ€ ( € џџџџ€ *Ш€ $ј€ џџџџ€  € @€ џџџџ€ N`€ џџџџ€ А€ џџџџ€ "Ш€ №€ B€ џџџџ€ џџџџ€ P€ џџџџ€ џџџџџџџџh–]ђ@э 4.0Ц.]ђ`]ђ€]ђ˜]ђА 0! !&!'4t.Jeџ 2ўЌ 8!:’ 2 8%<Зœx 2 8%>'6 CkџџXџЧP 6 6œэ 6 0! !*%@.0ly s 0B@Bo: kџџoџџрPrivate Sub filelistfill()р$ Dim oapp As Inventor.Applicationр Set oapp = ThisApplicationр Dim sFile As Stringр Dim sPath As StringрH sPath = oapp.DesignProjectManager.ActiveDesignProject.DesignDataPathр MsgBox sPathрsFile = Dir$(sPath & "*.*")р List1.Clearр5Call SendMessage(List1.hwnd, LB_DIR, 0&, ByVal sPath)рEnd SubІЯџЖџ џŠџrџрЇPrivate Declare Function SendMessage Lib "user32"' Alias "SendMessageA" (' ByVal hwnd As Long,' ByVal wMsg As Long,' ByVal wParam As Long,' lParam As Any) As LongрPrivate Const LB_DIR = &H18Dр"Private Sub CommandButton1_Click()р$ Dim oapp As Inventor.Applicationр Set oapp = ThisApplicationр Dim sFile As Stringр Dim sPath As StringрG sPath = oapp.DesignProjectManager.ActiveDesignProject.WorkspacePathр MsgBox sPathрsFile = Dir$(sPath & "*.*")рLB_FileList.Clearр;Call SendMessage(LB_FileList.hwnd, LB_DIR, 0&, ByVal sPath)рEnd Subџџџџ˜џџџџГAttribute VB_Name = "UserForm1" " €Bas€0{9C53AFE6-3D82-41CD-A1ED-BAA4088A4A75}{0CA41891-B8D8-4B9F-82BB-E09554A6175D} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DP Sub LB_ProjectList_Click()  Dim oapp As Inventor.App€ationƒSetƒ= ThisŽ‚"prj"Design9 34iƒ2teger‡ Р [_actЅСS„ngsР Џ)‰ Щ=‚).Ъ Mana.AcіtRŠ.CC@„ i@k1 ToLN‚.OCountƒ ‰AOIf Sel@Z`ed(i)}@Leп„Q СE,4=‘@End IfУјNex€У IќTh Тo€€${гGJFs.ItemBКyH(ŽE1o€OU€šƒ$‰* ASubС€'IЄfilЌelРЂРlCЂ'a '_QТyQ & sF‡  щI'Path*M=Фs_HKHЃDataСу  Msg№Box т  Ѓ€= Dir$(у €& "*.*"+'!L1.CleaРc'Call S€endMess X‚(Уhwnd,FDIR, 0&,Р ByValЃ  /  / E/DУ‘ F$un aoni L ib "uрЎ32" _  Al ias "(A"< („ca!)Lohng,*w`4PParammlІA8ny)Ѕƒ&Const$ Y&H18DŒЈN CommandBut№ton1Iž†@{žТ“MР8m M SEšт* C5zqq•Wor,ks!вџL'ќLB_ЁcсIИMˆN ЊN Р џџџџџџџџџџџџџџџџџџџџџџџџџџџџ11„`„аџџџџџџџџџџ „вџџџџџџџџ€ (% „Аџџџџџџџџ  8% „дџџџџџџџџР D%`„џџџџџџџџџџ`„њџџџџџџџџџџ`„џџџџџџџџџџ`„№дрџџџџ8 G–4vљџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџTџџџџџџLPџџ џџџџ(џџџџ,0џџџџ4џџ8<џџ@Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<џџ <џџ<џџ@< F<џџP<џџ\<џџh<<<$n<џџ„<џџŠ<џџЄ<џџВ<џџМ<џџШ<џџж< ]ђ`э >!H!J!L.DЩј]ђ€эЖCenter Of Mass >!H!R%T.N V!XЌœ]ђ э N!^.Z D Z(F >B@`dџџpэ D >!H!R%b.NЖCenter Of Mass N(kџџ(oџџ –РЩ]ђр$braucht man nur fќr selectэЌ 4!B%j.f]ђ э f!^!@.> >Аœ]ђ@э 4!B.l]ђ` l!r!t'p p џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€~€€€~џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР~џџџШагџџџ™™™™™™™™™™™™™™€€€џџџШагџџџfЬVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmIProp2 Caption = "Property Entry" ClientHeight = 7470 ClientLeft = 45 ClientTop = 45€ЅTahomat€H€,N45€ЅTahomatАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€~€€€~џџџШагџџџРРРРРРџџџРРРРРРџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџfЬџ€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ~џџџШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагШагџџџu€ДTahoma€H€,Ђ5€сTahoma( €Part Numberg {З€@№МTahoma€H€,з>5€сTahoma( €Descriptiong {З€@№МTahoma€H€,Ђ5€сTahoma( €Stock Numberg {З€@№МTahoma(€Projectq{З€@№МTahomat€H€,Ђ5€сTahomat(€DesigntžЇЗ€@УМTahomat(€ApprovedžЇЗ€@УМTahomaed(€NamežЇЗ€@УМTahomaed(€DatežЇЗ€@УМTahomaed(€MaterialР {З€@№МTahomaalA€H€,ЂN5€ДTahomagl€H€,Ђ5€сTahomaal(€Vendoralž{l!r(t pЌ >!H%v(x pЌ >!H%v(x pЌ >!H%v(xј 4!zB@` f 4!B!jB@HkџџШoџџР–x]ђИр Check that an assembly is open.]ђа]ђ№ 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџ(dџџ э 4!B.€kџџр$ Get the name of the file to create.]ђ]ђ( ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filenTahomaxŸ€(х €@cmdCanceler.z-W)$х€@cmdApplyŽ#W),х €4txtDesignNameЌ,х€ 4 txtApprovedNameu,х €4txtDesignDatemeŽЌ,х€4 txtApprovedDateŽu,ѕ €2КbtnDrawnDateF'Ќ0ѕ€#2КbtnApprovedDateF'u,х €%4txtPartNumberte{(ѕ€&2@Label1lyдO,х€'4txtDescriptione(ѕ€(2@Label2lyдq,х€)4txtStockNumbereР (ѕ€*2@Label3lyд” (ѕ€+2<Label4lyџ*O(х €,4txtProjectmbC3{(ѕ€12<Label7lyЌ(ѕ€22<Label8lyњ(ѕ€?28Label18y0(ѕ€@28Label19y> (ѕ€G0<Label21yW)“ $е€N"frFile1yЇ˜ame9З9’З9”C@–5˜Жœ|џџ0dџџ(5˜'†kџџqџџр Open the file.]ђH А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šA р Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –`р6 Iterate through the occurrences in the cu,ѕ €T08cbMaterialmbC3Р (е €U"џџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€€џџџШагџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРРџџџРРРРРР€€З€@№МTahomat€H€,Ђ5€сTahomat(€DesigntžЇЗ€@УМTahomat(€ApprovedžЇЗ€@УМTahomaed(€NamežЇЗ€@УМTahomaed(€DatežЇЗ€@УМTahomaed(€MaterialР {З€@№МTahomaalA€H€,№N5€ДTahomagl€H€,Ђ frRoughCutmb 9Ќ$е€r" frTYPe1yв+Ќ(х €}4txtVendortmbC3т(ѕ€~2<Label22yв+Ж$е€€" frWorkstGFЌ(е €‹"frDocTypetmbŒNЇ(ѕ€0@Label23tдЖ,ѕ €‘08cbCostCenterтLabel23tдЖ,ѕ €‘08cbCostCenўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq2.0 FrameEm0FР€€€€€Р{0inAssembly5€rrent level.]ђџ Јў Ђ“р3 Write information for this occurrence to the file. šв ІЖ,$ \ Ј!Ж, Ј!^!@!žжр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šA kџџ0џЧ(oџџ –(р* Set a reference to the assembly document.р- This assumes an assembly document is active.]ђhэ 4!B.>р Set a reference to the BOM]ђˆэ >!H!В.А]ђЈр8 If MsgBox("First level only?", vbYesNo) = vbYes Thenр FirstLevelOnly = Trueр ElseЗ'Др End Ifр/ Make sure that the structured view is enabled.З А(ЖЖ- А(Ир, Set a reference to the "Structured" BOMView]ђРэЖ Structured А!О%T.КЖ Part Number КBРЌЌ КBТoџџИ–р]ђ э 4!Ш.Ц Ц!ЪA@<oџџ€–@ 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџ(kџџ ]ђ€ЖC:\Temp\Export.csv'а]ђ˜э 4!B.в]ђИэ в!H!В.А]ђи]ђј]ђ]ђ(]ђ@]ђ`]ђxЌ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties в!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ д!ьАœ д > а ІAюkџџРџЧИ ЄVoџџ –]ђ`]ђ€]ђ˜ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties №!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ є!ьАœ є > а ІAюkџџШџЧРoџџИр* Einzelne Zeile an eine Textdatei anhфngenр) sFilename: vollstфndiger Name der Dateiр0 sLine : Inhalt, der gespeichert werden sollр0 ===============================================–А]ђ0р& Datei zum "Anhфngen" von Daten іffnenр und Textzeile ans Ende anfќgen А'Є а ЄЋЬ Єв ож ЄVoџџ@–H]ђˆр Check that an assembly is open.]ђ ]ђР 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџЈ dџџ  э 4!B.€kџџˆ р$ Get the name of the file to create.]ђр]ђј ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџА dџџЈ 5˜'†kџџ˜ qџџ р Open the file.]ђ А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šAјр Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –0 р6 Iterate through the occurrences in the current level.]ђи ]ђј џ Јў Ђ“р3 Write information for this occurrence to the file.р_Print #Filџџ##„ „0џџџџџџџџ8% „>џџџџџџџџX % „Dџџџџџџџџx% „Nџџџџџџџџ˜% „ZџџџџџџџџИ% dxџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „fџџџџџџџџ% „>џџџџџџџџ8 % „lџџџџџџџџX$%`„pџџџџџџџџ џџ |`џџџџџџџџџџџџџџџџџџџџџџџџџџџџ77„`„~џџџџџџџџџџ „€џџџџџџџџш(% „‚џџџџџџџџ,%`„†џџџџџџџџџџ „ˆџџџџџџџџ@0%`„šџџџџџџџџџџ  (џџџџџџџџџџџџџџџџ џџџџџџџџ„)ƒЂџџџџџџџџРШ„4%iƒІџџџџџџџџџџш„iƒšџџџџџџџџџџџџџџ„ј „Јџџџџџџџџ џџџџ% Ўрџџџџџџџџџџџџџџџџџџџџџџџџџџџџ „ „>џџџџџџџџ€x(% „Аџџџџџџџџ ˜8%`„Дџџџџџџџџ џџИ „Кџџџџџџџџиџџџџ<% Ф@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „Цџџџџџџџџ8.@% Ьџџџџџџџџџџџџџџџџџџџџџџџџџџџџ++„`„аџџџџџџџџџџDate „вџџџџџџџџА(% „АџџџџџџџџаrTab8% „дџџџџџџџџ№ockOD%`„иџџџџџџџџџџ`„кџџџџџџџџџџ`„мџџџџџџџџџџи „>џџџџџџџџX4. %`„оџџџџџџџџџџ6 `„Іџџџџџџџџџџder юАџџџџџџџџџџџџџџџџаџџџџџџџџ„)ƒдџџџџџџџџ№ј„4!D%)ƒ№џџџџџџџџ „D(%iƒаџџџџџџџџџџ@‚ >iƒђџџџџџџџџџџџџџџ„!X „єџџџџџџџџxN!D%`„оџџџџџџџџџџB@``„ІџџџџџџџџџџD ъHџџџџџџџџџџџџџџџџ№џџџџџџџџ „iƒаџџџџџџџџџџ„шНgiƒоџџџџџџџџџџџџџџ„lect`„Єџџџџџџџџџџ.f і0 џџџџџџџџџџџџџџџџџџџџџџџџџџџџ77„`„~џџџџџџџџџџ!r „€џџџџџџџџИr((% „‚џџџџџџџџиv,%`„†џџџџџџџџџџv „ˆџџџџџџџџ 0%`„šџџџџџџџџџџ ј џџџџџџџџџџџџџџџџp џџџџџџџџ„)ƒЂџџџџџџџџ ˜ „џџџџ4%iƒІџџџџџџџџџџИ „џџџџiƒšџџџџџџџџџџџџџџ„ „Јџџџџџџџџ№ џџ%`„њџџџџџџџџџџ Р џџџџџџџџџџџџџџџџџџџџџџџџџџџџ11„`„аџџџџџџџџџџџџџџ „вџџџџџџџџ€ %(% „Аџџџџџџџџ  %8% „дџџџџџџџџР %D%`„џџџџџџџџџџ%`„њџџџџџџџџџџџџџџ`„џџџџџџџџџџџџџџ`„ePointer, String$(level, ",") & occ.Name & "," & occ.Definition.Document.FullFileName ЈB@ќ Ј!^!@!ž'˜ ˜ ˜Ќ $мЖidw 'њр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šAјdџџ0 њ$ўœ Ј!^!@!ž 4!B@ЖtataA@< Ј!^!@!žA@< 4!BB@BkџџРkџџИџЧАoџџЈ– 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџPkџџH]ђP ЖC:\Temp\Export.csv'а]ђh э 4!B.в]ђˆ э в!H!В.А]ђЈ ]ђШ ]ђр ]ђј ]ђ ]ђ( ]ђ@ ]ђX ]ђp ]ђ ]ђЈ Ќ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'к >!ž' >!Ю'   Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summarиџџџџџџџџџџџџџџ`„џџџџџџџџџџ%`„кџџџџџџџџџџ`„мџџџџџџџџџџX „>џџџџџџџџˆ џџџџ %`„оџџџџџџџџџџ`„Іџџџџџџџџџџ  р џџџџџџџџџџџџџџџџ џџџџџџџџ„)ƒдџџџџџџџџ ( „D%)ƒ№џџџџџџџџH P „(%iƒаџџџџџџџџџџp ‚џџџџiƒђџџџџџџџџџџџџџџ„ „єџџџџџџџџЈ D%`„оџџџџџџџџџџџџџџ`„Іџџџџџџџџџџ @ џџџџџџџџџџџџџџџџ џџџџџџџџ„iƒџџџџџџџџџџџџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџ˜ H% „"џџџџџџџџИ B@L% „(џџџџџџџџи ineBP%Ђ€џџџџџџџџџџџџџџџџЂ€џџџџџџџџ8џџџџџџџџџџџџ`џџџџџџџџџџџџР џџџџ€ @ @р рџџџџџџџџрџџџџџџџџxр (H@А0 џџџџџџџџРmblyџџџџP@џџџџр џџџџџџџџџџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0‚\TпўЪг€€€ џџџџ"  ( 8$H$pT˜№€ џџџџ" ј   € џџџџ€ џџџџ"(€ џџџџ€0 8€ џџџџ HPhИР€ џџџџ€Ша€ џџџџ€рш€ џџџџ€*€ џџџџ@€PX€ џџџџ h xˆ€ џџџџА€ џџџџа€ џџџџи€ џџџџ"рш€(№€ џџџџ€08€ џџџџ P€`h€x€€ џџџџЈШш€ џџџџ0y Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџ8џЧ0 ЄVoџџ–Р ]ђ ]ђА ]ђШ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'к >!Ю'  >!ž'  Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџАџЧЈoџџ –р A@ь B@Ќ  !(€ '  Д{ЎGсz”? bA@„Йџџ0Ќ  !(€oџџ–@ ]ђ€ э 4! .р Get the active project]ђ  э !&."]ђР э !*.( (!,A@<џ "ў (“ЖName: "!A@<џЧXoџџPџџџџHџџџџеЗAttribute VB_Name = "Module1" Dim DB As ConnectHionTrsTRecordset Priva”Sub Form_Load€() SetŒр= New ’0ILDB.Cur€sorLocat–adUseClienm Pro viderБicrosoft.J@et.OLE4.0СB.Open "C:\DeineDЁnba@nk.mdb rsSELECT * FROM ‚BќcherT€abelle,a, ad'Dyn0amic€PkOptimistiТc(End €€“ˆUnl‰Cancel Integ er’DClosže€Џ€~ƒ†% Џ ublic- Workpoint€atmassc€‰дerД У мPoapp1v€oрr.App ‚Ї€N€ПB = ThiFsЬУIf .AveDocum@Type <€> kPartШObj€ˆ A@™ AssemblyqŒ TheР–@%‚MsgBox "Pbp- oz-E muss a@ktiv sw", 16, "FalsAn Fehlere…ExiЮtDg€WIfСVСџТL€СLEШIAЮIŒEŠCРIerOfM;@hСPlЪ= o.ComponDefini О.СЛpert0ies.‰ ХOn Error RьesРgРйxф@55џ‹B!ˆ"ј†s.item("Ё# Of A"`XХO€Fр.Numbt0рKЉ;ЂFixќedрb €ƒпС2‚TfрЦ.р„$ыХЧoE.#+'Чa aт.updр‚ЃќElpУч ТF€Žƒі5†s.AddТ\(oi%у o†.џЅЏ#І*%у%V-aЌ ЎToggleSel`pedIHOWPƒ МDO ccA1'ccurre • 'braucht man nur fќrП nA уЂ#=d.љр(1ф #BBal€ЭќIn$–рТˆ A`9;` Ш?. У€PNoBtтj Is `hˆing1QAsm!џЦ-”у !6тС?< bFlagA Booleaшœ#€ .ЈVisibility.@OriginbDlАanes'o? V!Т hр&?GoЌn.'`. lБO?KuK82)?aюgОO83?@7—Мl4ZView.y>ЏАdVnЧ*” ^op'ƒ•8X8Pzr Re$Struct8ure8гA!stˆr_WqRowБ!`№)ѓS' Check that 7€d’s is oP.cСasmАaЯ+1docr{6А‚5ёEnuўmƒЯ-п06Eб€НЏ}Ё}An  €|t be a5R†.{bѓЙY б8„/ + ф ‰'„ G€Љthe аœe of€e fi.to creУ a(csvFАВ' щбsaр‘iallo‚>‘Dв“C˜all GJ–.C" Ї(7ДQWithЎ WГё.` tУЏ`CSV (P[АYd del Јted)(*. )|bE.c Tit="Specify Рoutputт!ё­onsEna№bled D–€ЊТSuppres"sр‡oluQ‹Warnа,sРTruсКhowSАЕ‹л`$ eВШ"\Z1OЋ›ˆzё )=ў &gU;тР ё…ќ' ’Тё 1 ˜R„4ЛSЙ= FјreeГђ9 Pбь Osp#ИG"A’(top-levџ€Тv2„ #JDQлЧС гйnt y Ыƒ’BP splayR‡€& "," &р8СAD.FullЁ Б!w Read` roXughт F a€wџLb гN%Д в/‚ _P3ДPƒ;пgаgo–‡sљН, xp1Ѓ АQ1в"ш"д Хёlze2 1 0*WHЇ t˜o: Ш Ј^AщюМ ByValў h YВН0d„•р чЃcЗ%, s˜!ћзтEI@@`J`‡yЬin“œt rDAKЗocc As ComponentOccurren ce Fo€r Each  lIn|s€H' Write information  thi"sb to$e file.zPr@int #FPo er, Stg$(level, ",") ‚&J.Name Definis.DocumФ`.FullO, 2 ЈIf•€Qa subassembly eratУ€ƒoover€ ‰fnsa€*€.E…DType = kA„-… Object` Then‡N5CallƒІucture(-SubЭs, Œ + (1, œ)&End IfƒNex8t #‡Pu blic € B€OMSort(‚' Set a prefe…lЦFd›…XC'€0СOss^ s an N СctivХ|Dimќ oBСЭEC!Bb=‚App@+‚•.ўAB…QХvж-@7ƒ_@Т=$.FСШ” СAFirШstLСЄOnŠЮ@Booleaq'AoРMsgBox,("‚ „io ?", vbYesNќo)@„‚@7С‚3Œ@?ru€ЁТElцsHЄN FaТƒ „~!GGMake€Иre™Пat@trƒ—@d viewЁ4e@nabledфZoЉ .SІV€EРTaаDelŒimh"-"0д –4"Ї "сQA џƒЂ6Ї ad8Чт8OЯ :aЄs.@m^(‰ Фec "ooЎ.Ђc"Part NРumber"ФЈRenт(`s1F ѕoTest_PrŽoсƒp‚FLoГџ{@‚_"ЎbЂcŽiƒQ oс.ЊsˆDirЫrivŸ1т‚ExpР‚`'To˜CSV!€[Noa–|is7rfА?Ÿ$Ÿd"Funk"Чnu@­n Baugruppen mіg €h.DIExitЇacœ &sтУs9ing ‡= "C:\Temp\ƒ.csіv@ ƒo@‘–’‚.ŸЯ.o’B8`'$U `Rу™ХRowџ$ dQ м$…0iCouрш@InАtege@;Сs!Wп"EА А[nbт№LineAЉУf™D 3= 1в3 О ‡‚` С‚ .0ѓ‘:я7")Б ”„2O s;€?ont1)–&у;фЗTotalQuantiМty3З`.p7`perty ѕ Design Tr(ack$ $ies№ DЖ@.VaўlAZБPёФt?z"?oa?єF9'АDebup-ё'Д3AД& " x0&ц ‡1inFг дЂ=П–В–","–яŠГTp…17р@endтц6, sƒЄCБbbhil‚d€s Is 0EhЛТUproc€essAllCњ(4,{@ёс-$‘єVе“ Clo|se0І!qyOЯsh(Byа $Ї8,ў „ єР1№ђЃ€%У5QRef H@ћc5p5р фHА3џ`‡4@’Ц1 Ё;Нѓq3= „№ЂQЗ:wY;.b€Ÿ9oџя9я9qEЁ*$*`13 ž.я9X+`я9teа{oЏ3Џ3Љzя9t€‰oыЖ_@(:rooУ.љ:x ф:ВЬ€г:џP4А C#на:ГЯГ:ч(:t ыo:Оg$Ћ!1o:ƒ=(‰П:sБП:@h ‰' E inzel iZe[№сЦejq d ŠiahфngcД’6nт: voll@stфndi p ѕpd0мDAБЈГ0 АInhalt, gespeich`a werdэр‡s !=М hжФEпAgеAп# v>сQБ>F1Av~ a' В zu m "AnS"p‚n‚n іffў Ѓu Т! zGЗeile ans End€fќgen F €= FreeF€ k=Obj8ect€&ƒП| MsgBox "Anhmust fbж‚3."ƒ.E˜xitВ‚ls‚Сс Se‹|YlIfa' GAthe no"fZe fAto€ createˆXјcsvŠТ Р‡‰k‚s‚aHialogX A DBCCallЭNUC‚‡ (sЦ@ŠСС8With GУE.€)terД"CSV (Command delimР”d)(*.Y@,)|‚T.ƒ%Tit@Щ= "Specify ouptput‚?8I OpsEnabledбaЪa.SuppressResolu WarŠn@Гs TruШlР.ShowSР9EaЗA3€‘4eТVР$"ŒŒ?С ‚B !A‰h= џF Ч&@ТР%с+ЧAтЯсAa@(?!4Po. ?IntegerчЃ iЋ‹ т i!ŒіOу,р#h‡B‚"Qtop-leve~lчd$УŠˆ '1пф6ЃЅ—@Zф,` !…A @splayŸ&@ "," &EF8ullAaчReadРroughїТІ‘сNw™Т Ѓџ!JdЂ_ЄЂт€gDЂ—".рWponР•DefiniAH.occurrenceРs, 1, Ш%Љџ@ЄТБЌ6eДЅјletРYA@U УЕУГ$to: #h8” aHSЅО `,v… ПLByVaмl Ј„OЉCѓƒ>'M, у AфPЭh!I@‚athЧ4щЬinB4У*t т D4A˜@TУIaDWGСтF 9`'УЁ[EˆachA In)Ёn' Ђ# inаformЂЫ рћкf! Аl:Ђ1Zcд$(Т,aY)Р,Р О.R е-и%Хl.ы.їQ1бdxK!AфI‚vВ = (Left(Х, Lenж) - 3) + "idwN"`ђ@' Rt y(1€a sub'GУЉovKitџа‚G&єБPЛ ~[чџ|џ|q >6јSubj.’€N=гx EЎ]А q'P`sєt(8)ЏbBŒЅ дs.RY(‹.хJ‡(… хCtata(rьЯ"wХO—I—.2M[щlQљNexАŸабOЋJdxfЯq…`‰QЉаNošoŸwgŸFRЄ=яžюžеFunk!] nur? Baugr0ƒбрЗmіgPІh%ŸW~љЕ aGWКHGGoC:\Temp\РExportБ№=УopЉБMЊ ?AЄ_Є‹ЏaбoBа€ џџџџ€ № € џџџџ:X€ џџџџ€ џџџџ€ џџџџ" `€ џџџџ€ <h€ЈА€ :Р>€ џџџџ€ 2@€ x˜ ЈШаи€ џџџџ"р€ 0ш€ 4 €P X € џџџџ€ "h € ˜ € џџџџ€А € >И € $ј €  0 € 8 € џџџџ€ џџџџ€ 6H  €  € џџџџ€ 2  €и "р € џџџџ ( € џџџџ€ џџџџ@ € џџџџ"H €P X h x € џџџџ"€ ˆ .  а и € џџџџ€р ш € џџџџ€  € џџџџ€ ( € џџџџ€@ €H €$х€8btnTodayі$х€4btnOKday'ЌH{@CМР I= &(б`ќџџџџџџџџџџџa0n1q‘БrU€€€€~| +Ё!Iq ™СщQyЉ ЉЙсб I‰СiЉЩ™P €X €` €h €p € џџџџx € џџџџ*€ А  а Jр J0 € € € > 0а  8@€ џџџџ H€ џџџџX€ џџџџ" `€ џџџџ€h€p€ џџџџ€x€ џџџџ€€ џџџџЈ ШJиJ(€ x€ >ˆ0Шј08€ џџџџ@€ џџџџ€ 0H€ 0x€ 6Ј€ 6р" € џџџџ€ € џџџџ€ ,(€ &X€ˆ˜ ЈИ€ џџџџ€ џџџџ"Р€ џџџџ€Ш€ џџџџ€ &а€ј€  &(PX`p€ џџџџ€ *x€Ј€АИШ,а  (0€ џџџџ 8 HP X`h€ џџџџ€ p€ˆ˜€ џџџџ€ *Ј€ џџџџ и€ џџџџ$ш€ џџџџ€ >P€ џџџџ€ p ˆ€ џџџџ:˜и€ џџџџ€ џџџџ€ џџџџ" р€ џџџџ€ <ш€(€08€ :H€ fˆ №&€ 2@€ x˜ ЈШ а р( 8@HP€ џџџџ€ џџџџ"X`.xЈА€ џџџџ€ИР€ џџџџ€рш€ џџџџ€ј€ џџџџ€€ €(€0€8€@€H€P€X€`€h€ џџџџp€ џџџџ*xЈ Ш и ш&јJ RpJШ&€ $@>hЈРШ€ џџџџ а€ џџџџр€ џџџџ" ш€ џџџџ€№€ј€ џџџџ€€ џџџџ€ џџџџ0 P ` p&€JЈRјJP& € $Ш>№0HP€ џџџџX€ џџџџ€ џџџџ" `€ џџџџ h x€ џџџџˆ€ џџџџ ЈРШ€ џџџџа€ џџџџш€ џџџџ"№€ џџџџ€ј€ џџџџ€ €08€ џџџџ€ џџџџ€HP€ џџџџ`€ џџџџp€ € џџџџ€ џџџџЈџџџџИ]ђр ]ђ–@эЦ.эЦ. & ($ЖMicrosoft.Jet.OLEDB.4.0 ((ЖC:\DeineDatenbank.mdb B@ЖESELECT * FROM DeineBќcherTabelle, DB, adOpenDynamic, adLockOptimistic B@oџџ–€ B@B B@Boџџи–р]ђ э 4.0 0!6 8 0!6 :œЖ-Ppart- oder Assembly-Document muss aktiv seinЌЖFalscher FehlerA@<|џџ@kџџ8]ђ@э 4!B.>]ђ`э >!H!J!L.DЩј]ђ€эЖCenter Of Mass >!H!R%T.N V!XЌœ]ђ э N!^.Z D Z(F >B@`dџџpэ D >!H!R%b.NЖCenter Of Mass N(kџџ(oџџ –РЩ]ђр$braucht man nur fќr selectэЌ 4!B%j.f]ђ э f!^!@.> >Аœ]ђ@э 4!B.l]ђ` l!r!t'p p l!r(t pЌ >!H%v(x pЌ >!H%v(x pЌ >!H%v(xј 4!zB@` f 4!B!jB@HkџџШoџџР–x]ђИр Check that an assembly is open.]ђа]ђ№ 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџ(dџџ э 4!B.€kџџр$ Get the name of the file to create.]ђ]ђ( ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџ0dџџ(5˜'†kџџqџџр Open the file.]ђH А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šA р Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –`р6 Iterate through the occurrences in the current level.]ђџ Јў Ђ“р3 Write information for this occurrence to the file. šв ІЖ,$ \ Ј!Ж, Ј!^!@!žжр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šA kџџ0џЧ(oџџ –(р* Set a reference to the assembly document.р- This assumes an assembly document is active.]ђhэ 4!B.>р Set a reference to the BOM]ђˆэ >!H!В.А]ђЈр8 If MsgBox("First level only?", vbYesNo) = vbYes Thenр FirstLevelOnly = Trueр ElseЗ'Др End Ifр/ Make sure that the structured view is enabled.З А(ЖЖ- А(Ир, Set a reference to the "Structured" BOMView]ђРэЖ Structured А!О%T.КЖ Part Number КBРЌЌ КBТoџџИ–р]ђ э 4!Ш.Ц Ц!ЪA@<oџџ€–@ 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџ(kџџ ]ђ€ЖC:\Temp\Export.csv'а]ђ˜э 4!B.в]ђИэ в!H!В.А]ђи]ђј]ђ]ђ(]ђ@]ђ`]ђxЌ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties в!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ д!ьАœ д > а ІAюkџџРџЧИ ЄVoџџ –]ђ`]ђ€]ђ˜ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties №!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ є!ьАœ є > а ІAюkџџШџЧРoџџИр* Einzelne Zeile an eine Textdatei anhфngenр) sFilename: vollstфndiger Name der Dateiр0 sLine : Inhalt, der gespeichert werden sollр0 ===============================================–А]ђ0р& Datei zum "Anhфngen" von Daten іffnenр und Textzeile ans Ende anfќgen А'Є а ЄЋЬ Єв ож ЄVoџџ@–H]ђˆр Check that an assembly is open.]ђ ]ђР 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџЈ dџџ  э 4!B.€kџџˆ р$ Get the name of the file to create.]ђр]ђј ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџА dџџЈ 5˜'†kџџ˜ qџџ р Open the file.]ђ А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šAјр Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –0 р6 Iterate through the occurrences in the current level.]ђи ]ђј џ Јў Ђ“р3 Write information for this occurrence to the file.р_Print #FilePointer, String$(level, ",") & occ.Name & "," & occ.Definition.Document.FullFileName ЈB@ќ Ј!^!@!ž'˜ ˜ ˜Ќ $мЖidw 'њр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šAјdџџ0 њ$ўœ Ј!^!@!ž 4!B@ЖtataA@< Ј!^!@!žA@< 4!BB@BkџџРkџџИџЧАoџџЈ– 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџPkџџH]ђP ЖC:\Temp\Export.csv'а]ђh э 4!B.в]ђˆ э в!H!В.А]ђЈ ]ђШ ]ђр ]ђј ]ђ ]ђ( ]ђ@ ]ђX ]ђp ]ђ ]ђЈ Ќ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'к >!ž' >!Ю'   Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџ8џЧ0 ЄVoџџ–Р ]ђ ]ђА ]ђШ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'к >!Ю'  >!ž'  Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџАџЧЈoџџ –р A@ь B@Ќ  !(€ '  Д{ЎGсz”? bA@„Йџџ0Ќ  !(€oџџ–@ ]ђ€ э 4! .р Get the active project]ђ  э !&."]ђР э !*.( (!,A@<џ "ў (“ЖName: "!A@<џЧXoџџPџџџџHџџџџеЗAttribute VB_Name = "Module1" Dim DB As ConnectHionTrsTRecordset Priva”Sub Form_Load€() SetŒр= New ’0ILDB.Cur€sorLocat–adUseClienm Pro viderБicrosoft.J@et.OLE4.0СB.Open "C:\DeineDЁnba@nk.mdb rsSELECT * FROM ‚BќcherT€abelle,a, ad'Dyn0amic€PkOptimistiТc(End €€“ˆUnl‰Cancel Integ er’DClosže€Џ€~ƒ†% Џ ublic- Workpoint€atmassc€‰дerД У мPoapp1v€oрr.App ‚Ї€N€ПB = ThiFsЬУIf .AveDocum@Type <€> kPartШObj€ˆ A@™ AssemblyqŒ TheР–@%‚MsgBox "Pbp- oz-E muss a@ktiv sw", 16, "FalsAn Fehlere…ExiЮtDg€WIfСVСџТL€СLEШIAЮIŒEŠCРIerOfM;@hСPlЪ= o.ComponDefini О.СЛpert0ies.‰ ХOn Error RьesРgРйxф@55џ‹B!ˆ"ј†s.item("Ё# Of A"`XХO€Fр.Numbt0рKЉ;ЂFixќedрb €ƒпС2‚TfрЦ.р„$ыХЧoE.#+'Чa aт.updр‚ЃќElpУч ТF€Žƒі5†s.AddТ\(oi%у o†.џЅЏ#І*%у%V-aЌ ЎToggleSel`pedIHOWPƒ МDO ccA1'ccurre • 'braucht man nur fќrП nA уЂ#=d.љр(1ф #BBal€ЭќIn$–рТˆ A`9;` Ш?. У€PNoBtтj Is `hˆing1QAsm!џЦ-”у !6тС?< bFlagA Booleaшœ#€ .ЈVisibility.@OriginbDlАanes'o? V!Т hр&?GoЌn.'`. lБO?KuK82)?aюgОO83?@7—Мl4ZView.y>ЏАdVnЧ*” ^op'ƒ•8X8Pzr Re$Struct8ure8гA!stˆr_WqRowБ!`№)ѓS' Check that 7€d’s is oP.cСasmАaЯ+1docr{6А‚5ёEnuўmƒЯ-п06Eб€НЏ}Ё}An  €|t be a5R†.{bѓЙY б8„/ + ф ‰'„ G€Љthe аœe of€e fi.to creУ a(csvFАВ' щбsaр‘iallo‚>‘Dв“C˜all GJ–.C" Ї(7ДQWithЎ WГё.` tУЏ`CSV (P[АYd del Јted)(*. )|bE.c Tit="Specify Рoutputт!ё­onsEna№bled D–€ЊТSuppres"sр‡oluQ‹Warnа,sРTruсКhowSАЕ‹л`$ eВШ"\Z1OЋ›ˆzё )=ў &gU;тР ё…ќ' ’Тё 1 ˜R„4ЛSЙ= FјreeГђ9 Pбь Osp#ИG"A’(top-levџ€Тv2„ #JDQлЧС гйnt y Ыƒ’BP splayR‡€& "," &р8СAD.FullЁ Б!w Read` roXughт F a€wџLb гN%Д в/‚ _P3ДPƒ;пgаgo–‡sљН, xp1Ѓ АQ1в"ш"д Хёlze2 1 0*WHЇ t˜o: Ш Ј^AщюМ ByValў h YВН0d„•р чЃcЗ%, s˜!ћзтEI@@`J`‡yЬin“œt rDAKЗocc As ComponentOccurren ce Fo€r Each  lIn|s€H' Write information  thi"sb to$e file.zPr@int #FPo er, Stg$(level, ",") ‚&J.Name Definis.DocumФ`.FullO, 2 ЈIf•€Qa subassembly eratУ€ƒoover€ ‰fnsa€*€.E…DType = kA„-… Object` Then‡N5CallƒІucture(-SubЭs, Œ + (1, œ)&End IfƒNex8t #‡Pu blic € B€OMSort(‚' Set a prefe…lЦFd›…XC'€0СOss^ s an N СctivХ|Dimќ oBСЭEC!Bb=‚App@+‚•.ўAB…QХvж-@7ƒ_@Т=$.FСШ” СAFirШstLСЄOnŠЮ@Booleaq'AoРMsgBox,("‚ „io ?", vbYesNќo)@„‚@7С‚3Œ@?ru€ЁТElцsHЄN FaТƒ „~!GGMake€Иre™Пat@trƒ—@d viewЁ4e@nabledфZoЉ .SІV€EРTaаDelŒimh"-"0д –4"Ї "сQA џƒЂ6Ї ad8Чт8OЯ :aЄs.@m^(‰ Фec "ooЎ.Ђc"Part NРumber"ФЈRenт(`s1F ѕoTest_PrŽoсƒp‚FLoГџ{@‚_"ЎbЂcŽiƒQ oс.ЊsˆDirЫrivŸ1т‚ExpР‚`'To˜CSV!€[Noa–|is7rfА?Ÿ$Ÿd"Funk"Чnu@­n Baugruppen mіg €h.DIExitЇacœ &sтУs9ing ‡= "C:\Temp\ƒ.csіv@ ƒo@‘–’‚.ŸЯ.o’B8`'$U `Rу™ХRowџ$ dQ м$…0iCouрш@InАtege@;Сs!Wп"EА А[nbт№LineAЉУf™D 3= 1в3 О ‡‚` С‚ .0ѓ‘:я7")Б ”„2O s;€?ont1)–&у;фЗTotalQuantiМty3З`.p7`perty ѕ Design Tr(ack$ $ies№ DЖ@.VaўlAZБPёФt?z"?oa?єF9'АDebup-ё'Д3AД& " x0&ц ‡1inFг дЂ=П–В–","–ƒ‰Err•IUST BE IN ACTIVE SKETCH TРO RUN!о&Уfrmƒ.Shoˆw Top•Get/ting€("KWiK-Ф а", "sС@ a200"€•ˆLИeftш 1™SРw  0 ќЦр й(oBOMRowslevel DWGFileNamefilenameLќЦx  0 ќЦ`  0 ќЦ(  0 ќЦр  0 ќЦяŠГTp…17р@endтц6, sƒЄCБbbhil‚d€s Is 0EhЛТUproc€essAllCњ(4,{@ёс-$‘єVе“ Clo|se0І!qyOЯsh(Byа $Ї8,ў „ єР1№ђЃ€%У5QRef H@ћc5p5р фHА3џ`‡4@’Ц1 Ё;Нѓq3= „№ЂQЗ:wY;.b€Ÿ9oџя9я9qEЁ*$*`13 ž.я9X+`я9teа{oЏ3Џ3Љzя9t€‰oыЖ_@(:rooУ.љ:x ф:ВЬ€г:џP4А C#на:ГЯГ:ч(:t ыo:Оg$Ћ!1o:ƒ=(‰П:sБП:@h ‰' E inzel iZe[№сЦejq d ŠiahфngcД’6nт: voll@stфndi p ѕpd0мDAБЈГ0 АInhalt, gespeich`a werdэр‡s !=М hжФEпAgеAп# v>сQБ>F1Av~ a' В zu m "AnS"p‚n‚n іffў Ѓu Т! zGЗeile ans End€fќgen F €= FreeF€ k=Obj8ect€&ƒП| MsgBox "Anhmust fbж‚3."ƒ.E˜xitВ‚ls‚Сс Se‹|YlIfa' GAthe no"fZe fAto€ createˆXјcsvŠТ Р‡‰k‚s‚aHialogX A DBCCallЭNUC‚‡ (sЦ@ŠСС8Wit10џџџџџџџџџџџџњџџџ`I џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLБ/Љ1дддџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPБ/С1иииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTёFq Hззedded Objectє9Вq 45 ClientTop = 3( €Project List; {З€@МTahoma$(€File List Assembly{З€@МTahoma (€File List Parts{З€@зџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXБ/СFвввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\ёFq1Hйййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџg W — 8М$ahџ §ѓxџ5hџBxџahџb§ѓHџHџa8џ§ѓ4џ4џa$џЙ`1Tџ)Hџ4џ6hџ8џ$џєpNџєpLџ.(рўџџHџ!  Hџ Д lџ§i№ўHџўh GУE.€)terД"CSV (Command delimР”d)(*.Y@,)|‚T.ƒ%Tit@Щ= "Specify ouptput‚?8I OpsEnabledбaЪa.SuppressResolu WarŠn@Гs TruШlР.ShowSР9EaЗA3€‘4eТVР$"ŒŒ?С ‚B !A‰h= џF Ч&@ТР%с+ЧAтЯсAa@(?!4Po. ?IntegerчЃ iЋ‹ т i!ŒіOу,р#h‡B‚"Qtop-leve~lчd$УŠˆ '1пф6ЃЅ—@Zф,` !…A @splayŸ&@ "," &EF8ullAaчReadРroughїТІ‘сNw™Т Ѓџ!JdЂ_ЄЂт€gDЂ—".рWponР•DefiniAH.occurrenceРs, 1, Ш%Љџ@ЄТБЌ6eДЅјletРYA@U УЕУГ$to: #h8” aHSЅО `,v… ПLByVaмl Ј„OЉCѓƒ>'M, у AфPЭh!I@‚athЧ4щЬinB4У*t т D4A˜@TУIaDWGСтF 9`'УЁ[EˆachA In)Ёn' Ђ# inаformЂЫ рћкf! Аl:Ђ1Zcд$(Т,aY)Р,Р О.R е-и%Хl.ы.їQ1бdxK!AфI‚vВ = (Left(Х, Lenж) - 3) + "idwN"`ђ@' Rt y(1€a sub'GУЉovKitџа‚G&єБPЛ ~[чџ|џ|q >6јSubj.’€N=гx EЎ]А q'P`sєt(8)ЏbBŒЅ дs.RY(‹.хJ‡(… хCtata(rьЯ"wХO—I—.2M[щlQљNexАŸабOЋJdxfЯq…`‰QЉаNošoŸwgŸFRЄ=яžюžеFunk!] nur? Baugr0ƒбрЗmіgPІh%ŸW~љЕ aGWКHGGoC:\Temp\РExportБ№=УopЉБMЊ ?AЄ_Є‹ЏaбoBЄўџ>”ўџA„ў`18џ6 џдўЄў”ў„ў3lDџJѕЎDџMџ@џ  џ:шўћ”дў`1@џ6џдў l8џћ0Вl@џџ џ(џ]ћ35џ„ @џ А*'”ў'Єў'дўѕlDџ*Fџ 6џдўЄў”ў lјўўУ!ќўaџ -§ѓ [фўќcћвУфў5џ/ќўaџ -ќ‹єЉ+‚ўџ§ѓ фўфў фў5џ xџfџ@ ќ(L-4 8џ@џќў(џDџ<џXџHџhџјў$фўџдўЄў”ў„ўˆ$G€ FHџ%$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџ;$alџ §ѓhџhџaXџ§ѓ[4џ=0џ)hџ4џ6lџXџ0џalџM`1,џ5lџ8ѕѕџџџџ:Hџ Nlџlџl,џXџ !Xџџ6 Y$џ(џџ6lџXџ0џalџ`# џ"ћ0/ џ5lџ+'рў'џ'Xџѕ:Hџ#Nlџlџ 6lџXџџрўl(џєLl(џžCмўєкўl(џєќЫѕЎфўcжўllмў *# џkкўчl(џž*1мў/ џ кўdжўGlмў$*# џl(џєќЫl(џž*1мў/ џUѕмўMHџ@lџ % ѕѕџџџџѕ&lџ§ў џlмў 'FXџ%cџ%0џў  / џ6lџXџ@$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџЈ$<-"0џмў,џ(џ( џhџ4џlџXџџрўa+фўahџ +ќ‹є+тўhџ§ѓ `џ`џ `џ5hџќcќћаў ќc=\џ ќc=dџ ќc=xџPЌД@9(dџxџшўLџ\џфўаў `џјўhџ<џќў˜(Dџ](џћt Dџќі(џѕxџH aџќ"5џўdџ# xџ§“@H ўЂџ§ѓ ќў5џ:ўСџ%ќўaџ-§ѓфўфўўЂдў§ѓјўфў6џдўјўaџ6џAдў`1Dџ6џдўјўaџ6џAдў`1<џ6џдўE:Фў%:џ%јўaџ6џ=дўџ>Єўџ>”ўџA„ў`18џ6 џдўЄў”ў„ў3lDџJѕЎDџMџ@џ  џ:шўћ”дў`1@џ6џдў l8џћ0Вl@џџ џ(џ]ћ35џ„ @џ А*'”ў'Єў'дўѕlDџ*Fџ 6џдўЄў”ў lјўўУ!ќўaџ -§ѓ [фўќcћвУфў5џ/ќўaџ -ќ‹єЉ+‚ўџ§ѓ фўфў фў5џ xџfџ@ ќ(LA4 8џ@џќў(џDџ<џXџHџhџјў$фўџдўЄў”ў„ўˆ$G€ FHџ%$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџ;$alџ §ѓhџhџaXџ§ѓ[4џ=0џ)hџ4џ6lџXџ0џalџM`1,џ5lџ8ѕѕџџџџ:Hџ Nlџlџl,џXџ !Xџџ6 Y$џ(џџ6lџXџ0џalџ`# џ"ћ0/ џ5lџ+'рў'џ'Xџѕ:Hџ#Nlџlџ 6lџXџџрўl(џєLl(џžCмўєкўl(џєќЫѕЎфўcжўllмў *# џkкўчl(џž*1мў/ џ кўdжўGlмў)*# џl(џєќЫl(џž*1мў/ џUѕмўMHџ@lџ % ѕѕџџџџѕ(lџ§ў џlмў 'FXџ%cџ%0џў  / џ6lџXџ@$alџ §ѓhџhџaXџ§ѓ4џ4џў )hџ4џ6lџXџ|Ј$<A"0џмў,џ(џ( џhџ4џlџXџџрўa$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџ$!`§џџџџџџџџџџџnџџџџџџџџџџџџџџџџџџџџџџџџР‚\TпVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmObround Caption = "Obrounds By KWiK" ClientHeight = 3465 ClientLeft = 30 ClientTop = 270 ClientWidth = 3315 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer $б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџ$!`§џџџџџџџџџџџnџџџџџџџџџџџџџџџџџџџџџџџџР‚\TпVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmObround Caption = "Obrounds By KWiK" ClientHeight = 3465 ClientLeft = 30 ClientTop = 270 ClientWidth = 3315 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer E(ѕ€28Label1thq (ѕ€28Label2thqЪ(х € 8cmdCreateseЇи$х€ 4cmdDoneh; и(х € 4txtPNTwidth; і$х€TchkDimehЇ“ (ѕ€28Label3eh; Ї(ѕ€2< Label4ehЇЇ(х € 4 txtPNTheigth; ErU€€€€~| ‘yŒPlChџ"ѕhџMXџ@ #Tџћ=/Tџ8 (XџќіlџE (Xџќіlџ§• (P,9lџhџTџ0 ќЦ`ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq0FР€€€€€І{0џџVertical5€ЅTahoma4FР€€€€ €І{0rtHorizontall5€ЅTahoma0FР€€€€8Label2gq{(х € 8cmdCreateme.Ї  0 ќЦ@ и$х€ 4cmdDone; и(ѕ€ 1 0 ќЦ€ 4txtAngleЇE(ѕ€ 08lblAngleq (е €!frmAlignment; Ї$е€! frmTypeeЇ$х€T chkDimeeЇ“ 0 ќЦp  C6FD96-2F4D-42CE-8BE0-8AEA580399E4}ъH 1 гЗ`АёYяыH 1 гЗ`АёYя‡МЬn ЅдфЕAЪЈз5ЄkжЛдцЕAЪЈй5ЄkжЛдцЕAЪЈн5ЄkжЛдцЕAЪЈл5ЄkжЛдцЕAЪЈ $All_Color_AS_Black Sheet_Range $Custom_Begin_Sheet Custom_End_Sheet Revision Number 4Design Tracking PropertiesЧ\ѓsnэвЗ…`АёYяЩ\ѓsnэвЗ…`АёYя \pdf\ PDFIDW_PRINT_ALLChild IDW_PRINT&io1НGЎu‹ddШЊ-ЧU3жC‰№Ыїн4ŽM nEngineering HP LaserJet 5200 Series PCL 5 on server-sbs \PDF\ SC1ŒPlChџ"ѕhџMXџ@ #Tџћ=/Tџ8 (XџќіlџE (Xџќіlџ§• (P,9lџhџTџ0 ќЦ`  0 ќЦ@ E(ѕ€28Label1thq (ѕ€28Label2thqЪ(х € 8cmdCreateseЇи$х€ 4cmdDoneh; и(х € 4txtPNTwidth; і$х€TchkDimehЇ“ (ѕ€28Label3eh; Ї(ѕ€2< Label4ehЇЇ(х € 4 txtPNTheigth; ErU€€€€~| ‘yŒPlChџ"ѕhџMXџ@ #Tџћ=/Tџ8 (XџќіlџE (Xџќіlџ§• (P,9lџhџTџ0 ќЦ`ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq0FР€€€€€І{0џџVertical5€ЅTahoma4FР€€€€ €І{0rtHorizontall5€ЅTahoma0FР€€€€8Label2gq{(х € 8cmdCreateme.Ї  0 ќЦ@ и$х€ 4cmdDone; и(ѕ€ 1 0 ќЦ€ 4txtAngleЇE(ѕ€ 08lblAngleq (е €!frmAlignment; Ї$е€! frmTypeeЇ$х€T chkDimeeЇ“ 0 ќЦp  “K*mџџџџ  rU€€€~~~~~~~~~~~~~~~~~~~~C Щ’Kех!ѓO ПUэк4  фџџџџџџџџџџџџџџџџџџџџџџџџљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџyџџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџЩџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџ)џџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџ‘ˆa ) џџџџИџџџџI y ЙџџЙџџџџџџџџџџџџџџџџџџџџйџџџџџџџџџџџџџџџџџџџџљџџџџџџџџџџџџџџџџџџџџ)ˆa ) џџџџрџџџџ)Ii™БџџIˆa ) џџџџИџџџџQaБџџaџџџџџџџџџџџџˆa ) џџџџаџџџџЁЁбџџЁџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџ ˆ ) џџџџ џџџџa Љ  џџ1џџџџџџџџџџџџџџџџџџџџQџџџџџџџџџџџџqџџџџџџџџџџџџџџџџџџџџ™џџџџџџџџџџџџЙџџџџџџџџџџџџџџџџџџџџйСё щё ApplicationProjectModule1 UserForm1purBOMListtoexelObroundchange_draw_propModule11 clsSelect frmVisibleModule12 clsSelect1 frmCalendar plot_to_size modTitleBlock DXF_EXPORTmodIProbBOM_export_all_sub BOMTOEXCELGENERAL PDF_EXPORTfrmIProp IDW_PRINT_ALLwaterjet BOM_to_ExcelaGenFunc aGenModulfrmStartWindow StartWindow UserForm2CreatePartsListWithThumbnailяРF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0 Šй:>LГnaі hдˆ@C:\Program Files\Autodesk\Inventor 2013\Bin\bin32\RxInventor.tlbInventor џџџџAб@0РFC:\Windows\SysWOW64\stdole2.tlbstdole`ј]kгЗ”`АёYя IџџџџqЙPс.E р….`ŒM ДC:\Windows\SysWOW64\FM20.DLLMSForms aa‰б`љЖЖЁP Nœ­Ь­9Ё%ѕ 2C:\Users\rainer\AppData\Local\Temp\VBE\MSForms.exd A ai бplu*ый)AИ“'ї-\:C:\Program Files (x86)\Common Files\System\ado\msado28.tlbADODB 1 “K*mџџџџ  rU€€€~~~~~~~~~~~~~~~~~~~~C Щш)ht-rˆDИ},э_“у  фџџџџџџџџџџџџџџџџџџџџџџџџљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџaџџџџџџџџџџџџџџџџџџџџyџџџџџџџџџџџџџџџџџџџџЉџџџџџџџџџџџџЩџџџџџџџџџџџџщџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџ)џџџџџџџџџџџџIџџџџџџџџџџџџџџџџџџџџiџџџџџџџџџџџџџџџџџџџџ‘ˆa ) џџџџИџџџџI y ЙџџЙџџџџџџџџџџџџџџџџџџџџйџџџџџџџџџџџџџџџџџџџџљџџџџџџџџџџџџџџџџџџџџ)ˆa ) џџџџрџџџџ)Ii™БџџIˆa ) џџџџИџџџџQaБџџaџџџџџџџџџџџџˆa ) џџџџаџџџџЁЁбџџЁџџџџџџџџџџџџџџџџџџџџЩџџџџџџџџџџџџџџџџџџџџ ˆ ) џџџџ џџџџa Љ  џџ1џџџџџџџџџџџџџџџџџџџџQџџџџџџџџџџџџqџџџџџџџџџџџџџџџџџџџџ™џџџџџџџџџџџџЙџџџџџџџџџџџџџџџџџџџџйСё щё ApplicationProjectModule1 UserForm1purBOMListtoexelObroundchange_draw_propModule11 clsSelect frmVisibleModule12 clsSelect1 frmCalendar plot_to_size modTitleBlock DXF_EXPORTmodIProbBOM_export_all_sub BOMTOEXCELGENERAL PDF_EXPORTfrmIProp IDW_PRINT_ALLwaterjet BOM_to_ExcelaGenFunc aGenModulfrmStartWindow StartWindow UserForm2CreatePartsListWithThumbnailяРF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0 Šй:>LГnaі hдˆ@C:\Program Files\Autodesk\Inventor 2013\Bin\bin32\RxInventor.tlbInventor џџџџAб@0РFC:\Windows\SysWOW64\stdole2.tlbstdole`ј]kгЗ”`АёYя IџџџџqЙPс.E р….`ŒM ДC:\Windows\SysWOW64\FM20.DLLMSForms aa‰б`љЖЖЁP Nœ­Ь­9Ё%ѕ 2C:\Users\rainer\AppData\Local\Temp\VBE\MSForms.exd A ai бplu*ый)AИ“'ї-\:C:\Program Files (x86)\Common Files\System\ado\msado28.tlbADODB 1 џџџџY й €РF:C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXEExcel I џџџџq ё  CheckEmbedeд№)СвЗ`АёYяExcelSheetExistsкРFFlatPatternArea Export_All_LC_DXFExportAllLCDXFChildXPнМечˆNŽјcpрЫЃE 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œб љ џџџџ špСcвЗ‹`Аь ЁšpСcвЗ‹`Аь ЂšpСcвЗ‹`Аь ЁJЊ…жгЗ `АёYяqліŠ]З!MЈ7Jf™щrМ StructuredЯOЂНL=@ž2ьхм2—щ D8Uhс8LИVѕ SŒ–б аЗ‚†Dk№OŒЋ!вv`.*ЌХ9dЕLКEvR–(^FullFileNameDocumentType Category JInventor Document Summary InformationPropertySetsitem Value idw LC FileExistDXF_SAVEcheck_ConstrainsdimDiamDimensionAlign 0IDW does not exist for: С*eдЙдeMŒ+”-tAVBE6.DLL yџџџџi ј yџџџџS  yџџџџ… 8gд№)СвЗ`АёYя \ 2Save first the Drawing... \DXF\ DXF yџџџџЧ X yџџџџk x yџџџџШ ˜Export_All_LC_PDFExportAllLCPDFChild PublishPDFШ\ѓsnэвЗ…`АёYя L{0AџџџџY й €РF:C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXEExcel I џџџџq ё  CheckEmbedeд№)СвЗ`АёYяExcelSheetExistsкРFFlatPatternArea Export_All_LC_DXFExportAllLCDXFChildXPнМечˆNŽјcpрЫЃE 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œб љ џџџџ špСcвЗ‹`Аь ЁšpСcвЗ‹`Аь ЂšpСcвЗ‹`Аь ЁJЊ…жгЗ `АёYяqліŠ]З!MЈ7Jf™щrМ StructuredЯOЂНL=@ž2ьхм2—щ D8Uhс8LИVѕ SŒ–б аЗ‚†Dk№OŒЋ!вv`.*ЌХ9dЕLКEvR–(^FullFileNameDocumentType Category JInventor Document Summary InformationPropertySetsitem Value idw LC FileExistDXF_SAVEcheck_ConstrainsdimDiamDimensionAlign 0IDW does not exist for: С*eдЙдeMŒ+”-tAVBE6.DLL yџџџџi ј yџџџџS  yџџџџ… 8gд№)СвЗ`АёYя \ 2Save first the Drawing... \DXF\ DXF yџџџџЧ X yџџџџk x yџџџџШ ˜Export_All_LC_PDFExportAllLCPDFChild PublishPDFШ\ѓsnэвЗ…`АёYя L{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}ъH 1 гЗ`АёYяыH 1 гЗ`АёYя‡МЬn ЅдфЕAЪЈз5ЄkжЛдцЕAЪЈй5ЄkжЛдцЕAЪЈн5ЄkжЛдцЕAЪЈл5ЄkжЛдцЕAЪЈ $All_Color_AS_Black Sheet_Range $Custom_Begin_Sheet Custom_End_Sheet Revision Number 4Design Tracking PropertiesЧ\ѓsnэвЗ…`АёYяЩ\ѓsnэвЗ…`АёYя \pdf\ PDFIDW_PRINT_ALLChild IDW_PRINT&io1НGЎu‹ddШЊ-ЧU3жC‰№Ыїн4ŽM nEngineering HP LaserJet 5200 Series PCL 5 on server-sbs \PDF\ SC1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџдежзийклмнорџџџџстуфхц№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџёђѓєaіїјљњћќўџЙRS TyTщTYUЩUёUV9VaVQ" ‰V1W WсV5сWЉSбSЉOџџџџЙW”?‰)?љљљџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜?‰Q?їїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџœ?‰y?ќќќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ?‰™?MMMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЄЙ?Љс?aaaџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈЙ;Щс;ZZZџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЌЙ;Щб7YYYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАЙ;Щ @XXXџџџџџџџџџџџџџџЈаир№€ џџџџ€ *ј€(€08H,P € ЈА€ џџџџ И Ша ирш€ џџџџ€ №€€ џџџџ€ *(€ џџџџ X€ џџџџ$h€ џџџџ€ >а€ џџџџ€ № € џџџџ:X€ џџџџ€ џџџџ€ џџџџ"  `€ џџџџ€ <h€ЈА€ :Р>€ џџџџ€ 2@€ x˜ ЈШаи€ џџџџ" р€ 0ш€ 4 €P X € џџџџ€ "h € ˜ € џџџџ€А € >И € $ј €  0 € 8 € џџџџ€ џџџџ€ 6H  €  € џџџџ€ 2  €и џџq4 ё6BBBџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџq4  7PPPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџq4 )7[[[џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ с1ЉI7пппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$™ aq7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(™ a‰7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,Ё7iЩ7WWWž§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0i5I 8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4Ё7i18SSSž§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 8i5IQ8   Ј§џџ `‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<™ ay8___џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@Ё7i‘8fffž§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD™2ЩЉ8```џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHс1ЉЩ8bbbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLЁ7iщ8TTTž§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPс1Љ9cccџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTс1Љ!9dddџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXс1ЉA9eeeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\с1Љa9йййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`с1Љ‰9еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdс1ЉБ9ѕѕѕ‚€``Ї§џџ`‘бџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‘W—зW—зW—з_Ÿп_Ÿп_Ÿп_Ÿп_oSUџџџџsьCompObjџџџџџџџџџџџџqpCompObjџџџџџџџџџџџџЈpi85PBL n`єЮ›ЭЊ`ŽчPKyЭрфzsУЭfџџџџџџџџџџџџ6эolnџџџџ2єCompObjџџџџџџџџџџџџ0pfџџџџџџџџџџџџ+ (€Checkaalg O ї€@сМTahomaal(€Drawinglg O ї€@сМTahomagl(€Checkaglg O ї€@сМTahomagl@H  Q€ €џџ}№ЖRelated FilesRу ‘ЮуЊKИQ_Tahomaœƒo0ѕ€O1@CommandButton6тЇ,х€P@cmdCallDrawingдЇ0ѕ€Q1@CommandButton8т`Аџџџџџџџџџџaџџџџ0,,‰`ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq`Мџџџџџџџ0FР€€€€€ў{0џЬlHand Cut5€ДTahoma0FР€€€€€ў{0џЬlSaw Cutt5€ДTahoma4FР€€€€ €ў{0џЬlSheet Cutme.5€ДTahoma$<H  Š€ €џџ?}g ЖRough Cutme.Rу ‘ЮуЊKИQ_Tahoma„ƒo(х €ˆPobHandCutme.дЪ$х€‰PobSawCutдO(х €ŠTobSheetCute.ддљљH€,‰45€ЅTahomal€H€,”45€ЅTahomal€H€,N45€ЅTahomalАџџXXRу ‘ЮуЊKИQltnBMn6(8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШагџџџШаг€€€~€€€€€€€€€Label22yы4Жўє­D§%(<§%§Pџ а §ўЂш§џC)ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq ClientHeight 0FР€€€€€ў{0џSaNormaltt5€ДTahoma0FР€€€€€ў{0џSaPurchase5€ДTahoma0FР€€€€€ў{0џSaPhantome5€ДTahoma4FР€€€€ €ў{0џSaReferenceme.5€ДTahoma4FР€€€€ €ў{0џSaInseparable.5€ДTahoma ш€ џџџџ€№€ј4H  |€€џџ@}“ ЖTYPoRу ‘ЮуЊKИQ_Tahomaр…e$х€xPobNormalдд(х €yPobPurchaseдO(х €zPobPhantomeдЪ(х €{TobReferenceдE,х €|TobInseparableдР h p€˜ €Јўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9Вq80FР€€€€€”{0џSaMachinee5€ДTahoma,FР€€€€€”{0џSaWeld5€ДTahoma8FР€€€€ €Ѕ {0џldexternal Step5€ДTahoma€Ш8H  ‡€€џџ:}g ЖWorksaalRу ‘ЮуЊKИQ_Tahoma€ƒo(х €ƒPŸ0 ќЦ€  0 ќЦи  0 ќЦ0  0 ќЦˆ  0 ќЦр  0 ќЦ8   d(hџxџ! xџ єhџcXџ]ћ3xџ5hџEєџxџ! Txџ рxџ_єxџ! Txџ рxџ4d$E xџhџHџ d(hџxџ! \xџ єhџcXџ]ћ3xџ5hџEєџxџ! Xxџ рxџ_єxџ! Xxџ рxџ4d$E xџhџHџ d(hџxџ! xџ єhџcXџ]ћ3xџ5hџEєџxџ! Pxџ рxџ_єxџ! Pxџ рxџ4d$E xџhџHџx  1$adџ §ѓ`џ`џaPџ{§ѓxџ`џ6dџPџxџWdџ §ѓ Lџ5dџKDџ`џ Є`џ l$lDџ8џX\adџќO§Щ<џаl8џћ=2Dџ8џ`џ5dџв@Dџ`џ Є`џ l$<џ>Dџ§Ч8џЬo<џ§ћ(џ%X\,/8џ`џ;Dџ`џ œ`џ l$>DџFdџ]XXaPџћ@`џ6dџPџ?0Dџ`џ œ`џ l$>DџFdџ%XX,`џ5dџKDџ`џ  `џ l$lDџ8џXTadџќO§Щ<џаl8џћ=2Dџ8џ`џ5dџЬ@Dџ`џ  `џ l$<џ>Dџ§Ч8џЬo<џ§ћ(џ%XT,/8џ`џ;Dџ`џ ˜`џ l$>DџFdџ]XPaPџћ@`џ6dџPџ90Dџ`џ ˜`џ l$>DџFdџ%XP,`џ5dџ;Dџ`џ А`џ l$>DџFdџ]X<aPџћ@`џ6dџPџІ0Dџ`џ А`џ l$>DџFdџ%X<,`џ5dџ;Dџ`џ Р`џ l$>DџFdџ]X@aPџћ@`џ6dџPџ0Dџ`џ Р`џ l$>DџFdџ%X@,`џ5dџ;Dџ`џ И`џ l$>DџFdџ]XDaPџћ@`џ6dџPџ€0Dџ`џ И`џ l$>DџFdџ%XD,`џ5dџ;Dџ`џ Ь`џ l$>DџFdџ]XHaPџћ@`џ6dџPџэ0Dџ`џ Ь`џ l$>DџFdџ%XH,`џ5dџ;Dџ`џ `џ l$>DџFdџ]XlaPџћ@`џ6dџPџZ0Dџ`џ `џ l$>DџFdџ%Xl,`џ5dџcdџ`џ H`џ М6dџXpaPџћ<џџџ! Hџ фkџєџЦ§ј(џћ'№ўџ)`џџ6dџPџ(џь-dџ`џ H`џ М6ќэdџXp,`џ5dџ*dџ`џ 0`џ єdџc(џ]ћ3`џ5dџ.:(џ'%Xd,У*dџ`џ ,`џ єdџc(џ]ћ3`џ5dџn:(џ(%Xd,У*dџ`џ (`џ єdџc(џ]ћ3`џ5dџЎ:(џ)%Xd,У:(џ#%Xd,:(џ#%XL,:(џ#%Xt,*dџ`џ `џ єdџc(џ]ћ3`џ5dџ‚:(џ*%XL,ZXtadџ:(џ?ћяPџџ`џ T`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ `џ єdџc(џ]ћ3`џ5dџ}XLadџ:(џ#]ћ@5dџі+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ.ћяPџ%XL,6dџPџZXtadџ:(џAћяPџџ`џ P`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ $`џ єdџc(џ]ћ3`џ5dџxXLadџ:(џ#]ћ@5dџё+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ0ћяPџ%XL,6dџPџZXtadџ:(џBћяPџџ`џ L`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ \`џ єdџc(џ]ћ3`џ5dџs XLadџ:(џ#]ћ@5dџь+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ2ћяPџ%XL,6dџPџZXtadџ:(џCћяPџџ`џ X`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ ќ`џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџѕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџ5 ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџu ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ ўС(џЫ%Lџ,Bj$adџ §ѓ`џ`џaPџќ"ѕ0Ч§јџџџ №џ М6џ:(џ#]ћ<№ўћ'рўџ)`џџ6dџPџџџї 7dџ`џ №`џ М6dџX`aPџћ@`џ6dџPџѕ ?dџ`џ №`џ М6ќэdџxџWPџ4џBџD§ѓ5Hџ`џ6dџPџџ0'рў'№ў'џѕHџadџ x`FPџ E6 dџPџџ№ўрўlHџ§o(џ%xџWdџ џCF5dџl§œ`џG$H I`џЌ 4ELџtџHџxџ0 Dџ8џ`џџdџPџџ№ўрў0 ќЦј  Pl§œxџG$H Ixџ$E xџ0 ќЦ˜  0 ќЦи  шЌ(hџxџ! 8xџ єhџcXџ]ћ3xџ5hџEєxџ! єxџ рxџ_єџxџ! єxџ рxџєџxџ! фxџ рxџєxџ! xџ рxџєxџ! xџ рxџ4Ќ$E xџhџHџ0 ќЦX  0 ќЦ˜  0 ќЦи  0 ќЦ  0 ќЦX  0 ќЦ˜  0 ќЦи  |$1$ahџ §ѓdџdџaTџ{§ѓxџdџ6hџTџhxџahџќ‹xџaTџ`#PџJѕЎhџ`F@џ0џ 0џ,џdџ! Аdџ l$>,џFџ]ћ3/Pџdџ6 hџTџ@џ0џџм#dџ Аdџ ,dџ#єєє^% dџ Аdџ и$dџ&dџ Аdџ ,dџ$єєѓџ^% dџ Аdџ и$dџp$(Exџ0 Pџ,џdџhџTџ@џ0џџ џ8$$E №œ l ќјxџ1$adџ §ѓ`џ`џaPџ{§ѓtџ`џ6dџPџ_tџadџќ‹tџaPџ`#LџJѕЎdџ`F<џ,џ ,џ§ў(џ`џ! А`џ h$2Lџ(џ`џ6dџPџ<џ,џTœ,Exџtџ(Lџ(џ`џdџPџ<џ,џ< Ш $(E д\1$ahџ §ѓdџdџaTџ{§ѓxџdџ6hџTџ*xџahџ`#Pџ*FTџ%,€/Pџ6hџTџxџahџ ќ"ѕ0Ч5hџ>єdџ! №dџ рdџєdџ! №dџ Иdџєdџ! рdџ рdџєdџ! єdџ рdџєdџ! Hdџ рdџєdџ! Hdџ Иdџєdџ! @dџ рdџchџdџ! 8dџ №dџ5hџєџdџ! №dџ рdџєџdџ! №dџ Иdџєџdџ! рdџ рdџєџdџ! Hdџ рdџєџdџ! Hdџ Иdџєџdџ! @dџ рdџєџdџ! єdџ рdџchџdџ! <dџ №dџ5hџxџWhџ §ѓ 8џ5hџ8џahџBќ"§i@џ§†x5hџ7:@џ %xџahџ§ѓ dџdџўЂTџ§ѓ 4џdџ6hџTџ):@џ%4џўЂhџ§ѓ[dџ§ˆLdџ5hџ):@џ%4џўЂhџ§ѓ[dџ§ˆtdџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ  џdџ6hџTџ):@џ% џўЂhџ§ѓ[dџ§ˆddџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ џdџ6hџTџ):@џ%џўЂhџ§ѓ[dџ§ˆTdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆpdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆldџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆXdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ\dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ<dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ@dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆDdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆHdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆPdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ`dџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ џdџ6hџTџєpџKўџxџahџ`#Pџ§‘ˆ/Pџ5hџCŠˆJѕЎˆM@џ@hџ hџ:$џ!ћяTџ`#Pџ§‘Œ/Pџ6hџTџ$ѕŒM@џ@ "#Pџ§‘/PџŠ#ћ0 єdџ! ьdџ рdџ%єџdџ! ьdџ рdџ/X<ahџ§ўPџdџ Аdџ h$/Pџdџ5hџWxџahџќ‹xџaTџ`#PџJѕЎhџ`Fќўьў ьўX<aмўћ3/Pџ6 hџTџќўьўмўю#dџ Аdџ ,dџ#єєє^% dџ Аdџ и$dџ/&dџ Аdџ ,dџ$єєѓџ^% dџ Аdџ и$dџ/X@ahџ§ўPџdџ Рdџ h$/Pџdџ5hџ/XDahџ§ўPџdџ Иdџ h$/Pџdџ5hџ/XHahџ§ўPџdџ Ьdџ h$/Pџdџ5hџ<PџX\ahџќO§ЩФўаlPџdџ Єdџ h$/Pџdџ5hџ/XXahџ§ўPџdџ œdџ h$/Pџdџ5hџ/XPahџ§ўPџdџ ˜dџ h$/Pџdџ5hџ<PџXTahџќO§ЩФўаlPџdџ  dџ h$/Pџdџ5hџ/Xlahџ§ўPџdџ dџ h$/Pџdџ5hџxџahџ ќ"ѕ0Ч5hџ№:@џ#%Xd,Xdahџ:@џ']ћ35hџ0 chџdџ 0dџ №dџ5hџЉ Xdahџ:@џ(]ћ35hџn chџdџ ,dџ №dџ5hџЉ Xdahџ:@џ)]ћ35hџЉ chџdџ (dџ №dџ5hџ4ѕXLahџ:@џ*ѕўўTџ($џ]ћt6hџTџ chџdџ dџ №dџ5hџєџdџ Tdџ рdџ-ѕXtahџ:@џ+ѕўўTџUpџ6hџTџ kџєк єџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єк CXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Tdџ €$dџ5hџV ќfhџdџ dџ №dџ5hџєdџ Tdџ рdџ4ѕXLahџ:@џ.ѕўўTџ($џ]ћt6hџTџШ chџdџ dџ №dџ5hџєџdџ Pdџ рdџ-ѕXtahџ:@џ/ѕўўTџUpџ6hџTџ kџєкУ єџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єкС CXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Pdџ €$dџ5hџ ќfhџdџ dџ №dџ5hџєdџ Pdџ рdџ4ѕXLahџ:@џ0ѕўўTџ($џ]ћt6hџTџuchџdџ $dџ №dџ5hџєџdџ Ldџ рdџ-ѕXtahџ:@џ1ѕўўTџUpџ6hџTџ kџєкpєџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єкnCXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Ldџ €$dџ5hџАќfhџdџ $dџ №dџ5hџєdџ Ldџ рdџ4ѕXLahџ:@џ2ѕўўTџ($џ]ћt6hџTџ"chџdџ \dџ №dџ5hџєџdџ Xdџ рdџ-ѕXtahџ:@џ3ѕўўTџUpџ6hџTџ kџєкєџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџєЉkџ­єкCXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Xdџ €$dџ5hџ]ќfhџdџ \dџ №dџ5hџєdџ Xdџ рdџxўС@џЫ]ћ3Цchџdџ ќdџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3-chџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3”chџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3ћchџdџ dџ №dџ5hџєџdџ! dџ рdџєџdџ! dџ рdџ/xўС@џЫ]ћ3bchџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/ќfhџdџ ќdџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ"Тўdџ! №dџ фkТўєџЦdџиxџWTџ4ќ4§œМў<џ5TџўˆИў5А2'ќў<џahџ x`FTџdџ №dџ а6dџ6hџTџќў <џў‹Иў5q(X`ahџdџ №dџ И6dџ5hџ"Тўdџ! Hdџ фkТўєџЦdџЋ-'Tџ:@џ7Nhџhџdџ Hdџ а6dџ6hџTџ-'Tџ:@џ8Nhџhџdџ Hdџ а6dџ6hџTџ-'Tџ:@џ9Nhџhџdџ Hdџ а6dџ6hџTџ(Xpahџdџ Hdџ И6dџ5hџ<X@ahџќ‹ѕhџ`FTџќў ќў:@џ:]ћ36hџTџќў єdџ Рdџ Œ$dџєdџ Рdџ ИdџVєџdџ Рdџ Œ$dџєџdџ Рdџ ИdџџФ\LE4 МўИў4џџ8џџ џ џ<џxџ,PџdџhџTџќўьўмўЬў0 ќЦ  8фџ-ol Mhџ@Xџ ;Xџ(HџA]ћ/8џl M(џ@џ <џ(џ]ћ/јўћ'шўl Mиў@Шў =Шў(Иў]ћ/Јўћ'˜ўџ6XџџШў~#CxџиXl Mhџ@Xџ ;l MHџ@8џ <l M(џ@џ =џU8џUXџUјў >јў`1xџ6Xџ8џџјўџ/ фф(Exџ,Xџ8џџјўшўШўЈў˜ў0 ќЦ   0 ќЦр   ьш,4@L ф 8 р Ф ИДМРdddмgс IЩёAбщ9a‰Щ AyЉСљЁщБщ!Љ A "р € џџџџ ( € џџџџ€ џџџџ@ € џџџџ" H €P X h x € џџџџ" € ˆ .  а и € џџџџ€р ш € џџџџ€  € џџџџ€ ( € џџџџ€@ €H €P €X €` €h €p € џџџџx € џџџџ*€ А  а Jр J0 € € € > 0а  8@€ џџџџ H€ џџџџX€ џџџџ"  `€ џџџџ€h€p€ џџџџ€x€ џџџџ€€ џџџџЈ ШJиJ(€ x€ >ˆ0Шј08€ џџџџ@€ џџџџ€ 0H€ 0x€ 6Ј€ 6р"  € џџџџ€ € џџџџ€ ,(€ &X€ˆ˜ ЈИ€ џџџџ€ џџџџ" Р€ џџџџ€Ш€ џџџџ€ &а€ј€  &(PX`p€ џџџџ€ *x€Ј€АИШ,а  (0€ џџџџ 8 HP X`h€ џџџџ€ p€ˆ˜€ џџџџ€ *Ј€ џџџџ и€ џџџџ$ш€ џџџџ€ >P€ џџџџ€ p ˆ€ џџџџ:˜и€ џџџџ€ џџџџ€ џџџџ"  р€ џџџџ€ <ш€(€08€ :H€ fˆ №&€ 2@€ x˜ ЈШ а р( 8@HP€ џџџџ€ џџџџ" X`.xЈА€ џџџџ€ИР€ џџџџ€рш€ џџџџ€ј€ џџџџ€€ €(€0€8€@€H€P€X€`€h€ џџџџp€ џџџџ*xЈ Ш и ш&јJ RpJШ&€ $@>hЈРШ€ џџџџ а€ џџџџр€ џџџџ"  ш€ џџџџ€№€ј€ џџџџ€€ џџџџ€ џџџџ0 P ` p&€JЈRјJP& € $Ш>№0HP€ џџџџX€ џџџџ€ џџџџ"  `€ џџџџ h x€ џџџџˆ€ џџџџ ЈРШ€ џџџџа€ џџџџш€ џџџџ"№€ џџџџ€ј1€ џџџџ€ €0H€ џџџџ€ џџџџ€X`€ џџџџ2А€ џџџџ:p  € џџџџ€ џџџџ8џџџџШ]ђ  ]ђШ –@эЦ.эЦ. & ($ЖMicrosoft.Jet.OLEDB.4.0 ((ЖC:\DeineDatenbank.mdb B@ЖESELECT * FROM DeineBќcherTabelle, DB, adOpenDynamic, adLockOptimistic B@oџџ–€ B@B B@Boџџи–р]ђ э 4.0 0!6 8 0!6 :œЖ-Ppart- oder Assembly-Document muss aktiv seinЌЖFalscher FehlerA@<|џџ@kџџ8]ђ@э 4!B.>]ђ`э >!H!J!L.DЩј]ђ€эЖCenter Of Mass >!H!R%T.N V!XЌœ]ђ э N!^.Z D Z(F >B@`dџџpэ D >!H!R%b.NЖCenter Of Mass N(kџџ(oџџ –РЩ]ђр$braucht man nur fќr selectэЌ 4!B%j.f]ђ э f!^!@.> >Аœ]ђ@э 4!B.l]ђ` l!r!t'p p l!r(t pЌ >!H%v(x pЌ >!H%v(x pЌ >!H%v(xј 4!zB@` f 4 13305 ClientLeft = 45 ClientTop = 375 ClientWidth = 10470 StartUpPosition = 1 'CenterOwner TypeInfoVer = 2 End ileLists pўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вqath6GetFileNa`€ћѕ/5€ЅTahoma`€ѕ/5€ЅTahoma \*.ipt   }$H­[T‚o$х€!B!jB@HkџџШoџџР–x]ђИр Check that an assembly is open.]ђа]ђ№ 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџ(dџџ э 4!B.€kџџр$ Get the name of the file to create.]ђ]ђ( ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџ0dџџ(5˜'†kџџqџџр Open the file.]ђH А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šA р Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –`р6 Iterate through the occurrences in the current level.]ђџ Јў Ђ“р3 Write information for this occurrence to the file. šв ІЖ,$ \ Ј!Ж, Ј!^!@!žжр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šA kџџ0џЧ(oџџ –(р* Set a reference to the assembly document.р- This assumes an assembly document is active.]ђhэ 4!B.>р Set a reference to the BOM]ђˆэ >!H!В.А]ђЈр8 If MsgBox("First level only?", vbYesNo) = vbYes Thenр FirstLevelOnly = Trueр ElseЗ'Др End Ifр/ Make sure that the structured view is enabled.З А(ЖЖ- А(Ир, Set a reference to the "Structured" BOMView]ђРэЖ Structured А!О%T.КЖ Part Number КBРЌЌ КBТoџџИ–р]ђ э 4!Ш.Ц Ц!ЪA@<oџџ€–@ 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџ(kџџ ]ђ€ЖC:\Temp\Export.csv'а]ђ˜э 4!B.в]ђИэ в!H!В.А]ђи]ђј]ђ]ђ(]ђ@]ђ`]ђxЌ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties в!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ д!ьАœ д > а ІAюkџџРџЧИ ЄVoџџ –]ђ`]ђ€]ђ˜ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'кЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖ Part NumberЖDesign Tracking Properties №!ц%T%T!ш'ирDebugр7MsgBox iCount & " x " & sPartName & " in " & sParentDoc ІЖ,$ \Ж, мЖ, к'о а оA@ъ є!ьАœ є > а ІAюkџџШџЧРoџџИр* Einzelne Zeile an eine Textdatei anhфngenр) sFilename: vollstфndiger Name der Dateiр0 sLine : Inhalt, der gespeichert werden sollр0 ===============================================–А]ђ0р& Datei zum "Anhфngen" von Daten іffnenр und Textzeile ans Ende anfќgen А'Є а ЄЋЬ Єв ож ЄVoџџ@–H]ђˆр Check that an assembly is open.]ђ ]ђР 4!6'‚ ‚ :œЖAn assembly must be active.A@<|џџЈ dџџ  э 4!B.€kџџˆ р$ Get the name of the file to create.]ђр]ђј ˆ 4BŒ ˆѕЖ$CSV (Command delimited)(*.csv)|*.csv9ŽЖSpecify output filename9З9’З9”C@–5˜Жœ|џџА dџџЈ 5˜'†kџџ˜ qџџ р Open the file.]ђ А'š † šЋЬр# Write the top-level assembly name.Ж1'~ šв €!œЖ, €!žжр7 Read through the assembly and write the structure out. €!H!ЂЌ šAјр Close the file. šVЖ)Completed writing assembly structure to: †A@<oџџ –0 р6 Iterate through the occurrences in the current level.]ђи ]ђј џ Јў Ђ“р3 Write information for this occurrence to the file.р_Print #FilePointer, String$(level, ",") & occ.Name & "," & occ.Definition.Document.FullFileName ЈB@ќ Ј!^!@!ž'˜ ˜ ˜Ќ $мЖidw 'њр, If this occurrence is a subassembly iterateр over its occurrences. Ј!Њ :œ Ј!Ќ ІЌ šAјdџџ0 њ$ўœ Ј!^!@!ž 4!B@ЖtataA@< Ј!^!@!žA@< 4!BB@BkџџРkџџИџЧАoџџЈ– 4!B!Ю :œЖ#Funktion nur in Baugruppen mіglich.A@<|џџPkџџH]ђP ЖC:\Temp\Export.csv'а]ђh э 4!B.в]ђˆ э в!H!В.А]ђЈ ]ђШ ]ђр ]ђј ]ђ ]ђ( ]ђ@ ]ђX ]ђp ]ђ ]ђЈ Ќ'Іџ дўЖ Structured А!О%T!р“эЌ д!т%T!@.> д!ф'к >!ž' >!Ю'   Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџ8џЧ0 ЄVoџџ–Р ]ђ ]ђА ]ђШ ђЌ 'Іџ єў д!ь“эЌ є!т%T!@.> д!ф'к >!Ю'  >!ž'  Ќ $мЖidw 'њЖ Part NumberЖDesign Tracking Properties >!ц%T%T!ш'мЖCategoryЖ%Inventor Document Summary Information >!ц%T%T!ш'Ж Part NumberЖDesign Tracking Properties в!ц%T%T!ш'и ІЖ/ Ж/ њA@<рCall makedxffile(dwgfilename) Ж12291œр%Not oBOMRow.ChildRows Is Nothing Then д > а ІA kџџАџЧЈoџџ –р A@ь B@Ќ  !(€ '  Д{ЎGсz”? bA@„Йџџ0Ќ  !(€oџџ–p]ђэ 4!и.мр Get the active project]ђ@ oџџРџџџџИэ м!к.]ђаэ м!ђ.№inЖName: !A@<temp\\џ ў №“џЧ0џџџџр №!„A@<џџџџ˜џџџџдЗAttribute VB_Name = "Module1" Dim DB As ConnectHionTrsTRecordset Priva”Sub Form_Load€() SetŒр= New ’0ILDB.Cur€sorLocat–adUseClienm Pro viderБicrosoft.J@et.OLE4.0СB.Open "C:\DeineDЁnba@nk.mdb rsSELECT * FROM ‚BќcherT€abelle,a, ad'Dyn0amic€PkOptimistiТc(End €€“ˆUnl‰Cancel Integ er’DClosže€Џ€~ƒ†% Џ ublic- Workpoint€atmassc€‰дerД У мPoapp1v€oрr.App ‚Ї€N€ПB = ThiFsЬУIf .AveDocum@Type <€> kPartШObj€ˆ A@™ AssemblyqŒ TheР–@%‚MsgBox "Pbp- oz-E muss a@ktiv sw", 16, "FalsAn Fehlere…ExiЮtDg€WIfСVСџТL€СLEШIAЮIŒEŠCРIerOfM;@hСPlЪ= o.ComponDefini О.СЛpert0ies.‰ ХOn Error RьesРgРйxф@55џ‹B!ˆ"ј†s.item("Ё# Of A"`XХO€Fр.Numbt0рKЉ;ЂFixќedрb €ƒпС2‚TfрЦ.р„$ыХЧoE.#+'Чa aт.updр‚ЃќElpУч ТF€Žƒі5†s.AddТ\(oi%у o†.џЅЏ#І*%у%V-aЌ ЎToggleSel`pedIHOWPƒ МDO ccA1'ccurre • 'braucht man nur fќrП nA уЂ#=d.љр(1ф #BBal€ЭќIn$–рТˆ A`9;` Ш?. У€PNoBtтj Is `hˆing1QAsm!џЦ-”у !6тС?<‚ bFlagA РBooleaшœ# € .ЈVisibility.O riginbDlaиnes'o? ?V!Т hр&?Gonж.'`. lБ?'KuK82)?agїОO83?@7—ƒМl4ZView.y>?ЏАdVnЧ*” oЏp'ƒ•8X8Pzr Re$Structure8гб.strФ_WqRowБ!`№)ѓS' Check that 7€d’s is oP.cСasmАaЯ+1docr{6А‚5ёEnumџƒЯ-п06Eб€НЏ}Ё}An  €|t be aR†š.{bѓЙY б8?„/ + ф ‰' BG€Љthe аœe of€e fi.to cre aс(csvFАВ щбsaр‘ial6o‚>‘Dв“CaЬll GJ–.C"Ї(7ДQWith WWГё.` tУЏC0SV (P[АYd del Јted)Ш(*. )|b".c Tit="Specify oрutputт!ё­onsEnabјled D–€ЊТSuppressр‡oluQ‹WarŠnа,sРTruК№howSАЕ‹`$э eВШ"\Z1Ћ›'ˆzё )= &gU;тР ё…'ў ’Тё 1 ˜R„4ЛSЙ= Fr|eeГђ9 Pб іOsp#ИG"A’(€top-lev€Тџv2„ #JDQлС угйnt y Ы’BAP splayR‡&Р "," &р8ADр.FullЁ Бw Read` rouЌghт F a€wLџb гN%Д в/‚ P3ЏДPƒ;пgаgo–‡sНќ, xp1Ѓ АQ1в"?ш"д Хёle=2 1 0*WHЇ toЬ: Ш Ј^AщюМ ByVal џh YВН0d„•р ЃѓcЗ%, s˜!зт}EI@@`J`‡yiцn“œt rDAKЗocc As ComponentOccurren ce Fo€r Each  lIn|s€H' Write information  thi"sb to$e file.zPr@int #FPo er, Stg$(level, ",") ‚&J.Name Definis.DocumФ`.FullO, 2 ЈIf•€Qa subassembly eratУ€ƒoover€ ‰fnsa€*€.E…DType = kA„-… Object` Then‡N5CallƒІucture(-SubЭs, Œ + (1, œ)&End IfƒNex8t #‡Pu blic € B€OMSort(‚' Set a prefe…lЦFd›…XC'€0СOss^ s an N СctivХ|Dimќ oBСЭEC!Bb=‚App@+‚•.ўAB…QХvж-@7ƒ_@Т=$.FСШ” СAFirШstLСЄOnŠЮ@Booleaq'AoРMsgBox,("‚ „io ?", vbYesNќo)@„‚@7С‚3Œ@?ru€ЁТElцsHЄN FaТƒ „~!GGMake€Иre™Пat@trƒ—@d viewЁ4e@nabledфZoЉ .SІV€EРTaаDelŒimh"-"0д –4"Ї "сQA џƒЂ6Ї ad8Чт8OЯ :aЄs.@m^(‰ Фec "ooЎ.Ђc"Part NРumber"ФЈRenт(`s1F ѕoTest_PrŽoсƒp‚FLoГџ{@‚_"ЎbЂcŽiƒQ oс.ЊsˆDirЫrivŸ1т‚ExpР‚`'To˜CSV!€[Noa–|is7rfА?Ÿ$Ÿd"Funk"Чnu@­n Baugruppen mіg €h.DIExitЇacœ &sтУs9ing ‡= "C:\Temp\ƒ.csіv@ ƒo@‘–’‚.ŸЯ.o’B8`'$U `Rу™ХRowџ$ dQ м$…0iCouрш@InАtege@;Сs!Wп"EА А[nbт№LineAЉУf™D 3= 1в3 О ‡‚` С‚ .0ѓ‘:я7")Б ”„2O s;€?ont1)–&у;фЗTotalQuantiМty3З`.p7`perty ѕ Design Tr(ack$ $ies№ DЖ@.VaўlAZБPёФt?z"?oa?єF9'АDebup-ё'Д3AД& " x0&ц ‡1inFг дЂ=П–В–","–яŠГTp…17р@endтц6, sƒЄCБbbhil‚d€s Is 0EhЛТUproc€essAllCњ(4,{@ёс-$‘єVе“ Clo|se0І!qyOЯsh(Byа $Ї8,ў „ єР1№ђЃ€%У5QRef H@ћc5p5р фHА3џ`‡4@’Ц1 Ё;Нѓq3= „№ЂQЗ:wY;.b€Ÿ9oџя9я9qEЁ*$*`13 ž.я9X+`я9teа{oЏ3Џ3Љzя9t€‰oыЖ_@(:rooУ.љ:x ф:ВЬ€г:џP4А C#на:ГЯГ:ч(:t ыo:Оg$Ћ!1o:ƒ=(‰П:sБП:@h ‰' E inzel iZe[№сЦejq d ŠiahфngcД’6nт: voll@stфndi p ѕpd0мDAБЈГ0 АInhalt, gespeich`a werdэр‡s !=М hжФEпAgеAп# v>сQБ>F1Av~ a' В zu m "AnS"p‚n‚n іffў Ѓu Т! zGЗeile ans End€fќgen F €= FreeF€ k=Obj8ect€&ƒП| MsgBox "Anhmust fbж‚3."ƒ.E˜xitВ‚ls‚Сс Se‹|YlIfa' GAthe no"fZe fAto€ createˆXјcsvŠТ Р‡‰k‚s‚aHialogX A DBCCallЭNUC‚‡ (sЦ@ŠСС8With GУE.€)terД"CSV (Command delimР”d)(*.Y@,)|‚T.ƒ%Tit@Щ= "Specify ouptput‚?8I OpsEnabledбaЪa.SuppressResolu WarŠn@Гs TruШlР.ShowSР9EaЗA3€‘4eТVР$"ŒŒ?С ‚B !A‰h= џF Ч&@ТР%с+ЧAтЯсAa@(?!4Po. ?IntegerчЃ iЋ‹ т i!ŒіOу,р#h‡B‚"Qtop-leve~lчd$УŠˆ '1пф6ЃЅ—@Zф,` !…A @splayŸ&@ "," &EF8ullAaчReadРroughїТІ‘сNw™Т Ѓџ!JdЂ_ЄЂт€gDЂ—".рWponР•DefiniAH.occurrenceРs, 1, Ш%Љџ@ЄТБЌ6eДЅјletРYA@U УЕУГ$to: #h8” aHSЅО `,v… ПLByVaмl Ј„OЉCѓƒ>'M, у AфPЭh!I@‚athЧ4щЬinB4У*t т D4A˜@TУIaDWGСтF 9`'УЁ[EˆachA In)Ёn' Ђ# inаformЂЫ рћкf! Аl:Ђ1Zcд$(Т,aY)Р,Р О.R е-и%Хl.ы.їQ1бdxK!AфI‚vВ = (Left(Х, Lenж) - 3) + "idwN"`ђ@' Rt y(1€a sub'GУЉovKitџа‚G&єБPЛ ~[чџ|џ|q >6јSubj.’€N=гx EЎ]А q'P`sєt(8)ЏbBŒЅ дs.RY(‹.хJ‡(… хCtata(rьЯ"wХO—I—.2M[щlQљNexАŸабOЋJdxfЯq…`‰QЉаNošoŸwgŸFRЄ=яžюžеFunk!] nur? Baugr0ƒбрЗmіgPІh%ŸW~љЕ aGWКHGGoC:\Temp\РExportБ№=УopЉБMЊ ?AЄ_Є‹ЏaбoBDџ§Ч8џЬo<џ§ћ(џ%X\,/8џ`џ;Dџ`џ œ`џ l$>DџFdџ]XXaPџћ@`џ6dџPџ?0Dџ`џ œ`џ l$>DџFdџ%XX,`џ5dџKDџ`џ  `џ l$lDџ8џXTadџќO§Щ<џаl8џћ=2Dџ8џ`џ5dџЬ@Dџ`џ  `џ l$<џ>Dџ§Ч8џЬo<џ§ћ(џ%XT,/8џ`џ;Dџ`џ ˜`џ l$>DџFdџ]XPaPџћ@`џ6dџPџ90Dџ`џ ˜`џ l$>DџFdџ%XP,`џ5dџ;Dџ`џ А`џ l$>DџFdџ]X<aPџћ@`џ6dџPџІ0Dџ`џ А`џ l$>DџFdџ%X<,`џ5dџ;Dџ`џ Р`џ l$>DџFdџ]X@aPџћ@`џ6dџPџ0Dџ`џ Р`џ l$>DџFdџ%X@,`џ5dџ;Dџ`џ И`џ l$>DџFdџ]XDaPџћ@`џ6dџPџ€0Dџ`џ И`џ l$>DџFdџ%XD,`џ5dџ;Dџ`џ Ь`џ l$>DџFdџ]XHaPџћ@`џ6dџPџэ0Dџ`џ Ь`џ l$>DџFdџ%XH,`џ5dџ;Dџ`џ `џ l$>DџFdџ]XlaPџћ@`џ6dџPџZ0Dџ`џ `џ l$>DџFdџ%Xl,`џ5dџcdџ`џ H`џ М6dџXpaPџћ<џџџ! Hџ фkџєџЦ§ј(џћ'№ўџ)`џџ6dџPџ(џь-dџ`џ H`џ М6ќэdџXp,`џ5dџ*dџ`џ 0`џ єdџc(џ]ћ3`џ5dџ.:(џ'%Xd,У*dџ`џ ,`џ єdџc(џ]ћ3`џ5dџn:(џ(%Xd,У*dџ`џ (`џ єdџc(џ]ћ3`џ5dџЎ:(џ)%Xd,У:(џ#%Xd,:(џ#%XL,:(џ#%Xt,*dџ`џ `џ єdџc(џ]ћ3`џ5dџ‚:(џ*%XL,ZXtadџ:(џ?ћяPџџ`џ T`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ `џ єdџc(џ]ћ3`џ5dџ}XLadџ:(џ#]ћ@5dџі+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ.ћяPџ%XL,6dџPџZXtadџ:(џAћяPџџ`џ P`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ $`џ єdџc(џ]ћ3`џ5dџxXLadџ:(џ#]ћ@5dџё+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ0ћяPџ%XL,6dџPџZXtadџ:(џBћяPџџ`џ L`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ \`џ єdџc(џ]ћ3`џ5dџs XLadџ:(џ#]ћ@5dџь+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ2ћяPџ%XL,6dџPџZXtadџ:(џCћяPџџ`џ X`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ ќ`џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџѕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџ5 ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџu ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ ўС(џЫ%Lџ,Bj$adџ §ѓ`џ`џaPџќ"ѕ0Ч§јџџџ №џ М6џ:(џ#]ћ<№ўћ'рўџ)`џџ6dџPџџџї 7dџ`џ №`џ М6dџX`aPџћ@`џ6dџPџѕ ?dџ`џ №`џ М6џџџџџџџџџџЁССBBBџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁСйPPPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЁСљ[[[џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Ёaпппџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$сAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(сYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ,qA™WWWž§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 0)!Йџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ4qAсSSSž§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 8)!   Ј§џџ `‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<с)___џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@qAAfffž§џџ`ЩџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDйY```џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHЁaybbbџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLqA™TTTž§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPЁaБcccџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTЁaбdddџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXЁaёeeeџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\Ёaйййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`Ёa9еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdЁaaѕѕѕ‚€``Ї§џџ`‘бџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‘W—зW—зW—з_Ÿп_Ÿп_Ÿп_Ÿп_Ÿ0 ќЦ€  0 ќЦи  0 ќЦ0  0 ќЦˆ  0 ќЦр  0 ќЦ8   d(hџxџ! Jxџ єhџcXџ]ћ3xџ5hџEєџxџ! TJxџ рxџ_єxџ! TJxџ рxџ4d$: xџhџHџ0 ќЦИ  0 ќЦј  x  1$adџ §ѓ`џ`џaPџ{§ѓxџ`џ6dџPџxџWdџ §ѓ Lџ5dџKDџ`џ Є`џ l$lDџ8џX\adџќO§Щ<џаl8џћ=2Dџ8џ`џ5dџв@Dџ`џ Є`џ l$<џ>Dџ§Ч8џЬo<џ§ћ(џ%X\,/8џ`џ;Dџ`џ œ`џ l$>DџFdџ]XXaPџћ@`џ6dџPџ?0Dџ`џ œ`џ l$>DџFdџ%XX,`џ5dџKDџ`џ  `џ l$lDџ8џXTadџќO§Щ<џаl8џћ=2Dџ8џ`џ5dџЬ@Dџ`џ  `џ l$<џ>Dџ§Ч8џЬo<џ§ћ(џ%XT,/8џ`џ;Dџ`џ ˜`џ l$>DџFdџ]XPaPџћ@`џ6dџPџ90Dџ`џ ˜`џ l$>DџFdџ%XP,`џ5dџ;Dџ`џ А`џ l$>DџFdџ]X<aPџћ@`џ6dџPџІ0Dџ`џ А`џ l$>DџFdџ%X<,`џ5dџ;Dџ`џ Р`џ l$>DџFdџ]X@aPџћ@`џ6dџPџ0Dџ`џ Р`џ l$>DџFdџ%X@,`џ5dџ;Dџ`џ И`џ l$>DџFdџ]XDaPџћ@`џ6dџPџ€0Dџ`џ И`џ l$>DџFdџ%XD,`џ5dџ;Dџ`џ Ь`џ l$>DџFdџ]XHaPџћ@`џ6dџPџэ0Dџ`џ Ь`џ l$>DџFdџ%XH,`џ5dџ;Dџ`џ `џ l$>DџFdџ]XlaPџћ@`џ6dџPџZ0Dџ`џ `џ l$>DџFdџ%Xl,`џ5dџcdџ`џ H`џ М6dџXpaPџћ<џџџ! Hџ фkџєџЦ§ј(џћ'№ўџ)`џџ6dџPџ(џь-dџ`џ H`џ М6ќэdџXp,`џ5dџ*dџ`џ 0`џ єdџc(џ]ћ3`џ5dџ.:(џ'%Xd,У*dџ`џ ,`џ єdџc(џ]ћ3`џ5dџn:(џ(%Xd,У*dџ`џ (`џ єdџc(џ]ћ3`џ5dџЎ:(џ)%Xd,У:(џ#%Xd,:(џ#%XL,:(џ#%Xt,*dџ`џ `џ єdџc(џ]ћ3`џ5dџ‚:(џ*%XL,ZXtadџ:(џ?ћяPџџ`џ T`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ `џ єdџc(џ]ћ3`џ5dџ}XLadџ:(џ#]ћ@5dџі+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ.ћяPџ%XL,6dџPџZXtadџ:(џAћяPџџ`џ P`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ $`џ єdџc(џ]ћ3`џ5dџxXLadџ:(џ#]ћ@5dџё+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ0ћяPџ%XL,6dџPџZXtadџ:(џBћяPџџ`џ L`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ \`џ єdџc(џ]ћ3`џ5dџs XLadџ:(џ#]ћ@5dџь+XLadџ:(џ@ћяPџ%XL,6dџPџ+XLadџ:(џ2ћяPџ%XL,6dџPџZXtadџ:(џCћяPџџ`џ X`џ „$џћя№ў:џ,ћярў%Xt,`џ6 dџPџџ№ўрў*dџ`џ ќ`џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџѕ ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџ5 ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџu ўС(џЫ%Lџ,BЪ *dџ`џ `џ єdџc(џ]ћ3`џ5dџЕ ўС(џЫ%Lџ,BЪ ўС(џЫ%Lџ,Bj$adџ §ѓ`џ`џaPџќ"ѕ0Ч§јџџџ №џ М6џ:(џ#]ћ<№ўћ'рўџ)`џџ6dџPџџџї 7dџ`џ №`џ М6dџX`aPџћ@`џ6dџPџѕ ?dџ`џ №`џ М6ќэdџxџWPџ4џBџD§ѓ5Hџ`џ6dџPџџ0'рў'№ў'џѕHџadџ x`FPџ E6 dџPџџ№ўрўlHџ§o(џ%xџWdџ џCF5dџl§œ`џG$H I`џЌ 4ILџtџHџxџ0 Dџ8џ`џџdџPџџ№ўрў0 ќЦј  Pl§œxџG$H Ixџ$I xџ0 ќЦ˜  0 ќЦи  шЌ(hџxџ! 8xџ єhџcXџ]ћ3xџ5hџEєxџ! єxџ рxџ_єџxџ! єxџ рxџєџxџ! фxџ рxџєxџ! xџ рxџєxџ! xџ рxџ4Ќ$I xџhџHџ0 ќЦX  0 ќЦ˜  0 ќЦи  0 ќЦ  0 ќЦX  0 ќЦ˜  0 ќЦи  |$1$ahџ §ѓdџdџaTџ{§ѓxџdџ6hџTџhxџahџќ‹xџaTџ`#PџJѕЎhџ`F@џ0џ 0џ,џdџ! Аdџ l$>,џFџ]ћ3/Pџdџ6 hџTџ@џ0џџм#dџ Аdџ ,dџ#єєє^% dџ Аdџ и$dџ&dџ Аdџ ,dџ$єєѓџ^% dџ Аdџ и$dџp$(Ixџ0 Pџ,џdџhџTџ@џ0џџ џ8$$I №œ l ќјxџ1$adџ §ѓ`џ`џaPџ{§ѓtџ`џ6dџPџ_tџadџќ‹tџaPџ`#LџJѕЎdџ`F<џ,џ ,џ§ў(џ`џ! А`џ h$2Lџ(џ`џ6dџPџ<џ,џTœ,Ixџtџ(Lџ(џ`џdџPџ<џ,џ< Ш $(I д\1$ahџ §ѓdџdџaTџ{§ѓxџdџ6hџTџ*xџahџ`#Pџ*FTџ%,€/Pџ6hџTџxџahџ ќ"ѕ0Ч5hџ>єdџ! №dџ рdџєdџ! №dџ Иdџєdџ! рdџ рdџєdџ! єdџ рdџєdџ! Hdџ рdџєdџ! Hdџ Иdџєdџ! @dџ рdџchџdџ! 8dџ №dџ5hџєџdџ! №dџ рdџєџdџ! №dџ Иdџєџdџ! рdџ рdџєџdџ! Hdџ рdџєџdџ! Hdџ Иdџєџdџ! @dџ рdџєџdџ! єdџ рdџchџdџ! <dџ №dџ5hџxџWhџ §ѓ 8џ5hџ8џahџBќ"§i@џ§†x5hџ7:@џ %xџahџ§ѓ dџdџўЂTџ§ѓ 4џdџ6hџTџ):@џ%4џўЂhџ§ѓ[dџ§ˆLdџ5hџ):@џ%4џўЂhџ§ѓ[dџ§ˆtdџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ  џdџ6hџTџ):@џ% џўЂhџ§ѓ[dџ§ˆddџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ џdџ6hџTџ):@џ%џўЂhџ§ѓ[dџ§ˆTdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆpdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆldџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆXdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ\dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ<dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ@dџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆDdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆHdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆPdџ5hџ):@џ%џўЂhџ§ѓ[dџ§ˆ`dџ5hџ7:@џ%xџahџ§ѓ dџdџўЂTџ§ѓ џdџ6hџTџєpџKўџxџahџ`#Pџ§‘ˆ/Pџ5hџCŠˆJѕЎˆM@џ@hџ hџ:$џ!ћяTџ`#Pџ§‘Œ/Pџ6hџTџ$ѕŒM@џ@ "#Pџ§‘/PџŠ#ћ0 єdџ! ьdџ рdџ%єџdџ! ьdџ рdџ/X<ahџ§ўPџdџ Аdџ h$/Pџdџ5hџWxџahџќ‹xџaTџ`#PџJѕЎhџ`Fќўьў ьўX<aмўћ3/Pџ6 hџTџќўьўмўю#dџ Аdџ ,dџ#єєє^% dџ Аdџ и$dџ/&dџ Аdџ ,dџ$єєѓџ^% dџ Аdџ и$dџ/X@ahџ§ўPџdџ Рdџ h$/Pџdџ5hџ/XDahџ§ўPџdџ Иdџ h$/Pџdџ5hџ/XHahџ§ўPџdџ Ьdџ h$/Pџdџ5hџ<PџX\ahџќO§ЩФўаlPџdџ Єdџ h$/Pџdџ5hџ/XXahџ§ўPџdџ œdџ h$/Pџdџ5hџ/XPahџ§ўPџdџ ˜dџ h$/Pџdџ5hџ<PџXTahџќO§ЩФўаlPџdџ  dџ h$/Pџdџ5hџ/Xlahџ§ўPџdџ dџ h$/Pџdџ5hџxџahџ ќ"ѕ0Ч5hџ№:@џ#%Xd,Xdahџ:@џ']ћ35hџ0 chџdџ 0dџ №dџ5hџЉ Xdahџ:@џ(]ћ35hџn chџdџ ,dџ №dџ5hџЉ Xdahџ:@џ)]ћ35hџЉ chџdџ (dџ №dџ5hџ4ѕXLahџ:@џ*ѕўўTџ($џ]ћt6hџTџ chџdџ dџ №dџ5hџєџdџ Tdџ рdџ-ѕXtahџ:@џ+ѕўўTџUpџ6hџTџ kџєк єџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єк CXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Tdџ €$dџ5hџV ќfhџdџ dџ №dџ5hџєdџ Tdџ рdџ4ѕXLahџ:@џ.ѕўўTџ($џ]ћt6hџTџШ chџdџ dџ №dџ5hџєџdџ Pdџ рdџ-ѕXtahџ:@џ/ѕўўTџUpџ6hџTџ kџєкУ єџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єкС CXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Pdџ €$dџ5hџ ќfhџdџ dџ №dџ5hџєdџ Pdџ рdџ4ѕXLahџ:@џ0ѕўўTџ($џ]ћt6hџTџuchџdџ $dџ №dџ5hџєџdџ Ldџ рdџ-ѕXtahџ:@џ1ѕўўTџUpџ6hџTџ kџєкpєџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџkџєЉ­єкnCXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Ldџ €$dџ5hџАќfhџdџ $dџ №dџ5hџєdџ Ldџ рdџ4ѕXLahџ:@џ2ѕўўTџ($џ]ћt6hџTџ"chџdџ \dџ №dџ5hџєџdџ Xdџ рdџ-ѕXtahџ:@џ3ѕўўTџUpџ6hџTџ kџєкєџdџ Tdџ рdџ/kџєЉчXtahџ:@џ,ѕўўTџUpџ6hџTџkџєЉkџ­єкCXtahџќ‹kџє­kџєЉ­DTџkџєЉчhџќў -ќў`1 џ6hџTџќў'l џF@џNhџhџdџ Xdџ €$dџ5hџ]ќfhџdџ \dџ №dџ5hџєdџ Xdџ рdџxўС@џЫ]ћ3Цchџdџ ќdџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3-chџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3”chџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/xўС@џЫ]ћ3ћchџdџ dџ №dџ5hџєџdџ! dџ рdџєџdџ! dџ рdџ/xўС@џЫ]ћ3bchџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ/ќfhџdџ ќdџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџќfhџdџ dџ №dџ5hџєdџ! dџ рdџєdџ! dџ рdџ"Тўdџ! №dџ фkТўєџЦdџиxџWTџ4ќ4§œМў<џ5TџўˆИў5А2'ќў<џahџ x`FTџdџ №dџ а6dџ6hџTџќў <џў‹Иў5q(X`ahџdџ №dџ И6dџ5hџ"Тўdџ! Hdџ фkТўєџЦdџЋ-'Tџ:@џ7Nhџhџdџ Hdџ а6dџ6hџTџ-'Tџ:@џ8Nhџhџdџ Hdџ а6dџ6hџTџ-'Tџ:@џ9Nhџhџdџ Hdџ а6dџ6hџTџ€€ €ў{0anReferenceme.5€ДTahoma4FР€€€€ €ў{0anInseparable.5€ДTahoma`ŽMicrosoft Forms 2.0 FrameEm4H  |€€џџ@}“ ЖTYPoRу ‘ЮуЊKИQ_Tahomaр…e$х€xPobNormalдд(х €yPobPurchaseдO(х €zPobPhantomeдЪ(х €{TobReferenceдE,х €|TobInseparableдР <H  Š€ €џџ?}g ЖRough Cutme.ўџ џџџџ n`єЮ›ЭЊ`ŽMicrosoft Forms 2.0 FrameEmbedded ObjectForms.Frame.1є9ВqobSawCutдO0FР€€€€€”{0anMachinee5€ДTahoma,FР€€€€€”{0chWeld5€ДTahoma8FР€€€€ €Ѕ {0ldexternal Step5€ДTahoma€H€,њ45€ЅTahoma€H€,њ45€ЅTahoma€H€,њ45€ЅTahoma€H€,њ45€ЅTahoma0FР€€€€€Ѕ {0ldPaintomt5€ДTahoma_Tahoma†e(х €ƒP<H  –€ €џџD}ёњWork-stepse.Rу ‘ЮуЊKИQ_TahomaXˆe(х €ƒPcbMachineablдд$х€„LcbWeldдЪ$х€‡XcbExternдР (х €’4