ࡱ>  csurjRoot Entryyж@/apcF yжThe VBA Project F yж_VBA_ProjectF yж   !"#$&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ahtwVBFrame96PROJECTwmkVBA Project Data"Host Project Items& 4  !"#$%'()*+,-./012345678:;<=?ABCDEFGHIJKLMNO]QRSTUVWXYZ\^_`abcdefghijklmnopqrstuvwxy{|}~VBA Project Signature, Host Project Item Names0!F /ζThisLibraryF /ζControl List Data$ /ζ/ζxa}  { ThisLibrary*{P 5{ L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{@  L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{ ";{0 $={ &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6} @S:\Vorlagen\schriftfeld-konf.swpID="{9A8E1793-2FD1-4B7F-BC49-34558AC30F2B}" Document=ThisLibrary/&H00000000 Module=schriftfeld1 BaseClass=frmSfInfo Name="schriftfeld" HelpContextID="0" VersionCompatible32="393222000" CMG="EEEC1DFB653B8D3F8D3F8D3F8D3F" DPB="1210E1270428042804" GC="3634C503CD03F004F0040F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=176, 232, 908, 867, C schriftfeld1=201, 44, 971$`$`$ `$IRwpR ary schriftfeld1bSfInfo schriftfeldFBCbe\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i`l;C:\Programme\Gemeinsame Dateien\SoRoot Entryy Rv@/apcF y RThe VBA Project F y R_VBA_ProjectF y R+-Control_Data_CurVer(# Project_Data_CurVer(" Host Project Item List Data8Control List Data$(frmSfInfoi*WJOF ~fz>o@ CompObj>n_VBA_PROJECT8dirReqControl List Data*/ζ/ζPROJECTnedpgoblqxkmfz{|}~VBAF `f0ThisLibrary &schriftfeld1 -__SRP_2dj7, 925, frmSfInfo=18, -6, 951, 884, , 10, 9, 458, 908, 0ThisLibraryThisLibraryschriftfeld1schriftfeld1frmSfInfofrmSfInfofeld1schriftf6@frmSfInfo cAL3/vw,@lFWJO cmdAutoDate!-6.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4Ewi ndowsEFM20.DLL#Microsoft : ^ Object Libr@ary/;D1?u00}#0#__SRP_0 __SRP_1Project Item Data$ ReqControl List Data* __SRP_3 [frmSfInfo%__SRP_40P;__SRP_5 P"#$%(1256789:;<=>?@ABCDEFGHIJKLMNOPQRSVWXYZ[_klmno~rU~~~~~~s   1   (  8 a H aX\-8-02608C4D0BB4DFM20.DLL#Microsoft 9 ˲0* pHd schriftfeld8@ = t  }K($ J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2kh0 AF78E8356-6904-4A17-876D8F5878DC8B6DOKUME~1\Besitzer\LOKALATemp\VBE\T.exd  glbUserNamed_B_var_glbUserName CustomInfolDeleteCustomInfo AddCustomInfoLtxtSfZuschnittTLabel10@txtSfZuschnitt2>Label11AtxtSfZuschnitt_GotFocustxtSfZuschnitt2_GotFocus( txtSfStueckLabel12BtxtSfFertig_AnzahlLabel13C Label6_ClickLabel14D Label14_ClicktxtSfStueck_GotFocusgtxtSfFertig_Anzahl_GotFocusTextBox1SLabel15E Label15_ClickKBtxtSfCNCgtxtSfCNC_GotFocustxtSfAuftragsnummerLabel16FtxtSfAuftragsnummer_GotFocusG2 _B_var_Format txtSfVersion̤_B_var_txtSfVersionKonfigYtxtSfVersion_KonfigaLabel17GtxtSfVersion_Konfig_GotFocus]txtSfnderungsvermerk_Konfig%txtSfnderungsvermerk_Konfig_GotFocusLabel18HTextnderungsvermerk_Konfig#_B_var_txtSfnderungsvermerk_Konfig|3txtSfAenderungsvermerk_Konfigp$_B_var_txtSfAenderungsvermerk_Konfig=&txtSfAenderungsvermerk_Konfig_GotFocusTextAenderungsvermerk_Konfig-txtSfRevision_KonfigrtxtSfRevision_Konfig_GotFocus  Label17_Clickk txtSfRevisiontxtSfRevision_GotFocusLabel19I CmbSfKdn_Dok~EcmbSfKdn_Dok_GotFocusvSW*_File%ChrK~ _B_str_Chrm# Workspace3 _B_var_ScreenPathName' GetPathName!cmdSfDefaultWerteAlleKonfig_Click*"%berSfStandardwerteAusfllenAlleKonfigcmdSfDefaultWerteAlleKonfigRcmdSfDefaultWerteAlleKHcmdSfDefaultWerteAlleK_Click _B_var_IfPAnzahl2[Namen2Conf2wO ConfName26i2]_B_var_i nderungsvermerk_Konfig_B_var_Anzahl2`    6@@rks Extensibility Type 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 For*r!?a-Ns5OXNjy7@$h3 & FU}?*R,O2x?*R,O2Ns5OXNRHRMESPSSSH$>"LLLLLLLLLLLLLLLLLLLLLLL<<<<<<<<<<<<<<0{046D0902-B9CA-466A-BC83-8A3F8413A638}{35297529-FFDF-47DC-9697-07EEB7B971CA}(B"XB%% r*$ؕ`4x  2`H@BB`4x 0`6t  L`XkD]]X`4x ILET`6t  @R `ZX` ^p`8kH@@`4x `6t ``p`b` `d\ `fX`hT |0`hkL`4x `6t  ` T G ``ؘ0kX P `8J\Y `(|+`^   `|Jd c  `|kh h M `|kp rj& C`6t  hW`  x` j&`CL`  `8k,, %8 %BhBB Bj&Cj(Cj*@Cj,0Cj. Cb04@j&Cj(Cj*Cj,pC(0j.Cj& C``pi j& Cj(H Cj*p @Cj, Cj. Cj& Cj( Cj*8 Cj,` Cj.Cj( Cj* Cj, Cj.Cj&P Cj(x Cj* @Cj, Cj. Cj& Cj(@ Cj*h @Cj, Cj. Cj& Cj( Cj*0 Cj,X Cj.Cj( Cj* Cj, Cj.Cj&C`b` j(Cj*@Cj,Cj. Cj&C> ^FZj&hCj(Cj*@Cj,Cj. Cj&0Cj(XCj*Cj,Cj.Cj&Cj( Cj*HCj,pCj.Cj(Cj*@Cj,Cj. Cj&CHd^2j&Cj(Cj*@Cj,Cj. Cj&hCj(Cj*Cj,Cj.Cj&hZC@R i j&Cj(Cj*@Cj,Cj. Cj&XCj(Cj*Cj,Cj.Cj& Cj(pC@x  `j*Cj,Cj.Cj(Cj*8Cj,`Cj.Cp D` xzj(Cj* @Cj,HCj. CX }` j&Cj(Cj*0@Cj,hC`'xj. Cj&Cj(Cj*@Cj,0Cj. Cj&Cj(Cj*@Cj,Cj. Cj&HCj(pCj*@Cj,Cj. Cj&Cj(8Cj*`@Cj,Cj. Cj&Cj(Cj*(Cj,PCj.CPj&Cj(Cj*@Cj, Cj. Cj&pCj(Cj*Cj,0Cj&XCi j.Cj(Cj*@Cj,Cj. Cj& Cj(DCj&p Cj( Cj* Cj,!C2r*j.Cj&P!Cj(x!Cj*!Cj,!Cj.Cj&"Cj(@"Cj*h"Cj,"Cj&"Cj(#Cj.Cj*0#Cj,X#Cj.Cj&#Cj&#Cj(P.Cj( $Cj*H$Cj,p$Cj.Cj&$Cj(%Cj&%Cj(@%Cj*h%Cj,%Cj.Cj*%@Cj,&Cj. Cj&0C@;h j&&Cj(&Cj*&Cj,'Cj.Cj&p'C@/p"j('Cj*'Cj,'Cj.Cj&8(Cj(`(Cj*(Cj,(Cj.Cj&)Cj(()Cj*P)Cj,x)Cj.Cj&)Cj()Cj**Cj,@*Cj.Cj&*Cj(*Cj**Cj,+Cj.Cj&X+Cj(+Cj*+Cj,+Cj.Cj& ,Cj(H,Cj*p,Cj,,Cj.Cj&,Cj(-Cj*8-Cj,`-Cj.Cj&-Cj(-Cj*.Cj,(.Cj.Cj*x.Cj,.Cj.Cj&P/Cj&/Cj(=C4j(x/Cj*/Cj,/Cj.C.j& 0Cj(H0Cj*p0Cj,0Cj.Cj(0Cj*1Cj,81Cj.Cj&1Cj(1Cj*1@Cj,2C<r,-j. Cj&h2Cj(2Cj*2Cj,2Cj.Cj&03Cj(X3Cj*3Cj,3Cj.Cj&3Cj( 4Cj*H4Cj,4Cj&4Cj(7C0Bj.Cj&5Cj(@5Cj*h5@Cj,5Cj. Cj&5Cj(6Cj*06@Cj,X6Cj. Cj&6Cj(6Cj*6@Cj, 7Cj. Cj& ;C@MX j*7Cj,7Cj.Cj&(8Cj(P8Cj*x8Cj,8Cj.Cj&8Cj(9Cj*@9Cj,h9Cj.Cj&9Cj(9Cj*:Cj,0:Cj.Cj&:Cj(:Cj*:Cj,:Cj.Cj(H;Cj*p;Cj,;Cj.Cj&<C@H ((<j(8<Cj*`<@Cj,<Cj. C0>hz7X;j&<Cj(=Cj*@=Cj,h=Cj.Cj*=@Cj,=Cj. Cj&>C ? {7 ` j(>Cj*>@Cj,>Cj. C {<X:j&`?Cj(?Cj*?@Cj,?Cj. Cj&(@Cj(P@Cj*x@@Cj,@Cj. Cj&@Cj(ACj*@A@Cj,hACj. Cj&ACj(ACj*B@Cj,HBCD(<j. CBj&BCj(BCj*B@Cj,CCj. CAj&pCCj(CCj*CCj,CCj.Cj*8D@Cj,`DCj. Cj&ECE @>` |~j((ECj*PE@Cj,xECj. CXF-@j&ECj(FCj*0F@Cj,pFChU@>Ej. Cj&FCj(FCj*G@Cj,8GCj. Cj&GCj(GCj*G@Cj,HCj. Cj&PHCj(xHCj*H@Cj,HCj. Cj&ICj(@ICj*hI@Cj,ICj. Cj&ICj(JCj*0J@Cj,XJCj. Cj&JCj(JCj*J@Cj, KCj. CAj&xKCj(KCj*KCj,KCj.Cj&@LCj(hLCj*LCj,MCj&LCj(0MCj.Cj*XM@Cj,MCj. Cj&(NC@8 p  ` t vj(PNCj*xN@Cj,NCj. C8@>j Gj&OCj(8OCj*`O@Cj,OCj. Cj&OCj(PCj*(P@Cj,PPCj. Cj&PCj(PCj*P@Cj,8QC@ZD pLj. Cj&QCj(QCj*Q@Cj,RCj. Cj&PRCj(xRCj*R@Cj,RCj. Cj&SCj(@SCj*hS@Cj,SCj. Cj&SCj(TCj*0T@Cj,XTCj. C@hV4 Mj&TCj(TCj*UCj,@UCj.CXSj&UCj(UCj*UCj,VCi Tj&VC@P]$ j.Cj(VCj*VCj, WCj.Ci X` j&WCj(WCj* XCj,XCj&pXCj(YC`Yj.C `` j*8Y@Cj,xYC] Sj. Cj&YCj(YCj*ZCj,@ZCj.Cj((]C@b j&ZCj(ZCj* [@Cj,H[Cj. Cj&[Cj([Cj*[Cj,\Cj.Cj&`\Cj(\Cj*\Cj,\Cj.C`U]]]j*cC@c j&]Cj(]Cj*]@Cj,^Cj. Cj&X^Cj(^Cj*^Cj,^Cj.Cj& _Cj(H_Cj*p_Cj,_Cj.Cj&_Cj(`Cj*8`Cj,``Cj.Cj&`Cj(aC8j $b` j&HaCj(paCj*aCj,aCj.Cj*b@Cj,8bCj. Cj&bCj(cC@i &(h` @Wj*8cCj,`cCj.Cj,@zC@ j&cCj(dCj*@d@Cj,hdCj. Cj&dCj(dCj*eCj,0eCj.Cj&eCj(eCj*eCj,eCj.Cj&HfCj(pfCj*fCj,fCj.Cj&gCj(8gCj*`gCj,gCj.Cj&gCj(hCj*hhC 0k` j,hCj.Cj&hCj(iCj*XiCi \j,iCj.Cj&jC@ j&jCj(HjC0qhhj*pjCj,jCj.Cj(jCj*kCj,8kCj.Cj&kCj(kC 6 ` j*l@Cj,@lCj. Cj&lCj(lCj*l@Cgj,mCj. Cj&`mCj(mCj*m@Cj,mCkj. Cj&0nCj(XnCj*nCj,nCj.Clj&oCj((oCj*PoCj,xoCj.Cj&oCj(oCj*pCj,@pCj.Cj&pCj(pCj*@q@Cj&qCj(PxCuhj,hqCj. Cj&qCj(rC@ kqj*0rCj,XrCj.Cj&ptC@r j&sC@hz qj(0sCj*XsCj,sCj.Cj&sCj(sCj* t@Cj,HtCj. Cj(tCj*t@Cj,tCj. Cj&VBFrame96PROJECTwmkVBA Project Data"Host Project Items& 4  !"#$%'()*+,-./012345678:;<=?ABCDEFGHIJKLMNO]QRSTUVWXYZ\^_`abcdefghijklmnopqrstuvwxy{|}~VBA Project Signature, Host Project Item Names0!F MRThisLibraryF MRControl List Data$ MRMRxa}  {@ ThisLibrary*{ 5{@ L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{  L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{@ ";{ $={@ &&L{801A0000-A66C-11D3-A8BD-0000861EBBD6} @S:\Vorlagen\schriftfeld-konf.swpID="{9A8E1793-2FD1-4B7F-BC49-34558AC30F2B}" Document=ThisLibrary/&H00000000 Module=schriftfeld1 BaseClass=frmSfInfo Name="schriftfeld" HelpContextID="0" VersionCompatible32="393222000" CMG="DBD928837387738773877387" DPB="2A28D9542955295529" GC="797B8A6F8B6F8B90" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=176, 232, 908, 867, C schriftfeld1=201, 44, 971, 925, f8uCj(uCj& vC@ yj*u@Cj,uCj. Cj(HvCj*pvCj,vCj.Cj&vCj(wCj*$`$`$ `$IRwpR ary schriftfeld1bSfInfo schriftfeldFBCbe\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i`l;C:\Programme\Gemeinsame Dateien\So i   HIJKLMNOPQRSTUV^_`abceghjpqrtuvwxyz{Control_Data_CurVer(# Project_Data_CurVer(" Host Project Item List Data8Control List Data$(frmSfInfoi*WJOF y Rfz>o@ CompObj>n_VBA_PROJECTy8dirReqControl List Data*MRMRPROJECTVBAF `f0ThisLibrary &schriftfeld1 -__SRP_2 j7rmSfInfo=18, -6, 951, 884, , 10, 9, 458, 908, 8, 908, 0ThisLibraryThisLibraryschriftfeld1schriftfeld1frmSfInfofrmSfInfofeld1schriftf6@frmSfInfo cAL3/vw,@lFWJO cmdAutoDate!-6.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4Ewi ndowsEFM20.DLL#Microsoft : ^ Object Libr@ary/;D1?u00}#0#__SRP_0 k__SRP_1Project Item Data$ ReqControl List Data* __SRP_3 [frmSfInfo__SRP_4P;__SRP_5 P8w@Cj,`wCj. Cj&wCj(wCj*xCj,(xCj.Cj*xxCj,xCj.Cj&xCj(yC      !&')*+,-./034TU\]^`abcdefghijpqrstuvwxyz{|}rU~~~~~~s   1   (  8 a H aX\-8-02608C4D0BB4DFM20.DLL#Microsoft 9 ˲0* pHd schriftfeld8@ = t  }K($ J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2j*yCj&|C@ }j,yCj.C0lyyy H` yj.C@ { j&zCj(zCj*z@Cj,@{Ckh0 AF78E8356-6904-4A17-876D8F5878DC8B6DOKUME~1\Besitzer\LOKALATemp\VBE\T.exd  glbUserNamed_B_var_glbUserName CustomInfolDeleteCustomInfo AddCustomInfoLtxtSfZuschnittTLabel10@txtSfZuschnitt2>Label11AtxtSfZuschnitt_GotFocustxtSfZuschnitt2_GotFocus( txtSfStueckLabel12BtxtSfFertig_AnzahlLabel13C Label6_ClickLabel14D Label14_ClicktxtSfStueck_GotFocusgtxtSfFertig_Anzahl_GotFocusTextBox1SLabel15E Label15_ClickKBtxtSfCNCgtxtSfCNC_GotFocustxtSfAuftragsnummerLabel16FtxtSfAuftragsnummer_GotFocusG2 _B_var_Format txtSfVersion̤_B_var_txtSfVersionKonfigYtxtSfVersion_KonfigaLabel17GtxtSfVersion_Konfig_GotFocus]txtSfnderungsvermerk_Konfig%txtSfnderungsvermerk_Konfig_GotFocusLabel18HTextnderungsvermerk_Konfig#_B_var_txtSfnderungsvermerk_Konfig|3txtSfAenderungsvermerk_Konfigp$_B_var_txtSfAenderungsvermerk_Konfig=&txtSfAenderungsvermerk_Konfig_GotFocusTextAenderungsvermerk_Konfig-txtSfRevision_KonfigrtxtSfRevision_Konfig_GotFocus  Label17_Clickk txtSfRevisiontxtSfRevision_GotFocusLabel19I CmbSfKdn_Dok~EcmbSfKdn_Dok_GotFocusvSW*_File%ChrK~ _B_str_Chrm# Workspace3 _B_var_ScreenPathName' GetPathName!cmdSfDefaultWerteAlleKonfig_Click*"%berSfStandardwerteAusfllenAlleKonfigcmdSfDefaultWerteAlleKonfigRcmdSfDefaultWerteAlleKHcmdSfDefaultWerteAlleK_Click _B_var_IfPAnzahl2[Namen2Conf2wO ConfName26i2]_B_var_i nderungsvermerk_Konfig_B_var_Anzahl2`    6@@Ns5OXNjy7@$h3 & FU}?*R,O2x?*R,O2Ns5OXNRHRME0@SPSSSH$>""LLLLLLLLLLLLLLLLLLLLLLL<<<<<<<<<<<<<<0{9729C462-1B13-440A-8DAA-165B3386AF54}{440C7C4A-7F94-4BA8-8DC3-2FDF02B6F6BE}(B"XB%% r*$ؕ`4x  2`H@BB`4x 0`6t  L`XkD]]X`4x ILET`6t  @R `ZX` ^p`8kH@@`4x `6t ``p`b` `d\ `fX`hT |0`hkL`4x `6t  ` T G ``ؘ0kX P `8J\Y `(|+`^   `|Jd c  `|kh h M `|kp rj& C`6t  hW`  x` j&`CL`  `8k,, %8 %BhBB Bj&Cj(Cj*@Cj,0Cj. Cb04@j&Cj(Cj*Cj,pC(0j.Cj& C``pi j& Cj(H Cj*p @Cj, Cj. Cj& Cj( Cj*8 Cj,` Cj.Cj( Cj* Cj, Cj.Cj&P Cj(x Cj* @Cj, Cj. Cj& Cj(@ Cj*h @Cj, Cj. Cj& Cj( Cj*0 Cj,X Cj.Cj( Cj* Cj, Cj.Cj&C`b` j(Cj*@Cj,Cj. Cj&C> ^FZj&hCj(Cj*@Cj,Cj. Cj&0Cj(XCj*Cj,Cj.Cj&Cj( Cj*HCj,pCj.Cj(Cj*@Cj,Cj. Cj&CHd^2j&Cj(Cj*@Cj,Cj. Cj&hCj(Cj*Cj,Cj.Cj&hZC@R i j&Cj(Cj*@Cj,Cj. Cj&XCj(Cj*Cj,Cj.Cj& Cj(pC@x  `j*Cj,Cj.Cj(Cj*8Cj,`Cj.Cp D` xzj(Cj* @Cj,HCj. CX }` j&Cj(Cj*0@Cj,hC`'xj. Cj&Cj(Cj*@Cj,0Cj. Cj&Cj(Cj*@Cj,Cj. Cj&HCj(pCj*@Cj,Cj. Cj&Cj(8Cj*`@Cj,Cj. Cj&Cj(Cj*(Cj,PCj.CPj&Cj(Cj*@Cj, Cj. Cj&pCj(Cj*Cj,0Cj&XCi j.Cj(Cj*@Cj,Cj. Cj& Cj(DCj&p Cj( Cj* Cj,!C2r*j.Cj&P!Cj(x!Cj*!Cj,!Cj.Cj&"Cj(@"Cj*h"Cj,"Cj&"Cj(#Cj.Cj*0#Cj,X#Cj.Cj&#Cj&#Cj(P.Cj( $Cj*H$Cj,p$Cj.Cj&$Cj(%Cj&%Cj(@%Cj*h%Cj,%Cj.Cj*%@Cj,&Cj. Cj&0C@;h j&&Cj(&Cj*&Cj,'Cj.Cj&p'C@/p"j('Cj*'Cj,'Cj.Cj&8(Cj(`(Cj*(Cj,(Cj.Cj&)Cj(()Cj*P)Cj,x)Cj.Cj&)Cj()Cj**Cj,@*Cj.Cj&*Cj(*Cj**Cj,+Cj.Cj&X+Cj(+Cj*+Cj,+Cj.Cj& ,Cj(H,Cj*p,Cj,,Cj.Cj&,Cj(-Cj*8-Cj,`-Cj.Cj&-Cj(-Cj*.Cj,(.Cj.Cj*x.Cj,.Cj.Cj&P/Cj&/Cj(=C4j(x/Cj*/Cj,/Cj.C.j& 0Cj(H0Cj*p0Cj,0Cj.Cj(0Cj*1Cj,81Cj.Cj&1Cj(1Cj*1@Cj,2C<r,-j. Cj&h2Cj(2Cj*2Cj,2Cj.Cj&03Cj(X3Cj*3Cj,3Cj.Cj&3Cj( 4Cj*H4Cj,4Cj&4Cj(7C0Bj.Cj&5C@ @yj. Cj&{Cj({Cj*{Cj,|Cj.Cj&X|Cj(|Cj*|Cj,|Cj.Cj( }Cj*H}Cj,p}Cj.Cj&}Cj(8~C0 `y` j*`~@Cj,~Cj. Cj&HCj02 j&@C@xx `8@wj(hCj*Cj,Cj.C f` @h `8~j(pCj*@Cj,Cj. Cj&Cj(8Cj*`@Cj,Cj. Cj&؁Cj(Cj*(@Cj,PCj. Cj&Cj(ȂCj*@Cj,Cj. Cj&hCj(Cj*Cj,Cj.Cj&0Cj(XCj*@Cj,Cj. Cj&Cj( Cj*H@Cj,pCj. Cj&Cj(Cj*@Cj,8Cj. Cj&Cj(Cj*؆Cj,Cj.Cj&Cj&ȊC@d j(Cj*Cj,Cj.C z`|HP55j&Cj(Cj*@Cj,Cj. Cj&`Cj(Cj*Cj,؉Cj.Cj&(Cj(PCj*xCj,Cj.Cj(Cj*@Cj,@Cj. Cj&Cj(Cؙ ` `Ȟ|kl mj*(@Cj,PCj. Cj&Cj(ȌCj*@Cj,Cj. Cj&hCj(Cj*@Cj,Cj. Cj&0Cj(XCj*@Cj,Cj. Cj&Cj( Cj*H@Cj,pCj. Cj&Cj(Cj*@Cj,8Cj. Cj&Cj(Cj*ؐ@Cj,Cj. Cj&PCj(xCj*@Cj,ȑCj. Cj&Cj(@Cj*h@Cj,Cj. Cj&Cj(Cj*0@Cj,XCj. Cj&Cj(ГCj*Cj, Cj.Cj&pCj(Cj*Cj,Cj.Cj&8Cj(`Cj*Cj,Cj.Cj&Cj((Cj*P@Cj,xCj. C kXx}DX `Mx @>y@0hWH(hx`ؕh`(bPp Hp7X&`X(@uqQThyrN8j(@5Cj*h5@Cj,5Cj. Cj&5Cj(6Cj*06@Cj,X6Cj. Cj&6Cj(6Cj*6@Cj, 7Cj. Cj& ;C@MX j*7Cj,7Cj.Cj&(8Cj(P8Cj*x8Cj,8Cj.Cj&8Cj(9Cj*@9Cj,h9Cj.Cj&9Cj(9Cj*:Cj,0:Cj.Cj&:Cj(:Cj*:Cj,:Cj.Cj(H;Cj*p;Cj,;Cj.Cj&<C@H ((<j(8<Cj*`<@Cj,<Cj. C0>hz7X;j&<Cj(=Cj*@=Cj,h=Cj.Cj*=@Cj,=Cj. Cj&>C ? {7 ` j(>Cj*>@Cj,>Cj. C {<X:j&`?Cj(?Cj*?@Cj,?Cj. Cj&(@Cj(P@Cj*x@@Cj,@Cj. Cj&@Cj(ACj*@A@Cj,hACj. Cj&ACj(ACj*B@Cj,HBCD(<j. CBj&BCj(BCj*B@Cj,CCj. CAj&pCCj(CCj*CCj,CCj.Cj*8D@Cj,`DCj. Cj&ECE @>` |~j((ECj*PE@Cj,xECj. CXF-@j&ECj(FCj*0F@Cj,pFChU@>Ej. Cj&FCj(FCj*G@Cj,8GCj. Cj&GCj(GCj*G@Cj,HCj. Cj&PHCj(xHCj*H@Cj,HCj. Cj&ICj(@ICj*hI@Cj,ICj. Cj&ICj(JCj*0J@Cj,XJCj. Cj&JCj(JCj*J@Cj, KCj. CAj&xKCj(KCj*KCj,KCj.Cj&@LCj(hLCj*LCj,MCj&LCj(0MCj.Cj*XM@Cj,MCj. Cj&(NC@8 p  ` t vj(PNCj*xN@Cj,NCj. C8@>j Gj&OCj(8OCj*`O@Cj,OCj. Cj&OCj(PCj*(P@Cj,PPCj. Cj&PCj(PCj*P@Cj,8QC@ZD pLj. Cj&QCj(QCj*Q@Cj,RCj. Cj&PRCj(xRCj*R@Cj,RCj. Cj&SCj(@SCj*hS@Cj,SCj. Cj&SCj(TCj*0T@Cj,XTCj. C@hV4 Mj&TCj(TCj*UCj,@UCj.CXSj&UCj(UCj*UCj,VCi Tj&VC@P]$ j.Cj(VCj*VCj, WCj.Ci X` j&WCj(WCj* XCj,XCj&pXCj(YC`Yj.C `` j*8Y@Cj,xYC] Sj. Cj&YCj(YCj*ZCj,@ZCj.Cj((]C@b j&ZCj(ZCj* [@Cj,H[Cj. Cj&[Cj([Cj*[Cj,\Cj.Cj&`\Cj(\Cj*\Cj,\Cj.C`U]]]j*cC@c j&]Cj(]Cj*]@Cj,^Cj. Cj&X^Cj(^Cj*^Cj,^Cj.Cj& _Cj(H_Cj*p_Cj,_Cj.Cj&_Cj(`Cj*8`Cj,``Cj.Cj&`Cj(aC8j $b` j&HaCj(paCj*aCj,aCj.Cj*b@Cj,8bCj. Cj&bCj(cC@i &(h` @Wj*8cCj,`cCj.Cj,@zC@ j&cCj(dCj*@d@Cj,hdCj. Cj&dCj(dCj*eCj,0eCj.Cj&eCj(eCj*eCj,eCj.Cj&HfCj(pfCj*fCj,fCj.Cj&gCj(8gCj*`gCj,gCj.Cj&gCj(hCj*hhC 0k` j,hCj.Cj&hCj(iCj*XiCi \j,iCj.Cj&jC@ j&jCj(HjC0qhhj*pjCj,jCj.Cj(jCj*kCj,8kCj.Cj&kCj(kC 6 ` j*l@Cj,@lCj. Cj&lCj(lCj*l@Cgj,mCj. Cj&`mCj(mCj*m@Cj,mCkj. Cj&0nCj(XnCj*nCj,nCj.Clj&oCj((oCj*PoCj,xoCj.Cj&oCj(oCj*pCj,@pCj.Cj&pCj(pCj*@q@Cj&qCj(PxCuhj,hqCj. Cj&qCj(rC@ kqj*0rCj,XrCj.Cj&ptC@r j&sC@hz qj(0sCj*XsCj,sCj.Cj&sCj(sCj* t@Cj,HtCj. Cj(tCj*t@Cj,tCj. Cj&8uCj(uCj& vC@ yj*u@Cj,uCj. Cj(HvCj*pvCj,vCj.Cj&vCj(wCj*8w@Cj,`wCj. Cj&wCj(wCj*xCj,(xCj.Cj*xxCj,xCj.Cj&xCj(yCj*yCj&|C@ }j,yCj.C0lyyy H` yj.C@ { j&zCj(zCj*z@Cj,@{C@ @yj. Cj&{Cj({Cj*{Cj,|Cj.Cj&X|Cj(|Cj*|Cj,|Cj.Cj( }Cj*H}Cj,p}Cj.Cj&}Cj(8~C0 `y` j*`~@Cj,~Cj. Cj&HCj02 j&@C@xx `8@wj(hCj*Cj,Cj.C f` @h `8~j(pCj*@Cj,Cj. Cj&Cj(8Cj*`@Cj,Cj. Cj&؁Cj(Cj*(@Cj,PCj. Cj&Cj(ȂCj*@Cj,C x~@T @D @4 @0  0>0 d @T @D 4 @$ 8 @ ( @ (  x.2^ HJȝP|  88@>"^F@hd @PT @D @4 @$ @ȝ @ @ @ @ ZJj. Cj&hCj(Cj*Cj,Cj.Cj&0Cj(XCj*@Cj,Cj. Cj&Cj( Cj*H@Cj,pCj. Cj&Cj(Cj*@Cj,8Cj. Cj&Cj(Cj*؆Cj,Cj.Cj&Cj&ȊC@d j(Cj*Cj,Cj.C z`|HP55j&Cj(Cj*@Cj,Cj. Cj&`Cj(Cj*Cj,؉Cj.Cj&(Cj(PCj*xCj,Cj.Cj(Cj*@Cj,@Cj. Cj&Cj(Cؙ ` `Ȟ|kl mj*(@Cj,PCj. Cj&Cj(ȌCj*@Cj,Cj. Cj&hCj(Cj*@Cj,Cj. Cj&0Cj(XCj*@Cj,Cj. Cj&Cj( Chzx00H`0BxL @< @, 8j*H@Cj,pCj. Cj&Cj(Cj*@Cj,8Cj. Cj&Cj(Cj*ؐ@Cj,Cj. C @  p@(Т(08@>N0@Xd @@T @pD @4 @$ @ @ @ @ @ @H  .2^FdHJ(X@` @  `h\P\ @ `@  (N(L[ @ [@ @ @| `[j&PCj(xCj*@Cj,ȑCj. Cj&Cj(@Cj*h@Cj,Cj. Cj&Cj(Cj*0@Cj,XCj. Cj&Cj(ГCj*Cj, Cj.Cj&pCj(Cj*Cj,Cj.Cj&8Cj(`Cj*Cj,Cj.Cj&Cj((Cj*P@Cj,xCj. C kXx}DX `Mx @>y@0hWH(hx`ؕh`(bPp Hp7X&`X(@uqQThyrN8 x~@T @D @4 @0  0>0 d @T @D 4 @$ 8 @ ( @ (  x.2^ HJȝP|  88@>"^F@hd @PT @D @4 @$ @ȝ @ @ @ @ ZJhzx00H`0BxL @< @, 8 @  p@(Т(08@>N0@Xd @@T @pD @4 @$ @ @ @ @ @ @H  .2^FdHJ(X@` @  `h\P\ @ `@  (N(L[ @ [@ @ @| `[@xH@HXH @ =}K$$*\Rffff*0K4bb8d222(*\Rffff*0K4bb8d222\0*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#f*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#f*\R0*#12*\R0*#f*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47-8<@DHLPTX\hlptx|d` 6 >8 x    0H >P " L @ 0 8 @`h 0p$ H D JX L    *  P23` T3 fp3 X JP J &  !&7x" 0&; &;0 &; $;@ #$;# 8#$;" $ ;$ $(;% H&;X& &(;& (";* 8)2;X) 8+"7P+ p&;  ;  " L N@ P > J  Fp  $   230 h p x P N L p x * &8"&<H&<X&<H$< $<X#$<# <P%(<$<&(<("<@*2<)"8*&<  <   " "H""! "!"!p ! !# !#!%$!(%!x&$!8'!h*.!)+"!8 !`  @ .G".K.K.K,K,K#,K$(K%0K%&K&0K`'*K*:K)*Gx+.K (K   N( Px (   )d3 ` h p    " F F >0 p x  0$ H( Dp J L X `p  * 23  D @P +  * 0  *  P  `p 5   V  &@ >P  : 0 : &( P ` hx " F @ L 4h  $$   23(`h p 2x @( H, ++ (Q`, 0", 2H2 B2 --X.`.h.$-$ 8-`-  p-23---  ,x. . *. . - ((.%. /(/8/`/ / N L2*X0.Q/>Q0,Q/h0p0 "x0*50:50(51 @16`X1F`14`20  //--- " 8 B@ F   " F  Hh Q B08 " @ .HJ((x " $@xH@HXH @ =}K$$*\Rffff*0K4bb8d222(*\Rffff*0K4bb8d222\0*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#f*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A "  D "  4(`h ", J,,, "p Bx" !!! "  " (@ " 8@H " " H$P$2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\R0*#f*\R0*#12*\R0*#f*\R0*#12*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#12*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINDOWS\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47-8<@DHLPTX\hlptx|d` 6 >8 x    0H >P " L @ 0 8 @`h 0p$ H D JX L    *  P23` T3 fp3 X JP J &  !&7x" 0&; &;0 &; $;@ #$;# 8#$;" $ ;$ $(;% H&;X& &(;& (";* 8)2;X) 8+"7P+ p&;  ;  " L N@ P > J  Fp  $   230 h p x P N L p x * &8"&<H&<X&<H$< $<X#$<# <P%(<$<&(<("<@*2<)"8*&<  <   " "H""! "!"!p ! !# !#!%$!(X$" `$h$p$" $$p%" x%%%" 0&8&@&" &&& "  "  (" '('0'" " +++ "0 F8 + +'+'+H!+  +  + +(!+'+`!+!+'+!+(+!+!+`+++(++++p +(+P(+p(+ )++++  D 8H  LP  30 Definitionen sind konsistent mit dem Typennamen7 wie in \SldWorks\samples\appComm\swconst.bas definiert Xinitio0]@work]h] H'&'( VT_LPSTR@'* VT_FILETIMEe', VT_I400 '. VT_BOOL]X/ Konfigurationsname, dient nur zum VereinfachenxF Diese Funktion liest die vorhandenen Werte aus den Dateieigenschaften: aus und schreibt sie direkt in die passenden Edit-Felder. einige Deklarationen]]* An das aktive Solidworks-Modell anklinkenSldWorks.Application$8.4B ACHTUNG: falls kein Solidworks luft, wird durch das CreateObject> eins geladen, was aber normalerweise nicht zu sehen ist, alsoD machen wir es doch im Zweifelsfall lieber sichtbar (sonst hngt zumF Schlu noch eins im Arbeitsspeicher rum und bereitet nur Scherereien) 4(: 4!<.6$ wenn nix geladen direkt wieder raus 6Keine Datei geffnet @ InformationA>|kH wenn Attribute erzeugt werden sollen wird die zweite Methode verwendet,Q Die Funktion ModelDoc.CustomInfo2(configname, Propertie) liest/schreibt den WertD einer Benutzerdefinierten Fileeigenschaft. ModelDoc ist das synonymD fr das Model-Objekt, hier also in der Variablen Model (siehe oben) (siehe auch das API-Hilfefile)DA@ Description2mer !d 0%!x&$!8'!h*.!)+"!8 !`  @ .G".K.K.K,K,K#,K$(K%0K%&K&0K`'*K*:K)*Gx+.K (K   N( Px (   )d3 ` h p    " F F >0 p x  0$ H( Dp J L X `p  * 23  D @P +  * 0  *  P  `p 5   V  &@ >P  : 0 : &( P ` hx " F @ L 4h  $$   23(`h p 2x @( H, ++ (Q`, 0", 2H2 B2 --X.`.h.$-$ 8-`-  p-23---  ,x. . *. . - ((.%. /(/8/`/ / N L2*X0.Q/>Q0,Q/h0p0 "x0*50:50(51 @16`X1F`14`20  //--- " 8 B@ F   " F  Hh Q B08 " @ .HJ((x " $ "  D "  4(`h ", J,,, "p Bx" !!! "  " (@ " 8@H " " H$P$X$" `$h$p$" $$p%" x%%%" 0&8&@&" &&& "  "  (" '('0'" " +++ "0 F8 + +'+'+H!+  +  + +(!+'+`!+!+'+!+(+!+!+`+++(++++p +(+P(+p(+ )++++  D 8H  LP  30 Definitionen sind konsistent mit dem Typennamen7 wie in \SldWorks\samples\appComm\swconst.bas definiert Xinitio0]@work]h] H'&'( VT_LPSTR@'* VT_FILETIMEe', VT_I400 '. VT_BOOL]X/ Konfigurationsname, dient nur zum VereinfachenxF Diese Funktion liest die vorhandenen Werte aus den Dateieigenschaften: aus und schreibt sie direkt in die passenden Edit-Felder. einige Deklarationen]]* An das aktive Solidworks-Modell anklinkenSldWorks.Application$8.4B ACHTUNG: falls kein Solidworks luft, wird durch das CreateObject> eins geladen, was aber normalerweise nicht zu sehen ist, alsoD machen wir es doch im Zweifelsfall lieber sichtbar (sonst hngt zumF Schlu noch eins im Arbeitsspeicher rum und bereitet nur Scherereien) 4(: 4!<.6$ wenn nix geladen direkt wieder raus 6Keine Datei geffnet @ InformationA>|kH wenn Attribute erzeugt werden sollen wird die zweite Methode verwendet,Q Die Funktion ModelDoc.CustomInfo2(configname, Propertie) liest/schreibt den WertD einer Benutzerdefinierten Fileeigenschaft. ModelDoc ist das synonymD fr das Model-Objekt, hier also in der Variablen Model (siehe oben) (siehe auch das API-Hilfefile)DA@ Description2mer !d 0 Description2 6,D( Konstrukteur 0 Konstrukteur 6%D H(d Datum 0Datum 6%D J(doE Diese Funktion schreibt die aktuellen Werte, die in den Edit-FeldernG eingetragen sind, in die benutzerdefinerten Dateieigenschaften zurck.I Durch die Verknpfung von den Schriftfeldtexten mit diesen Eigenschaften7 werden diese nderungen dann im Schriftfeld angezeigt.D In einem vernnftigen Programm sollten natrlich die Werte auf ihre@ Zulssigkeit berprft werden (am besten schon bei der Eingabe)](]@SldWorks.Application$8.4 4(: 4!<.6 6Keine Datei geffnet @ InformationA>|@k8I in dieser Funktion werden die Werte geschrieben, also andersrum wie obenH wenn Attribute erzeugt werden sollen wird die zweite Methode verwendet,E wenn nur mit bestehende Attributen gearbeitet werden soll die erste. N!P 0 Description2 6%T'Rnummer H!d 0 Konstrukteur 6,D J!d 0Datum 6,Dd ]Xerst die alten Infos lschen 0 Konstrukteur 6%T'R 0Datum 6%T'R9 dann die bentigten Infos als Dateieigenschaft eintragen 0 Konstrukteur ( H!d 6%V'R 0Datum ( J!d 6%V'Rk G und damit die Werte auch direkt im Schri Description2 6,D( Konstrukteur 0 Konstrukteur 6%D H(d Datum 0Datum 6%D J(doE Diese Funktion schreibt die aktuellen Werte, die in den Edit-FeldernG eingetragen sind, in die benutzerdefinerten Dateieigenschaften zurck.I Durch die Verknpfung von den Schriftfeldtexten mit diesen Eigenschaften7 werden diese nderungen dann im Schriftfeld angezeigt.D In einem vernnftigen Programm sollten natrlich die Werte auf ihre@ Zulssigkeit berprft werden (am besten schon bei der Eingabe)](]@SldWorks.Application$8.4 4(: 4!<.6 6Keine Datei geffnet @ InformationA>|@k8I in dieser Funktion werden die Werte geschrieben, also andersrum wie obenH wenn Attribute erzeugt werden sollen wird die zweite Methode verwendet,E wenn nur mit bestehende Attributen gearbeitet werden soll die erste. N!P 0 Description2 6%T'Rnummer H!d 0 Konstrukteur 6,D J!d 0Datum 6,Dd ]Xerst die alten Infos lschen 0 Konstrukteur 6%T'R 0Datum 6%T'R9 dann die bentigten Infos als Dateieigenschaft eintragen 0 Konstrukteur ( H!d 6%V'R 0Datum ( J!d 6%V'Rk G und damit die Werte auch direkt im Schriftfeld angezeigt werden mssenI wir ein Rebuild auf das Modell machen. Kann natrlich bei groen Dateien! schonmal seine Zeit brauchen ;-)FWerte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragen @ InformationA>dh ]p 6%\'ZkH o8 ? Diese Funktion liest vom aktuellen Modell alle Konfigurationen? aus und fllt die Namen in die Dropdownliste anschlieend wird8 die gerade aktive Konfiguration als Ziel voreingestellt einige Deklarationen]]]]](]@]X* An das aktive Solidworks-Modell anklinkenSldWorks.Application$8.4B ACHTUNG: falls kein Solidworks luft, wird durch das CreateObject> eins geladen, was aber normalerweise nicht zu sehen ist, alsoC machen wir es doch im Zweifelsfall liber sichtbar (sonst hngt zumF Schlu noch eins im Arbeitsspeicher rum und bereitet nur Scherereien) 4(: 4!<.6$ wenn nix geladen direkt wieder raus 6Keine Datei geffnet @ InformationA>| k> eine "Konfiguration" gehrt immer dazu, und zwar die globalen9 Eigenschaften; diese Konfiguration wird mit "" bergeben jB@l jB@n# dann alle Konfigurationen auslesen* dazu die Anzahl der Konfigurationen holen 6!p'`$ die Namen der Konfigurationen holen 6!r'b ` h ` h$b jB@nxkpO globale Eigenschaften (also den ersten Eintrag, der immer leer ist) vorbelegen j(t aktuelle Konfiguration auslesen 6!v.d7 Zeichnungen haben keine Konfigurationen, also abfangen d4 dann den Namen der aktiven Konfiguration einstellen d!'f h j!x f h j%z dann diesen Eintrag selektieren h j(tk hkop? Diese Funktion ist nur zur Demonstration gedacht und fllt die: EDIT-Felder einfach mit ein paar Defaultwerten. Hier kannF natrlich richtig gezaubert werden. Als Beispiel wird mal einfach nur- je nach Dokumentart was anderes eingetragen.]]SldWorks.Application$8.4 4(:falls nicht sichtbar 4!<.6 6Keine Datei geffnet @ InformationA>|8k0+ Beispiel: Unterscheiden nach Dokumentenart 6%~ "9 Benennung = Dokumenttitel (Name des Files in Solidworks) 6% (ddkxoH< Nur zum schnmachen: wenn ein EDIT-feld angewhlt wird, den? gesamten Inhalt selektieren, macht das berschreiben einfacher !( !!d !(o @ wenn die Konfiguration gendert wird die modul-globale VariableA auf den Namen der Konfiguration setzen. Dabei ist "_GLOBALE" die Umschreibung fr "" j!t j%z'0< und dann die Werte der neu gewhlten Konfiguration auslesenA@2o`( aktuelle sDatum im datumsfeld eintrageno@ Ist wohl klar was das tut ...go= jetzt in die Prozedur verzweigen, die die Werte ausliest ...A@2oP - die Standardwerte in die Textboxen eintragenA@|o`< und die Werte aus den Eingabefeldern ins Dokument eintragenA@Lo@A@o(A@o A@oxA@o@ als Beispiel die Combobox mit ein paar Standardwerten ausfllenyA@o L.Mschle HB@n O.Metzger HB@n> dann alle Konfigurationen auslesen, in die Kombobox eintragen1 anschlieend die aktive Konfiguration einstellenA@^F zu Beginn erstmal die Werte auslesen, damit die Felder gefllt werdenA@2o8+ 0 Description2 6%D (d 0 Description2 ( !d 6%V'Rp+ 0 Description3 6%D (d !d 0 Description3 6,D 0 Description3 6%T'R 0 Description3 ( !d 6%V'R* Verwendungsbereich Description3% 0 Verw_Bereich 6%D (do !d 0 Verw_Bereich 6,D@ 0 Verw_Bereich 6%T'R 0 Verw_Bereich ( !d 6%V'Rh* OberflcheKons 0 Oberflche 6%T'R 0 Oberflche ( !d 6%V'R5@>A@ox+( perlstrahlen B@n eloxieren B@nperlstr.-elox. B@n verzinken B@npolieren B@n lackieren B@n* !d 0 Oberflche 6,Dd/ 0 Oberflche 6%D (d.elektropolier. B@n. T120-160 K B@n-ZF-400 B@nect Rhrchenzufhrung B@nTablettenzufhrung B@nTC-160 B@nnew Transportband B@n(RS-160 B@n(Rhrchenelevator B@n wStopfenelevator B@n wZ350 B@nale VaTIB-120 B@n N-MA@o Description,/p. !d Description 6,D$ Description 6%T'R$ Description 6%D (d Description ( !d 6%V'R$ 0 Zuschnitt2 6%D (d  Zuschnitt 0 Zuschnitt 6%D (d Zuschnitt2# !d 0 Zuschnitt 6,D !d 0 Zuschnitt2 6,D 0 Zuschnitt 6%T'R 0 Zuschnitt2 6%T'R 0 Zuschnitt ( !d 6%V'R 0 Zuschnitt2 ( !d 6%V'RhWA@o#XA@o## !d 0 Fertig_Anzahl 6,D`A@ Stueck 0Stueck 6%D (d Fertig_Anzahl 0 Fertig_Anzahl 6%D (d 0 Fertig_Anzahl 6%T'R !d 0Stueck 6,DobA@o 0Stueck 6%T'R 0 Fertig_Anzahl ( !d 6%V'R 0Stueck ( !d 6%V'R $ .!d 0CNC 6,D(hA@o CNC 0CNC 6%D .(d 0CNC 6%T'R 0CNC ( .!d 6%V'R&kA@ Auftragsnummer o 0Auftragsnummer 6%D 2(d}A@o 0Auftragsnummer 6%T'R 0Auftragsnummer ( 2!d 6%V'Rp'RKE B@nRollenfrderer B@nTransportrinne B@nRo-Flex B@n TP120-160 B@n( Zdd.mm.yy$'J) geschliffen B@n schleifen B@n gebrstet B@nx) Revision-Konfig) 2!d 0Auftragsnummer 6,D)polieren-elox. B@n*A.Beck HB@n nderungsvermerk-Konfig 0nderungsvermerk-Konfig 6%D F(d F!d 0nderungsvermerk-Konfig 6,D 0nderungsvermerk-Konfig 6%T'R 0nderungsvermerk-Konfig ( F!d 6%V'R * ^!d 0Revision 6,D X( 0Revision 6%T'Ron@, 0Revision 6%D ^(d 0Revision ( ^!d 6%V'R, d!dKdn-Dok 6,D0 Kdn-Dok 6%T'R KundendokumentKdn-Dok 6%D d(dKdn-Dok ( d!d 6%V'RA@o+ja dB@n+A-01 ^(derste Revision F(d--`-x,(-0-`- (d - Zdd.mm.yy$ J(d-A@zo,C die Standardwerte in die Textboxen aller Konfigurationen eintragen,0]`]SldWorks.Application$8.4 4(:falls nicht sichtbar 4!<.6 6Keine Datei geffnet @ InformationA>|+k+A@Lk*o*8+0( 6%~  >>/! Unterscheiden nach DokumentenartX0]]H]/% die Anzahl der Konfigurationen holenolen 6!p'`$ die Namen der Konfigurationen holen 6!r'bp/ ` 80k00(0A-01 ^(derste Revision F(dDa0 Zdd.mm.yy$ J(dsi0 J!d h $bDatum 6,D0@1 h ` ^!d h $bRevision 6,D F!d h $bnderungsvermerk-Konfig 6,D81 N!Pd`1]0erst die alten Infos lschen h $bnderungsvermerk-Konfig 6%T'Rn2 6k h $bRevision 6%T'R9 dann die bentigten Infos als Dateieigenschaft eintragen h $bRevision ( ^!d 6%V'R h $bnderungsvermerk-Konfig ( F!d 6%V'Rn/ h $bDatum 6%T'R h $bDatum ( J!d 6%V'R2+ Diese Funktion fllt bestimmte EDIT-Felder< einfach mit ein paar Defaultwerten in alle Konfigurationen.E wenn nur mit bestehende Attributen gearbeitet werden soll die erste.M Die Dateiinfos auswerten, die wir haben wollen, sind im Template festgelegt._ Die Attributnamen mssen exakt so heien wie die in den benutzerdefinierten Fileeigenschaften.2QAttribute VB_Name = "frmSfInfo" " Bas0{046D0902-B9CA-466A-BC83-8A3F8413A638}{35297-FFDF-47DC-9697-07EEB7B971CA} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD' Definitionen sind konsistent mit dem Typennn ' wie in \SldWorks\sa@es\appComm\swc!t.bas1/ertOp6 ilici C swDocPART1  ASSEMBL Y2 DRAWING3  Pub@ Enum@;/_T swUnknown0 Text0' VT_LPhSTR D@^ 64 FILETIME Number I4O YesOrNo 11D BOOL8 Eg8;Dim glb@JfÐAs SngB"Konfigur aA[sn, diAunur zHVereinfacheu Sub 'SfAuslesen()C'@i Funk l@vorhandeAW@ye au}n FieigenschafAu2S@ bte&rekt@) pas Edit-Felder.  Ykh!'!$swApp `#ObjecMModel @' An dVave Solidw\-l a@nklinkE SeB = "}e t("c.R"*ACHTUNG: falls k luft, mrd duxrch s gela%AaLnormalerwei nicDht> se= {, @om@i e7o KZfelsAA> s! bar (svhng! mE Schlu nas Arbeitsspe`rO@  (ARRBen$c "8.Visi8/8= ~,.Ac~t` C xnix%M J Fr RCIf  Is Nothii.Tc aC5 MsgBox("K e#]@ ffnet", vbOKOnly, " 1f?Ex mzIfcbmC sosiwknwb4habwol :C&f"" geb-@q3ig.ClearCGIt@Y""S0EoadK`M0KlOvid~a)q ? 0ho TXGet QCou%AM?<'OFC?sL!a#@"> 0!`For i@*po T- 1!1?R(i/1N3S!'   (9uo asEiZnp,0` mQ#le?)!]belTegLIx C'i iPs89Ar4.@395chnP`KnrP>oJ abf#P: :!0(!"]n Jtw q .1 To 7( 0 (+$1E iϱ3 2\le {Sqi A7%!' 4 J@!SfSt@andard teAus!en+$ ^z@^DemBpLdt2Lv3 KDIT-FЭ*f qJ paODefaultRЫHi.kGrAkig1zau0Ne. Als Brp1{lWP jeSpumenta`Xwva sP .4cSrl14"Cr0'e| cotc+S64zqqfQqq? End If'0 Beispiel: Unterscheiden nach DokumBe\nartbIf (Model.GetType() = swDocDRAWING) ThenZ'nennu ng)Rtitel (Name des Filin Solid@works)CtxtSfDescription2`.TextNi,tl23""!Else Revis/A-01eCnderfsvermerk_Konfigte %;katumFormat(Date, "dd.mm.yy" Sub  berSfStandardwerteAusfllenAK(' Dies@e FunkAP  tstimm,EDIT-Fel7*' ein"fmit paar DefaHultn laE uraen.CDimApp As ObjecĒp@AnzahlALXongGAnVariani Set= Cre@T("SldW.$lic,XC .VbleaTrue~'f:s nich@Abar&C2€.Activ>e@CC Is Nothi C MsgBox("K`e i geffnet", vbO KOnlyInf0+Ex@l‰BH' die $,>7 hogHc= "~C]d=Coue0 3 u s$BPART Or<2ASSEM8BLYm> 0옂u??s3ꁁ;b iU1 To:&&' w AttribuerzPeugtr!soyn wirdCzwe` Me4th det,V nur albe`d`L n XarbA *B BdI1chkGenProp.Va:l`q=3)TCuPstomc2"n(i - 1) fO:o ->-}" YB2um'  K!X`dummyOa'c"altPs la(~(3DeletetjJQ$#1Oannbe ntigalss\eigenaf"utra AddW3_-3aswwA, _. v4,VOQj.e1 @Nw"EinurweTel𘇘N `Rzu0chnbmen:Y~ rfp angewhlR0Y,`%$7'Tsa@n Inh9 s`6`@eren, !t das &rei)e4%SScrepc~trol.SelUr0oehL`ength`?((Pri vP  cmb`_ChqBkw*qB7modul-gloErinne_TCf=(P$/SiZ35kIB- igperlJ9pVenlelxoxi"oN.-.okpol'R "Gzink swHdlack_ |@"pktro _ <gebrstet gphlif`(}leif A.Bx !LL.MbCk'O.MetzgvIC$\Wjar ean~lesen,KEZ)L' Bc@eeaktive?+!T@Re8adC#S' zuag0< ePmaSbft dabEF get 𻀱PSf 2J*<-$xME (6 "< `X|k*p%88p8ftfeld angezeigt werden mssenI wir ein Rebuild auf das Modell machen. Kann natrlich bei groen Dateien! schonmal seine Zeit brauchen ;-)FWerte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragen @ InformationA>dh ]p 6%\'ZkH o8 ? Diese Funktion liest vom aktuellen Modell alle Konfigurationen? aus und fllt die Namen in die Dropdownliste anschlieend wird8 die gerade aktive Konfiguration als Ziel voreingestellt einige Deklarationen]]]]](]@]X* An das aktive Solidworks-Modell anklinkenSldWorks.Application$8.4B ACHTUNG: falls kein Solidworks luft, wird durch das CreateObject> eins geladen, was aber normalerweise nicht zu sehen ist, alsoC machen wir es doch im Zweifelsfall liber sichtbar (sonst hngt zumF Schlu noch eins im Arbeitsspeicher rum und bereitet nur Scherereien) 4(: 4!<.6$ wenn nix geladen direkt wieder raus 6Keine Datei geffnet @ InformationA>| k> eine "Konfiguration" gehrt immer dazu, und zwar die globalen9 Eigenschaften; diese Konfiguration wird mit "" bergeben jB@l jB@n# dann alle Konfigurationen auslesen* dazu die Anzahl der Konfigurationen holen 6!p'`$ die Namen der Konfigurationen holen 6!r'b ` h ` h$b jB@nxkpO globale Eigenschaften (also den ersten Eintrag, der immer leer ist) vorbelegen j(t aktuelle Konfiguration auslesen 6!v.d7 Zeichnungen haben keine Konfigurationen, also abfangen d4 dann den Namen der aktiven Konfiguration einstellen d!'f h j!x f h j%z dann diesen Eintrag selektieren h j(tk hkop? Diese Funktion ist nur zur Demonstration gedacht und fllt die: EDIT-Felder einfach mit ein paar Defaultwerten. Hier kannF natrlich richtig gezaubert werden. Als Beispiel wird mal einfach nur- je nach Dokumentart was anderes eingetragen.]]SldWorks.Application$8.4 4(:falls nicht sichtbar 4!<.6 6Keine Datei geffnet @ InformationA>|8k0+ Beispiel: Unterscheiden nach Dokumentenart 6%~ "9 Benennung = Dokumenttitel (Name des Files in Solidworks) 6% (ddkxoH< Nur zum schnmachen: wenn ein EDIT-feld angewhlt wird, den? gesamten Inhalt selektieren, macht das berschreiben einfacher !( !!d !(o @ wenn die Konfiguration gendert wird die modul-globale VariableA auf den Namen der Konfiguration setzen. Dabei ist "_GLOBALE" die Umschreibung fr "" j!t j%z'0< und dann die Werte der neu gewhlten Konfiguration auslesenA@2o`( aktuelle sDatum im datumsfeld eintrageno@ Ist wohl klar was das tut ...go= jetzt in die Prozedur verzweigen, die die Werte ausliest ...A@2oP - die Standardwerte in die Textboxen eintragenA@|o`< und die Werte aus den Eingabefeldern ins Dokument eintragenA@Lo@A@o(A@o A@oxA@o@ als Beispiel die Combobox mit ein paar Standardwerten ausfllenyA@o L.Mschle HB@n O.Metzger HB@n> dann alle Konfigurationen auslesen, in die Kombobox eintragen1 anschlieend die aktive Konfiguration einstellenA@^F zu Beginn erstmal die Werte auslesen, damit die Felder gefllt werdenA@2o8+ 0 Description2 6%D (d 0 Description2 ( !d 6%V'Rp+ 0 Description3 6%D (d !d 0 Description3 6,D 0 Description3 6%T'R 0 Description3 ( !d 6%V'R* Verwendungsbereich Description3% 0 Verw_Bereich 6%D (do !d 0 Verw_Bereich 6,D@ 0 Verw_Bereich 6%T'R 0 Verw_Bereich ( !d 6%V'Rh* OberflcheKons 0 Oberflche 6%T'R 0 Oberflche ( !d 6%V'R5@>A@ox+( perlstrahlen B@n eloxieren B@nperlstr.-elox. B@n verzinken B@npolieren B@n lackieren B@n* !d 0 Oberflche 6,Dd/ 0 Oberflche 6%D (d.elektropolier. B@n. T120-160 K B@n-ZF-400 B@nect Rhrchenzufhrung B@nTablettenzufhrung B@nTC-160 B@nnew Transportband B@n(RS-160 B@n(Rhrchenelevator B@n wStopfenelevator B@n wZ350 B@nale VaTIB-120 B@n N-MA@o Description,/p. !d Description 6,D$ Description 6%T'R$ Description 6%D (d Description ( !d 6%V'R$ 0 Zuschnitt2 6%D (d  Zuschnitt 0 Zuschnitt 6%D (d Zuschnitt2# !d 0 Zuschnitt 6,D !d 0 Zuschnitt2 6,D 0 Zuschnitt 6%T'R 0 Zuschnitt2 6%T'R 0 Zuschnitt ( !d 6%V'R 0 Zuschnitt2 ( !d 6%V'RhWA@o#XA@o## !d 0 Fertig_Anzahl 6,D`A@ Stueck 0Stueck 6%D (d Fertig_Anzahl 0 Fertig_Anzahl 6%D (d 0 Fertig_Anzahl 6%T'R !d 0Stueck 6,DobA@o 0Stueck 6%T'R 0 Fertig_Anzahl ( !d 6%V'R 0Stueck ( !d 6%V'R $ .!d 0CNC 6,D(hA@o CNC 0CNC 6%D .(d 0CNC 6%T'R 0CNC ( .!d 6%V'R&kA@ Auftragsnummer o 0Auftragsnummer 6%D 2(d}A@o 0Auftragsnummer 6%T'R 0Auftragsnummer ( 2!d 6%V'Rp'RKE B@nRollenfrderer B@nTransportrinne B@nRo-Flex B@n TP120-160 B@n( Zdd.mm.yy$'J) geschliffen B@n schleifen B@n gebrstet B@nx) Revision-Konfig) 2!d 0Auftragsnummer 6,D)polieren-elox. B@n*A.Beck HB@n nderungsvermerk-Konfig 0nderungsvermerk-Konfig 6%D F(d F!d 0nderungsvermerk-Konfig 6,D 0nderungsvermerk-Konfig 6%T'R 0nderungsvermerk-Konfig ( F!d 6%V'R * ^!d 0Revision 6,D X( 0Revision 6%T'Ron@, 0Revision 6%D ^(d 0Revision ( ^!d 6%V'R, d!dKdn-Dok 6,D0 Kdn-Dok 6%T'R KundendokumentKdn-Dok 6%D d(dKdn-Dok ( d!d 6%V'RA@o+ja dB@n+A-01 ^(derste Revision F(d--`-x,(-0-`- (d - Zdd.mm.yy$ J(d-A@zo,C die Standardwerte in die Textboxen aller Konfigurationen eintragen,0]`]SldWorks.Application$8.4 4(:falls nicht sichtbar 4!<.6 6Keine Datei geffnet @ InformationA>|+k+A@Lk*o*8+0( 6%~  >>/! Unterscheiden nach DokumentenartX0]]H]/% die Anzahl der Konfigurationen holenolen 6!p'`$ die Namen der Konfigurationen holen 6!r'bp/ ` 80k00(0A-01 ^(derste Revision F(dDa0 Zdd.mm.yy$ J(dsi0 J!d h $bDatum 6,D0@1 h ` ^!d h $bRevision 6,D F!d h $bnderungsvermerk-Konfig 6,D81 N!Pd`1]0erst die alten Infos lschen h $bnderungsvermerk-Konfig 6%T'Rn2 6k h $bRevision 6%T'R9 dann die bentigten Infos als Dateieigenschaft eintragen h $bRevision ( ^!d 6%V'R h $bnderungsvermerk-Konfig ( F!d 6%V'Rn/ h $bDatum 6%T'R h $bDatum ( J!d 6%V'R2+ Diese Funktion fllt bestimmte EDIT-Felder< einfach mit ein paar Defaultwerten in alle Konfigurationen.E wenn nur mit bestehende Attributen gearbeitet werden soll die erste.M Die Dateiinfos auswerten, die wir haben wollen, sind im Template festgelegt._ Die Attributnamen mssen exakt so heien wie die in den benutzerdefinierten Fileeigenschaften.2PAttribute VB_Name = "frmSfInfo" " Bas0{9729C462-1B13-440A-8DAA-165B3386@AF54}{.C7C4A-7F9@4-4BA8JC3-2FDF02B6F6BE} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizD' Definitionen sind konsistent mit dem Typennn ' wie in \SldWorks\sa@es\appComm\swc!`t.bas/eLrtOp6 ilici C swDocPADRT1  ASSEMBLY2 DRAWING3 Pub@ Enum@;/_T swUnknoDwn0 T(ext0' VT_LPSTR D@^ 64 FILETIME Number$ I4O Ye sOrNo 11D BOOL Eg8;Dim (glb@JfAs$ SngB"KonfiguraA[Bsn, diunur zHVereinfacheu Sub 'SfAuslesen()C'@i Funk l@vorha(ndeAW@ye $au}n FieigenschafAu2@ bte&rekt@) pas Edit-Felder.  Ykh!'!$swApp `#ObjecM Model ' PAn dVave Solidw\-l anklinkE Se)B = "}e ("]c.R"*ACHTUNG: falls k luft, mrd durch s gxela%AaLnormalerwei nichtQ> se= {,j @om@ Ze7o KZfelsAA> s! @bar (svh(ng! mE Schlu nas Arbei`tsspe`rO@  (ARR9Ben$c "8.Visi8/8= ~,.Act` C nix%M J r RCIf  Is NothiiTc aC5 Msg@Box("K e#]@ ffnet", vbOKOnly, " 1f?Ex myzIfcbmC sojsiwknwb4habwolle, fes"t Begt%f DG@u m!l ex ] so hei߁ d`o utzerd Filez/ f( 1.'2( Prop ie)/!%",r Ben=.P1.23synony)fr+b -:kp6hiP)1GVariErn (si3 No&<4au9API-Hilf le+,@escrioS txtSfDW.g :"%~"GDHqq%]2oom1)2(cp*Ё von3ke 30hwendungs@chcmbSf_BQjchooa9gOflnGyZup+e67 &G28 Stueck ??1Fq :C&f"" geb-@q3ig.ClearCGIt@Y""S0EoadK`M0KlOvid~a)q ? 0ho TXGet QCou%AM?<'OFC?sL!a#@"> 0!`For i@*po T- 1!1?R(i/1N3S!'   (9uo asEiZnp,0` mQ#le?)!]belTegLIx C'i iPs89Ar4.@395chnP`KnrP>oJ abf#P: :!0(!"]n Jtw q .1 To 7( 0 (+$1E iϱ3 2\le {Sqi A7%!' 4 J@!SfSt@andard teAus!en+$ ^z@^DemBpLdt2Lv3 KDIT-FЭ*f qJ paODefaultRЫHi.kGrAkig1zau0Ne. Als Brp1{lWP jeSpumenta`Xwva sP .4cSrl14"Cr0'e| cotc+S64zqqfQqq? End If'0 Beispiel: Unterscheiden nach DokumBe\nartbIf (Model.GetType() = swDocDRAWING) ThenZ'nennu ng)Rtitel (Name des Filin Solid@works)CtxtSfDescription2`.TextNi,tl23""!Else Revis/A-01eCnderfsvermerk_Konfigte %;katumFormat(Date, "dd.mm.yy" Sub  berSfStandardwerteAusfllenAK(' Dies@e FunkAP  tstimm,EDIT-Fel7*' ein"fmit paar DefaHultn laE uraen.CDimApp As ObjecĒp@AnzahlALXongGAnVariani Set= Cre@T("SldW.$lic,XC .VbleaTrue~'f:s nich@Abar&C2€.Activ>e@CC Is Nothi C MsgBox("K`e i geffnet", vbO KOnlyInf0+Ex@l‰BH' die $,>7 hogHc= "~C]d=Coue0 3 u s$BPART Or<2ASSEM8BLYm> 0옂u??s3ꁁ;b iU1 To:&&' w AttribuerzPeugtr!soyn wirdCzwe` Me4th det,V nur albe`d`L n XarbA *B BdI1chkGenProp.Va:l`q=3)TCuPstomc2"n(i - 1) fO:o ->-}" YB2um'  K!X`dummyOa'c"altPs la(~(3DeletetjJQ$#1Oannbe ntigalss\eigenaf"utra AddW3_-3aswwA, _. v4,VOQj.e1 @Nw"EinurweTel𘇘N `Rzu0chnbmen:Y~ rfp angewhlR0Y,`%$7'Tsa@n Inh9 s`6`@eren, !t das &rei)e4%SScrepc~trol.SelUr0oehL`ength`?((Pri vP  cmb`_ChqBkw*qB7modul-gloErinne_TCf=(P$/SiZ35kIB- igperlJ9pVenlelxoxi"oN.-.okpol'R "Gzink swHdlack_ |@"pktro _ <gebrstet gphlif`(}leif A.Bx !LL.MbCk'O.MetzgvIC$\Wjar ean~lesen,KEZ)L' Bc@eeaktive?+!T@Re8adC#S' zuag0< ePmaSbft dabEF get 𻀱PSf 2J 2J<-$xME (6 "< `X|k*p%88p8H,,5Tahoma ( Description 2 5Tahoma ( Description 3 5TahomaH,,5TahomaH, ,5TahomaAH,,5Tahoma,(aktuelles Datum eintragen{uTahoma<Fa1pAttribute erzeugent5Tahoma@F){1pautomatisches Rebuildig5Tahoma4,Standardwerte in Felder fllenuTahoma$,Werte eintragen uTahoma0,Werte von SW-Dokument lesenCuTahoma( Konstrukteur 5Tahoma(Datuma 5Tahoma(Ende{uTahomaAH,H}K$$*\Rffff*1H4bb8b8cb$*\Rffff*0K4bb8d222*/ P <P  8 0 . H P Fp J   >0 p Px J B F`   >  D F` 6 * > HP :  P L0 J ,  > H JP .  P "( X0 D I#########################################################################6 Beispiel: VB-Programm zum Ausfllen des Schriftfeldesro 17.06.98 Stefan Berlitz2 privat: Stefan.Berlitz@solidworks.cad.de*H}K$$*\Rffff*1H4bb8b8cb$*\Rffff*0K4bb8d222*/ P <P  8 0 . H P Fp J   >0 p Px J B F`   >  D F` 6 Web : http://solidworks.cad.de' http://swtools.cad.de 01.10.2001 Stefan Berlitz@ - gendert in SolidWorks 2001 Makroprojekt (VBA) zu DemozweckenD - changed to SolidWorks 2001 Makro (VBA) for demonstration purposes 13.04.2002 Stefan Berlitz8 Anpassungen auf Konfigurationsspezifische EigenschaftenI#########################################################################D Funktion liest aus den DateieigTahoma$(Verwendungsbereichil 5Tahoma( Oberflcheio 5TahomaAH,,5TahomaAH,,5Tahoma( Descriptiono 5TahomaH,,5TahomaH,,5Tahoma( Zuschnittono 5TahomaH,,5Tahoma( Zuschnitt 2o 5TahomaH,,5Tahoma$(Stck pro Maschinet 5TahomaH,,5Tahoma (Fertigungsanzahl 5TahomaL(;Diese Felder im Teil, Baugruppe und der Zeichnung ausfllenb$5TahomaH,,5Tahoma( CNC Programm 5TahomaH,,5Tahoma (Auftragsnummerhl 5Tahoma(Revision 5TahomaonH,,5Tahomaon0(nderungsvermerk-Konfiguration N5TahomaonH,,5Tahomaon (Kundendokumenthl 5TahomaonAH, ,5Tahomaon@-%Standardwerte in alle KonfigurationenxuTahomaontxtSfDescription2n (2@$H 1@^}'E,u04txtSfDescription2n (2@Label1on{ (2@Label2on{; 04txtSfDescription3n: ( 4txtSfDatumme608cmbSfKonstrukteurn4( LcmdAutoDatee6( \chkGenPropee @( `chkRebuildee &B0 T cmdSfDefaultWerten0=, D cmdSfEintragenhlRA, P cmdSfAuslesennhl0=( 2< Label3on{4(28 Label4on{6$4cmdExitnkRA( 8cmbConfigese"(2@Label5tn{"(2dLabel6tn(enschaften des aktiven SW-Dokumentes; bestimmte Werte aus und stellt sie in den Editfeldern dar.@ Die Werte knnen verndert werden und in das SW-Dokument zurck geschrieben werden.8 Weitere Infos lesen sie bitte in der Datei LIESMICH.TXT> ACHTUNG: wenn ein neues Zeichenblatt hinzugefgt wird, bringt? dieses auch wieder die DEFAULT-Werte fr die Eigenschaften mit/ --> 1. Erst Werte auslesen mit diesem Programm# 2. * > HP :  P L0 J ,  > H JP .  P "( X0 D I#########################################################################6 Beispiel: VB-Programm zum Ausfllen des Schriftfeldesro 17.06.98 Stefan Berlitz2 privat: Stefan.Berlitz@solidworks.cad.de*Neues Zeichenblatt einfgen7 3. In beliebiges Blatt diese Werte zurckschreibenB Die diversen Fehlerquellen werden nicht abgefangen (z.B.Attribute4 nicht vorhanden). Ist ja auch nur ein Beispiel :-))I#########################################################################F The program first reads the file-properties of the active SW-documentD and displays them in the edit-fields. The values can be changed and% written back in the active document.8 For further information please read the file README.TXTD The code is neither optimized nor will there be any error-handling,( but, ... hey, it's just an example :-))I#########################################################################R alles passiert in der UserForm (frmSfInfo), also diese auf den Bildschirm bringen= all code is in UserForm (frmSfInfo), so let's go with it ... B@o!Attribute VB_Name = "schriftfeld1" '#E Beispiel:-Programm zum Ausfllen des S es817.06.98 StefanHrlit z privat:".Be"@solidworks.cad.Dde 4Web: http://4wtool+,01.10.2001U- gendert Pin SLWL Makroprojekt (VBA) Demozwecken/- chang`ed to formonstration p`urpos$1P3.04A*2P*A@npassun auf KonfiguCssp ezifie Eigen@af>tB(D)Funk/liest#s5n Dateies a v@SW-Do@kumentCbQimmW_eund stellt sied"dEdierar.!D knn verqrwerA tda@prck geIrieb@ AAWeitere Info`s les@#bLit+er; LIESMICH0.TXTAACHTUNG: w enn e neuZeichenblatt hinzugefgt wird, bringtd*auch` eS @ DEF AULT-fGI = mi"--> 1. Er3aus  psem }a!i2. N/c]D3." be?b=s B zua,+ei+ 5di4a)Feh`lerqu=f/ 6n#Ib"in (z.B.FCvorn@<) ja`G@%nur-e :-))@_?"` The g@ fiA,reads tfile-p@Z8 ofact` ``docb` a]dlaym^e^-fds. val!HrcbewrRn back% .AF@hfur` r mlease  README#[codrs n@dh`opti(mizn` will`gany error-5l[,, ... hey, it's ju8example?75- Sub main(#BAY' a s !i 6'mUser@%m (frm$Sf),`so CgMfbBildq\irmwd Oe% 3 leg2o}th! 1.Show E" xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplaNtZHXywxNtZHXyw%AOBh;nME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H@h % %Xp@@440}K$$*\Rffff*0x4b8abfb04xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2 ClientLeft = 45 ClientTopVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSfInfo Caption = "Schriftfeld Informationen" ClientHeight = 10125 ClientLeft = 45 ClientTop = 330 ClientWidth = 5790 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 94 End (  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qhomaH,,5Tahoma ( Description 2 5Tahoma ( Description 3 5TahomaH,,5TahomaH, ,5TahomaAH,,5Tahoma,(aktuelles Datum eintragen{uTahoma<Fa1Attribute erzeugenn5Tahoma@F){1automatisches Rebuildig5Tahoma4,Standardwerte in Felder fllenuTahoma$,Werte eintragen uTahoma0,Werte von SW-Dokument lesenCuTahoma( Konstrukteur 5Tahoma(Datuma 5Tahoma(Ende{uTahomaAH,2DLabel7tn{(2<Label8tn{1,8cmbSfOberflchel108cmbSfVerw_Bereichn(2<Label9tn{D,4txtSfDescriptionD,4txtSfZuschnitton(2<Label10n{, 4txtSfZuschnitt2n&(!2<Label11n{&( "4txtSfStuecki(#2p$I `t$`x$`|$ `$I`rU $`nA$,5Tahoma ( Konfiguration 5TahomaD(1Diese Felder im Teil oder der Baugruppe ausfllenb$5Tahoma$(Verwendungsbereichil 5Tahoma( Oberflcheio 5TahomaAH,,5TahomaAH,,5Tahoma( Descriptiono 5TahomaH,,5TahomaH,,5Tahoma( Zuschnittono 5TahomaH,,5Tahoma( Zuschnitt 2o 5TahomaH,,5Tahoma$(Stck pro Maschinet 5TahomaH,,5Tahoma (Fertigungsanzahl 5TahomaL(;Diese Felder im Teil, Baugruppe und der Zeichnung ausfllenb$5TahomaH,,5Tahoma( CNC Programm 5TahomaH,,5Tahoma (Auftragsnummerhl 5Tahoma(Revision 5TahomaonH,,5Tahomaon0(nderungsvermerk-Konfiguration N5TahomaonH,,5Tahomaon (Kundendokumenthl 5TahomaonAH, ,5TahomaonD/%Standardwerte in alle KonfigurationenxuTahomaontSfDescription2n (2@$H 1@^}'E,u04txtSfDescription2n (2@Label1on{ (2@Label2on{; 04txtSfDescription3n: ( 4txtSfDatumme608cmbSfKonstrukteurn4( LcmdAutoDatee6( \chkGenPropee @( `chkRebuildee &B0 T cmdSfDefaultWerten0=, D cmdSfEintragenhlRA, P cmdSfAuslesennhl0=( 2< Label3on{4(28 Label4on{6$4cmdExitnkRA( 8cmbConfigese"(2@Label5tn{"(2dLabel6tn(2DLabel7tn{(2<Label8tn{1,8cmbSfOberflchel108cmbSfVerw_Bereichn(2<Label9tn{D,4txtSfDescriptionD,4txtSfZuschnitton(2<Label10n{, 4txtSfZuschnitt2n&(!2<Label11n{&( "4txtSfStuecki(#2DLabel12n{0$4txtSfFertig_An`$`$`$ `$I`$`$`$ `$I`zahln(%2@Label13n{(&2l Label14n0$'4!tx  a  a) Aai a aa`!WWW_____ 0"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d47:T)%:$.%td/!  h0/5d;4@:D1%td/!  h0/5d;4@:D2%td/!  h0/5d;4@:D3%td/!  /5d;4@:D4%td/!  /5d;4@:D5%td/!  h0/5d;4@:D6%td/!  h0/5d;4@:D7%td/!  h0/5d;4@:D8%td/!  h0/5d;4@:D9%td/!  h0/5d;4@:D:%td/!  h0/5d;4@:D;%td/! ( h0/5d;4@:D<%td/! 0 h0/5d7:T)%:$=%td/! 8 /5d;4@:D>%td/!  /5d;4@:D?%td/!  h0/5d0,tx$d4 "d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4*d!  Hd(T]35di8:T)%:$.%!  l0>Fd%t/5d<4@:D1%!  l0>Fd%t/5d<4@:D2%!  l0>Fd%t/5d<4@:D3%!  >Fd%t/5d<4@:D4%!  >Fd%t/5d<4@:D5%!  l0>Fd%t/5d<4@:D6%!  l0>Fd%t/5d<4@:D7%!  l0>Fd%t/5d<4@:D8%!  l0>Fd%t/5d<4@:D9%!  l0>Fd%t/5d<4@:D:%!  l0>Fd%t/5d<4@:D;%! ( l0>Fd%t/5d<4@:D<%! 0 l0>Fd%t/5d8:T)%:$=%! 8 >Fd%t/5d<4@:D>%!  >Fd%t/5d<4@:D?%!  l0>Fd%t/5d :T)%:$.%tdI!4@:D1%tdI!4@:D2%tdI!4@:D3%tdI!4@:D4%tdI!4@:D5%tdI!4@:D6%tdI!4@:D7%tdI!4@:D8%tdI!4@:D9%tdI!4@:D:%tdI!4@:D;%tdI!4@:D<%tdI:T)%:$=%tdI!4@:D>%tdI!4@:D?%tdIG:T)%:$.%%!  l0>Fd%t4J5dK4@:D1%%!  l0>Fd%t4J5dK4@:D2%%!  l0>Fd%t4J5dK4@:D3%%!  >Fd%t4J5dK4@:D4%%!  >Fd%t4J5dK4@:D5%%!  l0>Fd%t4J5dK4@:D6%%!  l0>Fd%t4J5dK4@:D7%%!  l0>Fd%t4J5dK4@:D8%%!  l0>Fd%t4J5dK4@:D9%%!  l0>Fd%t4J5dK4@:D:%%!  l0>Fd%t4J5dK4@:D;%%! ( l0>Fd%t4J5dK4@:D<%%! 0 l0>Fd%t4J5dG:T)%:$=%%! 8 >Fd%t4J5dK4@:D>%%!  >Fd%t4J5dK4@:D?%%!  l0>Fd%t4J5d)d!  HdfT]35d| 3'':D&N44:TKNdd (6d4 tWdL"q5d 0tx$d48"D # D4x5D c4%x$xWD%4t5D ltc3'':$&N:4'NDD (6D!  +':4)NDD!  6DtWD*"qp5DtWD+`lpKTlpdK5'T@`D!  -6D Tf (D!  5DtWD,4\5D l\c2\WD-`1X5D0T!  ld2:lXF]'DTM4@!  36D& lTiD!  5D Tfh88 `tx\X$DT"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4tWdR(T]35d(tWdA! V h0/5d(tWdW! V h0/5d#E! (V h0F! 0V h0+d Gd! V h0/5d T, tx$d40   `Q4'Dhx! x hd! d 4`#04/0)xd6hD4<!L`$ $0xdhD40 `  <  $ 0   < H! $ < @! Web : http://solidworks.cad.de' http://swtools.cad.de 01.10.2001 Stefan Berlitz@ - gendert in SolidWorks 2001 Makroprojekt (VBA) zu DemozweckenD - changed to SolidWorks 2001 Makro (VBA) for demonstration purposes 13.04.2002 Stefan Berlitz8 Anpassungen auf Konfigurationsspezifische EigenschaftenI#########################################################################D Funktion liest aus den Dateieigenschaften des aktiven SW-Dokumentes; bestimmte Werte aus und stellt sie in den Editfeldern dar.@ Die Werte knnen verndert werden und in das SW-Dokument zurck geschrieben werden.8 Weitere Infos lesen sie bitte in der Datei LIESMICH.TXT> ACHTUNG: wenn ein neues Zeichenblatt hinzugefgt wird, bringt? dieses auch wieder die DEFAULT-Werte fr die Eigenschaften mit/ --> 1. Erst Werte auslesen mit diesem Programm# 2. Neues Zeichenblatt einfgen7 3. In beliebiges Blatt diese Werte zurckschreibenB Die diversen Fehlerquellen werden nicht abgefangen (z.B.Attribute4 nicht vorhanden). Ist ja auch nur ein Beispiel :-))I#########################################################################F The program first reads the file-properties of the active SW-documentD and displays them in the edit-fields. The values can be changed and% written back in the active document.8 For further information please read the file README.TXTD The code is neither optimized nor will there be any error-handling,( but, ... hey, it's just an example :-))I#########################################################################R alles passiert in der UserForm (frmSfInfo), also diese auf den Bildschirm bringen= all code is in UserForm (frmSfInfo), so let's go with it ... B@o $ 0 M  0   0 D  0 @>  0   0 hW  0 X  0 `  0 b!Attribute VB_Name = "schriftfeld1" '#E Beispiel:-Programm zum Ausfllen des S es817.06.98 StefanHrlit z privat:".Be"@solidworks.cad.Dde 4Web: http://4wtool+,01.10.2001U- gendert Pin SLWL Makroprojekt (VBA) Demozwecken/- chang`ed to formonstration p`urpos$1P3.04A*2P*A@npassun auf KonfiguCssp ezifie Eigen@af>tB(D)Funk/liest#s5n Dateies a v@SW-Do@kumentCbQimmW_eund stellt sied"dEdierar. !"#$%&'()*,./]123456789:;<=>?@ABCDEFGWXYZ[\filmnos!D knn verqrwerA tda@prck geIrieb@ AAWeitere Info`s les@#bLit+er; LIESMICH0.TXTAACHTUNG: w enn e neuZeichenblatt hinzugefgt wird, bringtd*auch` eS @ DEF AULT-fGI = mi"--> 1. Er3aus  psem }a!i2. N/c]D3." be?b=s B zua,+ei+ 5di4a)Feh`lerqu=f/ 6n#Ib"in (z.B.FCvorn@<) ja`G@%nur-e :-))@_?"` The g@ fiA,reads tfile-p@Z8 ofact` ``docb` a]dlaym^e^-fds. val!HrcbewrRn back% .AF@hfur` r mlease  README#[codrs n@dh`opti(mizn` will`gany error-5l[,, ... hey, it's ju8example?75- Sub main(#BAY' a s !i 6'mUser@%m (frm$Sf),`so CgMfbBildq\irmwd Oe% 3 leg2o}th! 1.Show E" 6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H@htSfCNC((2<"Label15C{0n$`)4#txtSfAuftragsnummer!(*2@$Label16C{!(+28%Label17C{#, ,4&txtSfRevisiont2n#(-2P'Label18C{ &8.4(txtSfnderungsvermerk_Konfig &(/2@)Label19C{+*( 08*CmbSfKdn_DokW)4`$`$ `$I`$`$`$  `nbrary" Bas0{801A2004-A66C-11D3-A8BD-01d+cmdSfDefaultWerteAlleK9 JTemplate`DerivBustomizD2NtZHXywxNtZHXyw%AOBh;nME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H@h % %Xp@@440}K$$*\Rffff*0x4b8abfb04xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2 ClientLeft = 45 ClientTopVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSfInfo Caption = "Schriftfeld Informationen" ClientHeight = 10125 ClientLeft = 45 ClientTop = 330 ClientWidth = 5790 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 94 End (  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qhoma$  `n114FA8786DOKUME~1\Be`E$`I$`M$A`P$`T$`X$`\$A ``$ `d$ `h$  `l$I `p$`t$`x$ `|$I`$`$`$ `$I`$`$`$ `$I`$rU~|  H$$ k Aii A Aq !i)!i i !1"i"""!#i## $I$y$$$1%i%% &Q&y&&& (&A'i'y(()a))*+9+a+++''# ,9,a,, i81aY ` <a`@a!  D9 a ` H9   `I L9   ` P9  ` Ta Xa  \9 1 ``aI daa `hay la `p  ta x  |aa  y   a `Q    )  Y     a    1 aY  q   `IrU $`A$A`E$`I$`M$`Q$A`U$`X$`\$``$A `d$ `h$ `l$  `rU Ti!q a 91a9q YQ1i q!)Q! i 1!Q""""9### $I$y$$$1%i%% &Q&y&&&&'I' (y((()a)***+A+i+++- i 81aY` <1a  ` @1a9 ` D1aa `IHL P1a` TX \) `A dY hq l p t  x  | A     0 (h  0 k  0   0 x  0 }  0 y  0   0   0 (]  0 c  0 @z  0 hZ  H+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! 8x x6X8D!<!DH$( xX8D\P H L   <ld 8WWx6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! 8x x6X8D!<`$`$ `$I`$`$`$  `nbrary" Bas0{801A2004-A66C-11D3-A8BD-01`+cmdSfDefaultWerteAlleK9 JTemplate`DerivBustomizD2K*mrU~~~~~~~~~~~~~~S !MieDsS\(o  A I1A qi I)Q9y9i A9y A )  ThisLibrary schriftfeld1 frmSfInfo schriftfeldFBC:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i0l;C:\Programme\Gemeinsame Dateien\SolidWorks Shared\swvba.tlb SolidWorks a @0FC:\WINDOWS\system32\stdole2.tlbstdole P.E .`M C:\windows\system32\FM20.DLLMSForms aa`ViJmXx܋ 2C:\DOKUME~1\Besitzer\LOKALE~1\Temp\VBE\MSForms.exd Aaipmain UxJwzD:#Ns5OXNjy7@$h3 & FU}?*R,O2{lFWJO cmdAutoDate!-6S` ycmdSfDefaultWertecmdSfEintragen cmdSfAuslesen"-?@Label3Label4cmdExitLabel5Label6Label7Label2Label1Label16Label18Label17ҋB `txtSfAuftragsnummertxtSfDescriptiontxtSfnderungsvermerk_Konfig2ҋB `cmbSfKonstrukteur txtSfDatumtxtSfDescription2txtSfDescription3BҋB ` chkGenProp txtSfRevisionLabel19 CmbSfKdn_Dok chkRebuildLabel8cmbSfOberflche cmbConfigcmbSfVerw_BereichcmdSfDefaultWerteAlleKLabel9txtSfZuschnittLabel10txtSfZuschnitt2Label11 txtSfStueckLabel12txtSfFertig_AnzahlLabel13Label14Label15ȏ[qJ eUserFormA {Oeu F3Dynamic txtSfCNC berSfAuslesenberSfEintragen berReadConfigberSfStandardwerteAusfllen %berSfStandardwerteAusfllenAlleKonfig berTxtSelAllcmbConfig_ChangecmdAutoDate_Click cmdExit_ClickcmdSfAuslesen_ClickcmdSfDefaultWerte_ClickcmdSfDefaultWerteAlleK_ClickcmdSfEintragen_ClicktxtSfDescription_GotFocustxtSfDescription2_GotFocuscmbSfVerw_Bereich_GotFocuscmbSfOberflche_GotFocustxtSfDatum_GotFocustxtSfZuschnitt_GotFocustxtSfZuschnitt2_GotFocustxtSfStueck_GotFocustxtSfFertig_Anzahl_GotFocustxtSfCNC_GotFocustxtSfAuftragsnummer_GotFocuscmbSfKonstrukteur_GotFocustxtSfDescription3_GotFocustxtSfRevision_GotFocus %txtSfnderungsvermerk_Konfig_GotFocuscmbSfKdn_Dok_GotFocusUserForm_Initialize 4 T120-160 K3ҋB ` RKE Rollenfrderer RS-160 ZF-400 Zuschnitt "Rhrchenzufhrung $Tablettenzufhrung Transportband Ro-Flex Rhrchenelevator Stopfenelevator Transportrinne TC-160 TP120-160 Z350 TIB-120 perlstrahlen eloxieren perlstr.-elox. Information polieren-elox. verzinken polieren lackieren elektropolier. gebrstet geschliffen schleifen A.Beck L.Mschle O.Metzger ja (SldWorks.ApplicationVisibleActiveDoc (Keine Datei geffnet *GetConfigurationCount *GetConfigurationNames ,GetActiveConfigurationNameVBE6.DLL Q! Q!S  DescriptionCustomInfo2ҋB ` Description2 Description3 Verw_Bereich Oberflche Zuschnitt2 Stueck Fertig_Anzahl CNC Auftragsnummer Revision .nderungsvermerk-Konfig Kdn-Dok Konstrukteur DatumGetTypeGetTitle A-01 erste Revision dd.mm.yy Q!b ( Q! H`Vҳ8A F?CҋB ` "DeleteCustomInfo2AddCustomInfo3% Werte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragenEditRebuild0>Q{;@D2. rD4V%js[,EMyŒ[ ITːTV8>Jn]ޤ@zʉLX_FG>|+4!txrU $`A$A`E$`I$`M$`Q$A`U$`X$`\$``$A `d$ `h$ `l$  `p$I `t$`x$`|$ `$I`rU $`nA$,5Tahoma ( Konfiguration 5TahomaD(1Diese Felder im Teil oder der Baugruppe ausfllensb$5DLabel12n{0$4txtSfFertig_An`$`$`$ `$I`$`$`$ `$I`zahln(%2@Label13n{(&2l Label14n0$'4!txtSfCNC((2<"Label15C{0n$`)4#txtSfAuftragsnummer!(*2@$Label16C{!(+28%Label17C{#, ,4&txtSfRevisiont2n#(-2P'Label18C{ &8.4(txtSfnderungsvermerk_Konfig &(/2@)Label19C{+*( 08*CmbSfKdn_DokW)4$  `n114FA8786DOKUME~1\Be`E$`I$`M$A`P$`T$`X$`\$A ``$ `d$ `h$  `rU Ti!q a 91a9q YQ1i q!)Q! i 1!Q""""9### $I$y$$$1%i%% &Q&y&&&&'I' (y((()a)***+A+i+++- i 81aY` <1a  ` @1a9 ` D1aa `IHL P1a` TX \) `A dY hq l p t  x  | A        1 a       a 1 Q  i   `   1a  `  1 Y  q       1Ia`Q IWWW_____0"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d47:T)%:$.%td/!  h0/5d;4@:D1%td/!  h0/5d;4@:D2%td/!  h0/5d;4@:D3%td/!  /5d;4@:D4%td/!  /5d;4@:D5%td/!  h0/5d;4@:D6%td/!  h0/5d;4@:D7%td/!  h0/5d;4@:D8%td/!  h0/5d;4@:D9%td/!  h0/5d;4@:D:%td/!  h0/5d;4@:D;%td/! ( h0/5d;4@:D<%td/! 0 h0/5d7:T)%:$=%td/! 8 /5d;4@:D>%td/!  /5d;4@:D?%td/!  h0/5d0,tx$d4 "d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4*d! G Hd(T]35di8:T)%:$.%! G l0>Fd%t/5d<4@:D1%! G l0>Fd%t/5d<4@:D2%! G l0>Fd%t/5d<4@:D3%! G >Fd%t/5d<4@:D4%! G >Fd%t/5d<4@:D5%! G l0>Fd%t/5d<4@:D6%! G l0>Fd%t/5d<4@:D7%! G l0>Fd%t/5d<4@:D8%! G l0>Fd%t/5d<4@:D9%! G l0>Fd%t/5d<4@:D:%! G l0>Fd%t/5d<4@:D;%! (G l0>Fd%t/5d<4@:D<%! 0G l0>Fd%t/5d8:T)%:$=%! 8G >Fd%t/5d<4@:D>%! G >Fd%t/5d<4@:D?%! G l0>Fd%t/5d :T)%:$.%tdI!4@:D1%tdI!4@:D2%tdI!4@:D3%tdI!4@:D4%tdI!4@:D5%tdI!4@:D6%tdI!4@:D7%tdI!4@:D8%tdI!4@:D9%tdI!4@:D:%tdI!4@:D;%tdI!4@:D<%tdI:T)%:$=%tdI!4@:D>%tdI!4@:D?%tdIG:T)%:$.%%! G l0>Fd%t4J5dK4@:D1%%! G l0>Fd%t4J5dK4@:D2%%! G l0>Fd%t4J5dK4@:D3%%! G >Fd%t4J5dK4@:D4%%! G >Fd%t4J5dK4@:D5%%! G l0>Fd%t4J5dK4@:D6%%! G l0>Fd%t4J5dK4@:D7%%! G l0>Fd%t4J5dK4@:D8%%! G l0>Fd%t4J5dK4@:D9%%! G l0>Fd%t4J5dK4@:D:%%! G l0>Fd%t4J5dK4@:D;%%! (G l0>Fd%t4J5dK4@:D<%%! 0G l0>Fd%t4J5dG:T)%:$=%%! 8G >Fd%t4J5dK4@:D>%%! G >Fd%t4J5dK4@:D?%%! G l0>Fd%t4J5d)d! G HdfT]35d| 3'':D&N44:TKNdd (6d4 tWdL"q5d 0tx$d48"D # D4x5D c4%x$xWD%4t5D ltc3'':$&N:4'NDD (6D!  +':4)NDD!  6DtWD*"qp5DtWD+`lpKTlpdK5'T@`D!  -6D Tf (D!  5DtWD,4\5D l\c2\WD-`1X5D0T!  ld2:lXF]'DTM4@!  36D& lTiD!  5D Tfh88 `tx\X$Dl"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4tWd@(T]35d(tWdA!  h0/5d)!  h0B! ( h0C! 0 h0Qd D:TEN44d F!  h0/6d4dl,tx$d4h"L # L4x5L c<%x$xWL%4t5L ltc3'':,&N:<'NLL (6LtWL*"qp5LtWL+`%tWL@(<]/(,5L\lpZ\lpdZB! (S h0C! 0S h0QL D:F%t/6LQl\i<%`L @:<%! 0S l0>F%t/6LQl\i<%`L @:?%! S l0>F%t/6LN5l\i<%`L @:;%tI5L5l\i<%`L @:<%tI5L5l\i<%`L @:?%tI5L`l\i<%`L @:;%%! (S l0>F%tJ6L`l\i<%`L @:<%%! 0S l0>F%tJ6L`l\i<%`L @:?%%! S l0>F%tJ6L \fD!h4`tx$L0   `Q4'Dhx! x hd! d 4`#04/0)xd6hD4@!L`$ $0xdhD40 `      1 a       a 1 Q  i   `   1a  `  1 Y  q       1Ia`Q IWWW_____0"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d47:T)%:$.%td/!  h0/5d;4@:D1%td/!  h0/5d;4@:D2%td/!  h0/5d;4@:D3%td/!  /5d;4@:D4%td/!  /5d;4@:D5%td/!  h0/5d;4@:D6%td/!  h0/5d;4@:D7%td/!  h0/5d;4@:D8%td/!  h0/5d;4@:D9%td/!  h0/5d;4@:D:%td/!  h0/5d;4@:D;%td/! ( h0/5d;4@:D<%td/! 0 h0/5d7:T)%:$=%td/! 8 /5d;4@:D>%td/!  /5d;4@:D?%td/!  h0/5d0,tx$d4 "d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4*d! G Hd(T]35di8:T)%:$.%! G l0>Fd%t/5d<4@:D1%! G l0>Fd%t/5d<4@:D2%! G l0>Fd%t/5d<4@:D3%! G >Fd%t/5d<4@:D4%! G >Fd%t/5d<4@:D5%! G l0>Fd%t/5d<4@:D6%! G l0>Fd%t/5d<4@:D7%! G l0>Fd%t/5d<4@:D8%! G l0>Fd%t/5d<4@:D9%! G l0>Fd%t/5d<4@:D:%! G l0>Fd%t/5d<4@:D;%! (G l0>Fd%t/5d<4@:D<%! 0G l0>Fd%t/5d8:T)%:$=%! 8G >Fd%t/5d<4@:D>%! G >Fd%t/5d<4@:D?%! G l0>Fd%t/5d :T)%:$.%tdI!4@:D1%tdI!4@:D2%tdI!4@:D3%tdI!4@:D4%tdI!4@:D5%tdI!4@:D6%tdI!4@:D7%tdI!4@:D8%tdI!4@:D9%tdI!4@:D:%tdI!4@:D;%tdI!4@:D<%tdI:T)%:$=%tdI!4@:D>%tdI!4@:D?%tdIG:T)%:$.%%! G l0>Fd%t4J5dK4@:D1%%! G l0>Fd%t4J5dK4@:D2%%! G l0>Fd%t4J5dK4@:D3%%! G >Fd%t4J5dK4@:D4%%! G >Fd%t4J5dK4@:D5%%! G l0>Fd%t4J5dK4@:D6%%! G l0>Fd%t4J5dK4@:D7%%! G l0>Fd%t4J5dK4@:D8%%! G l0>Fd%t4J5dK4@:D9%%! G l0>Fd%t4J5dK4@:D:%%! G l0>Fd%t4J5dK4@:D;%%! (G l0>Fd%t4J5dK4@:D<%%! 0G l0>Fd%t4J5dG:T)%:$=%%! 8G >Fd%t4J5dK4@:D>%%! G >Fd%t4J5dK4@:D?%%! G l0>Fd%t4J5d)d! G HdfT]35d| 3'':D&N44:TKNdd (6d4 tWdL"q5d 0tx$d48"D # D4x5D c4%x$xWD%4t5D ltc3'':$&N:4'NDD (6D!  +':4)NDD!  6DtWD*"qp5DtWD+`lpKTlpdK5'T@`D!  -6D Tf (D!  5DtWD,4\5D l\c2\WD-`1X5D0T!  ld2:lXF]'DTM4@!  36D& lTiD!  5D Tfh< " $ 0   < L! $ < P! $ < D! $ 0 M  0   0 D  0 @>  0   0 hW  0 X  0 `  0 b  0 (h  0 k  0   0 x  0 }  0 y  0   H+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! 8x x6X8H!@!DH$( xX88P D <  @ oabel5Label6Label7Label2Label1Label16Label18Label17ҋB `txtSfAuftragsnummertxtSfDescriptiol$I `p$`t$`x$ `|$I`$`$`$ `$I`$`$`$ `$I`$88 `tx\X$Dl"d # d4x5d cT%x$xWd%4t5d ltc3'':D&N44:T'Ndd (6d4tWd@(T]35d(tWdA!  h0/5d)!  h0B! ( h0C! 0 h0Qd D:TEN44d F!  h0/6d4dl,tx$d4h"L # L4x5L c<%x$xWL%4t5L ltc3'':,&N:<'NLL (6LtWL*"qp5LtWL+`%tWL@(<]/(,5L\lpZ\lpdZB! (S h0C! 0S h0QL D:F%t/6LQl\i<%`L @:<%! 0S l0>F%t/6LQl\i<%`L @:?%! S l0>F%t/6LN5l\i<%`L @:;%tI5L5l\i<%`L @:<%tI5L5l\i<%`L @:?%tI5L`l\i<%`L @:;%%! (S l0>F%tJ6L`l\i<%`L @:<%%! 0S l0>F%tJ6L`l\i<%`L @:?%%! S l0>F%tJ6L \fD!h4`tx$L0   `Q4'Dhx! x hd! d 4`#04/0)xd6hD4@!L`$ $0xdhD40 `  < " $ 0   < L! $ < P! $ < D! $ 0 M  0   0 D  0 @>  0   0 hW  0 X  0 `  0 b  0 (h  0 k  0   0 xrU~|  H$$ k Aii A Aq !i)!i i !1"i"""!#i## $I$y$  0 }  0 y  0   H+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X$$1%i%% &Q&y&&& (&A'i'y(()a))*+9+a+++''# ,9,a,, i81aY ` <a`8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:h NXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:hNXXx! x x6X8+'8:h NXXx! 8x @a!  D9 a ` H9   `I L9   ` P9  ` x6X8H!@!DH$( xX88P D <  @ ozufhrung Transportband Ro-Flex Rhrchenelevator Stopfenelevator TransporK*mrU~~~~~~~~~~~~~~S !MieDsS\(o  A I1A qi I)Q9y9iTa Xa  \9 1 ``aI daa `hay la `p  ta x  |aa  y   a `Q    )  Y     a  A9y A )  ThisLibrary schriftfeld1 frmSfInfo schriftfeldFBC:\Programme\Gemeinsame Dateien\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i0l;C:\Programme\Gemeinsame Dateien\SolidWorks Shared\swvba.tlb SolidWorks a @0FC:\WINDOWS\system32\stdole2.tlbstdole P.E .`M C:\windows\system32\FM20.DLLMSForms aa`ViJmXx܋ 2C:\DOKUME~1\Besitzer\LOKALE~1\Temp\VBE\MSForms.exd Aaipmain UxJwzD:#Ns5OXNjy7@$h3 & FU}?*R,O2{lFWJO cmdAutoDate!-6S` ycmdSfDefaultWertecmdSfEintragen cmdSfAuslesen"-?@Label3Label4cmdExitLabel5Label6Label7Label2Label1Label16Label18Label17ҋB `txtSfAuftragsnummertxtSfDescriptio   1 aY  q   `IntxtSfnderungsvermerk_Konfig2ҋB `cmbSfKonstrukteur txtSfDatumtxtSfDescription2txtSfDescription3BҋB ` chkGenProp txtSfRevisionLabel19 CmbSfKdn_Dok chkRebuildLabel8cmbSfOberflche cmbConfigcmbSfVerw_BereichcmdSfDefaultWerteAlleKLabel9txtSfZuschnittLabel10txtSfZuschnitt2Label11 txtSfStueckLabel12txtSfFertig_AnzahlLabel13Label14Label15ȏ[qJ eUserFormA {Oeu F3Dynamic txtSfCNC berSfAuslesenberSfEintragen berReadConfigberSfStandardwerteAusfllen %berSfStandardwerteAusfllenAlleKonfig berTxtSelAllcmbConfig_ChangecmdAutoDate_Click cmdExit_ClickcmdSfAuslesen_ClickcmdSfDefaultWerte_ClickcmdSfDefaultWerteAlleK_ClickcmdSfEintragen_ClicktxtSfDescription_GotFocustxtSfDescription2_GotFocuscmbSfVerw_Bereich_GotFocuscmbSfOberflche_GotFocustxtSfDatum_GotFocustxtSfZuschnitt_GotFocustxtSfZuschnitt2_GotFocustxtSfStueck_GotFocustxtSfFertig_Anzahl_GotFocustxtSfCNC_GotFocustxtSfAuftragsnummer_GotFocuscmbSfKonstrukteur_GotFocustxtSfDescription3_GotFocustxtSfRevision_GotFocus %txtSfnderungsvermerk_Konfig_GotFocuscmbSfKdn_Dok_GotFocusUserForm_Initialize 4 T120-160 K3ҋB ` RKE Rollenfrderer RS-160 ZF-400 Zuschnitt "Rhrchenzufhrung $Tablettenzufhrung Transportband Ro-Flex Rhrchenelevator Stopfenelevator Transportrinne TC-160 TP120-160 Z350 TIB-120 perlstrahlen eloxieren perlstr.-elox. Information polieren-elox. verzinken polieren lackieren elektropolier. gebrstet geschliffen schleifen A.Beck L.Mschle O.Metzger ja (SldWorks.ApplicationVisibleActiveDoc (Keine Datei geffnet *GetConfigurationCount *GetConfigurationNames ,GetActiveConfigurationNameVBE6.DLL Q! Q!S  DescriptionCustomInfo2ҋB ` Description2 Description3 Verw_Bereich Oberflche Zuschnitt2 Stueck Fertig_Anzahl CNC Auftragsnummer Revision .nderungsvermerk-Konfig Kdn-Dok Konstrukteur DatumGetTypeGetTitle A-01 erste Revision dd.mm.yy Q!b ( Q! H`Vҳ8A F?CҋB ` "DeleteCustomInfo2AddCustomInfo3% Werte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragenEditRebuild0>Q{;@D2. rD4V%js[,EMyŒ[ ITːTV8>Jn]ޤ@zʉLX_FG>|+