ࡱ> SXT Root EntryAaGapc0lJAaThe VBA Project 0lJAa_VBA_Project0lJAa    R!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQUWf cmieljkZ*ryCompObjNnVBFrameI5PROJECTwmVBA Project Data" !"#$%&'(*+,-./012345789:;<=>?@ABCDEFGHJKLMOQRSTUVWXYZ[\^_`abcdefghiklmnopqrstuvwxyz{|}Host Project Items& 4VBA Project Signature, Host Project Item Names0!0lJ^ThisLibrary0lJ^L}̰R a {]pThisLibrary*{p^p5{ _pL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{_p L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Up";{PVp$={Wp&F /&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}CC:\Users\Kuklin\Allgemein_Meyer\schriftfeld-swp\mod_schriftfeld.swpR0FC:\WINNT\System32\stdoID="{9A8E1793-2FD1-4B7F-BC49-34558AC30F2B}" Document=ThisLibrary/&H00000000 Module=schriftfeld1 BaseClass=frmSfInfo Module=Modul1 HelpFile="" Name="Schriftfeld_mod" HelpContextID="0" VersionCompatible32="393222000" CMG="A9AB5A9A5E9A5E9A5E9A5E" DPB="B3B140AE4BAF4BAF4B" GC="BDBF4EB852C353C3533C" [Host Exten__SRP_7Project_Data_CurVer(" Host Project Item List Data8Modul1 ))PROJECT4frmSfInfoi*WJO0lJpfjoP4VBA0lJ[ݮThisLibrary 6schriftfeld1 H__SRP_2der Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=345, 345, 1521, 1078, C schriftfeld1=90, 9, 1400, 885, frmSfInfo=67, 90, 1567, 959, Z, 53, 22, 934, 446, Modul1=207, 207, 1383, 940, 940, ThisLibraryThisLibraryschriftfeld1schriftfeld1frmSfInfofrmSfInfoModul1Modul16@-?@Label7TextBox3,5TextBox4Label8ȏ[qJ eControl List Data$%^^__SRP_0#n$__SRP_6Project Item Data$~ _VBA_PROJECTZdirReqControl List Data*$^^__SRP_1ReqControl List Data* Control_Data_CurVer(& Control List Data$(__SRP_3 frmSfInfo O__SRP_4*__SRP_5 Nh:rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;     1 ( 9 0* pHdSchriftfeld_modQH@  = | M J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Autom`ation/MSFor ms>SFErms$3DD452EE1-E08F-101A-8-02608C4D0BB4 D@indowsEWOW64\FM20.DLL#Microsoft : ] Object Library/;D1t00}t#0#k04 A41368C7A-0448-4D57-A26D-40AC2D83A65XUsers\Kuklin\AppData\Local\Tem@p\VBE\T.8exd "yxݏpzK>"y4xNC) MESPSSS>"LLLLLLLL0{F469B274-6B9A-456E-AB30-BA66872F61E6}{490DCE9E-DDD5-48EE-87A4-2F40A99F8063}88B"B%%l $`HR |JFF `&x mes `(t swc >`JTTP`&x `(t n li@D Wert`L(scha `H`hJi p a VX`   ` ,  b`|  d`hR @|k  f`|J h`` |k ` e@  `    `   p ` $  ` 8% %BBB Bi $0@i H(0 H` <>00  `|J `| eD  ` 0 H` 4HHH `XH  ` ( Xp d @T @D X 4 @$    H0x @ H 0  H @   x `  8J  ``000@48:<0d @T @D 4 @$  @ 0@ 0( 0 @ @ HH#`M$*\Rffff*2;4d08b37f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#1448<@DHLPTX\`dhlptx|  6 >8 x   " L @  P px  0 $  H D  Jh L    *(  X2h  H J @H  J J JH &       "(  &    Xp   $  "10   8  h P x "  L N P( >x J F PX$`   2  P NP L     "&@2@ 2`$2X"2` 2  2 ` h "p &@&@(@,$@$@*@(@&@ &@8   > ,>`,>.> 2*>*>0>.>H,>,>   N P (H p Lx L @  )X d3h       "  B FX    " P . $( "  $ 8@ "H DP  "  4 " "  B( px "  " HPX " `hp " x "  "  "  " X "  " x "   ( F ( (p * *  +  L( 0 x 8" 0 80 Definitionen sind konsistent mit dem Typennamen7 wie in \SldWorks\samples\appComm\swconst.bas definiertl0]EE]-1]2EHF Diese Funktion liest die vorhandenen Werte aus den Dateieigenschaften.200: aus und schreibt sie direkt in die passenden Edit-Felder. einige Deklarationen]]* An das aktive Solidworks-Modell anklinkenSldWorks.Application$*.&B 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) &(, &!..($ wenn nix geladen direkt wieder raus (Keine Datei geffnet 2 InformationA0|kA Die Dateiinfos auswerten, die wir haben wollen, sind im TemplateD festgelegt. Hier mal einfach nur 4 als Beispiele. Die Attributnamen: mssen exakt so heien wie die in den benutzerdefinierten Fileeigenschaften.D Die Funktion ModelDoc.CustomInfo(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) Benennung1 (%6 (d gezeichnetvon (%6 (dgsnu gezeichnetamd gezeichnetvon geprftvon (%6 (d Gewichtmm geprftamoE 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$*.& &(, &!..( (Keine Datei geffnet 2 InformationA0| kI 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. @!B !d Benennung1 (,6 !d Geprftvon (,6 !dMaterial (,6d](erst die alten Infos lschenok 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 ;-)F we would like to see the changes at once to appear on the drawing, soE we have to give a model-rebuild command. This is very quick on small: documents and may take a little longer on bigger ones ;-) JFWerte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragen 2 InformationA0dh ]@ (%N'LkH o8 < Nur zum schnmachen: wenn ein EDIT-feld angewhlt wird, den? gesamten Inhalt selektieren, macht das berschreiben einfacher X!Z(\ X!Z!d X!Z(^ox( aktuelle sDatum im datumsfeld eintragenH Ist wohl klar was das tut ...go= jetzt in die Prozedur verzweigen, die die Werte ausliest ...A@$o- die Standardwerte in die Textboxen eintragen fill in the default valuesA@Po< und die Werte aus den Eingabefeldern ins Dokument eintragenA@>o`A@VoA@VoA@VHA@Vo@ als Beispiel die Combobox mit ein paar Standardwerten ausfllen MaterialF zu Beginn erstmal die Werte auslesen, damit die Felder gefllt werden8  Benennung1Ho Benennung2 Benennung2 (%6 (d Zeichnungsnummer Teilenummer Teilenummer (%6 (d geprftam (%6 (dGewicht (%6 (d( geprftvon Material (%6 (d !d Benennung2 (,6 !d Teilenummer (,6   Z' Geprftam (%F !d'D !dGewicht (,6( Gezeichnetam (%F !d'D Teilenummer (%F !d'DMaterial (%F !d'DgsnuGewicht (%F !d'D ( Geprftvon (%F !d'D' GezeichnetamText !d (%H'DDA@Vo Benennung1 (%F !d'DLi Benennung2 (%F !d'DIno 0 Benennung2Text !d (%H'D TeilenummerText !d (%H'DrXo0 Benennung1Text !d (%H'DMaterialText !d (%H'DeichnuGewichtText !d (%H'DPP GeprftvonText !d (%H'D'D "P$ berSfAuslesent A@Vo8A@Vo A@V`$A@Vo$A@Vo$ !d Geprftam (,6 GeprftamText !d (%H'D$!Private Sub UserForm_Initialize()End Sub$* !d Gezeichnetvon (,6@ Gezeichnetvon (%F !d'DZeichn8dann die bentigten Infos als Dateieigenschaft eintragengs GezeichnetvonText !d (%H'Dh ! gezeichnetam (%6 (dichnet" !d Gezeichnetam (,6ichnet8!Zeichnungsnummer (%6 8(d$oZeichnungsnummer (%F 8!d'D txtZeichnungsnummerText 8!d (%H'DCustom!h! 8!dZeichnungsnummer (,6xt0"" cmbSfgezeichnetvon.AddItem "xx"# cmbSfgezeichnetvon.AddItem "xxx" $ cmbSfgezeichnetvon.AddItem "xxxx"6xt! cmbSfgezeichnetvon.AddItem "x" hHQAttribute VB_Name = "frmSfInfo" " Bas0{F469B274-6B9A-456E-AB30-BA66872F61E6}{490DCE9E-DDD5-48EE-87A4-2F40A99F8063} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD' Definitionen sind konsistent mit dem Typennn ' wie in \SldWorks\sa@es\appComm\swc!t.bas/ert P Op4 gl(ici C swDocPART1  ASSEMBLY 2 DRAWING3' Sub berSfAuslesen()-A @9i@ Funk l@61vorhandeA?W@)e au-n DTieigenschafCl AuJreibtMe direktEdpas@  Edit-Felde,r.e]ge`ka%eWCDim@EApp As ObjecKAModelC EAn d]a:ve Solidwi-B l anklink)C Se0wA= e("x.;lB)"U"FCHTUNG: fa`lls k5 @luft,rd durch's gelaM A1t normalerweiznicht zu seh VU, nomacAwir e9o `)ZfelsQA li s b ar (sPhng m% Schxlu@BArbeitsspeer rum AA (nur er ien A% s+.VisiC|(/C:=c>.Act y`bCn`p nixe$eNsqK rR@If c Is Nothing T# C5 MsgBox("K@QA^ ffnet", vbOKOnly, "0T@Ex@@o End IfcBociiskwln,eB hab 9wolleb@-ŚfestCegt. Hi`/B f> .4@ BDpiele. Dq„!A' ms exd so hei!w`!wutzerd"beFileJD{7ƌ"08.A((Prop` ie)P}@/aA A2rj  .C= aksynonyFYfr-{zk@rh(ag *V(arindG(sil o`d~'ebaubAPI -Hilf$le BAnung.txtSf.Text"#"gLN `/2/,om"'2-TenummerSb XOEH]ZAsMM:lx %OEGewPgezetvolvz_Uja-7Lamamprf BQ_Wߕ? 2t *getaU2VXEintraЉaQGrGEpMNueV RWN('UgeR,2B?HBQ]PyrckWQsVerknpfA "nrrifty|dtPAXr0EpPY! rdann cx!`c-' In `vernnft! YpgramphО natr@ bkf ihr#Zulssibg@t P n\(am b0^S onir g@oBUS 盠OOpp Jo ooplleio+ rwtdgeQ0ieP+c sqa̡m3Werzeu4nsdzM(eth $we(t,q,R de napXrerste3SchkGenq.Valuq0_uYu`wrS7Mtw?7MrHelJZeichnungsnummer") = txtSfZe .Text Model.CustomInfo("Material"tGewlt9 8zetvon>ge(Dam!am !prf B? % ?=ElseDim dy 'erst die alten s lschen |sDeleteIuBenen^1FL6&22,TeileMͻG(\=d_ E ?h eg0gee?;JXGk b''dannBibentigials Dieigen`kaft eintra Addtm, "",,n)G  w2  n cinL-o_ C n o fo "I ol _ hG m3?%p dʟ E8.9 Sel.8Qt .End IfS' u0dami!snWertnuch:rekt PqSchriftf@eld an"g@t werd0qmsspI' wir; Rebuiuf das!# l mas. K@natrl bei gr|o@u@o@nmal sAe `,t bra );-' we wouplik0e to``he ch s at oncappHear tdrawing, Dsohavg"ipa m-r command. This very quiTckQs` ldocumentmay ta a little lopbigDgees If kE= F0SepCall MsgBox(."s$Rn dem nchsWgeW05vbOKOnly@&,rmatiA r` As L/ # A=d,Edit(i)Sub !rTelAll5' Nur zhum " "%:@)Pf EDITB-+whl+ird,0%ges4amhh"lektieren,g*@1+b00eik-fa,r #Screen.A$ct`"Cokol.SelStar*tP0oehLengthp(AlPriv s cmdAuto3_C4k1#' aktue:l&sdatumsUvBIN`  0Exit' Ipwohl kl06w@Q@tut ... GD SfAusleEjetzIProzed 7zwe1@0d0Lslie 0oiDefauh  D F 6@ *x > H :0 p Px L J ,h  >  J .8 h Pp " X D  hxI#########################################################################6 Beispiel: VB-Programm zum Ausfllen des Schriftfeldes10 17.06.98 Stefan BerlitzD2 privat: Stefan.Berlitz@solidworks.cad.de* 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 purposesI#########################################################################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@ox޴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 purpos$JFunklie@st ausn Dateieigenaftw a vSW-Dokumentybimm@WHeund stellt sieEMdEdi¨er@ar.FD! knn verD[werA ^da@Yrckge¿eb@ AAWeitere Infos0 les@#bi&t+er; LIESMICH.TXTAACHTUNG: wenn e neuZeichenblatt hinzugefgt wird, @bringtdCU auche  DEFAULT-=f|%AEJ\miB--> 1. Erg @i  sem ra]2. N/R3."( be?b`s B zua,9+ei+ 5di4a)Fehlerqu=f/ n#Ib"a^n (z.B.斁Cvorb@<) ja`G1@%nur- :-))@_?"A` The wg fiA,reads tfil4e-p@Z8 ofact` ``Xdocb` a]dрlaym^e^-f`ds.Q val!HcbNewrRn back% .AFfur-` r mle0ase  R`EADME[cDodrs n@dh`optimiz@n` will`gany erPror-5l[,, ... hey, it'0s ju8example?75- Sub `main(BAY' as pas{mUser@%m (frmSf),`soCgMBfbBild\irmwd e% 3 lego}th!# aF.Show EE   J .8 h Pp " X DN3|I^:txN3|I^:tU|]HME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H@hRoot EntryʏuGapc0lJʏThe VBA Project 0lJʏ_VBA_Project0lJʏ`Yso]gqVtc5vjk^_p[wz{|}~ % %Xp@@440M$*\Rffff*0;4d0885f74xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplaCompObjNnVBFrameI5PROJECTwmVBA Project Data"te`DerivBustomizD2$$VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSfInfo Caption = "Schriftfeld Informationen" ClientHeight = 7080 ClientLeft = 45 ClientTop = 330 ClientWidth = 8595 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 66 End  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qa  !"#$%&'(*+,-./012345789:;<=>?@ABCDEFGHJKLMOQRSTUVWXYZ[\^_`abcdefghiklmnopqrstuvwxyz{|}Host Project Items& 4VBA Project Signature, Host Project Item Names0!0lJʏThisLibrary0lJʏLabel114{,4txtSfgeprftvonr, 4txtSfMaterialonr(28Label124{( 4txtSfGewicht(!2<Label134{? ( #LcmdAutoDatet+*, $PcmdSfAuslesenonr{5% 2@LaJ(28Label104{, k(2<L}̰R a {\zThisLibrary*{`]z5{]zL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{`^z L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{^z";{`_z$={_z&F /&L{801A0000-A66C-11D3-A8BD-0000861EBBD6}Ctx8  H  X|11 19C:\Users\Kuklin\Allgemein_Meyer\schriftfeld-swp\mod_schriftfeld.swpR0FC:\WINNT\System32\stdoID="{9A8E1793-2FD1-4B7F-BC49-34558AC30F2B}" Document=ThisLibrary/&H00000000 Module=schriftfeld1 BaseClass=frmSfInfo Module=Modul1 HelpFile="" Name="Schriftfeld_mod" HelpContextID="0" VersionCompatible32="393222000" CMG="FBF908908094809480948094" DPB="777584147CECF9EDF9EDF9" GC="F3F100987D997D9982" [Host E__SRP_7Project_Data_CurVer(" Host Project Item List Data8Modul1 ))PROJECT8frmSfInfoi*WJO0lJpfjoP4VBA0lJ[ݮThisLibrary 6schriftfeld1 __SRP_2b- \ /+,. d <  $ <   $ <   $ <   $ 0 H  0   0   0   d+'8:hNXXx! x x6X8+'8:h NXXx! x x6X8 Dd$( xX8`4h\d     Loftfeld1;73cfe0e2eschriftfeld1$@ frmSfInfo:93cfe0e1f9frmSfInfo@D` y h a x  , h )- x .  0  A5   0   0 @  0 H  0   0  Tahoma (gezeichnet vonn 5TahomaH,,5Tahoma( Teilenummerv 5TahomaH,,5Tahoma (Zeichnungsnummer 5Tahoma    A H,,5TahomaH,,5Tahoma ( gezeichnet ammer H,,5Tahoma( Benennung1i 5Tahoma<Fa1Attribute erzeugenet5Tahoma@F){1automatisches Rebuild5Tahoma$,Werte eintragen {uTahoma(Ende{uTahoma( Benennung2eq5TahomaH,,5xtender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=345, 345, 1521, 1078, C schriftfeld1=90, 9, 1400, 885, frmSfInfo=67, 90, 1567, 959, Z, 53, 22, 934, 446, Modul1=207, 207, 1383, 940, 940, ThisLibraryThisLibraryschriftfeld1schriftfeld1frmSfInfofrmSfInfoModul1Modul16@-?@Label7TextBox3,5TextBox4Label8ȏ[qJ e, 4txtSfMaterialonr(28Label124{( 4txtSfGewicht(!2<Label134{? ( #LcmdAutoDatet+* (JLcmdAutoDatetS ,`@, 4      " 5Tahoma(Material 5TahomaalH,,5Tahomaal( geprft vona 5TahomaalH,,5TahomaalH,,5Tahomaal(Gewichtl 5TahomatlH,,5Tahomatl( geprft amna 5Tahomatl,(aktuelles Datum eintragen{uTahomatl0,Werte von SW-Dokument lesenC{uTahomatl $H $@B}9;0,4txtSfBenennung1rO(2<Label1tl{O( \chkGenPropnu{W)( `chkRebuildnu{+, DcmdSfEintragen1rS5%$4cmdExitl"5%(2<Label5tl{,4txtSfBenennung2r(2@Label6tl{'04 txtSfgezeichnetvon'(2< Label7tl{ ,4 txtSfTeilenummer (2@ Label8tl{h $4 TextBox4h 04txtSfgezeichnetamn(2@Label9x4{(28Label104{,4txtSfgeprftamer? (2< $  )%  I&  i' ( ( 8 ) H * X =  @  A 8  b`<1i@ 0 H  8D4     G 6  7  <G 9  A; K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~F @[l̜D ax Control List Data$%ʏʏ__SRP_0#B%__SRP_6$Project Item Data$~ _VBA_PROJECTxdirReqControl List Data*$ʏʏ__SRP_1ReqControl List Data* Control_Data_CurVer(& Control List Data$(a A Qx 9A i !Qy!a q===1>;a  ThisLibrary schriftfeld1 frmSfInfo schrif__SRP_3 frmSfInfo$Q__SRP_49*__SRP_5 NrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;     1 ( 9 0* pHdSchriftfeld_modQH@  = | M J< 9stdole>stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Autom`ation/MSFor ms>SFErms$3DD452EE1-E08F-101A-8-02608C4D0BB4 D@indowsEWOW64\FM20.DLL#Microsoft : ] Object Library/;D1t00}t#0#k04 A41368C7A-0448-4D57-A26D-40AC2D83A65XUsers\Kuklin\AppData\Local\Tem@p\VBE\T.8exd "yxݏpzK>"y4xNC) MEH@SPSSS>"LLLLLLLLLL`JTTN`&x `(t n li@D Wert`L(scha `H`hJi p a VX`   ` ,  b`|  d`X@|k  f`|J h`` |k ` e@  `    `   p ` $  ` 8% %BBB Bi $0@i H(0 H` <>00  `|J `| eD  ` 0 H` 4HHH `XH  ` ( Xp d @T @D X 4 @$    H0x @ H 0  H @   x `  8J  ``000@48:<0d @T @D 4 @$  @ 0@ 0( 0 @ @ HH#`M$*\Rffff*2;4d08b37f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#5d*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\R0*#1*\R0*#14*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\Windows\SysWOW64\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#4448<@DHLPTX\`dhlptx|  6 >8 x   " L @  H hp  0x $  H D J` L    *   P2`  H ^ P Jp J J &` P      "  &X  p   8  $  "1  X   0  @ " H LP N P >@ J F  $( P`  p2  P N Lh     "&2 2($2 "2( 2  2 ( 0 "8 &@X&@(@p,$@$@*@H(@H&@&@   >x ,>(,>.>2*>X*>0>.>,>,> h  Np P ( 8 L@ L @  ) d30       " B F h x  "  . $` " $  " D `h " p 4x " " B 8@ " HPX "   " (08 " @ " HX` " hpx " `hp " x  "  " @HP " p x ( F ( (8 *` *  +  L  @ "  0 Definitionen sind konsistent mit dem Typennamen7 wie in \SldWorks\samples\appComm\swconst.bas definiertl0]EE]-1]2EHF Diese Funktion liest die vorhandenen Werte aus den Dateieigenschaften.200: aus und schreibt sie direkt in die passenden Edit-Felder. einige Deklarationen]]* An das aktive Solidworks-Modell anklinkenSldWorks.Application$*.&B 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) &(, &!..($ wenn nix geladen direkt wieder raus (Keine Datei geffnet 2 InformationA0|kA Die Dateiinfos auswerten, die wir haben wollen, sind im TemplateX festgelegt. Die Attributnamen mssen exakt so heien wie die in den benutzerdefiniertenex Fileeigenschaften.D Die Funktion ModelDoc.CustomInfo(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) Benennung1 (%6 (d gezeichnetvon (%6 (dgsnu gezeichnetamd gezeichnetvon geprftvon (%6 (d Gewichtmm geprftamoE 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$*.& &(, &!..( (Keine Datei geffnet 2 InformationA0| kI 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 AttributenSForms aaz6AHWMm@-V 2C:\Users\Kuklin\AppData\Local\Temp\VBE\MSForms.exd AailU|]H lN3|I^:tl Workspace @main rb}"Oeޜ52 Hf[<.(릥Ic">ùHMCGv;ҋB `TextBox2!-6S` y("-?@Label7TextBox3Label5TextBox4Label8ȏ[qJ eUserFormlnyIF( F3Dynamic  8Label1Label2{lFWJO cmdAutoDatetxtSfBenennungcmdSfDefaultWertetxtSfZeichnungsnummerLabel3Label4 txtSfDatum2ҋB `cmbSfKonstrukteurcmdExitBҋB ` chkGenPropcmdSfEintragen cmdSfAuslesen chkRebuildTextBox1Label6 berSfAuslesenberSfEintragenberSfStandardwerteAusfllen berTxtSelAllcmdAutoDate_Click cmdExit_ClickcmdSfAuslesen_ClickcmdSfDefaultWerte_ClickcmdSfEintragen_ClicktxtSfBenennung1_GotFocustxtSfDatum_GotFocuscmbSfKonstrukteur_GotFocustxtSfBenennung2txtSfZeichnungsnummer_Go gearbeitet werden soll die erste. @!B !d Benennung1 (,6 !d Geprftvon (,6 !dMaterial (,6d](erst die alten Infos lschenok 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 ;-)F we would like to see the changes at once to appear on the drawing, soE we have to give a model-rebuild command. This is very quick on small: documents and may take a little longer on bigger ones ;-) JFWerte werden erst nach dem nchsten Rebuild im Schriftfeld eingetragen 2 InformationA0dh ]@ (%N'LkH o8 < Nur zum schnmachen: wenn ein EDIT-feld angewhlt wird, den? gesamten Inhalt selektieren, macht das berschreiben einfacher X!Z(\ X!Z!d X!Z(^ox( aktuelle sDatum im datumsfeld eintragenH Ist wohl klar was das tut ...go= jetzt in die Prozedur verzweigen, die die Werte ausliest ...A@$o- die Standardwerte in die Textboxen eintragen fill in the default valuesA@Po< und die Werte aus den Eingabefeldern ins Dokument eintragenA@>o`A@VoA@VoA@VHA@Vo@ als Beispiel die Combobox mit ein paar Standardwerten ausfllen MaterialF zu Beginn erstmal die Werte auslesen, damit die Felder gefllt werden8  Benennung1Ho Benennung2 Benennung2 (%6 (d Zeichnungsnummer Teilenummer Teilenummer (%6 (d geprftam (%6 (dGewicht (%6 (d( geprftvon Material (%6 (d !d Benennung2 (,6 !d Teilenummer (,6   Z' Geprftam (%F !d'D !dGewicht (,6( Gezeichnetam (%F !d'D Teilenummer (%F !d'DMaterial (%F !d'DgsnuGewicht (%F !d'D ( Geprftvon (%F !d'D' GezeichnetamText !d (%H'DDA@Vo Benennung1 (%F !d'DLi Benennung2 (%F !d'DIno 0 Benennung2Text !d (%H'D TeilenummerText !d (%H'DrXo0 Benennung1Text !d (%H'DMaterialText !d (%H'DeichnuGewichtText !d (%H'DPP GeprftvonText !d (%H'D'D "P$ berSfAuslesent A@Vo8A@Vo A@V`$A@Vo$A@Vo$ !d Geprftam (,6 GeprftamText !d (%H'D$!Private Sub UserForm_Initialize()End Sub$* !d Gezeichnetvon (,6@ Gezeichnetvon (%F !d'DZeichn8dann die bentigten Infos als Dateieigenschaft eintragengs GezeichnetvonText !d (%H'Dh ! gezeichnetam (%6 (dichnet" !d Gezeichnetam (,6ichnet8!Zeichnungsnummer (%6 8(d$oZeichnungsnummer (%F 8!d'D txtZeichnungsnummerText 8!d (%H'DCustom!h! 8!dZeichnungsnummer (,6xt0"" cmbSfgezeichnetvon.AddItem "xx"# cmbSfgezeichnetvon.AddItem "xxx" $ cmbSfgezeichnetvon.AddItem "xxxx"6xt! cmbSfgezeichnetvon.AddItem "x" hHh1Attribute VB_Name = "frmSfInfo" " Bas0{85E4F3AC-001F-4E69-987A-CB2567A16B73}{49B96D7E-E705-43BD-91AJ2EE3EC929A3} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD' Definitionen sind konsistent mit dem Typennn ' wie in \SldWorks\sa@es\appComm\swc!t.bas/ert Op4 glic i C swD@ocPART1  ASSEM(BLY 2 DRAWING3 Sub berSfAuslesen() 9i@ Funkl61vorhande?W)e au,n D@TieigenschafC  AuIreibt@Me direktEdpas@  Edit-Felder.e]ge_k~a%e@WCDimEApp As ObjecJA`Model EA(n d@]a:ve Solidwh-B l ankl8inkC Se0wA= Bet("Ex.@lB)"U"FCHTUNG: falls k5 luft,rd durch's gelaM A1t norma@lerwei`znicht zu sehVT, n"omacwihr e9o `)Z!felsA l i s bar (sbPhng m% Schlu@BArbe@itsspeer rum AA C(nur ebr ienA% s+.Visi#|(/C:=c>.Ac~ty@bCn@p xnixe$eNqK rR@If c Is Nothipng T#C5 MsgBoxx("K@QA^ ffnet", vbOKOnly, "0T@Ex @o Endx IfcBociiskwln,BeB hab 9wolleB@-!festCegpt. D@lŽ Dmn ex_ so hei߁ qq utz8erdb File}u&* 3.é"(Prop` ie)@K/Oa ,r  m.7 \"fs ynonySfVr-uklhiRa`Vari!nA(sifl o`x'`bau]aAPI-Hilf$leBnung@a? txtSf.Text"#"g/m&O 2_ g2 -TenummetRbSEintraQG0oGEpMNue1S> TNX' Gger,2BHBQ[P wrckWQ|VerknpfA "Bn!prift wdtPAX`EOOmPY! rdann `?@u0!`-' In vernPnft! Yg8rame natrp0 bif ihr #Zulssigpt } @k\(am[sonir gplBUS ??˝pp z pllei[+ rtdgeQ0ieP+ ~sɡm3werzeu@4sz@MetJh $we(tn,,b~!de na"Xer`#3SchkGenq.Valu0_uYu`wrS7Mtw7MrHelJpU Model.CustomInfo("Material") = txtSfD@.Text Gewichtr pze9netvdon>ge(DamCam Bprf B % ?=ElseDim@ dummy 'erst die alten s lschexn ؃D eleteBenennung1L6&22,@Teilen=enrGZ:sM,]Odɟ??h egG;ge7e0JXGk b''dannBibentigi als Dieigen`kaft eintra# Addtm, "",#,n)G  w2  n cinL-o_ C n o fo "I ol _ hG m3?%E{] dʿ fqN 9 Se?l.8Qt .En0d IfS' Bu0damisnWertnuch: rekt PqSchriftfeld an"gt werd0qmsspI' wir; Rebui@uf das# l mas. K@@natrl bei gro@u@onmal sAe `,`t bra ; -' we wouplike to``he ch s at oncappear tdrawing, sohavgipHa m-r command. This very quickQs` ldoc`umentm ay ta a little lopbiggees If kE= F0SepCall MsgBox("s $Rn dem nchsW3geW05vbOKOnly@&,rmatiA r` As L # A=d,Edit=(i)Su2b !rTAelAll5' Nur zum " "%:@)Pf EDIT-+whl+ird,0%gesam hh"lektieren,*@1+b00eik5-fa,r #Screen.Act `"Cokol.SelStartP 0oehLengthp(AlCPriv s cmdAutoi3_C4k1#' aktuel&sdatumsUvIN3`  Exit' Ipwohl kl06w@Q@tut .|.. GD SfAusleE0jetzIPr0ozed 7zwne1@0d0Lslie 0oiDefaultApndar6d6`ic 1box`JHfi:`rG valuesC JfPǐ+uSfEE] B^Q0 gabe ern inpokrJQ.!R $_GotFOs;`h  D F 6@ *x > H :0 p Px L J ,h  >  J .8 h Pp " X D  hxI#########################################################################6 Beispiel: VB-Programm zum Ausfllen des Schriftfeldes10 17.06.98 Stefan BerlitzD2 privat: Stefan.Berlitz@solidworks.cad.de* 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 purposesI#########################################################################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@ox޴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 purpos$JFunklie@st ausn Dateieigenaftw a vSW-Dokumentybimm@WHeund stellt sieEMdEdi¨er@ar.FD! knn verD[werA ^da@Yrckge¿eb@ AAWeitere Infos0 les@#bi&t+er; LIESMICH.TXTAACHTUNG: wenn e neuZeichenblatt hinzugefgt wird, @bringtdCU auche  DEFAULT-=f|%AEJ\miB--> 1. Erg @i  sem ra]2. N/R3."( be?b`s B zua,9+ei+ 5di4a)Fehlerqu=f/ n#Ib"a^n (z.B.斁Cvorb@<) ja`G1@%nur- :-))@_?"A` The wg fiA,reads tfil4e-p@Z8 ofact` ``Xdocb` a]dрlaym^e^-f`ds.Q val!HcbNewrRn back% .AFfur-` r mle0ase  R`EADME[cDodrs n@dh`optimiz@n` will`gany erPror-5l[,, ... hey, it'0s ju8example?75- Sub `main(BAY' as pas{mUser@%m (frmSf),`soCgMBfbBild\irmwd e% 3 lego}th!# aF.Show EE (%H@hN3|I^:txN3|I^:tU|]HME(SLSS6"N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}(%H@h % %Xp@@440M$*\Rffff*0;4d0885f74xAttribute VB_Name = "ThisLibrary" Bas0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplate`DerivBustomizD2$$VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSfInfo Caption = "Schriftfeld Informationen" ClientHeight = 7080 ClientLeft = 45 ClientTop = 330 ClientWidth = 8595 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 66 End  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qa Label114{,4txtSfgeprftvonr, 4txtSfMaterialonr(28Label124{( 4txtSfGewicht(!2<Label134{? ( #LcmdAutoDatet+*, $PcmdSfAuslesenonr{5% 2@LaJ(28Label104{, k(2<rU @n$A`$`$`$`$A`$`$`$`$A `$ `$ `$  `$I `n`$A`txtSfgeprftvonr 4txtSfMaterialonr(b8Label124{( 4txtSfGewicht(!2<Label134{? (` Hy ! rU $`n$ k`$`$A`$` $`$`$A `$ `$ ` $ `tFocusUserForm_Initialize (SldWorks.ApplicationVisibleActiveDoc (Keine Datei geffnet Information Benennung1CustomInfo{پVC>O1MZPV 笨z@8n?2qZIT`a&k[3nrgCq=,W;*I}v5txtSfBenennung1Label9Label10Label11Label12Label13txtSfgezeichnetvontxtSfTeilenummertxtSfgezeichnetamtxtSfgeprftamtxtSfgeprftvon txtSfMaterial txtSfGewicht1E:,Eտ 9  Label1_Click  S. MeyerҋB ` Zeichnungsnummer Benennung2 TeilenummerCҋB `Modul1Zn;@r/>up,GTIea,cJh|xRRo#$JY6*>MXRH ݉vdRKQ Y HtxtSfgezeichnetam_GotFocusnJ/Ge$g F,fdN|щL!W eE0_Ix? NɅ!  cmbSfgezeichnetvon_GotFocus%3A(ˎVURG8:Dxjqb"*j ACnoF  F6E  R4t-J`?sw/Bґa a!N csE=BP%? G8B$$A `($`,$`0$`4$A`8$`<$`@nPQ Ty !  # 8SmGqwEcFs!ZT#IaՆ`nHT@YVSDOlB % x5zSO ](3! yT񑔰KfTMpNA5e}׫Or\|ǒŐ!D]Nʁ !& \TGK$)\[\1:Xn Ip`MgkUDzt DHDkԩ:؝{?PGRh A'  %{ܾ~ JnB- E(éEL㵂CUW uT6ETAD Y( 8CsS,%Isϛ;Y?C{c9 0LKr<8CwA04eJF3 y) xj[ DGN!x4ffxABِFj8mqC …uA@J?/aGR& * X>;N Q KFqoA3I)Q ǯVH7@dgB:J (V87.3EL@) 5 8EʥNIH jH^J'I~**3=+MȆY-džckwm(ARV 7 txtSfgezeichnetvon_GotFocusX! \ `1q d1IhqltxtSfgeprftvon_GotFocustxtSfgeprftam_GotFocus6EjAe=[>)H jdڦڿ aB8*͕#RG?[å_Ea/8a~:&:MhbW 9  A3b 8v2L1.r]UjBz4eNGӟnnu"IxN\NTK"MO| ; txtSfgezeichnetam_Change gdJ1a91@ gezeichnetvong)G*[{p]B.AۭIl`uXV<M$"=8b3@Nu8# <  txtSfGezeichnetam_GotFocustxtSfGezeichnetvon_GotFocustxtSfGeprftvon_GotFocustxtSfGeprftam_GotFocus Gezeichnetvon Geprftvon Geprftamu%@- !\P nB5e햯 B.ROH;]OPN1wXPdc5L1! 3 h |ߏJ)#O@WnSchriftfeld_mod7 dZCjT 4xNC) K/c)LEw)o_BF$fݏpzK>"y&lGKP 9 yA  LTlwʸ'L"G75e}׫Or\|ǒŐ!D]Nʁ !& \TGK$)\[\1:Xn Ip`MgkUDzt DHDkԩ:؝{?PGRh A'  rU $`$A`$`$`$`$A` $`$`$`$A `$ ` $ `$$  `($I `,$`0$`4$ `8$I`<$`@$`DnHy ! LY PQ Ty ! X! \ `1q d1Ihqlptx|11 19  1 `11vWWW_0 H  d  d4x5d cT%xxWd4t5d ltc3'':DN44:TNdd 6d4*d!   d(T]35dA2:T %!  l >Fd%t 5d2:T %!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d3@:T %t4!  l >Fd]/64d@:T %t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/6ptx|11 1rU  QAa3 1a 4@9 9I--i>a0>>!1q111 3@A)AQA@4y ! 8Y <91i` ) 1  `1vWWW__0 H  0   0   d,$l lh! h h5l,$ hl0 H  0   0   0   0 `  0   0   0   0   0   0 @  0 H  0   0   0 H  8$ LY  #LcmdAutoDatet+* Label8tl{J4 TextBox4h 04txtSfgezeichnetamn(2@Label9x4{(28Label104{,4txtSfgeprftamer? (2<Label114{,4txtSfgeprftvonrQ @y ! D! H L1q P1ITqX\`dh1l1 p19t1i`x1| `1  `1  `1  `I   a ` wWWW__0 dH  0 d  0   0 X  0 H  <  $ 0   <  $J 0 `  0   0   0   0   0   0   0   0 H  0   0 H  0        |t?t?P1IrU $`n$ k`$`$A`$` $`$`$A `$ `$ ` $ `rU~|  H$l$ k--i>a0>>!1q111 3y<<99<Q< 4  `81$$A `($`,$`0$`4$A`8$`<$`@nPQ Ty ! X! \ `1q d1Ihqlptx|11 191i` ) 1  `1vWWW__0 H  0   0   d,$l lh! h h5l,$ hl0 H  0   0   0   0 `  0   0   0   0   0   0 @  0 H  0   0   0 H  8$ rU~|  H$l$ k--i>a0>>!1q111 3y<<99<Q< 4  `81< I @1 D a ` Hy ! LY PQ Ty ! X! \ `1q d1Ihqlptx|11 191i`1]< I @1 D a ` Hy ! L `  `1vWWWWW0 H  `d  d4x5d cT%xxWd4t5d ltc3'':DN44:TNdd 6d4*d!   d(T]35ds2:T %!  l >Fd%t 5d2:T %!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d@:T %t4!  l >Fd]/64d@:T %t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%rU @n$A`$`$`$`$A`$`$`$`$A `$ `$ `$  `$I `n`$A`txtSfgeprftvonr 4txtSfMaterialonr(b8Label124{( 4txtSfGewicht(!2<Label134{? (` Hy ! rU Y14a`Ya a 1Y yY i 41aY`I8 1< Y@D H 1 LQ y  `QP9 a T9 y X   \1a ` `1a `  d1a `  h1a) `l9 Q p9 i lWWW_L d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d41:T%td!  h/5d1:T%td!  h/5d1:T%td!  /5d1:T%td!  h/5dL,tx$d4L d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d4*d!  !d(T]35dy2:T%!  l>Fd%t5d2:T%!  l>Fd%t5d2:T%!  >Fd%t5d2:T%!  l>Fd%t5d:T%td":T%td":T%td":T%td">:T%:$#%!  l>Fd%t4$5d>:T%:$#%!  l>Fd%t4$5d>:T%:$#%!  >Fd%t4$5d>:T%:$#%!  l>Fd%t4$5d)d!  !dfT]35d03'':DN44:T%Ndd 6d4DtWd&"q5dL0tx$d4` d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d4tWd(T]35d(tWd!  h/5d!  h!  h!  h!  +d d!  h/5d`,tx$d40   0  111rU $`n6 4 rU $`$A`$`$`vWWW__0 dH  0 d  0  Y PQ Ty ! X! \ `1q ` Hy ! LY PQ Ty ! X! \ `1q d1Ihqlp  1 `11vWWW__0 H  0   0   0 dX  0- 3 /: !"#%&'()0+,. 412 8i7*;<=>?@AbCDEFGHIJKLMNOPQRSTd1Ihqlptx|11 191i`14d@:T%t4!  l >Fd]/64d>:T %:$%!  l >Fd%t45d>:T %:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%: `  `1vWWWWW0 H  `d  d4x5d cT%xxWd4t5d ltc3'':DN44:TNdd 6d4*d!   d(T]35ds2:T %!  l >Fd%t 5d2:T %!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d@:T %t4!  l >Fd]/64d@:T %t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%$%!  l >Fd%t45d)d!   dfT]35d3'':DN44:TNdd 6d4tWd"q5d0tx$d40   0 H  0   0   <  $ 0 `  0   0   0   0   0 @  0   0   0 H  D4     _rU $`$A`$`$`$`$A` $`$`$`$A `$ ` $ `$$  `!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d)d!   dfT]35dD3'':DN44:TNdd 6d4XtWd"q5dR `0tx$d40   0 X  < E $ 0   0   <  $ 0 `  0   0   0   0   0   0   0   0 H  0   0 H  0   D4     @ ) 1  `($I `,$`0$`4$ `8$I`<$`@$`DnHy ! LY PQ Ty ! X! \ `1q d1Ihqlptx|1D4     <?!a  8I88a  ThisLibrary schriftfeld1 frmSfInfo schriftfeldF /C:\PROGRA~3\COMMON~1\MICROS1 19  1 `11vWWW_0 H  d  d4x5d cT%xxWd4t5d ltc3'':DN44:TNdd 6d4*d!   d(T]35dA2:T %!  l >Fd%t 5d2:T %!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d2:T%!  l >Fd%t 5d3@:T %t4!  l >Fd]/64d@:T %t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/6rU  QAa3 1a 4@9 9I--i>a0>>!1q111 3@A)AQA@4y ! 8Y <Q @y ! D! H L1q P1ITqX\`dh1l1 p19t1i`x1| `1  `1  `1  `I   a ` wWW1PQ Ty ! X! \ `1q d1Ihqlptx|11 19  1i 0 dX  0 H  0   0   <  $ 0 `  0   0   0   0   0   0 @  0 H  0   0   0 H  8 D a H  0   0   0   0 `  0   0   0   0D4    W__0 dH  0 d  0   0 X  0 H  <  $ 0   <  $J 0 `  0   0   0   0   0   0   0   0 H  0   0 H  0        |t?t?19tx8  H  X|11 19 y h a x  , h )- x .  0  A5   0   0 @  0 H  0   0  Tahoma (gezeichnet vonn 5TahomaH,,5Tahoma( Teilenummerv 5TahomaH,,5Tahoma (Zeichnungsnummer 5Tahoma    A H,,5TahomaH,,5Tahoma ( gezeichnet ammer , 4txtSfMaterialonr(28Label124{( 4txtSfGewicht(!2<Label134{? ( #LcmdAutoDatet+* (JLcmdAutoDatetS ,`@, 4      "  $  )%  I&  i' ( ( 8 ) H * X =  @  A 8  b`<1i@ 0 H  8D4     G 6  7  <G 9  A; rU Y14a`Ya a 1Y yY i 41aY`It4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d@:T%t4!  l >Fd]/64d>:T %:$%!  l >Fd%t45d>:T %:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%!  l >Fd%t45d>:T%:$%8 1< Y@D H 1 LQ y  `QP9 a T9 y X   \1a ` `1a `  d1a `  h1a) `l9 Q p9 i lWWW_L d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d41:T%td!  h/5d1:T%td!  h/5d1:T%td!  /5d1:T%td!  h/5dL,tx$d4L d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d4*d!  !d(T]35dy2:T%!  l>Fd%t5d2:T%!  l>Fd%t5d2:T%!  >Fd%t5d2:T%!  l>Fd%t5d:T%td":T%td":T%td":T%td">:T%:$#%!  l>Fd%t4$5d>:T%:$#%!  l>Fd%t4$5d>:T%:$#%!  >Fd%t4$5d>:T%:$#%!  l>Fd%t4$5d)d!  !dfT]35d03'':DN44:T%Ndd 6d4DtWd&"q5dL0tx$d4` d d4x5d cT%x xWd4t5d ltc3'':DN44:TNdd 6d4tWd(T]35d(tWd!  h/5d!  h!  h!  h!  +d d!  h/5d`,tx$d40   0  K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~F @(L؝6dk a A Qx 9A i !Qy!a q===1>;a  ThisLibrary schriftfeld1 frmSfInfo schriftfeldF /C:\PROGRA~3\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A il9C:\Program Files\Common Files\SolidWorks Shared\swvba.tlb SolidWorks 9a0FC:\WINNT\System32\stdole2.tlbstdolek$ Gf?tR Y.E .`M C:\Windows\SysWOW64\FM20.DLLMSForms aaz6AHWMm@-V 2C:\Users\Kuklin\AppData\Local\Temp\VBE\MSForms.exd AailU|]H lN3|I^:tl Workspace @main rb}"Oeޜ52 Hf[<.(릥Ic">ùHMCGv;ҋB `TextBox2!-6S` y("-?@Label7TextBox3Label5TextBox4Label8ȏ[qJ eUserFormlnyIF( F3Dynamic  8Label1Label2{lFWJO cmdAutoDatetxtSfBenennungcmdSfDefaultWertetxtSfZeichnungsnummerLabel3Label4 txtSfDatum2ҋB `cmbSfKonstrukteurcmdExitBҋB ` chkGenPropcmdSfEintragen cmdSfAuslesen chkRebuildTextBox1Label6 berSfAuslesenberSfEintragenberSfStandardwerteAusfllen berTxtSelAllcmdAutoDate_Click cmdExit_ClickcmdSfAuslesen_ClickcmdSfDefaultWerte_ClickcmdSfEintragen_ClicktxtSfBenennung1_GotFocustxtSfDatum_GotFocuscmbSfKonstrukteur_GotFocustxtSfBenennung2txtSfZeichnungsnummer_GotFocusUserForm_Initialize (SldWorks.ApplicationVisibleActiveDoc (Keine Datei geffnet Information Benennung1CustomInfo{پVC>O1MZPV 笨z@8n?2qZIT`a&k[3nrgCq=,W;*I}v5txtSfBenennung1Label9Label10Label11Label12Label13txtSfgezeichnetvontxtSfTeilenummertxtSfgezeichnetamtxtSfgeprftamtxtSfgeprftvon txtSfMaterial txtSfGewicht1E:,Eտ 9  Label1_Click  S. MeyerҋB ` Zeichnungsnummer Benennung2 TeilenummerCҋB `Modul1Zn;@r/>up,GTIea,cJh|xRRo#$JY6*>MXRH ݉vdRKQ Y HtxtSfgezeichnetam_GotFocusnJ/Ge$g F,fdN|щL!W eE0_Ix? NɅ!  cmbSfgezeichnetvon_GotFocus%3A(ˎVURG8:Dxjqb"*j ACnoF  F6E  R4t-J`?sw/Bґa a!N csE=BP%? G8B # 8SmGqwEcFs!ZT#IaՆ`nHT@YVSDOlB % x5zSO ](3! yT񑔰KfTMpNA5e}׫Or\|ǒŐ!D]Nʁ !& \TGK$)\[\1:Xn Ip`MgkUDzt DHDkԩ:؝{?PGRh A'  %{ܾ~ JnB- E(éEL㵂CUW uT6ETAD Y( 8CsS,%Isϛ;Y?C{c9 0LKr<8CwA04eJF3 y) xj[ DGN!x4ffxABِFj8mqC …uA@J?/aGR& * X>;N Q KFqoA3I)Q ǯVH7@dgB:J (V87.3EL@) 5 8EʥNIH jH^J'I~**3=+MȆY-džckwm(ARV 7 txtSfgezeichnetvon_GotFocustxtSfgeprftvon_GotFocustxtSfgeprftam_GotFocus6EjAe=[>)H jdڦڿ aB8*͕#RG?[å_Ea/8a~:&:MhbW 9  A3b 8v2L1.r]UjBz4eNGӟnnu"IxN\NTK"MO| ; txtSfgezeichnetam_Change gdJ1a91@ gezeichnetvong)G*[{p]B.AۭIl`uXV<M$"=8b3@Nu8# <  txtSfGezeichnetam_GotFocustxtSfGezeichnetvon_GotFocustxtSfGeprftvon_GotFocustxtSfGeprftam_GotFocus Gezeichnetvon Geprftvon Geprftamu%@- !\P nB5e햯 B.ROH;]OPN1wXPdc5L1! 3 h |ߏJ)#O@WnSchriftfeld_mod7 dZCjT 4xNC) K/c)LEw)o_BF$fݏpzK>"y&lGKP 9 yA  LTlwʸ'L"GHV/ OEo+k2