аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ ЃишчœЩapcџџџџџџџџзшчœЩ ЃишчœЩThe VBA Project џџџџџџџџзшчœЩ ЃишчœЩ_VBA_Projectџџџџџџџџ зшчœЩ ЃишчœЩџџџџџџџџ§џџџўџџџ ўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA Project Data"џџџџкHost Project Items&џџџџџџџџџџџџ Host Project Item Names0џџџџџџџџ|ишчœЩ|ишчœЩVBA Project Signature,џџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}И(ТPC:\Users\coheer\Desktop\Match Origin.ivbЬD  іID="{8D3973EC-FFDB-4C15-AEB4-E47767C23A3F}" Module=Module1 Name="Match_Origin" HelpContextID="0" VersionCompatible32="393222Project_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџ VBAџџџџџџџџ |ишчœЩ ЃишчœЩPROJECTwmџџџџџџџџџџџџ PROJECT џџџџdModule1џџџџŸ_VBA_PROJECTџџџџџџџџџџџџЯ dirџџџџџџџџџџџџ.000" CMG="D9DBFE0602060206020602" DPB="5F5D7802780EFF0FFF0FFF" GC="E5E7C288CE0FCF0FCFF0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=23, 23, 1392, 725, Z Module1Module16@,*Б€0* pH‚dф Match_Or igin<Њ@ = v ЅG7DK%Ž<Vrstdole>stdole h%^*\G{00020430v-C 0046}#2.0#0#C:\Windows\Sy€sWOW64\e2.tlb#OLE AutomaАtion0‚t‚BЛ€ Module01GLdЂuN1 2ЂH‚1‚€`z‚ ,Q‚4ьƒ!‚+‚‚Ьamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\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 2010\bin\bin32\RxInventor.tlb#Autodesk Inventor Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation ZџџџџџџџџЅG7K%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџBЛModule10j4b374766џџModule1џџьƒzџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ–~H9†изIЊ{юП3^џџџџџџџџ`€-.џ+Inventor„5VBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` UserProject1e‘Module1b €џџџ_EvaluateйAlignOccurrencesŸ assemblydoc“‰€џAssemblyDocumentБ€џThisApplicationЂy€џActiveDocumentг\occurrenceListKШ CollectionщW„џentityŠѓ €џSelectSethт€џComponentOccurrenceм,AddїrCount0vMsgBox—RbaseOccurrenceБZItemзzBaseXY l €џWorkPlanejKBaseYZ kBaseXZl GetPlanes–Ъ „џconstraintsˆс€џAssemblyConstraintsЃў€џComponentDefinitionLi`thisOccurrenceІe€џTransformationю† occPlaneXYї^ occPlaneYZ^ occPlaneXZќ^€џAddFlushConstraint- Occurrencer €џDefinition.7 €џWorkPlanesP€џCreateGeometryProxy{ Match_OriginВџџ<џџџџџџZџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ №диџџџџ(tBЛьƒџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџ"<џџ( <џџ6<џџ@<џџ<џџ<џџџџџџџџџџИ аџџџџџџџџџџџџџџџџџџџџџџџџџџџџ;„ „џџџџџџџџX% Є џџџџџџџџxџџџџ%`„$џџџџџџџџ џџ „0џџџџџџџџАHBD% „4џџџџџџџџа % „8џџџџџџџџ№ % „:џџџџџџџџassu % „>џџџџџџџџ0renc%`„Dџџџџџџџџџџll c „Fџџџџџџџџhther% „Jџџџџџџџџˆstra % „LџџџџџџџџЈould % „NџџџџџџџџШ % <џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„)ƒRџџџџџџџџ08„%)ƒ4џџџџџџџџX`‚ %)ƒ8џџџџџџџџ€ˆ‚ %)ƒ:џџџџџџџџЈџџџџ‚ %џџџџHџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪJ"€€ џџџџ€ . €P€X` x ˆ˜ € џџџџЈ4И№ј€ џџџџ€ 8€ 88€ 8p€ Ј€ џџџџ€ FШ€€0€8€@H€ џџџџ€`h€ џџџџ€ ,€€АИ€аи€ џџџџ€ <№€ >0€ p€ џџџџ€ * €а€и€рш€ џџџџ€ "(@Xpx€ џџџџ€ џџџџ" €€ Hˆ€ Lа€ 2 Xx˜€ џџџџ€ HИ€ 00H`x€ џџџџџџџџˆ–]ђ@э !.р' Get the occurrences in the select set.]ђ`]ђ€џ $ў !&“ $œx $ B@*kџџ`џЧX !,Ќ œЖ*At least two occurrences must be selected.A@.|џџkџџр2 This assumes the first selected occurrence is theр2 "base" and will constrain to it. If there aren'tр2 any other constraints then the other parts shouldр move to its position.р? Get the planes from the base part and create proxies for them.]ђ˜эЌ %2.0]ђИ]ђи]ђј 0 4 8 :A<]ђэ !B!>.>р& Iterate through the other occurrences]ђ8џ DўЌ !,’]ђPэ D %2.Fр6 Move it to the base occurrence so that if the base isр7 not fully constrained it shouldn't move when the flushр constraints are added. 0!H F(Hр# Get the planes from the occurrence]ђp]ђ]ђА F J L NA<р Add the flush constraints. 4 JЌ >BP 8 LЌ >BP : NЌ >BPџЧˆoџџ€–арB Get the work planes from the definition fo the occurrence. TheseрE will be in the context of the part or subassembly, not the top-levelр+ assembly, which is what we need to return.эЌ R!T!V%2.4эЌ R!T!V%2.8эЌ R!T!V%2.:рA Creat proxies for these planes. This will act as the work planeр* in the context of the top-level assembly. 4 4 RBX 8 8 RBX : : RBXoџџ€џџџџxџџџџ!ЕAttribute VB_Name = "Module1" Public Sub AlignOccurrenc€es() Dim assemblydoc AsDocumentPSet P= ThisAppaation€.Active 5;' G=the„ o in select s8et.-’'List•New Cre a@Ÿ'E„?'@ y or‡ t‚C†ƒparshouldE@move tsр posiТŸ…Eœplanes Аfrom5С* С!Т+crea@ЯprИoxiA €Р#mHЂчС ˆРЧCoN…Ш Œ =HMAВ.Ite(m(1пBРNXYССЏWorkPA+CSСYZX‘CNa€0р‚ s(K,І #уYZфZD/gІ8 /Ј‚C…;ts7cЁi=*m†%Dexfin5ЈCЃ' €#rС1throјughт5ƒ@'dЄЁ#i#IntegeіrCС~i`  g)c"/яЂjУсat ˜;тЄяA!Lѓ;i„)'x' MСVРp W L 3Љjso at lif"ТiфA ' not ful†QЉ_ŒZKQє‡(w€V Ѕн(dіI fq8e˜9AlThese#'^ RnpvŒt@} Юos;Тe€dsuР2Ѓ”,’;!top-l0evelЕХ—, ˜whi‹ uwh@@`we neР=АBrрeturnЄ#AHc!Џа8˜8јUіsуf3ыЅ =x.Џs›jнVZ_T]]2T…ЪCЁv œvse„"ыБ„a№ a3ˆЗuOzжgє"2xbeGeometryњP€yf6st Ё‚їё4YХ@’Йwј3