аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџPT;!2(ЦРapcџџџџџџџџp=Ч'ЦPT;!2(ЦThe VBA Project џџџџџџџџp=Ч'ЦPT;!2(Ц_VBA_Projectџџџџџџџџ p=Ч'ЦPT;!2(Ц§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"ўџџџўџџџ !#&$%(Uўџџџ)*+,-./:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;<=>?@ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџV'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ 5Щb1(Ц@apcџџџџџџџџp=Ч'Ц 5Щb1(ЦThe VBA Project џџџџџџџџp=Ч'Ц 5Щb1(Ц_VBA_Projectџџџџџџџџ p=Ч'Ц 5Щb1(Цџџџџџџџџ§џџџўџџџ  Wўџџџ "џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ&џџџџџџџџџџџџUўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ123456789IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџJKLMNOPQRSTўџџџV'XY џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA Project Data"џџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџp=Ч'Ц 5Щb1(ЦVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ< ўџџџўџџџўџџџўџџџz !"#$%&'(|*+,-ўџџџ/0123456789:;=ўџџџ>?@ABCDMFGaIJKLcNOPQRSTUVWXYZ[\]^_`{bўџџџdefghijklmnopqrstuvwxyўџџџўџџџўџџџўџџџџџџџџџџџџџџџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}ИFТŒC:\Programme\Autodesk\Inventor 9\Bin\Macros\OnSaveDocumentEvent_ID="{59DAA6E5-E7B9-4FD4-81B4-D6F6D9C98F72}" Module=Modul1 Name="OnSaveDocument_mach_was" HelpContextID="0" VersionCompatible000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation jџџџџџџ,ќLEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdo.ivbЬl19џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџУ] Modul10;454cfb80џџ Modul1џџ9J!џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџProject_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџ VBAџџџџџџџџp=Ч'Цp=Ч'ЦPROJECTwmџџџџџџџџџџџџ PROJECT џџџџlModul1џџџџ0]*_VBA_PROJECTџџџџџџџџџџџџ.” dirџџџџџџџџџџџџ)332="393222000" CMG="7D7F5319B3C9B7C9B7C9B7C9B7" DPB="31331F6020602060" GC="E5E7CBA1CB54CC54CCAB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=110, 110, 879, 517, Z Modul1Modul16@,rU€€€€~} џџџџџџџџџџџџ __SRP_2џџџџџџџџџџџџHђ__SRP_3џџџџE__SRP_0џџџџџџџџџџџџ__SRP_1 џџџџ• Defined Properties CostOn/Б€0* pH‚dфOnSaveDocument_mach_wasQ4@  =­ Œ €,ќLE J<9stdole>stdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE Autom`ation/y‚У]‚LModul1GE‚LM€Jdu€L1Tˆ2Ž)H‚1‚|!Ы‚ ,‚19J + ‚џџџџ`€Ьamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryИ*\G{00020430-0000-0000-C000-000џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ8Љ` §џџџџџџџџџџџ™Й=a0/4б`§џџџџџџџџџџџrU€€€€~| Й™йAiy‘ yЉщСЉбAYY  Љ б A мp3'ќў'џ:LџN<џ<џѕ@:lџN\џ\џ 6\џ<џџќў1$aџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!ЗЪяЫWcLНM›-.Р Ѕџџџџџџџџ`€59џ|,}€џmid$’€џprivateЏ€џSub Inventor„5 VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“`Benutzerprojekt1~ Modul1Э €џџџ_Evaluateй mach_vorherяЙ Ќ(mach_nachherwMsgBox—R oFilenameHt vbInformationВnsgBoxщ mach_wasXB €џџџ_B_var_sgBoxЦStandardNummerSetzen{oDocсШ€џDocumentjг€џThisApplicationЂy€џActiveDocumentг\€џActiveDocumentType>Я€џkPartDocumentObject!о€џkAssemblyDocumentObjectЪО€џkDrawingDocumentOVBA Project Data"џџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџp=Ч'Ц` 9!2(ЦVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ< ўџџџўџџџўџџџўџџџzўџџџ !"#$%&'()*+,-./0123456789:;=ўџџџ>?@AўџџџџџџџџџџџџџџџFGaIJKLcџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџbўџџџdefghijklmnopqrstuvwxyўџџџўџџџџџџџџџџџџџџџџџџџџџџџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}ИFТŒC:\Programme\Autodesk\Inventor 9\Bin\Macros\OnSaveDocumentEvent_ID="{59DAA6E5-E7B9-4FD4-81B4-D6F6D9C98F72}" Module=Modul1 Name="OnSaveDocument_mach_was" HelpContextID="0" VersionCompatibleamevInStrRevФˆ vbTextCompare QProperty_schreiben— sDespription‹ sTrennzeichenW Property_lesenЪО €џDisplayNameНиOnSaveDocument_mach_vorherв sPropNameД“ vPropValueэ‡ oPropSetsЎ  €џPropertySetsСп bPropertdo.ivbЬl19џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџyDaž˜oPropЧoPropSetv† €џPropertySetКњ€џValueфKItemзzAddїr _B_str_MidўX _B_str_LeftVƒOnSaveDocument_mach_wasБяOnSaveDocument_mach_nachher†VџџstdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE Autom`ation/y‚У]‚LModul1GE‚LM€Jdu€L1Tˆ2Ž)H‚1‚|с‹‚ ,‚19J!‚ +‚‚ЁЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation jџџџџџџџџo§LEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџУ] Modul10D454cfd6fџџ Modul1џџ9Jсџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!ЗЪяЫWcLНM›-.Р Ѕџџџџџџџџ`€6:џД,}€џmid$’€џprivateЏ€џSubInventor„5VBAїтWin16С~Win32MacГВVBA6­#Projekt1вAstdole“`Benutzerprojekt1~Modul1Э €џџџ_Evaluateй mach_vorherяЙ mach_nachherwMsgBox—R oFilenameHt vbInformationВnsgBoxщmach_wasXB €џџџ_B_var_sgBoxЦStandardNummerSetzen{oDocсШ€џDocumentjг€џThisApplicationЂy€џActiveDocumentг\€џActiveDocumentType>Я€џkPartDocumentObject!о€џkAssemblyDocumentObjectЪО€џkDrawingDocumentObjectI sFileName—н sPartNumberљњiStartгќ €џFullFileNџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџjџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ8Љ` §џџџџџџџџџџџ™Й=a0/4б`§џџџџџџџџџџџ№ д(џџџџ лУ]9JџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ*<(<џџV<џџ^<4џџ<8џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<<џџ<џџџџџџ` `8`џџџџџџџџџџџџџџџџџџџџџџЄ„% NP`џџџџџџџџџџџџДў@џџџџџџџџџџLL„%ƒџџџџџџИџџџџџџџџџџџџџџ% „(џџџџјўџџ@џџџџ`„8џџџџШўџџџџџџџџ`„:џџџџФўџџџџџџџџ`„<џџџџТўџџџџџџџџ`„FџџџџИўџџџџџџџџ`„HиДўџџџџџџџџ Dˆ`џџџџџџџџџџџџјў@џџџџџџ..K„)ƒ(џџџџ џџˆА€iƒPџџџџџџџџа€ џџiƒRџџџџџџ џџџџџџ€џџџџ „Tџџџџxџџџј%`„X№fџџџ џџ% %џџџџР „Zџџџџ`џџџ(џџџџ „\џџџџ\џџџ0џџџџ%%џџџџј+J€`џџџџџџџџџџџџ0џ@Ш џџџџ++yŒ)ƒ(џџџџџџpш€iƒPџџџџџџџџџџџџ€ „TџџџџTџџџx „Zџџџџ@џџџ8% „\џџџџ<џџџX %РџџџџˆџџџџPџџџџ lџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџbjectI sFileName—н sPartNumberљњiStartгќ €џFullFileNamevInStrRevФˆ vbTextCompare QЌ(Property_schreiben— sDespription‹ sTrennzeichenW Ќ(Property_lesenЪО €џDisplayNameНиЌ(OnSaveDocument_mach_vorherв sPropNameД“ vPropValueэ‡ oPropSetsЎ  €џPropertySetsСп bPropertyDaž˜oPropЧoPropSetv† €џPropertySetКњ€џValueфKItemзzAddїr _B_str_MidўX _B_str_LeftVƒOnSaveDocument_mach_wasБяџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџX x,246B@X `lџџџ џџ €\џџџ џџ @ўџLџџџ џџ А<џџџ џџ @ўџ,џџџ џџ рџџџ џџ @ўџ џџџ џџ X  ќўџџ џџ @(єўџџ џџ @ўџ№ўџџ џџ ˜К@ўџрўџџ џџ LZppмўџџ џџ LZp@ўџЬўџџ џџ „ŸПX Мўџџџџ а” DJа”Ы‘ џџџџ˜џџџџџџџџАџџџџX@џџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџ@hџџџ џџ а”@ўџXџџO џџ [ ˜ Ы‘ЈTџџO џџ ™ЌЫРЏt†ЂрPџџџџџ IUkа<paKџџџџG`J@џџџџ @џџџ џџ 36F@ўџ0џџџ џџ а”p(,џџџ џџ ўўў@ўџџџџ џџ Ы‘@ўџ џџџ џџ ›АЯ@ўџќўџџ џџ IUkџџџџјўџџ џџ ~gџџџџ˜џџџџџџџџшџџџџ@ џџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(`@џџџџ(lџџџ џџ…w^PрІ—zмТЗЁ (АОи›АЯ™ЌЫЫ hџџџџџ а”шР‰ ј@Xџџџ џџ А~ Dџџџ џџ €П@ўџ8џџO џџ Yg DМБš 4џџO џџ гЧ­8 зѓшЯџџџџ0џџџџџ šБбH Aа’џџџџа”џџџџРHџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџjџџџџ ™=a0$љ`§џџџџџџџџџџџnџџџџџџџџџџџџx\џ §ѓєўєўa<џ§ѓјўєў6\џ<џ‘$a\џ §ѓєўєўa<џќ"ѕ0Ч$aџ §ѓ№ў№ўaќўќ"ѕ0ЧХ$aрў §ѓмўмўaЬўќ"ѕ0ЧХ)єў№ўмў6 \џ<џџќўрўЬў`јўa\џ`1Шў5\џ1јўa\џќ‹ѕѕџџџџ\џ`#Мў^фpТў/Мў5\џ1јўa\џќ‹'<џkТўєЉч\џ`#Мў 1Шў/Мў6\џ<џѕlШў ѕTџ0џDџ0 ќЦ  \vPropValuee €SaveDocument_mach_was,џџџџџџџџџџџџџџџџџџпўЪЈ"€ џџџџ€ PH € џџџџ€ 0x€ "Ј€ *а€ € $€ 0€ P€ TX€ А€ 0И€ ш€ №€ € T€ џџџџ€ .p€ ( €Ш1а€ џџџџ @‘р€ џџџџ€ €(€0€ џџџџ 8€ џџџџ€ >H"1ˆ1А€ џџџџ€ Bа0H€ џџџџP€ џџџџ€ џџџџp€ <ˆ€ Ш€ *а€ 2€ 8€ Z@€ џџџџ€ џџџџ€  € Ј€ џџџџ #А #а€ џџџџ №    0€ џџџџ "8€ џџџџP€ џџџџX€ џџџџ `€ џџџџh€ џџџџ€ џџџџ" x€ ,€€ >А€ џџџџ€ 0№€ (€ џџџџ€ џџџџ€8€@€ џџџџH€ џџџџ€ џџџџ€ FP€ &˜€РШ€ џџџџи€ ш  (0 8 @€ џџџџ H€ џџџџ€ џџџџ€ *P€ џџџџ €€ \ˆ8Qш € џџџџ (  0  8 € џџџџ@ € џџџџ€ џџџџB ˜ €   € BР € џџџџ     ( 0   8 @ € џџџџ€ џџџџ€ 0H €x € € џџџџ€ € џџџџ€ F˜ €р ш € џџџџј €   (  8 H  P  X € џџџџ ` € џџџџ h  p  x € џџџџ€ € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ"Hџџџџ –H–€oџџ`Ж.NACH dem Speichern: irgendetwas anderes machen ЖAppEventA@џџџџPџџџџИџџџџр) Programm zur Setzen der Zeichnungsnummerр und Eintrag als iProperty,Zр# das im Schriftfeld verwendet wird.Wagрр Format der Zeichnungsnummer:01р 123456.ipt -> 123456#ррN------------------------------------------------------------------------------r.рр*(c) Boekels Ingenieurbќro fќr Maschinenbauрр 21.01.2006 ErstellungррN------------------------------------------------------------------------------:)р( Set a reference to the active document.р! This assumes a document is open.]ђРэ ,!..(aІ   ,!0 2 ,!0 4 ,!0 6œ]ђи]ђ№]ђ (!>'8toр7 Suchen des letzten "\". Das dahinter ist der Dateinamea (!>Ж\Ќ B$@'<Def (!> <Ќ $ њ'8opр< Suchen des ".". Das davor soll die Zeichnungsnummer werden.> Ќ 8Ж. B†'< 8 <Ќ $ м'8 8': (Ж Part Number :ADaЗœр if false thenр6 wenn gewќnscht, auch den Display-Namen lesbar machen:="рр$ Der Display-Name soll bestehen aus:lliр, "Teilenummer" "Trennzeichen" "Beschreibung"8">ррS Wenn Teilenummer oder Beschreibung leer sind, soll auch das Trennzeichen wegfallen_Ce]ђ ]ђ8 (Ж Part Number$J':< (Ж Description$J'Fm :Ќ FЌœisЖ'HdџџЖ - 'H/>kџџx : H F ((LkџџXkџџPэА.(oџџ@џџџџH–Pр% Belegt eine Property mit einem Wert.omр8 Ist die Property nicht vorhanden, so wird sie angelegt.tр* Obtain the PropertySets collection object]ђ№э (!V.T=]ђ]ђ@З'Xр? Iterate through all the PropertySets one by one using for loop"р and changing its value№ д(џџџџ? ћ У]9JџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 8џџ*(((џџV(џџ^> џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<<џџ<џџџџџџ€` џџџџ`џџџџџџџџџџџџ џџџџџџџџџџЄ„% NP`џџџџџџџџџџџџДўHџџџџџџџџџџLL„%ƒџџџџџџИџџџџџџџџџџџџџџ% „(џџџџјўџџ@џџџџ`„8џџџџШўџџџџџџџџ`„:џџџџФўџџџџџџџџ`„<џџџџТўџџџџџџџџ`„FџџџџИўџџџџџџџџ`„HиДўџџџџџџџџ Dˆ`џџџџџџџџ јўkџџџџџџ..K„)ƒ(џџџџ џџˆА€iƒPџџџџџџџџа€ џџiƒRџџџџџџ џџџџџџ€џџџџ „Tџџџџxџџџј%`„X№fџџџ џџ% %џџџџР „Zџџџџ`џџџ(џџџџ „\џџџџ\џџџ0џџџџ%%џџџџј+J`џџџџџџџџˆ0џkШ џџџџ++yŒ)ƒ(џџџџџџpш€iƒPџџџџџџџџџџџџ€ „TџџџџTџџџx „Zџџџџ@џџџ8% „\џџџџ<џџџX %HџџџџˆџџџџPџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџ№џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџX x,246B@X `lџџџ џџ €\џџџ џџ @ўџLџџџ џџ А<џџџ џџ @ўџ,џџџ џџ рџџџ џџ @ўџ џџџ џџ X  ќўџџ џџ @(єўџџ џџ @ўџ№ўџџ џџ ˜К@ўџрўџџ џџ LZppмўџџ џџ LZp@ўџЬўџџ џџ „ŸПX Мўџџџџ а” DJа”Ы‘ џџџџџџџџџџџџАџџџџX@џџџџџџџџџџџџџџџџџџџџаџџџџџџџџЈ@џџџџрџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@ўџ(hџџџ џџ а”@ўџ€XџџO џџ [ ˜X Ы‘@ўџџџџџTџџO џџ ™ЌЫР€Џt†Ђ@ўџџџџџPџџџџџ IUkа€<paKџџџџXG`J@@ўџј@џџџ џџ 36F@ўџ@0џџџ џџ а”@ўџp,џџџ џџ ўўў@ўџџџџџџџџ џџ Ы‘@ўџX џџџ џџ ›АЯ@ўџџџџџќўџџ џџ IUk@ўџџџџџјўџџ џџ ~gџџџџШџџџџџџџџшџџџџ@ џџџџџџџџ(џџџџџџџџџџџџџџџџџџџџ џџџџИџџџџ џџџџџџџџџџџџџџџџџџџџxаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(`@`Jџџџџlџџџ џџ…w^P(рІ—zџџџџмТЗЁџџџџмАОи›АЯ™ЌЫЫ@ўџџџџџhџџџџџ а”шxР‰ @ўџџџџџXџџџ џџ А~ @ўџџџџџDџџџ џџ €П@ўџј8џџO џџ Yg аDМБš@ўџџџџџ4џџO џџ гЧ­8 јзѓшЯ@ўџџџџџ0џџџџџ šБбH јAа’џџџџаа”џџџџРHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`,ќLE*\R1*#166$*\Rffff*0;454cfb80*\R1*#190*\R1*#18c*\R1*#18e*\R0*#1*\R0*#14*\R1*#61d*\R1*#61c*\R1*#164*\R1*#2c*\R0*#9*\R0*#f*\R0*#fпўЪЈ"€ џџџџ€ PH € џџџџ€ 0x€ "Ј€ *а€ € $€ 0€ P€ TX€ А€ 0И€ ш€ №€ € T€ џџџџ€ .p€ ( €Ш1а€ џџџџ @‘р€ џџџџ€ €(€0€ џџџџ 8€ џџџџ€ >H"1ˆ1А€ џџџџ€ Bа0H€ џџџџP€ џџџџ€ џџџџp€ <ˆ€ Ш€ *а€ 2€ 8€ Z@€ џџџџ€ џџџџ€  € Ј€ џџџџ #А #а€ џџџџ №    0€ џџџџ "8€ џџџџP€ џџџџX€ џџџџ `€ џџџџh€ џџџџ€ џџџџ" x€ ,€€ >А€ џџџџ€ 0№€ (€ џџџџ€ џџџџ€8€@€ џџџџH€ џџџџ€ џџџџ€ FP€ &˜€РШ€ џџџџи€ ш  (0 8 @€ џџџџ H€ џџџџ€ џџџџ€ *P€ џџџџ €€ \ˆ8Qш € џџџџ (  0  8 € џџџџ@ € џџџџ€ џџџџB ˜ €   € BР € џџџџ     ( 0   8 @ € џџџџ€ џџџџ€ 0H €x € € џџџџ€ if foundn]ђXџ \ў T“bџ Zў \“_р Debug.Print oProp.Namech Z! Pœ R Z(`ntЗ'Xyџџјkџџ№џЧшџЧрр#Property anlegen und Wert eintragen XœрUoDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add vPropValue, sPropNameol R PЖUser Defined Properties (!V%bB@dkџџэА.ZэА.\эА.ToџџшрIMsgBox "VOR dem Speichern: irgendetwas machen", vbInformation, "AppEvent"–ˆр Liest eine Property.="р< Ist die Property nicht vorhanden, so wird "" zurќckgegeben.> PЌ$ мъЖCostRTinЌ'JSџџрЖ'Jnџџар* Obtain the PropertySets collection object]ђэ (!V.Tl]ђ р? Iterate through all the PropertySets one by one using for loop ]ђ@џ \ў T“ џ Zў \“lр Debug.Print oProp.Namee: Z! Pœ Z!`'Je"yџџШkџџРџЧИџЧАэА.ZэА.\эА.TiџџџџџџрџџџџƒЗAttribute VB_Name = "Modul1" Public Sub OnSaveDocument_mach_vorher() 'MsgBox "VOR de€m Speic<n: irgen€detwas pen", vbInformation, "AppEvZvM Programm zur Setze"nVr ZUnungsnummer+und Eintrag als i ƒ€ -Jƒ)(c) BoHekeiInЁieurbќro fќr Maschinenbauƒ€J 21.01.2006 EРrstell€•ƒ)ЭQ A'Ag a reference to the active d„Œ@Yƒ Thiрs ass’РЦB @openФ D…€lo€› As EЫƒ B= РsРЈB‘.A‚‡  I"f TypСНkPartObject _ƒOrЄAssemblyМDrawingсSThenмSССJsFileТяРKrSРєngC.7N`umberT‘i St ЁInteОgakЁag  =Ђ0р.Full…Ч'рCuр€Ёws lyt y"\". D)sda`Xt`ist"oDatein‡‘'ф= InРpRev(С? р‡\ `Š-1сŠText€Compare@“УE Mid$‘$ ˜+ 1T".Fр  soll die” werdwЦZЁы(`fр.bЃLeft$(+(Ф -ŠsШ>= gІf‡CaЇ_`‹reibenТ$ћРс уGШ %‡c'nrueРfР='р if f@Г€ƒ‚W…2' #nn gewќn@t, a€EAn DispPlay-ZnGsxbarЄЧ Б''œ DрHЩƒ2beР   @ s) "Te›€fУШ"  —nz‚жђnРBed рЇ`вŒWe€Ј od@) sind,ЗЃу _TШ   gР#~lсz с‡ЏЂ~D№esprв@шБzЁ?тŠ ,„K #і leЖsП АD"ˆ2бs Ж=Q|‚x_њ0cT wѕKР#LрY&p‰0ю `XrH)‚#Q=9sj€xqElse‹Q^ - ѓ‡IfЃ ’I4(чтX@7(8& л№И ;Ї—EЎqNo&tUА_ qSuђb‘b €Ч„-џ#…f@*!’ f"0UAVal№s?!b)Џ>AУ#*= ОvбТ[‘{T0jљ?Ex,№ ›‰7‘~Np†“7ё3'ѓбB/anP-№pЫЁ1Пq3QЫu_ѓА`< ‰ K'RFUаs("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")ј.Ad№ЯБђ?У ю.Item(ˆ"UsАlDefPЧЂdе>iesO цџC™!'2А6KБs†= ПЁ АsG‹ьN„ыFunСo^nІIxhq:oOeaSђГ)ЁДNд L ŸœNЏM@чЏMЅM""бьpќckgаЕА•цMSƒPTРЦCase tcaё., 4(vIСБ"Costli1їq&S0Уq’oтБProperty_lesen =@ "" End Select< ' Obtain the єSets col\ion objpDim цoPHAs hІ"= oDoc.я [&)L H' IterateŸrough allЋone by using for lo|opƒ"‰Y‰4TF!Each[ Iџ€z…rƒƒЅ‹ ‡'Debug€|intƒ,.NamВe If иs:С Then‹*Š№Ц.ValuƒŒ,A Exit Р+ЫƒIfЧNex„…С УУУtР'N8oth@X A= %жs  СFu8nct—ЂЧPublic Sub€ OnSave€Ž€ument_m€g_nher()ƒMsgBox "NACH de€m Speicn: irgendetwas a!res Сen€", vbIn€ˆmaA , "ApxpEv@ЫС&€ ne using for loop ]ђ@џ \ў T“ џ Zў \“lр Debug.Print oProp.Namee: Z! Pœ Z!`'Je"yџџШkџџРџЧИџЧАэА.ZэА.\эА.TiџџџџџџрџџџџƒЗAttribute VB_Name = "Modul1" Public Sub OnSaveDocument_mach_vorher() 'MsgBox "VOR de€m Speic<n: irgen€detwas pen", vbInformation, "AppEvZvM Programm zur Setze"nVr ZUnungsnummer+und Eintrag als i ƒ€ -Jƒ)(c) BoHekeiInЁieurbќro fќr Maschinenbauƒ€J 21.01.2006 EРrstell€•ƒ)ЭQ A'Ag a reference to the active d„Œ@Yƒ Thiрs ass’РЦB @openФ D…€lo€› As EЫƒ B= РsРЈB‘.A‚‡  I"f TypСНkPartObject _ƒOrЄAssemblyМDrawingсSThenмSССJsFileТяРKrSРєngC.7N`umberT‘i St ЁInteОgakЁag  =Ђ0р.Full…Ч'рCuр€Ёws lyt y"\". D)sda`Xt`ist"oDatein‡‘'ф= InРpRev(С? р‡\ `Š-1сŠText€Compare@“УE Mid$‘$ ˜+ 1T".Fр  soll die” werdwЦZЁы(`fр.bЃLeft$(+(Ф -ŠsШ>= gІf‡CaЇ_`‹reibenТ$ћРс уGШ %‡c'nrueРfР='р if f@Г€ƒ‚W…2' #nn gewќn@t, a€EAn DispPlay-ZnGsxbarЄЧ Б''œ DрHЩƒ2beР   @ s) "Te›€fУШ"  —nz‚жђnРBed рЇ`вŒWe€Ј od@) sind,ЗЃу _TШ   gР#~lсz с‡ЏЂ~D№esprв@шБzЁ?тŠ ,„K #і leЖsП АD"ˆ2бs Ж=Q|‚x_њ0cT wѕKР#LрY&p‰0ю `XrH)‚#Q=9sj€xqElse‹Q^ - ѓ‡IfЃ ’I4(чтX@7(8& л№И ;Ї—EЎqNo&tUА_ qSuђb‘b €Ч„-џ#…f@*!’ f"0UAVal№s?!b)Џ>AУ#*= ОvбТ[‘{T0jљ?Ex,№ ›‰7‘~Np†“7ё3'ѓбB/anP-№pЫЁ1Пq3QЫu_ѓА`< ‰ K'RFUаs("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")ј.Ad№ЯБђ?У ю.Item(ˆ"UsАlDefPЧЂdе>iesO цџC™!'2А6KБs†= ПЁ АsG‹ьN„ыFunСo^nІIxhq:oOeaSђГ)ЁДNд L ŸœNЏM@чЏMЅM""бьpќckgаЕА•цMSƒPTРЦCase tcaё., 4(vIСБ"Costli1їq&S0Уq’oвБProperty_lesen =@ "" End Select< ' Obtain the єSets col\ion objpDim цoPHAs hІ"= oDoc.я [&)L H' IterateŸrough allЋone by using for lo|opƒ"‰Y‰4TF!Each[ Iџ€z…rƒƒЅ‹ ‡'Debug€|intƒ,.NamВe If иs:С Then‹*Š№Ц.ValuƒŒ,A Exit Р+ЫƒIfЧNex„…С УУУtР'N8oth@X A= %жs  СFu8nct—ЂЧPublic Sub$ mРc_nher()УMsgBox "NACH dem Speicn: irgendetwaˆs aresТen", vbInР„ma, "AppEvent@Ч#Р ў§фpТўkТўє­чlШў 1ШўlШўCФўФўMlџ@ CМўМўјў /Мўєџ^# CМўМўјў\џ  \џ`1Фў/Мў5\џ#CМўМўјў\џ  \џ`1Иў/Мў5\џlФўJѕЧlИўJѕЧХ0CДў:CДў"lФўlДў*#МўlИў*F\џ%јў,/Мў5\џ ќc=јўШp8 јўДўШўФўИў4 Мўєў№ўмў\џ<џџќўрўЬўlH ahџ§ѓxџ5hџєpfџlxџ\џўˆXџ–l\џ`џўˆTџ‰`џahџ`#Pџ€ћ0/Pџ5hџz§`џ,єџpfџ§ЭTџ‰ `џў‹Tџ? \џў‹Xџ/ kfџУ№Q§€F џ%:@џ%H ahџ§ѓ,џ,џўЂџ§ѓјўјўў ),џјў6hџџ ќc=`џ ќc=\џ ќc=xџ„8 XџTџ\џ`џxџ Pџ,џјўhџџ@ь:ѕ€ 1hџ lhџћ0/ (Xџќіlџ< :Xџ§lџHaDџ§ѓTџ5DџlTџ<џўˆ8џЦl<џ@џўˆ4џЙ@џaDџ`#0џ€ћ0/0џ5DџЊ@џaDџќіlџ§Э4џЙ @џў‹4џt <џў‹8џd ќc=@џ ќc=<џ ќc=Tџ§•Lь@(lџhџ8џ4џ<џ@џTџ0џDџ0 ќЦ  \vPropValuee € џџџџ€ F˜ €р ш € џџџџј €   (  8 H  P  X € џџџџ ` € џџџџ h  p  x € џџџџ€ € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ" Hџџџџ –H–oџџ`Ж.NACH dem Speichern: irgendetwas anderes machen ЖAppEventA@џџџџPџџџџИџџџџр) Programm zur Setzen der Zeichnungsnummerр und Eintrag als iProperty,Zр# das im Schriftfeld verwendet wird.Wagрр Format der Zeichnungsnummer:01р 123456.ipt -> 123456#ррN------------------------------------------------------------------------------r.рр*(c) Boekels Ingenieurbќro fќr Maschinenbauрр 21.01.2006 ErstellungррN------------------------------------------------------------------------------:)р( Set a reference to the active document.р! This assumes a document is open.]ђРэ ,!..(aІ   ,!0 2 ,!0 4 ,!0 6œ]ђи]ђ№]ђ (!>'8toр7 Suchen des letzten "\". Das dahinter ist der Dateinamea (!>Ж\Ќ B$@'<Def (!> <Ќ $ њ'8opр< Suchen des ".". Das davor soll die Zeichnungsnummer werden.> Ќ 8Ж. B†'< 8 <Ќ $ м'8 8': (Ж Part Number :ADaЗœр if false thenр6 wenn gewќnscht, auch den Display-Namen lesbar machen:="рр$ Der Display-Name soll bestehen aus:lliр, "Teilenummer" "Trennzeichen" "Beschreibung"8">ррS Wenn Teilenummer oder Beschreibung leer sind, soll auch das Trennzeichen wegfallen_Ce]ђ ]ђ8 (Ж Part Number$J':< (Ж Description$J'Fm :Ќ FЌœisЖ'HdџџЖ - 'H/>kџџx : H F ((LkџџXkџџPэА.(oџџ@џџџџH–Pр% Belegt eine Property mit einem Wert.omр8 Ist die Property nicht vorhanden, so wird sie angelegt.tр* Obtain the PropertySets collection object]ђ№э (!V.T=]ђ]ђ@З'Xр? Iterate through all the PropertySets one by one using for loop"р and changing its value if foundn]ђXџ \ў T“bџ Zў \“_р Debug.Print oProp.Namech Z! Pœ R Z(`ntЗ'Xyџџјkџџ№џЧшџЧрр#Property anlegen und Wert eintragen XœрUoDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add vPropValue, sPropNameol R PЖUser Defined Properties (!V%bB@dkџџэА.ZэА.\эА.ToџџшрIMsgBox "VOR dem Speichern: irgendetwas machen", vbInformation, "AppEvent"–ˆр Liest eine Property.="р< Ist die Property nicht vorhanden, so wird "" zurќckgegeben.> PЌ$ мъЖCostRTinЌ'JSџџрЖ'Jnџџар* Obtain the PropertySets collection object]ђэ (!V.Tl]ђ р? Iterate through all the PropertySets one by one using for loop ]ђ@џ \ў T“ џ Zў \“lр Debug.Print oProp.Namee: Z! Pœ Z!`'Je"yџџШkџџРџЧИџЧАэА.ZэА.\эА.TiџџџџџџрџџџџƒЗAttribute VB_Name = "Modul1" Public Sub OnSaveDocument_mach_vorher() 'MsgBox "VOR de€m Speic<n: irgen€detwas pen", vbInformation, "AppEvZvM Programm zur Setze"nVr ZUnungsnummer+und Eintrag als i ƒ€ -Jƒ)(c) BoHekeiInЁieurbќro fќr Maschinenbauƒ€J 21.01.2006 EРrstell€•ƒ)ЭQ A'Ag a reference to the active d„Œ@Yƒ Thiрs ass’РЦB @openФ D…€lo€› As EЫƒ B= РsРЈB‘.A‚‡  I"f TypСНkPartObject _ƒOrЄAssemblyМDrawingсSThenмSССJsFileТяРKrSРєngC.7N`umberT‘i St ЁInteОgakЁag  =Ђ0р.Full…Ч'рCuр€Ёws lyt y"\". D)sda`Xt`ist"oDatein‡‘'ф= InРpRev(С? р‡\ `Š-1сŠText€Compare@“УE Mid$‘$ ˜+ 1T".Fр  soll die” werdwЦZЁы(`fр.bЃLeft$(+(Ф -ŠsШ>= gІf‡CaЇ_`‹reibenТ$ћРс уGШ %‡c'nrueРfР='р if f@Г€ƒ‚W…2' #nn gewќn@t, a€EAn DispPlay-ZnGsxbarЄЧ Б''œ DрHЩƒ2beР   @ s) "Te›€fУШ"  —nz‚жђnРBed рЇ`вŒWe€Ј od@) sind,ЗЃу _TШ   gР#~lсz с‡ЏЂ~D№esprв@шБzЁ?тŠ ,„K #і leЖsП АD"ˆ2бs Ж=Q|‚x_њ0cT wѕKР#LрY&p‰0ю `XrH)‚#Q=9sj€xqElse‹Q^ - ѓ‡IfЃ ’I4(чтX@7(8& л№И ;Ї—EЎqNo&tUА_ qSuђb‘b €Ч„-џ#…f@*!’ f"0UAVal№s?!b)Џ>AУ#*= ОvбТ[‘{T0jљ?Ex,№ ›‰7‘~Np†“7ё3'ѓбB/anP-№pЫЁ1Пq3QЫu_ѓА`< ‰ K'RFUаs("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")ј.Ad№ЯБђ?У ю.Item(ˆ"UsАlDefPЧЂdе>iesO цџC™!'2А6KБs†= ПЁ АsG‹ьN„ыFunСo^nІIxhq:oOeaSђГ)ЁДNд L ŸœNЏM@чЏMЅM""бьpќckgаЕА•цMSƒPTРЦCase tcaё., 4(vIСБ"Costli1їq&S0Уq’oвБProperty_lesen =@ "" End Select< ' Obtain the єSets col\ion objpDim цoPHAs hІ"= oDoc.я [&)L H' IterateŸrough allЋone by using for lo|opƒ"‰Y‰4TF!Each[ Iџ€z…rƒƒЅ‹ ‡'Debug€|intƒ,.NamВe If иs:С Then‹*Š№Ц.ValuƒŒ,A Exit Р+ЫƒIfЧNex„…С УУУtР'N8oth@X A= %жs  СFu8nct—ЂЧPublic Sub$ mРc_nher()УMsgBox "NACH dem Speicn: irgendetwaˆs aresТen", vbInР„ma, "AppEvent@Ч#Р ў§фpТўkТўє­чlШў 1ШўlШўCФўФўMlџ@ CМўМўјў /Мўєџ^# CМўМўјў\џ  \џ`1Фў/Мў5\џ#CМўМўјў\џ  \џ`1Иў/Мў5\џlФўJѕЧlИўJѕЧХ0CДў:CДў"lФўlДў*#МўlИў*F\џ%јў,/Мў5\џ ќc=јўШp8 јўДўШўФўИў4 Мўєў№ўмў\џ<џџќўрўЬўlH ahџ§ѓxџ5hџєpfџlxџ\џўˆXџ–l\џ`џўˆTџ‰`џahџ`#Pџ€ћ0/Pџ5hџz§`џ,єџpfџ§ЭTџ‰ `џў‹Tџ? \џў‹Xџ/ kfџУ№Q§€F џ%:@џ%H ahџ§ѓ,џ,џўЂџ§ѓјўјўў ),џјў6hџџ ќc=`џ ќc=\џ ќc=xџ„8 XџTџ\џ`џxџ Pџ,џјўhџџ@ь:ѕ€ 1hџ lhџћ0/ (Xџќіlџ< :Xџ§lџHaDџ§ѓTџ5DџlTџ<џўˆ8џЦl<џ@џўˆ4џЙ@џaDџ`#0џ€ћ0/0џ5DџЊ@џaDџќіlџ§Э4џЙ @џў‹4џt <џў‹8џd ќc=@џ ќc=<џ ќc=Tџ§•Lь@(lџhџ8џ4џ<џ@џ