аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ€”ш<^Щ(apcџџџџџџџџрѓюё0^Щ€”ш<^ЩThe VBA Project џџџџџџџџрѓюё0^Щ€”ш<^Щ_VBA_Projectџџџџџџџџ рѓюё0^Щ€”ш<^Щ&§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ) +*,P.Nўџџџ0123756S89:;ўџџџ=>?@ABCDEFGўџџџџџџџџџџџџџџџџџџџџџџџџџџџOVQR-TUўџџџW4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ“<У>^Щapcџџџџџџџџрѓюё0^Щ“<У>^ЩThe VBA Project џџџџџџџџрѓюё0^Щ“<У>^Щ_VBA_Projectџџџџџџџџ рѓюё0^Щ“<У>^Щџџџџџџџџ§џџџ  ўџџџ ўџџџQўџџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџNџџџџџџџџџџџџџџџџџџџџџџџџ56SџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOVџџџџR-TUўџџџW4џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVBA Project Data"џџџџдHost Project Items&џџџџџџџџ Host Project Item Names0џџџџрѓюё0^Щ“<У>^ЩVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ>?@ABCDEFGHIJKLўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkўџџџmnopqrstuvwxyz{=џџџџџџџџџџџџџџџџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}И%ТJd:\Eigene Dateien\Passungstabelle.ivbЬдƒID="{164CF429-85AC-438D-BE93-B844B0ABF381}" Module=Module1 Name="Passungstabelle" HelpContextID="0" VersionCompatible32="393Project_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџ VBAџџџџџџџџрѓюё0^Щрѓюё0^ЩPROJECTwmџџџџџџџџџџџџ PROJECT џџџџdModule1џџџџџџџџ _VBA_PROJECTџџџџџџџџџџџџJ__SRP_2џџџџџџџџџџџџlф222000" CMG="9F9D70E6B03A1E3E1E3E1E3E1E3E" DPB="090BE6FBE7FBE7FB" GC="73719C0A070B070BF8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=88, 88, 629, 633, Z , 0, C Module2=22, 22, 990,Module1Module16@1Module2Module2,@,Б€0* pH‚dфPassungstabelleQH@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_3џџџџjgdirџџџџџџџџџџџџ0џџџџџџџџџџџџўџџџJџџџџџџџџџџџџўџџџй__SRP_1 џџџџFџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџџџџџџџџџ t =­ | €Š†ЪJ J< 9stdole>stdoleP h%^*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Aut€omation0Ev‚ € Mod€ule1GLduN1 2Hе‚1‚€"~‚ Ђ,‚4ŸL!‚+‚‚a ™џџџџ`џџџџaџџбБс ModuleЬ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\Utilities\Autodesk\Inventor 2009\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation МџџџџџџџџŠ†ЪJџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Module10X4aca868aџџModule1џџŸL" џџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџNUyФёпNЕ0}Y`hг{џџџџџџџџЇшВs0ц‚џџџџџџџџH€†Œџ:D€џElseQ€џF_€џIfВ€џThenГ€џToInventor„5VBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` UserProject1e‘Module1b €џџџ_EvaluateйModule2c VBASample8loDocсШ€џDocumentjг€џThisApplicationЂy€џActiveDocumentг\ €џFullFileNamevMsgBox—REditDrawingDimensionsxвoDrawDocЮ€џDrawingDocument’oSheet6T€џSheet[ж €џActiveSheet%Ncounterћ oDrawingDimkё€џDrawingDimensionbБ€џDrawingDimensionsў8 €џFormattedTextт— oGeneralDimя­€џGeneralDimensionІN€џGeneralDimensionsиItemзz oDimStyle.‘€џDimensionStyle–€џStyleХp€џLinearPrecisionтК!€џkFourDecimalPlacesLinearPrecision4€џAngularPrecisionЫ2"€џkFourDecimalPlacesAngularPrecision№€џLeadingZeroDisplayќЁ €џTolerance{y€џSetToSymmetricхjCreateHoleTablesоч oActiveSheetд oDrawingView†M €џDrawingViewзЧ €џSelectSethт€џHasOriginIndicatorљя oDimIntentK€џGeometryIntentљ oPointIntentвв€џPoint2ddroCurveK‡ €џDrawingCurveE, €џDrawingCurves§. €џStartPoint№Œ €џCenterPointРŸ€џCreateGeometryIntentŽC€џCreateOriginIndicator6oPlacementPoint_ЩoBorderY3€џBorder™€џTransientGeometryК† €џCreatePoint2drŒ€џRangeBoxu!€џMinPoint]€џXo€џMaxPoint4€џYl€џheight|‹oViewHoleTable6 €џHoleTableЧ €џHoleTablesxкAddїroFeatureHoleTable:д€џAddByFeatureTypeEž€џџџ_B_var_GeometryIntentЪ4 oModelParamssiNumModelParamsнТ€џShaftToleranceУ €џHoleTolerancejЋoTitlesZ oContentsѕюInsPЪ\ oCustomTable‡Q €џCustomTableWМ €џCustomTables? oColumnWidths9€џџџ_B_var_oColumnWidthsё„џrow‰Я€џџџ_B_var_counter€џџџ_B_var_DrawingDimension\UPassungstabelleўБ€џџџ_B_var_Point2dgf€џValueфK €џџџ_B_var_Valueб €џModelValue74€џSheets CellsWorksheetFunctionѓ&RoundЌ€џUpper6b€џLowert›€џџџ_B_var_WorksheetFunctiona €џџџ_B_var_SheetsГ• €џToleranceTypeЪqTolTypHч€џџџ_B_var_ToleranceР‚€џkLimitsFitsShowSizeToleranceіЇ€џSetToDeviationљъ €џSetToFitsŠљ€џџџ_B_var_HoleTolerance€џџџ_B_var_ShaftToleranceRЋ€џџџP9ž^ €џџџ_B_var_P9Fѓ€џџџH7t] €џџџ_B_var_H7ђ€џџџh_€џџџ_B_var_hЂ€џkLimitsFitsLinearToleranceeк€џџџ_B_var_CustomTables›LConvertѕјToStringЈ‰€џџџ_B_var_Convertyќ€џџџ_B_var_DrawingDocument%ChrK~ _B_str_Chrm#€џkLimitsFitsShowToleranceR’€џkLimitLinearToleranceg|€џkLimitsFitsStackedToleranceœ+ModelValueoDrawingDimRM €џџџ_B_var_ifPђ €џџџ_B_var_EndоFџџ<Мџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџ8џџџџџџџџџџџџ@џџџџџџџџџџџџџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(џџ66 џџџџџџџџџџџџџџџџџџџџ„ „(џџџџџџџџј{с „,џџџџџџџџАј{с%`„Жџџџџџџџџџџ „4џџџџџџџџш% „Јџџџџџџџџ јment( „Њџџџџџџџџ`je % „Іџџџџџџџџ˜ D€ „ЌџџџџџџџџИ%џџџџ8@џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ>"€ 0€ 2@€x€€ џџџџ€ *€РШ€ џџџџ€ир€ џџџџ€ш№€ џџџџ(€ џџџџ0€ џџџџ€ џџџџ€@H,`€ џџџџ *Ји *№ € џџџџ*(`XxИ*0€ џџџџ€ џџџџ€ џџџџ€`h€ џџџџ€ џџџџˆ€ џџџџ€ џџџџ ˜.Јир€шј(@€ џџџџ€X6`˜€ џџџџ € џџџџџџџџАџџџџx–@р) Set a reference to the drawing document.р+ This assumes a drawing document is active..do]ђ€э ! .(р$Set a reference to the active sheet.b1]ђ˜э (!0.,1]ђИЌ'Ж]ђаџ 4ў ,!8“ј 4!T!ЂЖ 4!T!ЄЖœ ЖЌ 'Ж]ђ№Ќ ЖЌс@Ј@ 4!ФЌ  ЖЌ ЌЌ +Ј 4!T!ЂЖœ 4!T!Ђ ЖЌ ЌЌ +Ј 4!T!ЄЖe 4!T!Є ЖЌ ЌЌ +Јkџџи м 4!T!Є 4!T!Ђ 4!TBр 4!T!ЮЌ X Ќ $ ў Ќ $ ў 4!T!аЌ X ЖЌ ЌЌ +Ј 4!Ф 4!T!Ю Ќ X Ќ $ ў Ќ $ ў 4!Ф 4!T!а Ќ X ЖЌ ЌЌ +Ј ђ 4!T!Є 4!T!Ђ 4!TBр]ђHэЌЌ !€%‚.ЊkџџpџЧh ЖЌœЖ#Keine Maпe mit Toleranzen gefunden.A@$|џџ dџџ]ЌЌђhЖNennmaпЌ+ІtsЖTol.kl.Ќ+ІoDЖAbmaпeЌ+ІHoleЖ GrenzmaпeЌ+І]ђ эЖ Toleranzen ЊЌ Ж І Ј ,!А%–.Ќitkџџ`oџџXџџџџPџџџџфГAttribute VB_Name = "Module1" Public Sub Passungstabell@e() ' Set a reference to the drawing document‚.^This ˜,me' ctive1Dim oDMDoc Aќs  X WV„‰$= cAppЛ€ation.AP2‹Кa‚ shьee[BSAћ< =S„7 rowLongу = 0ƒ‚4з…q}ˆxi€ЃsgFor Each‡ƒ:ˆ€In o;в.!ensƒй ‡IfI.Toleraq.Shaft† <> "а" OrT HР №ThenGC;AШ+ 1‡ ЧB?Cont@Œs()O[@ЈХKA/Re Preserve ‚oF 1 To AИ* 4DЇС ( - 1) @ Р .)@ЛBCO.Оel Value@1„eС(kLAТW#2M#FTLc#Else$eћ#J Шnd Ifч'Call5MeрLFits(0kLimрaSh@owSizeF ,y?Oce•‹Y_C@C3С1CStr(щC'2 Upper‚D) @Chr$(1`+ C0ЂзLowwХ‡$WC4ІЪШU+їє#тс]1C? Рn(„B$ =ce.€­To =Lineaўrп< Œп "а" OrT HР №ThenGC;Ax+ 1‡…c&B?CРontentИA?NSРЉХKRe Preserve ‚oF 1 To AИ* 4DЇС ( - 1) @ Р .)РМBCO.€Пel Value@1„eС+kLAТW#2M#FTLc#End мIf 'h xJ CW'CallЕNe `NFi ?kLimрaShowSi”zeЦ!,ПPce•W [пDРD33CРP(ƒiEЇ3UpperF) Chr$(1i`+ C0ЂзLмowХ‡$зD4ІЪнHW+є#тa_1C?? @pЈ…B$ =ce.ЏTo =Linјearп<‰п<С™Ш€пРH`•CЦ!B"€Nennmaп@їЁ ew"`*.klF.lr-"AbPeгЌB&"G}zдX CustomTaxbleAшCAoI€q3iHs.Ad d(‘ gzen"‚,РksP, 4"O №ѕ]Р !Sub k€ NumberРЌСЩ@РДEmpl0oyeeLCo ntentФ8г (/- 1) 0* 2 @1B 103IV У"Pete€r HealdŽ#InsPA \r ^nQџџџџџџџџџџџџџџ Module13Lќ#8џѕ #џ*#˜ўѕ #”ў*#ўDџa(џ8§ѓPџPџaџЕBє ыГќ#Œў*#ˆўlHџѕЎѕВѕЊlџ;28џџ˜ў”ўўŒўˆў)dџPџ6hџTџ(џџдDџaTџ8§ѓdџdџa(џЕќ‹Dџaџ8§ѓPџPџarU€€€ џџџџџџџџџџџџџџџџ t“K*mџџџџrU€€€€~~~~~~~k щ†вч“еgO­aYњЯЊ фџџџџџџџџџџџџџџџџџџџџџџџџЙˆa ™џџџџ`џџџџaџџбБс Module1Module2PassungstabelleяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 9Ё0 Šй:>LГnaі hдˆ@C:\Programme\Utilities\Autodesk\Inventor 2009\Bin\RxInventor.tlbInventor џџџџ1С@0РFC:\WINDOWS\system32\stdole2.tlbstdole l*јњ1JЉћ9v6ј 9џџџџaЉPEditDrawingDimenVBA Project Data"џџџџдHost Project Items&џџџџџџџџ Host Project Item Names0џџџџрѓюё0^Щ€”ш<^ЩVBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџ !"#$%&';)*+,-ўџџџ/0123456789:ўџџџ<ўџџџ>?@ABCDEFGHIJKLўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkўџџџmnopqrstuvwxyz{=џџџџџџџџџџџџџџџџЭєšЄ&ЎL{D98A091D-3A0F-4C3E-B36E-61F62068D488}И%ТJD:\Eigene Dateien\Passungstabelle.ivbЬдƒID="{164CF429-85AC-438D-BE93-B844B0ABF381}" Module=Module1 Module=Module2 Name="Passungstabelle" HelpContextID="0" VersionCProject_Data_CurVer(џџџџ џџџџ Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџрѓюё0^Щрѓюё0^ЩPROJECTwmџџџџџџџџџџџџ 2PROJECT џџџџ‰Module1џџџџ.*Module2џџџџџџџџџџџџ<H__SRP_2џџџџџџџџџџџџlфompatible32="393222000" CMG="797B966E9A6E9A6E9A6E9A" DPB="2B29C4AA77AB77AB77" GC="DDDF327C562F572F57D0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=0, 0, 0, 0, C Module2=22, 22, 990, 638, Z 638, Z Module1Module1Module2Module26@,__SRP_3џџџџjg_VBA_PROJECTџџџџџџџџџџџџ/Вdirџџџџџџџџџџџџ(J__SRP_0 џџџџйFБ€0* pH‚dфPassungstabelleQH@  =­ | €ТoЪJ# J< 9stdole>stdoleP h%^*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Aut€omation0Ev‚ € Mod€ule1GLduN1 2H‚1‚€‹‚ ,‚4ŸL!‚V+‚‰:2:2Š:2I:2:j:є к‰:Т№|дАџџџџЊў ŸLџџЖџџџџџџџџџџ__SRP_1џџџџџџџџ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{D98A091D-3A0F-4C3E-B36E-61F62068D488}#1.0#0#C:\Programme\Utilities\Autodesk\Inventor 2009\Bin\RxInventor.tlb#Autodesk Inventor Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation МџџџџџџТoЪJ#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Module13L4aca6f47џџModule1џџŸLџџModule2A:4aca828fџџModule2џџєкjџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџNUyФёпNЕ0}Y`hг{џџџџtPfјaKMЇшВs0ц‚џџџџџџџџH€†‹џ:D€џElse_€џifВ€џthenГ€џTo Inventor„5 VBAїтWin16С~Win32MacГВVBA6­#Project1  stdole“` UserProject1e‘ Module1b €џџџ_Evaluateй Module2c VBASample8loDocсШ€џDocumentjг€џThisApplicationЂy€џActiveDocumentг\ €џFullFileNamevMsgBox—RЌ(EditDrawingDimensionsxвoDrawDocЮ€џDrawingDocument’oSheet6T€џSheet[ж €џActiveSheet%Ncounterћ oDrawingDimkё€џDrawingDimensionbБ€џDrawingDimensionsў8 €џFormattedTextт— oGeneralDimя­€џGeneralDimensionІN€џGeneralDimensionsиItemзz oDimStyle.‘€џDimensionStyle–€џStyleХp€џLinearPrecisionтК!€џkFourDecimalPlacesLinearPrecision4€џAngularPrecisionЫ2"€џkFourDecimalPlacesAngularPrecisio€џDrawingDimensionsў8 €џFormattedTextт— oGeneralDimя­€џGeneralDimensionІN€џGeneralDimensionsиItemзz oDimStyle.‘€џDimensionStyle–€џStyleХp€џLinearPrecisionтК!€џkFourDecimalPlacesLinearPrecision4€џAngularPrecisionЫ2"€џkFourDecimalPlacesAngularPrecision№€џLeadingZeroDisplayќЁ €џTolerance{y€џSetToSymmetricхjCreateHoleTablesоч oActiveSheetд oDrawingView†M €џDrawingViewзЧ €џSelectSethт€џHasOriginIndicatorљя oDimIntentK€џGeometryIntentљ oPointIntentвв€џPoint2ddroCurveK‡ €џDrawingCurveE, €џDrawingCurves§. €џStartPoint№Œ €џCenterPointРŸ€џCreateGeometryIntentŽC€џCreateOriginIndicator6oPlacementPoint_ЩoBorderY3€џBorder™€џTransientGeometryК† €џCreatePoint2drŒ€џRangeBoxu!€џMinPoint]€џXo€џMaxPoint4€џYl€џheight|‹oViewHoleTable6 €џHoleTableЧ €џHoleTablesxкAddїroFeatureHoleTable:д€џAddByFeatureTypeEž€џџџ_B_var_GeometryIntentЪ4 oModelParamssiNumModelParamsнТ€џShaftToleranceУ €џHoleTolerancejЋoTitlesZ oContentsѕюInsPЪ\ oCustomTable‡Q €џCustomTableWМ €џCustomTables? oColumnWidths9€џџџ_B_var_oColumnWidthsё„џrow‰Я€џџџ_B_var_counter€џџџ_B_var_DrawingDimension\U PassungstabelleўБ€џџџ_B_var_Point2dgfn№€џLeadingZeroDisplayќЁ €џTolerance{y€џSetToSymmetricхjCreateHoleTablesоч oActiveSheetд oDrawingView†M €џDrawingViewзЧ €џSelectSethт€џHasOriginIndicatorљя oDimIntentK€џGeometryIntentљ oPointIntentвв€џPoint2ddroCurveK‡ €џDrawingCurveE, €џDrawingCurves§. €џStartPoint№Œ €џCenterPointРŸ€џCreateGeometryIntentŽC€џCreateOriginIndicator6oPlacementPoint_ЩoBorderY3€џBorder™€џTransientGeometryК† €џCreatePoint2drŒ€џRangeBoxu!€џMinPoint]€џXo€џMaxPoint4€џYl€џheight|‹oViewHoleTable6 €џHoleTableЧ €џHoleTablesxкAddїroFeatureHoleTable:д€џAddByFeatureTypeEž€џџџ_B_var_GeometryIntentЪ4 oModelParamssiNumModelParamsнТ€џShaftToleranceУ €џHoleTolerancejЋoTitlesZ oContentsѕюInsPЪ\ oCustomTable‡Q €џCustomTableWМ €џCustomTables? oColumnWidths9€џџџ_B_var_oColumnWidthsё„џrow‰Я€џџџ_B_var_counter€џџџ_B_var_DrawingDimension\U PassungstabelleўБ€џџџ_B_var_Point2dgf€џValueфK €џџџ_B_var_Valueб €џModelValue74€џSheets CellsWorksheetFunctionѓ&RoundЌ€џUpper6b€џLowert›€џџџ_B_var_WorksheetFunctiona €џџџ_B_var_SheetsГ• €џToleranceTypeЪqTolTypHч€џџџ_B_var_ToleranceР‚€џkLimitsFitsShowSizeToleranceіЇ€џSetToDeviationљъ €џSetToFitsŠљ€џџџ_B_var_HoleTolerance€џџџ_B_var_ShaftToleranceRЋ€џџџP9ž^ €џџџ_B_var_P9Fѓ€џџџH7t] €џџџ_B_var_H7ђ€џџџh_€џџџ_B_var_hЂ€џkLimitsFitsLinearToleranceeк€џџџ_B_var_CustomTables›LConvertѕјToStringЈ‰€џџџ_B_var_Convertyќ€џџџ_B_var_DrawingDocument%ChrK~ _B_str_Chrm#€џkLimitsFitsShowToleranceR’€џkLimitLinearToleranceg|€џkLimitsFitsStackedToleranceœ+ModelValueoDrawingDimRM €џџџ_B_var_ifPђ €џџџ_B_var_EndоFџџHџџџџџџМџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ $иdџџџ џџ  „ЈџџџџџџџшР€HШџџџџџџџџџџџџџџџџџџџџ№˜Јџџџџ(№Шџџџџџџџџ@џџџџџџџџ@иРџџџџ џџџџXџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx@ўџXTџџџ џџ џџџџ@ўџџџџџPџџџ џџ @ўџ@џџџ џџ 0№И@ўџџџџџ<џџO џџ № дШџџџџh d єкџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџ8џџџџџџџџџџџџ@џџџџџџџџџџџџџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@(џџ66 џџџџџџџџџџџџџџџџџџџџ>„ „(џџџџxџџџXM4%8%ƒџџџџџџџџџџџџџџџџџџџџ% „,џџџџLџџџ`џџџџ „Ќџџџџdўџџ№ „4џџџџDџџџрш%<%џџџџмўђ$№џџџџРx `„ЖџџџџHџџџџџџџ „Њџџџџ„ўџџ˜ „ІHlўџџИ@%@ўџРhџџџ џџ @ ’@ўџиdџџџ џџ  „ЈџџџџџџџшР€HШџџџџџџџџџџџџџџџџџџџџ№˜Аџџџџ(`Шџџџџџџџџ@џџџџџџџџ@и џџџџИџџџџ@џџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџј@ўџXTџџџ џџ №@ўџHPџџџ џџ Ш@ўџ@џџџ џџ џџџџ0№џџџџџџ@ўџџџџџ<џџO џџ џџџџxџџџџџџ@ўџˆ8џџџџџ џџџџ@ўџp(џџџ џџ џџ@ўџ џџџ џџ џџ@ўџ`џџџџџ џџ@ўџшџџџ џџ џџ@ўџа№ўџџ џџ џџ@ўџрўџџ џџ  @ўџаўџџ џџ ˆ@ўџ0Рўџџ џџ p@ўџџџџџАўџџ џџ X@ўџј ўџџ џџ @@ўџџџџџœўџџ џџ @ўџ˜ўџџџџ џџџџ-џџџџp@ўџЈ”ўџџџџ Р@ўџШўџџџџ џџџџX@ўџрŒўџџџџ he p@ўџџџџџˆўџџџџ №@ўџTўџџ џџ Ш@ўџ(Dўџџ џџ  @ўџX4ўџџ џџ p@ўџџџџџ0ўџџџџ №@ўџp ўџџ џџ №@ўџˆўџџ џџ Ш@ўџџџџџўџџ џџ  џџџџ№§џџ џџ јџџџџаџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџТoЪJ#$*\Rffff*A:4aca828f*\R1*#3c4*\R0*#14*\R1*#63c*\R0*#f*\R1*#40*\R1*#370*\R1*#1f2*\R1*#1b2*\R1*#814*\R1*#815*\R1*#2f6*\R1*#2f8*\R1*#372*\R1*#16dпўЪ>"€ 0€ 28€p;x€ џџџџ€ *ˆ€ИР€ џџџџ€а и€ џџџџ€р!ш€ џџџџ(gШ€ џџџџ@€ џџџџ€ џџџџ€PЈ,5X€ џџџџ6P *G˜h6Ш *Gрp€ џџџџ*`Ўˆxдш*X€ џџџџ€ џџџџ€ џџџџ€Р[ € џџџџ€ џџџџ € џџџџ ˜€ џџџџ x.+ˆ€h№@x€ џџџџ€6bˆ€ џџџџ@џџџџШ–р) Set a reference to the drawing document.р+ This assumes a drawing document is active.e if a]ђ@э ! .(р$Set a reference to the active sheet..ved.]ђ˜э (!0.,]ђ(Ќ'Ж]ђШџ 4ў ,!8“.]ђАэЖ Toleranzen ЊЌ Ж І Ј ,!А%–.Ќ ЖЌ 'ЖVa]ђ№ 4!ФЌ  ЖЌ ЌЌ +ЈDraw|dџЧ@k8Ќ ЖЌс@Ј ]ђH 4!T!ЂЖ 4!T!ЄЖœЖNennmaпЌ+ІefЖTol.kl.Ќ+ІэЌЌ !€%‚.Њify oџџЈџџџџ 4!T!ЂЖœ kkЖ GrenzmaпeЌ+Іџџџџ 4!T!Ђ ЖЌ ЌЌ +ЈB! 4!T!ЄЖœЄЖ 4!T!Є ЖЌ ЌЌ +ЈB! м 4!T!Є 4!T!Ђ 4!TBррBЖAbmaпeЌ+ІШ ђ 4!T!Є 4!T!Ђ 4!TBр +Ј 4!T!ЮЌ X Ќ $ ў Ќ $ ў 4!T!аЌ X ЖЌ ЌЌ +Ј 4!Ф 4!T!Ю Ќ X Ќ $ ў Ќ $ ў 4!Ф 4!T!а Ќ X ЖЌ ЌЌ +ЈџџџџИ]ЌЌђ` ЖЌœk(Ж#Keine Maпe mit Toleranzen gefunden.A@$ џџџџџџџџкГAttribute VB_Name = "Module2" Public Sub EditDrawingDimensions() ' Set a reference t€o the db docuht.^This as.s' ct˜ive1s o€Doc As ŠOWV„$= cA$ppСat­.AgP@Š ‹]aС‚ shee[BОSA< =S„7 row0Long = ž0ƒ‚4…qim‡ОFor Eachƒ:Ю Inд o;. sƒй ‡IfI.Toleraq.Shaft† <> "а" OrT HР №ThenGC;Ax+ 1‡…c&B?CРontentИA?NSРЉХKRe Preserve ‚oF 1 To AИ* 4DЇС ( - 1) @ Р .)РМBCO.€Пel Value@1„eС+kLAТW#2M#FTLc#End мIf 'h xJ CW'CallЕNe `NFi ?kLimрaShowSi”zeЦ!,ПPce•W [пDРD33CРP(ƒiEЇ3UpperF) Chr$(1i`+ C0ЂзLмowХ‡$зD4ІЪнHW+є#тa_1C?? @pЈ…B$ =ce.ЏTo =Linјearп<‰п<С™Ш]HЛ@|˜?œЙсџџџџ špСcвЗ‹`Аь ЁšpСcвЗ‹`Аь gд№)СвЗ`АёYяЎYk І"дЗЈ`АёYяЩм0§шІБD…АзиЎ€хДтcкŽlIКіЂ‰(ї@‘„ИwkІОCОтЯу‹ p ToStringЎГь—nlŠMЉVCINИsёiЫŽUгЗ“`АёYя Nennmaп Tol.kl. Abmaпe Grenzmaпe ToleranzenС(ѕˆšЎ{EŠІ"OG:bЙx b \nVBE6.DLL €џValueфK €џџџ_B_var_Valueб €џModelValue74џџHџџџџџџМџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~| 1 1YЉбљ!Ia‘ЙсAqЉС IaЁ 9 Y ˜а;$ahџ §ѓdџdџaTџ§ѓ[Pџ=xџ)dџPџ6hџTџxџahџ§ѓLџ5hџ ѕqHџ!Lџahџ"§ѓ[@џDџ5hџўˆ<џ1gDџahџ8§ѓdџdџaTџЕ`#8џ ћ=Dџa(џ8§ѓPџPџaџЕ`#џ ћ=Х28џџ)dџPџ6hџTџ(џџ"lHџѕЊqHџѕlHџѕВџў€5Dџahџ8Bє ыГќ#8џlHџѕЎѕВѕЊlџ;/8џ5hџ6Dџahџ8§ѓdџdџaTџЕ`#8џ ћ=/8џdџ6hџTџТGDџahџ8§ѓdџdџaTџЕ`#8џlHџѕЎѕВѕЊlџ;/8џdџ6hџTџ6Dџahџ8§ѓdџdџaTџЕ`#8џ ћ=/8џdџ6hџTџAGDџahџ8§ѓdџdџaTџЕ`#8џlHџѕЎѕВѕЊlџ;/8џdџ6hџTџўС№ў z%Dџahџ8§ѓdџdџaTџЕ`Fаў%Dџa(џ8§ѓPџPџaџЕ`FАў%Dџaџ8§ѓœўœўў Е)dџPџœў6hџTџ(џџџаўАўЎDџahџ8§ѓdџdџaTџЕBє ыГаўЕќ‹Dџahџ8B(џBЋє ыГќ#8џѕ #џ*#˜ўѕ #”ў*#ўDџaџ8BаўBЋє ыГќ#Œў*#ˆўlHџѕЎѕВѕЊlџ;28џџ˜ў”ўўŒўˆў)dџPџ6 hџTџ(џџџаўўС№ў z%Dџahџ8§ѓdџdџaTџЕ`Fаў%Dџa(џ8§ѓPџPџaџЕ`FАў%Dџaџ8§ѓœўœўў Е)dџPџœў6hџTџ(џџџаўАў[єы§k№ў%єы§kРў%$ahџ §ѓdџdџaTџ7§ѓ PџPџўЂ(џ†F§ѓ „ў)dџPџ6hџTџ(џ Dџў‹<џ~ ѕlў;ѕlў;ѕlў;ѕlў;d:№ў%l„ў§oРў%ўСTў%ўС4ў%lўY ў§“`lџMў %Lџahџ#§ѓdџdџўЂTџP§ѓdўdџ6hџTџŒаx^ @џ<џџLџdўlў2Dџ’˜ў„ўDџxџP8џџ˜ў”ўўŒўˆўdџPџœўhџTџ(џџџаўАўkicationЂy€џActiveDocumentг\ €џFullFileNamevMsgBox—RЌ(EditDrawingDimensionsxвoDrawDocЮ€џDrawingDocument’oSheet6T€џSheet[ж €џActiveSheet%Ncounterћ oDrawingDimkё€џDrawingDimensionbБџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ<џџ< џџ<џџџџџџџџџџ@џџџџxƒџџџџџџ0џџџџџџџџџџџџџџ%џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџТoЪJ#$*\Rffff*3L4aca6f47пўЪџџџџџџџџxџџџџ"АAttribute VB_Name = "Module1"  МџџxVBE6.DLL Бџџџџ ˆ БџџџџS ЈJ Module13L#”ў*#ўDџa(џ8§ѓPџPџaџЕBє ыГќ#Œў*#ˆўlHџѕЎѕВѕЊlџ;28џџ˜ў”ўўŒўˆў)dџPџ6hџTџ(џџдDџaTџ8§ѓdџdџa(џЕќ‹Dџaџ8§ѓPџPџaаўЕќ‹Dџahџ8B(џBЋє ыГќ#8rU€€€ џџџџџџџџџџџџџџџџ t“K*mџџџџrU€€€€~~~~~~~~g щЭВQaaH…HЎЧГжY€. фџџџџџџџџџџџџџџџџџџџџџџџџЙˆa ™џџџџ`џџџџaџџбБс Module1Module2PassungstabelleяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA џџџџ 9Ё0 Šй:>LГnaі hдˆ@C:\Programme\Utilities\Autodesk\Inventor 2009\Bin\RxInventor.tlbInventor џџџџ1С@0РFC:\WINDOWS\system32\stdole2.tlbstdole Grenzmaпe 9џџџџaЉPEditDrawingDimensions E 6Ћў gJ†7рŒТsP’Џш q>]HЛ@|˜?œЙсџџџџ špСcвЗ‹`Аь ЁšpСcвЗ‹`Аь gд№)СвЗ`АёYяЎYk І"дЗЈ`АёYяЩм0§шІБD…АзиЎ€хДтcкŽlIКіЂ‰(ї@‘„ИwkІОCОтЯу‹ p ЎГь—nlŠMЉVCINИsёiЫŽUгЗ“`АёYя FKeine Maпe mit Toleranzen gefunden. Nennmaп Tol.kl. Abmaпe Toleranzen l*јњ1JЉћ9v6јС(ѕˆšЎ{EŠІ"OG:bЙ€џValueфK €џџџ_B_var_Valueб €џModelValue74џџHџџџџџџМџџџџџџџџџџџџџџџџџџџџџџџџџџџџџrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~| ™ 1YЉбљ!Iбa‰БA QБС Iqм;$ahџ §ѓdџdџaTџ§ѓ[Pџ=xџ)dџPџ6hџTџxџahџ§ѓLџ5hџ ѕqHџ!Lџahџ"§ѓ[@џDџ5hџўˆ<џ1gDџahџ8§ѓdџdџaTџЕ`#8џ ћ=Dџa(џ8§ѓPџPџaџЕ`#џ ћ=Х28џџ)dџPџ6hџTџ(џџ"lHџѕЊqHџѕlHџѕВџў€5Dџahџ8Bє ыГќ#8џlHџѕЎѕВѕЊlџ;/8џ5hџ6Dџahџ8§ѓdџdџaTџЕ`#8џ ћ=/8џdџ6hџTџТGDџahџ8§ѓdџdџaTџЕ`#8џlHџѕЎѕВѕЊlџ;/8џdџ6hџTџ6Dџahџ8§ѓdџdџaTџЕ`#8џ ћ=/8џdџ6hџTџAGDџahџ8§ѓdџdџaTџЕ`#8џlHџѕЎѕВѕЊlџ;/8џdџ6hџTџўС№ў z%Dџahџ8§ѓdџdџaTџЕ`Fаў%Dџa(џ8§ѓPџPџaџЕ`FАў%Dџaџ8§ѓœўœўў Е)dџPџœў6hџTџ(џџџаўАўЎDџahџ8§ѓdџdџaTџЕBє ыГќ#8џѕ #џ*#˜ўѕ џѕ #џ*#˜ўѕ #”ў*#ўDџaџ8BаўBЋє ыГќ#Œў*#ˆўlHџѕЎѕВѕЊlџ;28џџ˜ў”ўўŒўˆў)dџPџ6 hџTџ(џџџаўўС№ў z%Dџahџ8§ѓdџdџaTџЕ`Fаў%Dџa(џ8§ѓPџPџaџЕ`FАў%Dџaџ8§ѓœўœўў Е)dџPџœў6hџTџ(џџџаўАў[єы§k№ў%єы§kРў%$ahџ §ѓdџdџaTџ7§ѓ PџPџўЂ(џ†F§ѓ „ў)dџPџ6hџTџ(џ Dџў‹<џ~lHџѕЧp+'џ'(џ'Tџѕ:№ў Nhџhџ 6hџTџ(џџ ѕlў;ѕlў;ѕlў;ѕlў;b:№ў%l„ў§oРў%ўСTў%Hџ§“@lўY0ў§“`lџMў %Lџahџ#§ѓdџdџўЂTџP§ѓdўdџ6hџTџў|x^ @џ<џџАўLџdўlў’„ўDџxџP8џџ˜ў”ўўŒўˆўdџPџœўhџTџ(џџџаўАўk €џFullFileNamevMsgBox—RЌ(EditDrawingDimensionsxвoDrawDocЮ€џDrawingDocument’oSheet6T€џSheet[ж €џActiveSheet%Ncounterћ oDrawingDimkё€џDrawingDimensionbБ