╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Root Entry        `TёИ!j╞@"apc        А№тИ!j╞`TёИ!j╞The VBA Project         А№тИ!j╞`TёИ!j╞_VBA_Project         А№тИ!j╞`TёИ!j╞¤                                                                           )#■    !"($%&'*■   +,■                                                                                                                                                                                                                                                                                                                                               Root Entry        АmхИ!j╞@apc        А№тИ!j╞АmхИ!j╞The VBA Project         А№тИ!j╞АmхИ!j╞_VBA_Project         А№тИ!j╞АmхИ!j╞        ¤   ■    ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   Host Project Item Names0         АmхИ!j╞АmхИ!j╞VBA Project Data"    ДHost Project Items&            4VBA Project Signature,     ■   ■   ■    ■   ■   ■   ■   ■   ■    !"#$%&'()*+,-./012345■   789:;<=>?@ABCDE■   ■   ■   ■                                                                                                                                                                                                                               ═Ї{р_· ThisLibrary*{аQ· 5{PR· L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{S· L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{`]· ";{^· $={аa· &РЪд&оL{801A0000-A66C-11D3-A8BD-0000861EBBD6}╕╠RХ╛ID="{A6219505-1B74-4B7E-8E0B-976B1FF06BD4}" Document=ThisLibrary/&H00000000 Name="centerofmass" HelpContextID="0" VersionCompatible32="393222000" CMG="A2A07F926A966A966A966A96" DPB="91934C714D714D71" GC="80825D5E5E5E5EA1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C ThisLibraryThisLibraryThisLibrary        АmхИ!j╞АmхИ!j╞Project_Data_CurVer(      Host Project Item List Data8            VBA        А№тИ!j╞А№тИ!j╞PROJECTwm            &PROJECT      j_VBA_PROJECT            ThisLibrary    6фdir            AProject Item Data$     Control List Data$        АmхИ!j╞АmхИ!j╞ReqControl List Data*        АmхИ!j╞АmхИ!j╞6@,J=▒А0*Р pHВdф centerof mass<к@ = v ЁЮ┐DE О<Vrstdole>stdole h%^*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# AutАomation0EВtВ╕ А ThisLibraryGJisLibrDaАy 2E#HВ1┴ВМ%В в,В@F┘"В+ВВReqControl List Data*            H Control_Data_CurVer(        G Control List Data$            F(            ╠am  ф·*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsю*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library╝*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation         ЁЮ┐E                                                               ╕ThisLibrary0945bf9ef0  ThisLibrary  F┘%                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   h╞▓5I:FKеQ╢оK3"z        `А   М% SolidWorks;VBAўтWin16┴~Win32Mac│▓VBA6н#Projekt1╥AstdoleУ` VBAProject4нK centerofmassгл ThisLibraryGй А   _Evaluate┘  <                                         Ё─╘    ╦╕F┘  #И╢                        x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}    8А■       (          %    H                                                                                            ▀■╩        x    ╗░Attribute VB_Name = "ThisLibraryИ" ИBasИ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |Global╬SpaВcТFalse dCreatablPredeclaId░TruБ BExposeTemplate`DerivТBu└stomizD2╥▄цЁ╚bHost Project Item Names0     АmхИ!j╞`TёИ!j╞VBA Project Data"    шHost Project Items&        4VBA Project Signature,             ■   ■   I ■   ■   ■   ■    !"#$%&'()*+,-./0123456789:;<■   >?@ABCDEFGHL■   ■   ■   MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu■   wxyz{|}~А═Ї{0h· ThisLibrary*{рh· 5{Рi· L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{@j· L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Ёj· ";{аk· $={Pl· &РЪд&оL{801A0000-A66C-11D3-A8BD-0000861EBBD6}╕/┬^C:\Programme\SolidWorks\macros\cID="{A6219505-1B74-4B7E-8E0B-976B1FF06BD4}" Document=ThisLibrary/&H00000000 Module=centerofmass1 Name="centerofmass" HelpContextID="0" VersionCompatible32="393222000" CMG="BDBF60A1A0DAA4DAA4DAA4DAA4" DPB="FAF827E865E965E965" GC="3735EA2F1A5156525652A9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C centerofmass1=0, 0, 0, 0, C                     ▀enterofmass.swp╠RХ╛6@,■╩)А NА HPА JША HшА 80А hА FpА ,╕А *шА NА     А @hА     АиА░А╕А└А╚А    ThisLibrary        АmхИ!j╞`TёИ!j╞Project_Data_CurVer(     K Host Project Item List Data8            JVBA        А№тИ!j╞А№тИ!j╞PROJECTwm            PPROJECT      з_VBA_PROJECT            ╧ThisLibrary    vфThisLibraryThisLibrarycenterofmass1centerofmass1Jy▒А0*Р pHВdф centerof mass<к@ = v ёЮ┐DEО<Vrstdole>stdole h%^*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# AutАomation0EВtВ╕ А ThisLibraryGJisLibrDaАy 2E#HВ1┴ВМ%В в,В@F┘"В+ВТАReqControl List Data*            И Control_Data_CurVer(        З Control List Data$            Ж(centerofmass1        =T dir            }Project Item Data$     Control List Data$        `TёИ!j╞`TёИ!j╞ReqControl List Data*        `TёИ!j╞`TёИ!j╞ЖЙ┐1GА:+ ФnЪeАCoиfmАHsАO1А6  2O&с ▒O&шp!┬$C&┬╠am  ф·*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsю*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#C:\Programme\SolidWorks\swvba.tlb#SolidWorks Extensibility Type Library╝*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation         ёЮ┐E                                                            ╕ThisLibrary0945bf9ef0  ThisLibrary  F┘%  centerofmass10:45bf9ef1  centerofmass1  шp с       @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         h╞▓5I:FKеQ╢оK3"z        `▒┬СtmЎЩEОKrъЩ        А \( SolidWorks;VBAўтWin16┴~Win32Mac│▓VBA6н#Projekt1╥AstdoleУ` VBAProject4нK centerofmassгл ThisLibraryGй А   _Evaluate┘Modul1═ centerofmass1MswAppыСModelDoc ўPointЇЮSketchjstatusТ+mainИ, CreateObject°К ActiveDoc┌ТMassPropn:GetMassProperties2я░Insert3DSketch2NzGetActiveSketch2я╤ SetAddToDB2% CreatePoint25wNow%║ EditRebuild╤  H                                               $ SФ    <      N0{801A2Ё╘╘И    ██ ╕шp  ╢                        x "Б╨А     Б$╪БА     А $Б8А 6PА (ИБ░Б└Б╨Б.рББ А     А ,0БB`Б иА     Б╕А         ╚рG **********************************************************************рB * Makro ermittelt im aktiven Dokument (sollte Baugruppe oder PartрC * sein) den Massenmittelpunkt und erzeugt in einer 3D-Skizze einenрA * Punkt, der dem entspricht. Dies ist NICHT assoziativ, deswegenр1 * wird auch als Name Datum und Uhrzeit angegebenр *р? * 12.12.2001 Stefan Berlitz (stefan.berlitz@solidworks.cad.de)Tр& * http://solidworks.cad.detrр# * http://swtools.cad.deрG **********************************************************************р: zunфchst mal ein paar Deklarartionen die gebraucht werden]Є]Є]Є0]ЄH]Є`Цxэ╢SldWorks.Application$(.э !*.р die Masseeigenschaften holen $ %.',р0 und einen neuen 3D-Skizze mit genau einem Punktр! (dem Masse-Mittelpunkt) erzeugen╖ B@0э !2."╖ B@4эм$,м$,м$, %6. ╖ B@4╖ B@0р& und dem Sketch noch einen Namen geben╢Massemittelpunkt 8╢dd.mm.yyyy hh:mm:ss$ м "( B@:o  @    8    o│Attribute VB_Name = "centerofmass1" ' *BТ Makro ermittelt im aktiven Dokum| (sollФBaugruppe ode@r PartDs@ein) d3M дenLpunk t und^zedug\n ):3D-SkizzeUnEP/,#r Аm А12.2001 Stefan Ber0litzА~В.bГ@Жidworks.cad.de)Г htt0p://ОwtXoolЕ'B *?** ┴zunфDchOmal┴[ paar DekИlarАpionndie gebr┴┴Nt wer@sБDДswApp As Objec └|M└АlDocA═Point SШket└dМstАfBs┴ LongASub main( └T TSet ├= Create!("SldWГBa'licat2."└ E (=.AЮc┴╡А,CC' A> ВнeiАСscha─ftDholИAaAProp@у.ИGetЕertАзм2(Г3D '╛i┴Vxneu╟╝А╟└ZndauB┐m ╛Е#(demаrsse-vMbr┬h)dhFд/.HInsр3D#,2р (Tru!Rе $/№= )#!D╞.АAddToDBn OC;H 2┬2(┼!(Ш0),A&(1Йь2)д#▓ F@vEЯ∙E&AМб&dno@MuсМnАnсZх&C. eлaeйХ" & Format$(Now, "dd .mm.y hАh:mm:ssеLЖEditRebuildc E└ЮаYБZЁ─╘    ╦╕F┘  #И╢              ME          ▀                                                                                                                                          └`Д           /P`Д           ol`Д            ta`Д"           ge`Д$          tm &                                Д    @  x                    x                                                  БВГДЕ■   ■   ■   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x  ME          ▀                                                                                                                                   (SL    S    SФ    <      N0{801A2004-A66C-11D3-A8BD-0000861EBBD6}    8А■       (          %    H                                                                                            ▀■╩        x    ╗░Attribute VB_Name = "ThisLibraryИ" ИBasИ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |Global╬SpaВcТFalse dCreatablPredeclaId░TruБ BExposeTemplate`DerivТBu└stomizD2╥▄цЁ╚b