аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџа€ПБhrХ!€;apcџџџџџџџџ лЖWrХа€ПБhrХThe VBA Project џџџџџџџџ лЖWrХа€ПБhrХ_VBA_Projectџџџџџџџџ лЖWrХа€ПБhrХ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"'$#)%^џџџџўџџџўџџџ(+,-./01lQ456789:;<=>?@ABCDPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџRYџџџџџџџџџџџџџџџџџџџџџџџџp[h]ўџџџ_fџџџџџџџџџџџџџџџџџџџџџџџџ*2i\џџџџџџџџmngџџџџqZџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџА,ˆЊЙtХ@;apcџџџџџџџџ лЖWrХА,ˆЊЙtХThe VBA Project џџџџџџџџ лЖWrХА,ˆЊЙtХ_VBA_Projectџџџџџџџџ лЖWrХА,ˆЊЙtХџџџџџџџџ§џџџ  kўџџџўџџџ XN&џџџџџџџџџџџџџџџџџџџџџџџџџџџџEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFGHIJKLMўџџџOSџџџџџџџџџџџџcUeWўџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџabdTjџџџџџџџџџџџџџџџџVoџџџџџџџџџџџџrџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA Project Data"џџџџHost Project Items&џџџџџџџџ Host Project Item Names0џџџџ лЖWrХАЛ…ЊЙtХVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./01234ўџџџ6789:ўџџџ<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnpqrsЏuvwxyz{|}~€ЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}ИEТŠE:\IV9 Daten\Konstruktionen\Aigner\iFeaturedaten in idw\Pick Test.ivbЬl19ID="{5736DF74-1084-45FB-B935-FD4BEE46B219}" Module=Modul1 ClasProject_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџ лЖWrХ лЖWrХPROJECTwmџџџџџџџџџџџџ/PROJECT џџџџƒModul1џџџџ—аclsPickџџџџџџџџџџџџ‚#_VBA_PROJECTџџџџџџџџџџџџ;†s=clsPick Name="Pick_Test" HelpContextID="0" VersionCompatible32="393222000" CMG="3133D818DC18DC18DC18DC" DPB="62608B78BD79BD79BD" GC="93917A4BAA4CAA4C55" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=110, 110, 826, 358, clsPick=0, 0, 716, 248, Z 6, 248, Z Modul1Modul1clsPickclsPickt6@,rU€€€€~~~~~~s џџџџџџџџџџџџ   yё Йб Й!( Й‰8Button ShiftKeys ModelPosition ЙёH ViewPosition ЙXViewHhViewDmџ фњ*\G{000204EF-0‚ƒ„…†‡ˆ‰ŠЋŒЩŽЈ‘’“”•–ўџџџ˜™š›œžŸ ЁЂЃЄЅІЇЉЫЊЌўџџџ­ЎЦАБВГДЕЖЗИЙКЛМНОПРСТУФХЧШўџџџфЪўџџџЬЭЮЯабвгдежзийклмнопрстушхцчщўџџџъыьўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџџџџџџџџџo&__SRP_0 џџџџџџџџ1__SRP_1џџџџ‚џџџџџџџџџџџџdirџџџџџџџџџџџџ5X__SRP_4џџџџџџџџџџџџr__SRP_5џџџџ‹ш__SRP_3џџџџtТV ШV}xЗp:N™DjЖЦНХЅaИVBE6.DLL Й џџџџV Ш Left Mouse  X=   Y=   Z=  Right Mouse Middle Mouse Й џџџџS шddle MouseџџџџџџџџџџџџџџџTБ€0* pH‚dф Pick_TesDt0@Е = p  D J J< rs@tdole>stdol@e f%\*\G{000Р20430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Aut€omation^Er‚_ ‚LModul1G‚LM€JduQ€L1ˆ2Ž)H‚1‚|,‚ ,‚1O*J!‚+‚ˆclsЏG c5sPiиck92:D8 :бŸ"‚7( ‚ƒ=‚Тnventor„5 VBAїтWin16С~Win3Ь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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation †џџџџџџ D џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_  Modul107441bfc8fџџ Modul1џџO*џџџџџџclsPick08441bfc8fџџБclsPickџџбŸ8 џџ8XџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџФіazNjkGМvЫМ*E џџџџ:Дˆ‚НУУNŒ-ЬK`ъ$џџџџџџџџHџџџџƒ9цА’З%џџџџџџџџ€Yaџ`2 €џAs€џcall=€џDim†€џNothing’€џprivateЄ€џSetС €џwithevents Inventor„5 VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“`Benutzerprojekt2~ Modul1Э €џџџ_Evaluateй Ќ(TestSelectiongГoSelecte clsSelect­ЃoFaceЌэ€џFaceФPickˆЇ€џkPartFaceFilter оMsgBox—R €џEvaluatorсE€џAreaЋBKlasse1ЊAoInteractEventsAh€џInteractionEvents˜г oSelectEventsЅы €џSelectEventsц7bStillSelecting#ŠfilterД;€џSelectionFilterEnum‰…ClassЛ€џThisApplicationЂy€џCommandManagerџ€€џCreateInteractionEventsпЋ€џInteractionDisabledЎk€џAddSelectionFilterUM€џStartО oSelectedEnts1Љ€џObjectsEnumeratorWУ€џSelectedEntitiesjCount0vItemзzoInteractEvents_OnTerminate˜QoSelectEvents_OnSelectЅњJustSelectedEntities5ASelectionDeviceаы€џSelectionDeviceEnumˆд ModelPosition€€џPointєž ViewPosition85€џPoint2ddr„џViewаI oMouseEvents&Ÿ €џMouseEvents8oMousetEvents_OnSelectлoMouse_OnMouseClickжYButtonкц€џMouseButtonEnum… ShiftKeysяЈ€џShiftStateEnumгOoButton$oKey№ьLabel4,€џCaptionxoMouseEvents_OnMouseClick " €џOnTerminateT4 €џOnMouseClick8 €џџџ_B_var_set Pick_TestNE oPickPointчСpktAФ €џGetPointDataїЏ€џџџ_B_var_ModelPosition]я €џџџ_B_var_pktR€џXo modelpositiom€џџџ_B_var_modelpositiom\я modelpositioу rU€€€€~| €џYl€џZq €џџџ_B_var_PointсbPickPktў oPickpoint2De#€џџџ_B_var_GetPointDataSщ €џPutPointData_i€џџџ_B_var_PutPointData<ВoPickPoint2D_X VoPickPoint2D_Y V€џџџ_B_var_oPickPoint2DBl clsPick”џoPick$бџџH†џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБџџџџџџџџџџџџџџ $€$дрџџџџЁ]_ O*џџЖџџ№$дрџџџџŽ_ O*џџЖџџLфPАж2 _ бŸџџ€ЖџџџџџџџџTџџЉЁЂЦvЖLŽ№ЂђИ’ў*=ћќњ hЇ8+3qЕVЊтJ9сIМѕ3}„Ік<џџџџџџџџџџџџxVЊтJ9сIМѕ3}„Ік<ЉЁЂЦvЖLŽ№ЂђИ’ўџџMEџџџџџџџџџџпџџ0џџџџџџџџџџ џџџџџџџџP,$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SџџџџS џџџџS”џџџџ`џџ.џџ21 >"џџџџ1џџ1џџ1(1џџ`џџh?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnpqrsЏuvwxyz{|}~€ЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}ИEТŠE:\IV9 Daten\Konstruktionen\Aigner\iFeaturedaten in idw\Pick Test.ivbЬl19ID="{5736DF74-1084-45FB-B935-FD4BEE46B219}" Module=Modul1 ClasProject_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџ лЖWrХ лЖWrХPROJECTwmџџџџџџџџџџџџ/PROJECT џџџџ…Modul1џџџџ—clsPickџџџџџџџџџџџџ3$_VBA_PROJECTџџџџџџџџџџџџ;†s=clsPick Name="Pick_Test" HelpContextID="0" VersionCompatible32="393222000" CMG="D0D239BF3DBF3DBF3DBF3D" DPB="2527CC45749B759B759B" GC="7A789334E935E93516" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Modul1=110, 110, 826, 358, clsPick=0, 0, 716, 248, Z 6, 248, Z Modul1Modul1clsPickclsPickt6@,rU€€€€~~~~~~~q џџџџџџџџџџџџ   бI й) йy( йЩ8 й1HButton ShiftKeys ModelPosition й™X ViewPosition йСhViewDmџ фњ*\G{000204EF-0џџШ€ „`џџџџtџџџа€ %% „d˜ pџџџ№ €и %% „`џџџџtџџџр €џџџџ „dh pџџџ0 €џџџџ% „\џџџџxџџџ8 € „`џџџџtџџџ@ €џџџџP%% „d8 pџџџ €џџџџ%Р  % „dи pџџџА €€РX@џџџџџџџџџџџџ€џџџџ8џџ„€Рџџџџј џџџџ€€ „\џџџџxџџџ €џџџџ` f8 „`џџџџtџџџ €pHџџџџџџџџP„€ %%% „\џџџџxџ‚ƒ„…†‡ˆ‰ŠЋŒЩŽЈ‘’“”•–ўџџџ˜™š›œžŸ ЁЂЃЄЅІЇЉЫЊЌўџџџ­ЎЦАБВГДЕЖЗИЙКЛМНОПРСТУФХЧШўџџџфЪўџџџЬЭЮЯабвгдежзийклмнопрстушхцчщўџџџъыьэўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџџџџџџџџџo&__SRP_0 џџџџџџџџ1__SRP_1џџџџ‚џџџџџџџџџџџџdirџџџџџџџџџџџџ5X__SRP_4џџџџџџџџџџџџr__SRP_5џџџџ‹ш__SRP_3џџџџtТq+Јўѓ!ї-ЕGœL3Л(щ}xЗp:N™DjЖЦНХЅaИVBE6.DLL Й џџџџV Ш Left Mouse  X=   Y=   Z=  Right Mouse Middle Mouse Й џџџџS шddle MouseџџџџџџџџџџџџџџџTБ€0* pH‚dф Pick_TesDt0@Е = p  D J J< rs@tdole>stdol@e f%\*\G{000Р20430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Aut€omation^Er‚_ ‚LModul1G‚LM€JduQ€L1ˆ2Ž)H‚1‚|D,‚ ,‚1O*J!‚+‚ˆclsЏG c5sPiиck92:DБ :бŸ"‚7( ‚ƒ=‚Тnventor„5 VBAїтWin16С~Win3Ь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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation †џџџџџџ D џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_  Modul12G441819bcџџ Modul1џџO*џџџџ8DџџclsPick2H441819bcџџБclsPickџџбŸБ џџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџ cкЉcGjџџџџ:Дˆ‚НУУNŒ-ЬK`ъ$џџџџџџџџHРќй6еJƒ9цА’З%џџџџџџџџ€Yaџ`2 €џAs€џcall=€џDim†€џNothing’€џprivateЄ€џSetС €џwithevents Inventor„5 VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“`Benutzerprojekt2~ Modul1Э €џџџ_Evaluateй Ќ(TestSelectiongГoSelecte clsSelect­ЃoFaceЌэ€џFaceФPickˆЇ€џkPartFaceFilter оMsgBox—R €џEvaluatorсE€џAreaЋBKlasse1ЊAoInteractEventsAh€џInteractionEvents˜г oSelectEventsЅы €џSelectEventsц7bStillSelecting#ŠfilterД;€џSelectionFilterEnum‰…ClassЛ€џThisApplicationЂy€џCommandManagerџ€€џCreateInteractionEventsпЋ€џInteractionDisabledЎk€џAddSelectionFilterUM€џStartО oSelectedEnts1Љ€џObjectsEnumeratorWУ€џSelectedEntitiesjCount0vItemзzoInteractEvents_OnTerminate˜QoSelectEvents_OnSelectЅњJustSelectedEntities5ASelectionDeviceаы€џSelectionDeviceEnumˆд ModelPosition€€џPointєž ViewPosition85€џPoint2ddr„џViewаI oMouseEvents&Ÿ €џMouseEvents8oMousetEvents_OnSelectлoMouse_OnMouseClickжYButtonкц€џMouseButtonEnum… ShiftKeysяЈ€џShiftStateEnumгOoButton$oKey№ьLabel4,€џCaptionxoMouseEvents_OnMouseClick " €џOnTerminateT4 €џOnMouseClick8 €џџџ_B_var_set Pick_TestNE oPickPointчСpktAФ €џGetPointDataїЏ€џџџ_B_var_ModelPosition]я €џџџ_B_var_pktR€џXo modelpositiom€џџџ_B_var_modelpositiom\я modelpositioу rU€€€€~| €џYl€џZq €џџџ_B_var_PointсbPickPktў oPickpoint2De#€џџџ_B_var_GetPointDataSщ €џPutPointData_i€џџџ_B_var_PutPointData<ВoPickPoint2D_X VoPickPoint2D_Y V€џџџ_B_var_oPickPoint2DBl clsPick”џoPick$бџџH†џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџБџџџџџџџџџџџџџџ $€$дрџџџџЁ]_ O*џџЖџџ№$дрџџџџŽ>_ O*џџЖџџLфPй Ћ _ бŸџџ€Жџџџџџџџџ\џџЁњ7‡уFЉ’ehФаŸ+*=ћќњ hЇ8+3qЕ€ѓk§єCІфядƒџџџџџџџџџџџџx€ѓk§єCІфядƒЁњ7‡уFЉ’ehФаŸ+џџMEџџџџџџџџџџпџџTџџџџџџџџџџ џџџџџџџџP,$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SџџџџS џџџџS”џџџџ`џџ.`џџ21 >"џџџџ1џџ9џџ1(1џџ`џџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0 ^ the event objects P€'€+ WithE s oI€nteract„ˆAs …ion €Œ.ЪVarH elpIDv-1ё“2SelA‡1‰ /ƒ %.MouseЧˆŠШQ.bStillC"ing РDBoolean#ЧŸPktСPo int APublic Fun”ct€O A ()  = TruI@™ A' ˜eX anOb„r.ƒ SeРvЬohisAppР!aС .CommandManрager.CаxџB‰`€tM|‰Ш!HW HСI:Start?ТЉŽ# :NчLo op un€6 a s"M/is made„%Do Wh R#‚5eФ_= ЧO+3цEndUAg[Sub oЈ_OnЂC`Jk(ByVal ButHton![In!‰o r.bуEnum, #ShiftpKeysŠЂ@teiModelPјosiЂgb‘„ ‚lE ViewЗ2dщ[Њ) '('c+ .CЦУТ #1: MsgBox @"Left Ђ"Р & " X аЉŠ.XBYQYB*ZQZI2GRi\gh~4gMјiddрca Ы#яaџџШ €Ш „\џџџџxџџџ € џџ „`џџџџtџџџ € џџ „dАpџџџј € џџ „`џџџџtџџџа € %% „d˜pџџџ8€`% „\џџџџxџџџ € „`џџџџtџџџ€ „d@pџџџˆ€ џџ%%џџџџ@ „\џџџџxџџџ€џџџџ€hџџ џџ% „\џџџџxџџџИ €H „`џџџџtџџџј €0 „dиpџџџp € „\џџџџxџџџ€ €џџџџ@џџџџ8џџџџ@ „d pџџџ( €џџџџˆ „`џџџџtџџџ€Шџџ џџ „d pџџџа€ џџџџџџ 4џџџџP „\џџџџxџџџ  €% „`џџџџtџџџˆ €˜ „d pџџџ€@ „\џџџџxџџџ€€h „`џџџџtџџџˆ€џџџџhџџџџ „d pџџџx€џџџџ%џџџџџџџџ€PџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџЈџџџџџџџџџџџџџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџА8 „`џџџџtџџџш€=AS „dаpџџџ`€Com%џџџџјlџџџџџ  \џџџ џџ ј@Xџџџџџ џџ@ўџTџџџџџ џџ@ўџPџџџџџ џџ@ўџ@џџџ џџ џџX@<џџџџџ џџ@ўџ8џџџџџ џџ@ўџ4џџџџџ џџ@ўџ$џџџ џџ џџH( џџџџџ џџ@ўџџџџџџ џџџџџџ4ўџџџџџџџџџџР џџџ џџ CёЃ@ўџќўџџ џџ џџьўџџ џџ џџ@ўџмўџџ џџ џџ0Ьўџџ џџ џџ@ўџМўџџ џџ џџџџџџ0Ќўџџ џџ џџџџџџџџџџЌўџџ џџ џџџџАИџџџџШ8џџџџ@џџџџиџџџџџџџџџџџџ№X<џџџџџџџџџџџџџџџџџџџџџџ ` D *\R1*#218*\R1*#16b$*\Rffff*08441bfc8f*\R1*#114*\R1*#10c*\R1*#5b*\R1*#5a*\R1*#2bf*\R1*#10c*\R0*#14*\R1*#2c0*\R1*#219*\R1*#216*\R1*#164*\R1*#61c*\R1*#61dпџџџџ<иD8LўЪ0€ € 8€ А€ џџџџ€p€h€ џџџџ€ џџџџB€ x€ џџџџ€ *ˆRИ0`€ џџџџ€ *а € џџџџ€ & 8@H€ џџџџ€ *P €€ џџџџ Ј€ џџџџ€  PЈ€ џџџџ€ џџџџ" H€ џџџџ€ € t€ v€ vш€ € џџџџ ˆ€ џџџџ XР€ џџџџ€ џџџџџџџџарSelect Case Buttonрn Case 1: MsgBox "Left Mouse" & " X= " & ModelPosition.X & " Y= " & ModelPosition.Y & " Z= " & ModelPosition.Zџџрo Case 2: MsgBox "Right Mouse" & " X= " & ModelPosition.X & " Y= " & ModelPosition.Y & " Z= " & ModelPosition.Zonр End Selectр Declare the event objects]@ђФ8\–@эА.fЗ'4э ,!h.f ]@ђШЗ'4–Ир$ Create an InteractionEvents object.Ы5Ь5э <!>!@.,Ы5XЫ5р$ Start the InteractionEvents object.Ь5KђЫ5 ,B@Fž–Ы5р Loop until a selection is made.Ы5 4bA@„Йџџxр# Stop the InteractionEvents object.NT\ ,B@Xm32р Clean up.эА.,iџџ8]@ђФиWbeoџџxџџџџ№џџџџџџџџјџџџџрp Case 4: MsgBox "Middle Mouse" & " X= " & ModelPosition.X & " Y= " & ModelPosition.Y & " Z= " & ModelPosition.ZMoџџџџа]@ђџџџџџџџџиџџџџ0э \. Уаћ!џџџџИџџџџРэ  . RA~џџџџџџџџшџџџџ џџџџFГAttribute VB_Name = "cls€Pick" №Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Glob„alЦSpac’ False dCr@eatablP€redecla IdЌCExposeTemplateDeriv%Customi"z E' D> the event objects P€'€+ WithE s oI€nteract„ˆAs …ion €Œ.ЪVarH elpIDv-1С“2Mouse1 .ˆ ‘,ЧbSti llSel6ing €-BooleŒanЧAˆPktС€Point APublic FPunct@8 A () = T$ru‚ A' aТ€e anKD[.9ƒ Se€_ŒXhiPsAppР!aС .CommandM€anager.CџaBШI]ЭdHA<Сƒ,Start…‹,MЧLoop un€_ a s`on is made„=Do WџЩCтЈ+Ј!%a €' StartтTЮ NчLoop un€6 a s‚Љ`W @tmade„%Do WhiЯ€xЬ/CDocH#џ #ЃСР nПIjр.Stop…A%B/@$С HЧC!L u†pЉ;l1Noth RЯ#Т.eФ_= O+3=цE ЁUg[Suˆb oЈ_OnЂC`Jk(ByVal Button‰![In!‰or.bуEnum, #ShiftKeyNsŠЂ@teiModelPosiСГъ‚lE ViewЙЗ2dщЊ) 's(C+ CСьЃЁ 1: MsgBox "Left b" & " NX€іJ.XBYUQYBZQZ2ЁRigh/&@Зи/†./е.)Т4'MiddА1oЩo" oon?чП2с&#B…01T=› O1_RД‡‚ub#+€Kto be copџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџЈ"џџА<џџ)џџ<џџ<џџ<џџ<џџџџџџ^АИ џџџџ`џџџџџџџџШPџkџџџџџџџџџџ „ ЄВџџџџxџџџXEins%џџџџџџџџƒџџџџџџ˜џџџџџџџџџџџџџџ% „ˆџџџџtџџџИџџџџ %џџџџИџџџџџџџџџџџџџџџџ@џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ўџџџџџpџџџ џџ @џџџџџџџџ€џџџџˆ@ўџШ`џџџ џџ џџџџрџџџџpџџџџИ@ўџџџџџPџџџ џџ џџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџDбљџџџџџџџџџџџџџџџџџџџџџџџџџџџџА0@ўџ№ўџџ џџ Јрўџџ џџ џџџџшџџџџ џџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` D $*\Rffff*07441bfc8f$*\Rffff*08441bfc8f*\RAiџџџџџџџџџџџџџџџџџџџџH!Ё$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧ#œxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў єŽ4а40xpџxџtџHXџTџPџ<џ8џ4џ џџ\џ@џ$џ џьўЬўЌў D 81*#10cп L P ўЪ "€ џџџџ€ &€0џџсљaЉСA‰nџџџџ˜ џџџџџџƒV`ЙџџџџџџџџџџџџџџџџџџџџL!ЁIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‡ЧEyЩ§1hџ- єџŽ4R$ahџ §ѓdџdџaTџ-§ѓPџPџa@џ 3§ѓ[<џ ,)dџPџ<џ6hџTџ@џ0dџ $dџahџT§ѓ[Pџ Ž4Cа@0xpџxџtџHXџTџPџ<џ8џ4џ џџ\џ@џ$џ џьўЬўЌў H @ P T  <џ8џ4џ џџ\џ@џ$џ џьўЬўЌў € џџџџ€H€ џџџџX8€ џџџџџџџџИ–р Create a new clsSelect object.n]ђ@oџџˆџџџџИ]ђ џџџџ(яџџ`џџџџXџџџџpџџџџxџџџџ€џџџџˆџџџџˆэ В! .ˆџџH @ P T WаџџЈџџџџиџџџџџџџџААAttribute VB_Name = "Modul1" Public Sub TestSelection() ' Crea|a n@ew clsH (objV.JDim oPick №As NNŠ Point$In€ventor.БESetE%= .HStop EndЏYventor.БESetE%= N. Hd.ZЩ0`Stop E ndЧ8 L P  Щ\ pџxџ$ QpџtџќТ ,xџtџpџkpџkxџ$pџ`џ@џ џџрўkџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@@rU€€€ џџџџџџџџ$`§џџџџџџџџџџџn` џџџџџџџџсљ9ЩaЉnaa‰џџџџџџџџџџбљ!џџџџЉ@<IaqџџџџџџџџџџџџџџџџџџџџџџА0@ўџ№ўџџ џџ Јрўџџ џџ џџџџшџџџџ џџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` D $*\Rffff*2G441819bc$*\Rffff*2H441819bc*\RAiџџџџџџџџџџџџџџџџџџџџH!Ё$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧ#œxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў єŽ4а40xpџxџtџHXџTџPџ<џ8џ4џ џџ\џ@џ$џ џьўЬўЌў D 81*#10cп L P ўЪ "€ џџџџ€ &€0џџ9ЩсaЉnџџџџ˜ џџџџџџџџџџџџџџџџџџџџD)QџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLyЁЁџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTЩСёџџџџџџџџџџџџƒV`qџџџџџџџџџџџџџџџџџџџџ  ?EyЩ§1Ž4Cа@0xpџxџtџHXџTџPџ<џ8џ4џ џџ\џ@џ$џ џьўЬўЌў H @ P T  <џ8џ4џ џџ\џ@џ$џ џьўЬўЌў € џџџџ€H€ џџџџ Ј€ џџџџX8€ џџџџРШ–р Create a new clsSelect object.n]ђ@oџџˆџџџџИ]ђ џџџџ(яџџ`џџџџXџџџџpџџџџxџџџџ€џџџџˆџџH @ P T Wаџџˆэ В! .ˆџџџџЈЌ ˆ(œџџџџиџџџџџџџџМАAttribute VB_Name = "Modul1" Public Sub TestSelection() ' Crea|a n@ew clsH (objV.JDim oPick №As NNŠ Point$In€ventor.БESetE%= N. Hd.ZЩ0`Stop E ndЧ8 L P “K*mџџџџrU€€€€~~~~~~~~~~_ ёЪ8>qdEEЇ{§.пŒ  фџџџџA ‰џџџџ`џџџџaџџЙA  џџџџYџџЩй Modul1 clsSelect Pick_TestclsPickяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA )џџџџ QЙ0 Šй:>LГnaі hдˆ 3C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlbInventor !џџџџIЙ@0РFC:\WINNT\System32\stdole2.tlbstdole  1џџџџYЁP TestSelection +=ћќњ hЇ8+3qЕЁњ7‡уFЉ’ehФаŸ+*=ћќњ hЇ8+3qЕ€ѓk§єCІфядƒ!=ћќњ hџџџџџџџџџџџџџџџџџџџџџџ@@БйџџџџџџџџџџџџџџџџџџџџH‘ЁЙџџџџџџџџџџџџ‚T`qџџџџџџџџџџџџџџџџPсС џџџџџџџџџџџџƒV`Бџџџџџџџџџџџџџџџџџџџџ  ?ПEyЩ§1Ещ Tџ. єџŽ4R$a\џ §ѓXџXџaHџ-§ѓDџDџa4џ 3§ѓ[0џ 0)XџDџ0џ6\џHџ4џ0Xџ (Xџa\џT§ѓ[Dџ <)XџDџ5\џ0Xџ (Xџa\џT§ѓ[Dџ H)XџDџ5\џXџ (Xџў TXџ ‰4ђ лXџ (Xџў TXџќc=[Xџ <Xџќc=[Xџ 0Xџќc=[Xџ HXџџ/ LT(lџ$XџDџ0џ\џHџ4џ@ єŽ4$ 8шlќјxџlќјtџlќјpџЙl qlџllџѕЧ[+'ьў' џ',џѕ:\џ NLџLџ 6Lџ,џ џьўаllџѕЧ—+'ьў' џ',џѕ:\џ NLџLџ 6Lџ,џ џьўаllџѕЧа+'ьў' џ',џѕ:\џ NLџLџ 6Lџ,џ џьў lxџќјшў єŽ4”ш4pџxџшўtџLџ,џ џьўD 8 L HPrU€€€ џџџџџџџџX,q`џџџџџџџџџџџџџџ=СLБ` џџџџџџrU€€€ xЉй 1YЩсyЁЩџџџџQ@<ёaIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPqС™џџџџџџџџџџџџƒV`qџџџџџџџџџџџџџџџџџџџџ  ?EyЩ§1Еща€џ. єџŽ4R$a\џ §ѓXџXџaHџ-§ѓDџDџa4џ 3§ѓ[0џ ,)XџDџ0џ6\џHџ4џ0Xџ $Xџa\џT§ѓ[Dџ 8)XџDџ5\џ0Xџ $Xџa\џT§ѓ[Dџ D)XџDџ5\џXџ $Xџў TXџ ‰4ђ лXџ $Xџў TXџ+'рў'4џ'Hџѕ: џN\џ\џ 6\џHџ4џрўќc=[Xџ 8Xџќc=[Xџ ,Xџќc=[Xџ DXџџ/ œ€(lџ(XџDџ0џ\џHџ4џрўА4lќјxџlќјtџlќјpџl qlџllџѕЧЬœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧyœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џ8)dџPџ5hџdџ $dџў Tdџ ‰4Т Ћdџ $dџў Tdџ Š8ќјxџќc=[dџ ,dџќc=[dџ 8dџџ/ @(xџ$dџPџ<џhџTџ@џl0lќјxџlќјtџlќјpџ lxџ§ˆ8 єŽ4 00pџxџtџ H @ D"xџ$dџPџ<џhџTџ@џМ@lќјxџlќјtџlќјpџl qlџllџѕЧЬœxџa\Ї8+3qЕClassP№gv№Э›3+3o VBInternal ‰џџџџ џџџџБЈюЈ.pфJŒкуЛЋВ oSelectEventsђяРё5PнM€†g`$oInteractEventsNБ‹СяO‹GП4Fо›ќl oMouseEventsPickrёiЫŽUгЗ“`АёYяoMouseEvents_OnMouseClicksёiЫŽUгЗ“`АёYяЃšpСcвЗ‹`Аь  ((`8H@P@HPE 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œa‰џџџџ špСcвЗ‹`Аь ЉгˆœыУгЗž`АёYя?сбhЄі§GЊРUEЅ{:\џ NLџLџ 6Lџ,џ џьў lxџќјшў єŽ4”ш4pџxџшўtџLџ,џ џьўD 8 L HPrU€€€ џџџџџџџџ`,)`џџџџџџџџџџџџџџ=сLi` џџџџџџrU€€€ xЁ Бй ) !Q y й I ‰ Б й ‰  A ЕщЌ`џ- єџŽ4R$ahџ §ѓdџdџaTџ-§ѓPџPџa@џ 3§ѓ[<џ ,)dџPџ<џ6hџTџ@џ0dџ $dџahџT§ѓ[Pџ 8)dџPџ5hџ0dџ $dџahџT§ѓ[Pџ D)dџPџ5hџdџ $dџў Tdџ ‰4ђ лdџ $dџў Tdџ Š8ќјxџќc=[dџ 8dџќc=[dџ ,dџќc=[dџ Ddџџ/ @`(xџ$dџPџ<џhџTџ@џМ@lќјxџlќјtџlќјpџl qlџllџѕЧЬœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ  *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧyœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧ#œxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў lxџ§ˆ8 єџ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ  *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧyœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧ#œxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ *#<џ@џBќ#8џ*#4џ *# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў lxџ§ˆ8 є“K*mџџџџrU€€€€~~~~~~~~~c щўЂ‚^+8F“дByЗXp  фџџџџˆa 1џџџџ`џџџџ џџЙ€a AџџџџqБџџбЉЙ™Modul1clsPick Pick_TestяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\ !p4pџxџ$ Qpџtџєы§k`џ%tџ,5 ќТ™€x,4,xџtџpџkxџ$pџ`џ@џ џџрўkџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@@rU€€€ џџџџџџџџ$`§џџџџџџџџџџџn` џџџџџџџџсљ9ЩaЉnaa‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@@БйџџџџџџџџџџџџџџџџџџџџH‘ЁЙџџџџџџџџџџџџ‚T`qџџџџџџџџџџџџџџџџPсС џџџџџџџџџџџџƒV`Бџџџџџџџџџџџџџџџџџџџџ  ?ПEyЩ§1Ещ Tџ. єџŽ4R$a\џ §ѓXџXџaHџ-§ѓDџDџa4џ 3§ѓ[0џ 0)XџDџ0џ6\џHџ4џ0Xџ (Xџa\џT§ѓ[Dџ <)XџDџ5\џ0Xџ (Xџa\џT§ѓ[Dџ H)XџDџ5\џXџ (Xџў TXџ ‰4ђ лXџ (Xџў TXџќc=[Xџ <Xџќc=[Xџ 0Xџќc=[Xџ HXџџ/ LT(lџ$XџDџ0џ\џHџ4џ@ єŽ4$ 8шlќјxџlќјtџlќјpџЙl qlџllџѕЧ[+'ьў' џ',џѕ:\џ NLџLџ 6Lџ,џ џьўаllџѕЧ—+'ьў' џ',џѕ:\џ NLџLџ 6Lџ,џ џьўаllџѕЧа+'ьў' џ',џѕVBA\VBA6\VBE6.DLLVBA џџџџ 1™0 Šй:>LГnaі hдˆ 3C:\Programme\Autodesk\Inventor 9\Bin\RxInventor.tlbInventor џџџџ)™@0РFC:\WINNT\System32\stdole2.tlbstdole џџџџ9P TestSelection +=ћќњ hЇ8+3qЕЉЁЂЦvЖLŽ№ЂђИ’ў*=ћќњ hЇ8+3qЕVЊтJ9сIМѕ3}„Ік<!=ћќњ hЇ8+3qЕClassIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPqС™џџџџџџџџџџџџƒV`qџџџџџџџџџџџџџџџџџџџџ  ?EyЩ§1Еща€џ. єџŽ4R$a\џ §ѓXџXџaHџ-§ѓDџDџa4џ 3§ѓ[0џ ,)XџDџ0џ6\џHџ4џ0Xџ $Xџa\џT§ѓ[Dџ 8)XџDџ5\џ0Xџ $Xџa\џT§ѓ[Dџ D)XџDџ5\џXџ $Xџў TXџ ‰4ђ лXџ $Xџў TXџ+'рў'4џ'Hџѕ: џN\џ\џ 6\џHџ4џрўќc=[Xџ 8Xџќc=[Xџ ,Xџќc=[Xџ DXџџ/ œ€(lџ(XџDџ0џ\џHџ4џрўА4lќјxџlќјtџlќјpџl qlџllџѕЧЬœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џ$џBќ#џ*F џ 2XџTџPџ<џ8џ4џ џџ6\џ@џ$џ џьўЬўЌў#llџѕЧyœxџa\џ3 ќ‹xџa@џ4 ќ‹xџa$џ5 ќ‹'Ќў'Ьў'ьўѕ *#Xџ\џBќ#Tџ*#Pџ*#<џ@џBќ#8џ*#4џ*# џP№gv№Э›3+3o VBInternal 1џџџџ џџџџYЈNБ‹СяO‹GП4Fо›ќl oMouseEventsђяРё5PнM€†g`$oInteractEventsPickrёiЫŽUгЗ“`АёYяoMouseEvents_OnMouseClicksёiЫŽUгЗ“`АёYяЃšpСcвЗ‹`Аь  X8H@@HE 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œ‰Бџџџџ špСcвЗ‹`Аь ЉгˆœыУгЗž`АёYя?сбhЄі§GЊРUEЅ{q+xЗp:N™DjЖЦНХЅ‰ИVBE6.DLL Сџџџџ