╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Root Entry            ■                                       Root Entry        -7W`$├Аapc        `ж5W`$├-7W`$├The VBA Project         `ж5W`$├-7W`$├_VBA_Project         `ж5W`$├-7W`$├        ¤   ■    ■    ■                                                                                                                                                                                                                                                                                                                                                                                                                                               VBA Project Data"     Host Project Items&             Host Project Item Names0        `ж5W`$├`ж5W`$├VBA Project Signature,     ■   ■   ■    ■   ■   ■   ■   ■    !"#$%&'()*+,-./0123456789■   ;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde■                                                                                                           ═ЇРЪд&оL{D98A091D-3A0F-4C3E-B36E-61F62068D488}╕A┬ВC:\Documents and Settings\40664\Desktop\Workpointatmasscenter.ivb╠Z1ЮRID="{23201F29-0752-468B-B0AF-673D92069839}" Module=Module1 NamProject_Data_CurVer(          Host Project Item List Data8            VBA         `ж5W`$├-7W`$├PROJECTwm             PROJECT     hModule1    :╒ _VBA_PROJECT             dir            ;e="Workpointatmasscenter" HelpContextID="0" VersionCompatible32="393222000" CMG="D3D14166426A426A426A426A" DPB="D8DA4A6D4B6D4B6D" GC="DDDF4F74517852785287" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 29, 984, 401, Z Module1Module16@,7▒А0*Р pHВdфWorkpointatmassc@enter0T@  = +И Н а)@ J< 9stdole>stdole h%^*\G{0002043ь0-C 0046}#2.0#0#C:\WINDOWS\System32\STDOLE2.TLB# AutomationЛ0yВ ┴`А Module1G#LduN1* 2 HВ1ВАВ ,В46E!В+ВВ╠am   ф·*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Program Files\Autodesk\Inventor 7\Bin\RxInventor.tlb#Autodesk Inventor Object Library╝*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\STDOLE2.TLB#OLE Automation         Н )@                                                               ┴`Module10540290d70  Module1  6E                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   kumЮ─CеE╢╛╝ДМ        `А"# D)InventorД5VBAўтWin16┴~Win32Mac│▓VBA6н#Project1 stdoleУ` UserProject1eСModule1b А   _Evaluate┘WorkpointatmasscenterХ╕А ThisApplicationвyА ActiveDocumentType>╧А kPartDocumentObject!▐MsgBoxЧRoDocс╚ А PartDocument А ActiveDocument╙\ oCenterOfMass#_А PointЇЮА ComponentDefinitionLА MassPropertiesЦ√ А CenterOfMassгл oWorkPoint)Ш А WorkPointZ╟ А WorkPoints╤°Item╫zErroКNumberг- oFixedDefJ╦А FixedWorkPointDef<_ А Definition.7А Update╥№А AddFixedо  <                                         Ё╘░    √┴`6E  ╢                        x  ME          ▀                                                                                                                             (<  "<  (<  2<  >      ╚                                 $Д Д         X02% Д&        xol% Д0        Ш( S% Д<        ╕ doc %    8                                                                                            ▀■╩$"БА 4Б@Б*PБАБИА     А .РА└Б╚А     А ╪А°БА     А FА >`БаАиБ*░БрАЁБ°А     Б Б Б(А D0БxА     А ШБ╕Б╪БрА     А         ЁЦр. Check to make sure a part document is active.1D ! Ь╢A part document must be active.A@|  xk  pр( Set a reference to the active document.,]Є@э !$. Dр Get the Center of Mass.n]Є`э !*!,!..&р@ Check to see if a work point for center of mass already exists.р7 This uses the name of the work feature to identify it.╔X]ЄАэ╢Center Of Mass !*!4%6.0 8!:мЬ]Єаэ 0!@.< & <((as B@Bterd  ╨р> Create a new workpoint at the location of the center of mass.dtэ & !*!4%D.0igр Rename the work point.s╢Center Of Mass 0(alik   o          ╨▓Attribute VB_Name = "Module1" Public Sub Workpointatmasscenter() ' Check to make sure a part@ documZ is active.hIf Th isAppcatаion.AD1Type <> kPGObjedct9enFMsgBox "AБ rmust bКw╤-Exit╫Г!End If Г' Set_referenфceБkth#ЖhДc Dim oO A╝s ЙT&%В=Ьv-З>GА>7CВ▒ o8f MА╕Й6Г Of_Б ;╠И7К=ВN.@Compon)D`efiniВ╖БProperties.Й З#Жvseeи ifFw└В Гр for ├В┴)AЖ alreadyА existsД-'B? uses =┴6n┴Ъ@6┴ВfeLatAНАРid@)i fy itDOn ErrАRes┴У NextГ;_¤┴жPБ@┴B╚CC s.Item(╥"ГC O├_"─║Ан└".NumberА╦0@6╔вB$Fix№edZ$┬&▀AбЗ╞ └&Ж .└ DiыЗ Go .├=А oA┴БЮ.Upda─teCElsDБюА5└a new& !1у:at┬4lo■c"sБ;A5K=д3 "ж└"qNЖs.Aфddт(oЙф,ЗЁ' ReтEЖEbи·oЖ .ЕШ# Ж7Дф|с}АЪa\