аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_VBA_PROJECTџџџџџџџџџџџџ-Ђ dirџџџџџџџџџџџџ'o__SRP_0 џџџџ Є__SRP_1џџџџџџџџџџџџ Žџџџџџџџџџџџџџџџџџџ Сс  ACADProject ThisDrawingModul1яРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA !џџџџ IБ0=!,г–`я@Ђ‰ЃІћ‚ї=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax18enu.tlbAutoCAD џџџџAЩ@0РFC:\WINDOWS\system32\STDORoot EntryџџџџџџџџX@{Й\Ъ€#VBA_Projectџџџџ ‹’jZЪX@{Й\ЪVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ќ’’jZЪРФqzЖ\Ъўџџџ §џџџ ўџџџ&ўџџџ!"ўџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџўџџџ ўџџџ  !"#$%&ўџџџ()*+,ўџџџ./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSўџџџUVўџџџXYZ[\]^_`abcdefghiўџџџkўџџџmnopўџџџrstuvwxyz{|}~€acID="{E7B6CEA7-727A-4FA9-8461-EC6A354EDE10}" Document=ThisDrawing/&H00000000 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="EDEFFF6303C107C107C107C107" DPB="4F4D5D3DDDFD3EFE3EFE3E" GC="B1B3A3C4A4C4A43B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=132, 174, 960, 631, Modul1=22, 29, 850, 486, Z 6, Z PROJECTwmџџџџџџџџџџџџ;PROJECTџџџџЃThisDrawingџџџџ џџџџq/__SRP_4 џџџџџџџџlThisDrawingThisDrawingModul1Modul1rU€€€€~} џџџџџџџџџџџџ џџџџ FromPointToPoint сёiџџ“K*mџџџџrU€€€€~~~~~~~~~~[ Щ=GуќЅВJБ6*І|њЙ фџџџџƒŠa Aџџџџџџщџџџџ__SRP_5џџџџjBModul1 џџџџџџџџ;__SRP_2џџџџWš__SRP_3џџџџџџџџџџџџTžLE2.TLBstdoleж ЖдT}ЋDйпЛrЫИG 9џџџџaЉP MeinDistance Ch8_SliceABox  4Bitte ein Objekt auswфhlenP0д—PЂ"@ŽэŠQ)J‹ЊКЯ8їоF‡JNзД/Тя­1з&ђIАќЌЇи>^75яLЫBЕеЇ§Hт=цOФ…œ JЙr>Ъ$&’3 AcadDocument @/6,лIВKЕoЭѓwLiШўлиDˆYŸ*Цр5ИfФЄŸIЛxЊ8<Л Programmende. ,Objektauswahl Beispiel IAcad3DSolid5шкЙŒџD—йќ*šљбќ ,Zwei Punkte auswфhlen. Luprec JDer ausgewфhlte Objekt - Typ lautet: EntityName  VBE6.DLL Љ џџџџ­ Ј Љ џџџџS Ш Љ џџџџO ш Љ џџџџf  ш Љ џџџџf 0#C:\WINDOWS\system32\STDkБ€0* pH‚dф ACADProject8@е = t  ўa}L( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB# AutoРmation0"t‚ањxThisDrawingGTJisDrawi@ng 2E#H‚1Е‚ŒЂІ‚ ,‚@Ј‡Š"‚+‚‚”€Modul1G‚”ЂM€’du€”1?Ѓƒ2Ž7ѓт7яи!Ш@ICROS~1\Ь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{D32C213D-6096-40EF-A216-89A3A6FB82F7}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax18enu.tlb#AutoCAD 2010 Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation  џџџџџџџџўa}LџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџањThisDrawing044c7d5aeaџџThisDrawingџџ‡ŠЂџџ Modul11B4c7d61feџџ Modul1џџяиѓџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ:4ZSъЩDšв j™ ‡pџџџџЭ3иІRшhHЊзЃ:/eљўџџџџџџџџH€./џФ*AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“` ThisDrawingЙ5 €џџџ_EvaluateйModul1Э MeinDistanceе FromPointK\ToPointkюSqr(е Ch8_SliceABox"зZHeight}лZH` returnObj1˜з AcadObjectЅ returnObj2™з NewSolid1тЎ Acad3DSolid—о NewSolid2уЎbasePntyvMinPoint]minp XMaxPoint4maxpЕ.Utility1J GetEntityˆErroŠClearуЭMsgBox—RTypeNameјѕGetBoundingBox˜Y GetDistance( RealToStringт acDecimalМ GetVariable~ EntityNameАx AcadDocumentZNumberЃ-meinьA returnObjG6€џUpdateвќKappen%џџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџ $  ) YrU€€€ џџџџџџџџ,`§џџџџџџџџџџџa //$Љ`§џџџџџџџџџџџni™Б rU€€€€~| бˆ Q‰aЩ Б!й9 Љ ‘йС yQ Љ‰  д€Kџџs(dџ%l ўЎ$џ(Dџ%lўЎџћœџ(єўћЮфў(дў%l ўЎ”ў(Дў%lўЎ„ўћœtў(dўћЮTўћ”DўB9 ttџ6 $џџ”ў„ўDўW 8€$ 0 $џџџфў”ў„ўtўTўDўАьKџџ?:рў%PџўЭllџќј№ў№ўўЮєў$ єў hl№ў=lџ)№ўєў$мў єўєў lмўѕЬєўЖ‚ƒ„…†‡ˆ‰Š‹Œўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ єўєўHєў3'lў'Œў:МўNЌўЌўѕ:рў NЬўЬў 6ЬўЌўŒўlўц3llџќјєўєўMрў @ 1hўlєў=lџlhў ћ0/hўєўф llџ= dџџўЭ@џўЭdџ Ј(рў%@џўЎЬўBѕ(џІ5Ьў(рў%@џўЎЬўBѕ(џІ5Ьў(рў%@џўЎЬўBѕ(џІ5Ьў(рў%@џўЎЬўBѕќўІ5Ьў(рў%@џўЎЬўBѕќўІ5Ьў(рў%џўЎЬўBѕќўІ5Ьў&ѕќў@MМў@ѕ(џ@Mрў@ ttџьœ„ dџ`џџќўemin~’:lџPџhџ(џmequi’e@џpџ(hўєў№ўЬўЌўŒўlўfrU€€€ џџџџџџџџ@nџџMEџџџџџџџџџџпџџ џџџџџџrU€€€ xyЁЩџџџџQ4ё™џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№Ь д(џџџџе эањяиџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ&<џџ,<8џџ<<џџ< џџ<џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<џџџџџџ€+h`џџџџџџџџџџџџDўD@џџџџŒIƒџџџџ џџ џџ`€reIƒ@џџ џџџџџџ€(8`џџџџџџџџџџџџdўDџџџџџџџџџџ22„`„ џџџџtџџџџџ`„"џџџџpџџџџџ „%џџџџlџџџј% „)џџџџhџџџ( Ers% „+џџџџdџџџH' % „/џџџџ`џџџh%`„0Pџџџ џџble`„2Р@џџџ џџ As „4џџџџ(џџџаim h’И`„6џџџџџџџ џџble „8џџџџќўџџ ј’Ј€џџџџƒџџџџџџ`џџџџџџџџџџџџџџ% \џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ2„џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHBD' bObџџџџ0єўџџ џџ @ўџ№ўџџ џџ Def@ўџрўџџ џџ bene@ўџмўџџџџ џџџџИЬўџџ џџ Pt1(@ўџМўџџ џџ рЌўџџ џџ Pt2(@ўџœўџџ џџ Œўџџ џџ @ўџ|ўџџ џџ џџџџ(lўџџ џџ џџџџhўџџџџ @ўџdўџџџџ №џџџџ˜џџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјјџџџџtџџџџџ џџ џџрџџџџџџџџиdџџџ џџ @ўџTџџџ џџ @ўџDџџџ џџ џ@ўџ4џџџ џџ №@$џџџ џџ @ўџџџџ џџ @ўџџџџ џџ @ўџєўџџ џџ hфўџџ џџ @ўџдўџџ џџ @ўџФўџџ џџ @ўџДўџџ џџ @ўџЄўџџ џџ Ш@”ўџџ џџ @ўџ„ўџџ џџ @ўџtўџџ џџ @ўџdўџџ џџ џџџџ(Tўџџ џџ @ўџDўџџ џџ џџџџџџџџшџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ9€ NB PXHs`Ј€ \А€ џџџџ"€ џџџџ€€ € џџџџ€(€ @€`€ x€ џџџџ€˜€ џџџџ€ €Ј€И€Р€ џџџџа€ џџџџ4?и€ џџџџ $  430hp63x А€ џџџџ€ џџџџР€ џџџџи№ 8P€ џџџџ&h€ џџџџ€ џџџџ€ j € џџџџˆ˜€ џџџџ€ џџџџ€ џџџџџџџџ рH##--Funktion zur Berechnung der Quadratwurzel---------------------------e–Щ Ќ$Ќ$ ЌЌ$Ќ$ Ќ $'iџџPрU-------------------------------------------------------------------------------------–h]ђР]ђи]ђ№р fќrs Solid]ђр fќr die Polylinie]ђ0р fќrs Solid]ђPр fќr die Polylinie]ђp]ђˆ]ЌЌђ ]ђи]ЌЌђ№ЩР $ 0ЖBitte ein Objekt auswфhlen !:B@< >Ќœ >B@@Ж Programmende.аЖObjektauswahl BeispielA@B|џџ(dџџ $$DЖ IAcad3DSolidœр2MsgBox ent.Volumeэ $.* 2 6 *B@FЌ$2Ќ+4Ќ$2Ќ+4Ќ$2Ќ+4Ќ$2Ќ+8Ќ$2Ќ+8Ќ$6Ќ+8Ќ$4Ќ$8$' kџџ kџџ˜oџџрd ZH = ThisDrawing.Utility.RealToString(ZHeight, acDecimal, ThisDrawing.GetVariable("Luprec"))џџџџ(џџџџџџџџDГAttribute VB_Name = "Modul1" '##--Funktion zur Berechnung der Quadratwu rzel- €Public ˜c˜MeinDistance(FromPoint, To) As Do4e On Local Error ResuЈNext GЛSqr(СN(0) -R ) ^ 2 + %!1‰1)‚) № End†U€ƒm7 Sub €Kappen(€: Dim ZHрeight‰€ 2S€зng returnObj1! Acad€ect 'fќrsР Solidƒ+2 die P€olylini€]1NewBЦ3DТ Ц ƒ%b asePn‚;Va0rian@uCMinƒ+†A%minШp(0v 2 ŠСШMax ax Т—P– ThisDrawing.Utility.G etEnt@ Ч^, Ф0, "BitгЗ Abkt auswфhle†nРгAM IfВ <> €0hen С@ .ClearƒMsgBox "Programmende.8", €Сahl@фispielС„Exit @•€АlsqTypЊeї(G-)њIaF‘Ф4" T  'D€ent.Vol@mC#! Set GB=h g1fс'Bouœnd`*сE<, х6џУ‡c=eyЬ€xє= Ц1 iaЂћ€DШ2ЩbB— С˜ їСƒ „N(‰ ‡%z уЩž„, m {2'…ZH@4‘PRePalToC(„ , acDecim‚ €0hen С@ .ClearƒMsg… "ProgrammenРde.", €Сahlцispiel„Exitц —@ВlsqPTypeAљ(G-)!~IaFФ4" T  'Dent.Vol n#! Setњ GB=h g1fс'рBound`*сE<ќ, х6У‡c=eЇрyЬ`y= Ц1 iпaЂ€DШ2ЩbBП— С˜ Сƒ „N(‰ ‡%z ЉŸ„, m— {'…ZH@4‘PRealToC(„ , acDeрcimal€Љ(W V‚gble("LurpрИ")B с сIfуžхТG! ePt3, True)р' sliceObj.color = acRedр' sliceObj.Highlight TrueрJ'' sliceObj.DN0{D70E31AD-2614-49F2-B0FC-ACA781D81F3E} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ŒŒџџџџџџџџџџџџџџџџџџџџџџ0ўa}L$*\Rffff*044c7d5aeaпџџџџ4ўЪ€ P€ @P€ € \А€ € \(џџџџрI'##--Funktion zur Berechnung der Quadratwurzel---------------------------р:Public Function MeinDistance(FromPoint, ToPoint) As DoubleрOn Local Error Resume NextрUMeinDistance = Sqr((FromPoint(0) - ToPoint(0)) ^ 2 + (FromPoint(1) - ToPoint(1)) ^ 2)џџџџр End FunctionџџџџџџрV'-------------------------------------------------------------------------------------џџџџџџџџpџџџџ‰БAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{D70E31AD-2614-49F2-B0FC-ACA781€D81F3E} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2''##--Funktion zur Berechnung der Quadratwurzel- 'Pu blic €&c‚&MeinDistance(FromPoint, To) As Do€v'On Local Error Resuс€оNext€,‰$Sqr(((0) -*) ^ P2 + H1I1Š)B)РEnd†+ €'и7З СN(0) -R ) ^ 2 + %!1‰1)‚) № End†U€ƒm7 Sub Ch8_SŽeABox(>'' 'wstellen€Еs‚ЕeroРbjekts€IDim boxObj˜Acad3РDSolid € 8gth‰Јƒ0wid•height“ center(r0W 2 kƒХ)aРd5#: Ф@[=Ц Ш€= 0Х*Ф)ƒC&= 7: "р= 10#С Х ZH  (3DsAB-GЙL) РJ€Ж@Tb@БˆichХSetQ= ThisDr@awing.B S€pace. _B ˜Addiƒ3, C,t, +,*Fpf.col@­= acWhitРГ''E' Defini#Р#yr Sзittebene mit drei ВPрenE СmsŒXPt1—`H 2b 3ГЅ':1.5:і Fт:7JK;$I2(Ž2(‚1ЏCЄЁ8ш 3Ѓ2JЈ…' KaDpp*is u€|Ausfќflneu`VolŒnkі rpersТ0RoП`Їf—nJF=dKn.b|‚s„I(b€8,%)2&3@ЁruegfIХ ЈIReІ|ІHѕ@vlТvT ЁТ„ц№Dele€Нс‹hрМН В$r beid@bs lіschЇOZoomAœllЁ—aСLZHN…KУ‡S ЬngEr eturn@'1a#–`ectЁ'ffќР-Ђ †2“ die PolylahcNewџ"ц Ђ …ц Œ C basePn"ЃРVarian`C#xMinТзСF!minpбkaMax9”ax’"тpс ‰—Utility€.GetEnt  g/, d, "*BёF Р ‘kt€ auswфh MC€Q IfЁw x<> _Ђ q.€Clear сMsg Q "ProgrammenРde.", ƒqahl0„ispШielфEx`Nppy@wlsвQ"+!pThypeq‰(Ц !@"pOLID" OАr "Ia$d e(єLWGTf Oр 2Hлƒ$ "`00'd №nО.sAгс a>ч&=ј37Ÿ 6БBoЯ`HРfБх#, 5!уџGs$!Е`ьВ ц~1 DС 1ввQц2ящђ&ЯфmсЯдў тУ-`\Ї —еBь= J Ф ,…€ qr30LZHа„/.y.@RealToƒF(ф,№vDecim^75яLЫBЕеЇ§Hт=цџџџџџџџџџџџџx^75яLЫBЕеЇ§Hт=цЊКЯ8їоF‡JNзД/ТяџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{D70E31AD-2614-49F2-B0FC-ACA781D81F3E} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@ŒŒџџџџџџџџџџџџџџџџџџџџџџ0#ЉzL$*\Rffff*044c7d5aeaпџџџџ4ўЪ€ P€ @P€ € \А€ € \(џџџџрI'##--Funktion zur Berechnung der Quadratwurzel---------------------------р:Public Function MeinDistance(FromPoint, ToPoint) As DoubleрOn Local Error Resume NextрUMeinDistance = Sqr((FromPoint(0) - ToPoint(0)) ^ 2 + (FromPoint(1) - ToPoint(1)) ^ 2)џџџџр End FunctionџџџџџџрV'-------------------------------------------------------------------------------------џџџџџџџџpџџџџ‰БAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{D70E31AD-2614-49F2-B0FC-ACA781€D81F3E} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2''##--Funktion zur Berechnung der Quadratwurzel- 'Pu blic €&c‚&MeinDistance(FromPoint, To) As Do€v'On Local Error Resuс€оNext€,‰$Sqr(((0) -*) ^ P2 + H1I1Š)B)РEnd†+ €'и7З ўЎЬўBѕќўІ5Ьў(рў%џўЎЬўBѕќўІ5Ьў.`ў:Мў%'рў%єў$ єў To`ўttџєўEЬў$ (hўЬўќ"ѕmtџєў$ єў (>hў1pџєў5ЬўolџWЬўќ‹'а§'№§: ўNўўѕ:рўЬўћяЌў:МўћяŒўlpџFœўћяlў:|ўћяPўotџ§k@ўћя0ў 6ЬўЌўŒўlўPў0ўў№§а§ЌЈœ„ dџ`џџќўi\nwe’ulџPџhџ(џutcad’e@џpџ< hўєў№ўЬўЌўŒўlўPў0ўў№§а§f