ࡱ> {i % %i `J  i aT ei `P(ssetMod __SRP_7!__SRP_64objListFrmb] Root EntryP@ɥ%VBA_Project0ZP@ɥ%VBA_Project_Version(VBA"P[P!^PM  591!"#:%&'()*+,.70O234 6@8AU;<=>?I-BDEFGHKJ/LMNQPRZSTVWXY\[n]^o`abcdefghijklm|pqrtuvwxz}~  !#$%&'(8*,-./012345679:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~acadKѽj(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1ssetMod Package={AC9F2F90ID="{C08665C5-2D8E-4A88-8BBF-C8296C8C048D}" Document=ThisDrawing/&H00000000 Class=ssetClass Module=ssetMod Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=objListFrm BaseClass=bedFrm BaseClass=rotFrm Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1113151319131913191319" DPROJECTwmPROJECT$ThisDrawing )__SRP_8PB="5F5D5B2FE7333434343434" GC="ADAFA9FDB94ABA4ABAB5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C ssetClass=52, -14, 879, 757, ssetMod=52, 105, 806, 633, objListFrm=89, 101, 843, 629, , 0, 0, 754, 528, bedFrm=64, 0, 890, 731, , 142, 219, 857, 761, rotFrm=66, 66, 803, 564, , 44, 44, 781, 542, ngThisDrawingssetClassssetClassThisDrawingThisDrawingssetClassssetClass__SRP_9 BssetClass+sm5__SRP_3 0__SRP_2tssetModssetModobjListFrmobjListFrmbedFr0* pHd ACADProject8@ = t  Ṫ>( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms3 ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D1u00}#0#k0 A5DC47BC3-495C6-BC25-362361E 0192F6DOKUME~1\D OERSCLOKALATemp \VBE\T.exd  MiCfmclLibkzA4831FDD16-0C5C-11D2-A9FCLF8754DA1! kNT\sEmsBc.ocxH/Windows "monntrols 6.0 (0SP6)mi;0 @;D<3C7872E7-15FA-45AC-8CD5-9E4C0E0FE809?p.8>!@\ @uM:BBThisDrawingGZ JWZ !@c:´?^3GԈ8޾x´?^3GԈ8޾ƙEf?>MEPSPSSS6"rU D$ `nx,rU /  ) !  !I 4i`  8  ^ XE'X%'8%:%(#%x! xah)x5hE'X%'8%:%(2%x! xah)x5hE'X%'8%:%(2%x! xah)x5hE'X%'8%:%(2%x! xah)x5h$( xh4XL0{14621AE2-C000-47A3-8DCD-ED9A27B870F9}{0AD8DBD9-0221-40CC-ACDD-E382FD88633A} 0(%X0 %( @x i %b % `k i (@h@h @XX @pH @8 @( @ @ 0@ `P@ ``@ PP((0D`Ṫ>$*\Rffff*0;41df9affr*\G{614F9918-3A59-41EA-B162-CF939FEF5C47}#2.0#0#C:\Dokumente und Einstellungen\doerschel\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#54r*\G{614F9918-3A59-41EA-B162-CF939FEF5C47}#2.0#0#C:\Dokumente und Einstellungen\doerschel\Application Data\Microsoft\Forms\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)*#4d48 " E E0EP Ep (o`Winkel# !B@\Breite2 !B@\Hhe2 !B@\Flche2 !B@\h^Attribute VB_Name = "rot@Frm" Bast0{14621AE2-C000-47A3-8DCD-ED9A27B870F9}{0AD8DBD9-0221-40CC-ACDJ382FD8@8633A} G lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD P Sub UserForm_Initiali_VBA_PROJECT$dir __SRP_0 _ٗobjListFrm a 'ID4l`5(h (Px @h @X  roXH :\@8 un@( un@ we@ n\ ut`P0DṪ>$*\Rffff*0:41df9aff48 "  " ?@??????` ( rU D$ `n `rU 0 ) ! 4`  8  ^ XE'X%'8%:%(#%x! xah)x5hE'X%'8%:%(2%x! xah)x5hE'X%'8%:%(2%x! xah)x5hE'X%'8%:%(2%x! xah)x5h8$( xh4X'8%:%x! xah)x5h?'X%'8%:8 H `Po0Breite !B@\Add (`Bauteil !B@\Hhe !B@\A7minPnt x !B@\maxPnt x !B@\@`ominPnt y !B@\tmaxPnt y !B@\0x (Labe (( (8Attribute VB_Name = "objListFrm"D Bas0{41AB528A-096A-4BE2-A593-E36335824686}{F2792E0F-01D8-4A@9BE3-8F2D985F4} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizD  0 P ( 84P?'X%'8%:%x! xah)x5h?'X%'8%:%x! xah)x5h?'X%'8% P Sub View1_BeforeLabelEdit(Cancel As Integer) End #UserForm_Initial0ize(..ColumnHeaders.AddD ,"BrU~| ~  rU $`n$`nMOO4 @)@YM `\YM`x$ 05?t4!4@YM`x$ 45 c=x0lt\ ```P@`@`x0,kh/ HX@lhPailminPnt x ax y Breit"eaHh AllowCLReorLIEnuGFullRowS`electFn!B@\Hhe !t( |xze() ListView1.ColumnHeaders.Add ,"Winke@l", 35B reite50HhFlcF End5 35BreiteD50HhFlcF En 1A@6OWH0oѱ|RAj Kc5F.yJ-T_JnB}(LxT_JnB}(L6OWH0oѱ|ME SPSSS6"<$<<<<(<,<0<4<8<<<0{41AB528A-096A-4BE2-A593-E36335824686}{F2792E0F-01D8-4A93-9BE3-8F2D94A985F4}h0(%X0 % RP`| eME" 6 <8< <LLLLPLL"<<< N`Hk PxX% Stx% T\rU 8Y  1Ya@p) /MOO_0   `.4(8rU |(yh)&(`-/(`1/(9`5/(y`9/(`=/(`A/(9 `E/(y `I/( `M/(  `Q/0I ` U9Y///0` Yq/+/(h]/( ha/ @4n)x5hx@$( xh4X!(8%HBX5 jd/ `4l$XH4p.+((\XX4 lXi8hg-(% H%\X4   \~//p4l\l.+((\XX4 lXi8hc) H%\X4   \~//xl4l\T .<M\ l/   (l 0   4 ! 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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16deu.tlb#AutoCAD 2004-Typenbibliothek*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{5DC47BC3-49C3-45C6-BC25-362361E0192F}#2.0#0#C:\DOKUME~1\DOERSC~1\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINNT\system32\mscomctl.ocx#Microsoft Windows Common Controls 6.0 (SP6)$*\G{3C7872E7-15FA-45AC-8CD5-9E4C0E0FE809}#2.0#0#C:\DOKUME~1\DOERSC~1\LOKALE~1\Temp\VBE\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)\ uM  Ṫ>ThisDrawing0V3ea5fedbThisDrawing:2ssetClass183ea9b066ssetClass2/ssetMod0>3eaab288LssetMod|0 objListFrm0:41df9affobjListFrm1AH bedFrm0?41df9b0d bedFrmp` rotFrm0;41df9affc rotFrmRx 0`xH(ABL?R TyF91Mn ˉf7FaqB5 a'O=ړjMK T8IC~hpCand as.Debug=DimTFor{MePublicSetStaticStepToAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole` ThisDrawing5 _Evaluate ssetClasssset/.AcadSelectionSetMinPt bMaxPt,jCount0vGetBoundingBoxYi`tmpMintmpMaxٱtmpObjDrawBoundingBoxaplineObjCAcadLWPolylinepoints ModelSpace_AddLightWeightPolylineClosed,ssMoveC FromPointK\ToPointkMove>yssRotateX BasePoint@ RotationAngle5RotateminPoint]maxPoint4ssetModTest4testSetssetObjp1^p2^ro^ SelectionSetsAddrSelectOnScreen AcadDocumentZ UserForm1)MSFormsCClassUserFormNCommandButton1|CommandButton1_ClickClickShowHide9zItemz _B_var_tmpObj 7_B_var_i _B_var_ssetClass&MinPktfQ _B_var_MinPkt UserForm2* MSComctlLibm objListFrm/bedFrm"CommandButton2}DeletexCommandButton2_Click ListView19UserForm_ClickUserForm_Initialize5c InitializeN couloumheader___SRP_4=H__SRP_5 n__SRP_a*__SRP_bB_var_couloumheader! ColumnHeadersdplattenr BauteilNr4._B_var_BauteilNry7lv'^ ListItems ListSubItems,TextBox1STextBox2STextBox3STextBox4S _B_var_lv _B_var_MinPt & ssetUklasse M_B_var_ssetUklasse._B_var_DrawBoundingBoxminpt80Clear _B_var_Set Printtextset}+ _B_var_Debugۮptextset=_B_var_textset_B_var_ssetObjƺxo4I`I8  ` ^W8$ H ?'X%'8%:%x!  xah)x5h?'X%'8%:%x!  xah)x5h?'X%'8%:%x!  xah)x(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%`%x! xah)x5h?'X%'8%:%x! xah)x5h?'X%'8%: fl V@ &`X4L8%`@`0x`@0 @, @H @ @ @ @ pṪ>$*\Rffff*0>3eaab288$*\Rffff*183ea98%XB<5*(8%X<k]g5!(8%XB<5*(8%Hn$ `n8 sset verschiebenell V X%x! xah)x5h?'X%'8%:%x! xah)x5h4x$( xh84P@Hx 0   L_D(l\_D5\&''<'\_D 6\<`L$ \<D (\l ((l 8<@4@ b066*\R1*#121*\R1*#11d*\R1*#11c*\R1*#104*\R1*#11d*\R1*#11d*\R1*#11c*\R1*#104$*\Rffff*0V3ea5fedb"(8 @H.H"f0o.bCompObj"aVBFrame(__SRP_1 bedFrmm20_^BP@ɥ%PROJECTlkff_B_var_xValnrm^ _B_var_nrCommandButton3~CommandButton3_ClickFAzahl$6 _B_var_zahl _B_var_ForjLFmtEWert߬BWert6JZINSGesZahlxZahlTypZahlungTYPENDE TYPANFANGcInputBox MsgBoxRvbYesNovbNo%Pmt _B_var_FormatTestzahlO_B_var_TestzahlPrintBoundingBox|MnxMinXXMaxX.Min _B_var_MinpssetClasssetClassetClڭssetCVsseess'_sj _B_var_MinX _B_var_tmpMina-_B_var_PrintBoundingBox6GetCountk PrintMinPt PrintMinPtXD PrintMinPtYDPoint0Point1 PrintPointsd Doubl:Point2Point3Point4Point5Point6Point7pu^ _B_var_pub PrintPoint0A  PrintPoint1B  PrintPoint2C  PrintPoint3D  PrintPoint4E  PrintPoint5F  PrintPoint6G  PrintPoint7H ListView1_BeforeLabelEditCancel     6$ !#%&'*+,-I/123N7;89:<>?@ABCDEFGHvJKLMOPQRSTUVWXYZ[\]^_abcdefghijkmnopqrstuwxyz{|}~rU @nrU Ai4X`H $p6 >2*2**)P $!    ]@]`]]].P RB@^ Objekte auswhlenhier an die klasse bergeben: R P/ PB@ &selbst definierte BoundingBox Funktion+TF+TF+Tag sta+VF+VF+Vpunkte T V PB@8 sset verschiebenell V X PB@@ sset drehenoc.Po RB@X'X@Pph8 testSet.DrawBoundingBox 'selbst definierte mal Funktion`rU H0!Iq4`I TestSddfghzS !Z%\.R< Objekte zu TestSS hinzufgenAttribute VB_Name = "ssetMod" Sub Test() Dim t,Set As New Class:Obj:AcadSele`ctionb@p1(0 To 2)FDouble2ro +|= Nothing}= Th@isDraw. s.Add("Sddfghz@S") ' YekzuvSS *zufgen +$OnScreenauswhl'hier an die ke bergeben:;S_.+/ VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} objListFrm Caption = "Objektliste" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 11280 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 3 End XP  Microsoft Forms 2.0 FormEmbedded Object9q GetBound^Box 'selbst de8fin.S FuDnk '.Á}!mal e)"0: 1j= 0 pgE2(2(5Move@, p2H9versc@F@ s= 60 Rota5Pp2, ' drehT M(|A @n.Clear End RB@X'X@Pph8 tFrm<jx:2#<NI u!= &Ar'xAr'NI ME!C4>KN}>Kͫe!oCompObjaVBFramebedFrm)CgBeforeLabelEdit1CommandButton4CommandButton4_ClickVyBreiteaHoehevFlaechehrotFrmri_B_var_rMitte _B_var_MitteFMitteX _B_var_MitteX PrintPoint09MitteY printPont2 _B_var_PrintPoint2_B_var_PrintPoint0_B_var_PrintPoint7_B_var_PrintPoint1i0] _B_var_i0:Regen acActiveViewportrNLabel1,Label2, ComboBox1' ComboBox2(Label3, CheckBox1 CheckBox2 CheckBox3AllowColumnReorder>Enabled۪ FullRowSelect~c M d l@SPSSS"(6" t! pl[ AbMUb26^I)-A )bp3xME@SPSSS<<$*\Rffff*0V3ea5fedb4xAttribute VB_Name = "ThisDrawing" Bx0,kas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD213-3D21-11D2-85C4-08000VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} bedFrm Caption = "bedFrm" ClientHeight = 1080 ClientLeft = 45 ClientTop = 330 ClientWidth = 6705 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 29 End 0Ṫ> Microsoft Forms 2.0 FormEmbK*mrU#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~e I`+40GCfΔ a a   !Iѓwog[KqA ha   l1a   )  ThisDrawing ssetClassssetMod objListFrmbedFrm ACADProjectF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA i `;HAe_MQDMgm42a-5M{l"| #Gpv+8E`ǬHT˜$ F~B A Qs ^Ck5ىJq2;b"XF6ԽϚ%$^c8Km 4$O]y8 A eS|%KPs7T#0mD-qZ(F0{rO̯t \NHLM KX@qŶ]{^Jz#6}i_DZB  Q!A 822aD#>ãnPlJS&U&Eljk51BpbigZ7d K}2>% q"A x~6KMS/$0@{~]aA0%n-A>RE{@^$aJGMn\8+P)|Ene #A f/I$D3s! 2GD7ݲ֟GZTzSq!NECJ2* Microsoft Forms 2.0 FormEmbedded Object9q (Objekte whlen NuTahoma (Liste anzeigen NuTahoma(zhlen OuTahoma((Objekte optimal drehenOuTahomaH,E5Tahoma( Objektanzahlq5Tahoma( Materialartl5TahomaAH, O5TahomaAH, O5Tahoma(Strke"5Tahoma8F {0"Objekte drehen5Tahoma@F{0"objekte autom. anordnen5Tahoma<F{0"Bez. autom. vergeben5Tahoman (!On@Screena@usw  }f7 L,@CommandButton1,@CommandButton2: ,8CommandButton3,HCommandButton45%$4TextBox1 {(2<Label1x1O(2<Label2x1E( t(,/xM$(Z4B*=h8+3qjj;BU| xjj;BU| M$(Z4BME @SS S8 ."L"LLP ybA  Tesh9ԘLy|U:zV[=~L".>;`zM@ә]Cv1]m1E,-یfF=:5|تGO{MdNJ6'K]L )eA xG4#ΉH  LG mEpuJ3 AcAwOOȽ 6L>~iC9O׬X qfA  Test_ssGhmKmlwKIK|(0G+K;KʽF [^yOC8KtiD!0Gn hs@ PrintPoint5 gA CXGq2XX "LX˫$Nk+LytU'KĦ z{BLT}xTP0Nq-ccl_(O!ˎO5J31C7q4r-KD)B q*A 9_L,' Fu9Mn|boI5 I.A }KH>eM_sI2XǨ pnKaͷԠ^÷Bn]|L5~Wu i/A {TzIfKaIW_ .4H=D ^TjCb: |iO,^jBF*JO 8 0A 8 TestSSS&_wCBus>lI-O2M"Aڛw5VZ;-L\?CBj+,@m/ibՁbLe=j !2A xѩ;GB(wJ۞F+iai =CNMy}>^AIֻwK]}JGJjuyLλP i3A μ%D.Fd P*HkдbeIKDsVA>z5O)-HS~f#c 4A k}@`qI@E+aJ[EHŅ#װ~gA C'*ONʚo MEh9I 5A 8 DeletehC؅BmU_GVcIaIcs{ x 1Hd@d\c:PO{Ϩ 97A xĶx{Nf)9bkXR@rC @]G5+RבOa5Cif+ٳupzA Y8A  yJ_v!e7h{J" } 0MBOYzFrI}ֱACA惼u y9A 3`E@˭CDa"B:9=H0~)]0=2M %i1| @cx :A 8^;C +I+UUGdi$AIC'a:0Y =A h}RA0r$B?\UӂEK3`[hm[NZ"# LuEF%P !>A  TestggSS"=oIʀvbg,_G6pG"2O@8C6GDď%p-PJVBa y?A 8 CommandButton3_Click LD"NLj67pHG[`FrJU{Ḯ.F7pWM;`5 AA x UserForm_Click88ޢCJ5E?KE.UQ Et-G}_ B qAI A02ɉ/ IBA $TEvF DZ$bN E&AǸ=QA S!E׊A@x1lg iCA &ہL*!Xufr-K_>$*B Ed.ETUB ;-L> DA 8 baf;G"Cvl6]@PjśKJQWuQK鐚Dжv ؊2KzC !L_ EA x e4;bF0e{ѹ CMiW-y-wRL^A ~5XkEl);#z $J k FA PRdB.LVP~풦@ ;5M} v>M( Ka7NYHz¼MryԔK H@7 HA (m7˕MA`t%oFS\LXD09ICCT?VD&,tqmfUDGcu )IA 8 OoaL4;pEHS d%x+raIFyhiG&G #^:K-yg IJA x SLIkKCR*Ƨ6HX%Nv% H 5tgkCB#9w1tKWup_.9Վ^K~v iKA  PrintPoint7 ###.###.##0,00 JWelchen Betrag mchten Sie aufnehmen? VWie hoch ist der Jahreszins fr den Kredit? \Wie viele Monatszahlungen mchten Sie leisten? BErfolgen Zahlungen am Monatsende? Sie zahlen   pro Monat.VBE6.DLLǵNi"O- 38- OT OS O  O ( inO6D=YWQR\wO=~,Yk H9CkYLj.J-SR$LV^L iRA x JXA(xRޣЯY,N+'B t)~P@DqwR1 O:^iNH@%q t4 SA TmD ?Oi|\GK,cdWxp@yQ*p} N~ TA P.O'ğ5byKT. "noCplx 6)k@hOA,Qbeu/@SX#  UA 8 > yD@he!7m@י(Y%B/6z$1C+NҖIiSrŰDZQp VA x B="&M1G tC/(ȭf OѢv&;ŭ@x.W*X@6RT(H*w8 WA 4f{J8 1e9D.drH)'A5koNdѻK #8'LD3" YA R @s%OY%fGR1XC1/Z*aJeCᙑ\Hl%NM* ^A 8dž} GG/Ɔ/A?SDjJvW ukN ]$Se+xGT) _A x L)Ih~Mx$BC_b RtO-'Ŭu S ĞkMEyxaI:~Mmn\08HZIu𺔠Hxv QiA 8LtBɾа1.TMQ\NњԿEM< _4AJQ۾FrSHIZC]ByX*RVOFw jA x%˂F'eCulŏR,%gFrKF(JzkE/R^arOWrgWA>,᳄ 4 u'DpqSoA kA $:M@j``L PrintPoint4 oA x^ڀjHF+ıeg[:]EBc)%?^\=[HDEPl"\mE0^˄@A&T qA U&Eʞb,6v4H߼DgD-- 6M J6%OR2$[eG" IrA BUM@""4̼ Ki=|MK=,Z?"L=j;.ǩ?CÞVY@L= eIF+s4 Kҳi.HwoύY? sA 80 i  @ 0T(i   PP `0@+h P jX @ Nh `  L b`@0  h Pi  P h@  ( @ h H  (@ ( l  ( `@ 8 @4 p@($ @h  @@  @ X ( @@  @ @ @ @ @  HB @B l@1G UL K0.*4H lOKx=L,LZ"6He`PN؟A:l %5OK~A )uA xV?f @ȁiy hhuListSubItemsAddD&ck0_gM 6ϣ:ƐJAK cՆ4D81ɭM6u[ vA F*EU hhsdgfuJQˇ PrintPoint3NYx,Hty-Ft xA ʲ.D>\RhkOM]^E_ vPrintBoundingBox hh|4<tXrD!ף'IxH p!ZxmOZVF2JG4 Փnv3|ܷ]LwT[.n} A'a<GF'ufL zA hJ+ǵIv6h^NZ]= smGQm#RBxO]\-YPL_: Ψb{IxBшb  H@x0  @@  HF @Fl @@ HD @Dl @@  8 HP @Pl @@  X`xH(H* @*l 8@H @8 @4 `x(`xH8 @8Hl `@H@"\ @X @H @8 @( @P h(@ P@ @ PP0p8pH@ @@Xl pPX@"\ @X @H @ 8 @( @` x8@ `@ ` PP8|dD Ṫ>*\R1*#121$*\Rffff*183ea9b066*\R1*#da*\R1*#5f*\R1*#11d*\R1*#5f*\R1*#11d*\R1*#77*\R1*#77*\R1*#5e*\R1*#5c$*\Rffff*0V3ea5fedb*\R1*#5f*\R1*#11d*\R1*#11dp B ($0 X B <` 6+,B,B0<%`,  "0K0K  0K@0Kp   B  ,.0,.`,.,.  4 0 @H B ,.,. ,.P,.B ,.,. ,.P,.B ,.,.,.@,.pB  ,,,0,`B  ,,, ,P   B   , , , ,@ p  B   , , , ,0 ` p B x  ,. ,. ,. ,. P ` B P+X-x  B +0>p   B B   ] ]] !'nur zum verstehenm !/ die BoundingBox erstellen und variablen fllen]P]h]$.( $ &$B@ & ersten eintrag abrufen($$+F$$+$&+F$&+ " ! |A |Lrزh@֌Fbg֥qLo=BE++nO. sqH4D }9 Q}A  @ 0 TesthhssMinX TestHH TestH Testccv TestdwfHP5#PGe[F{CEl=4K> qNoyLeC\/򯾩LFv^"d~H_kK A @:3A|}:A TestsdfdwfH'@" H  hh|4<@nSXAdd(estHH" h%x A4BTEu hh|4<D8X0A005c>~LޗsO5C)B啫7oyJlF`*&EV]1rn|D,~[nth;D@Bぢ{`A9q A ɪxDk*!t I^@L JI*"΀Kn3[ARQ0]KO2Nk$.ZSLP 1 )A 8Mrn[51 @x@}97]jB{,6wGbBxqH 5 D0eY IA W@Dp}VUKʾnP hh|4<to1Xxt[#N'J!@\~J6fۛDW"zc7Jvx) A KxN#"y:BqdHRWq݊ PrintMinPt hh|4<.tbeXx!#-x<M`EN `pts--7CFb{VEpB?{ݑ#DM ;I-pؽO`ϬT@- AA XՕIJ8:G PrintPoint2ӐTM PrintMinPtX PrintMinPtY hh|4<H8X0A005c]q-Jju|lQ\A_w.jg 7=F8 NYHVK# !$a AA  X-RO4"?>.A4F hh|4<tX$$ PrintPoint1lƷPoCi5%*1ߟ  points(0)= points(1)= points(2)= points(3)= points(4)= points(5)= points(6)= points(7)=}J1Y{Ht|-*ےr@(pyOQNޚ#TvaxbO<  A2HNMw dX A jj;BU| M$(Z4B PrintPoirotFrmm1&;4E,*;Efo%'bCompObj(aVBFramerotFrm" __SRP_c#+:__SRP_d)gab zweiten eintrag starten1. $ & "$B@ min und max punkte ermittelnine$$$ G$$+j$$$ G$$+j$&$ G$&+j$&$ G$&+j "iH$+0F$+0t(1)$+0F$+0t(1) 0 !2%4., ,(6(7) = .,ihP " ! : < "$B@> "i " ! "i 'Hmh 'JmP] ]X$+0F$+0Poly$+0F$+0@[$[$x `]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'Bip@]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'Di0]$+0F$+0$+0F$+0$$+0F$+0$+0F$+0$$0'Fi]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'Hi ]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'Ji0 ]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'Li@ ]$+0F$+0$+0F$+0$+0F$+0$+0F$+0$0'NiPh ] $+0F$+0$+0F$+0e$+0F$+0$+0F$+0ad$0'Pti@ 8 B Dz! @f@ "$B@Fh cAttribute VB_Name = "ssetClass" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz EPublic  As AcadSelectionSet Dim MinPt(0 To 2)DotIax .Property Get Count("Integer D.'nur zum vers tehen End * 3XFun[Bd@ingBox' die  B@llen uvariEn f;=i:):tmpBVA nGax @O ObjD5(0) v 7.B#AiTn, M@''n eintrag abruf?b) :h1H1@AfEax k @ For i1y`- 1 'ab zwe it@K$starn5i)5 C('mi^m;punkermittely IfC$in- <) TG= C @A "& > )^*` @.WNext iZeXZDrawF(@ssMove(FrombZH,=Pⷛr( i o@ ssRotp(qѰAs Variant, RotationAngle Double) For i = 0 To sset.Count - 1 &(i).e BasePoi* 3.141592 / 180# Next i En@d Func  P{ic Property Get minV():M%tP=NaxN '' 8ComboBox1tto q( 8ComboBox2ttoq( 28 Label3x1E( X CheckBox1tto &{( ` CheckBox2tto &E( \ CheckBox3tto &mbedFrmrotFrmrotFrm6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%` % %`h8@||0Ṫ>$*\Rffff*0V3ea5fedb4xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} bedFrm Caption = "bedFrm" ClientHeight = 2055 ClientLeft = 45 ClientTop = 330 ClientWidth = 7290 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 4 End  Microsoft Forms 2.0 FormEmbedded Object9q (Objekte whlen "uTahoma (Liste anzeigen "uTahoma(zhlen OuTahoma((Objekte optimal drehen"uTahoma  };2),@CommandButton1{,@CommandButton2,8CommandButton3u{,HCommandButton4{qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} rotFrm Caption = "rotFrm" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 8955 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 1 End  Microsoft Forms 2.0 FormEmbedded Object9q!C4:N}:ͫe  }=9<kaKѽj(6(Jѽj(6(Iѽj(6(XP b$ListView1tto9368265E-85FE-11d1-8BE3-0000F8754DA1F p.+((\XX4 lXi8hg-(% H%\X4   \~//p4l\.+((\XX4 lXi8hx>z! @f@9 H%\X4   \~//x4l\0   0   4      WrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     a  )  Y ( Q 8 Hsset )X FromPointToPoint BasePoint RotationAngle )h x   9 1  y! " $ Q% & ( Q)( *8 ,H Q-X q.h /x 0 I2 3 4 6 a7 8 9 : < )=( I>8 ?H )AX qBh Cx D E G 1H QI qJ K R S T U( V8 XH )YX IZh i[x \ ] ^ ` Qa b d Qe f h yi( j8 lH QmX qnh px )q qr t Qu w 1x z 1| y}  ( Q8 qH X ih ix ) Cancel  Q     Y  ɢ( 8 )H IX ih x ɩ  Y ٭  Y   1 y ( 8 QH X h x 1  Y y   Y  1 y nt0 hh|4<to1Xl `MlWXԃܴ@Hĥ2XKizR,?v6AM`QFJ#mR A ListView1_BeforeLabelEdit  minPnt y maxPnt y%AMǞ7F=@v4#CDEضjCyl2y(LcŴL A HyBA_s@M>(>®HC.iuXj=N m@/10Tj!MgF㫤 )A X Testv Testxvd޿A\j$H*{oD ];~y0oEO쫑 OCommandButton4:k9L  ɚA CommandButton4_Click P 0 a4mzD?|'YLF3M5Wk64LH'I`[_KD" ɓ YA  K  A p+IQ9BT]GacN4]ʗBvD="I~DBn(Ap-+ A |ݺF <H?/$sJ@(Hv-5BAW5[^~|OD _WyjMeT !A R'mBH:=\{Pyb5A .C)SMVK1-ѫI#F$<_Rq: ;'C͗ _= AA 8rotFrmi2w,}B=TB]]$OzJHL<[A^;ЏiH%xCm A x*FvCN;TaRuBFdt eMSBNjB>ݲAE8j@M-^`UC A  FlcheG L=:ٕL&D?X民JbQi{)տkL9Խ/V1EVMr+>; A 'b2qLQc dS#|Hq* ȋ\?Aq\^rH&NTJAO#b,Y 1A 8SQ6KㆪH p@P`x3aZ EL#dbmSLFJ^ +^W}>C̵'_UMUqbNlV('.}JX!5>;? A xQRQ=KW&E=B&i5ME"I&f C)Xc"h'Y-L]u#sDR'Ym ѮA B'C9;@?k29tAl7lT8 CUOLtД%6He@4rjp0B]NϊѺ 1A fJAǵK"},ZJMVw9v7AފSK}Uq^0H+rMBR(-O$ t5U yA 8CO6[ U8FL.?kJqʔO-375D yAA)N!oCA,h=fޞ8O`3DZ A x!+AxWAmښ?L\qk-N78WZ.k} C˱)5;LMw N K~d A ,>$ZF!*JQ3^SCL]"lRB UgUA jMKށ AP[T++ A 8bpK͏#jL5! @Yo‚E3^@R,>L M `L$TcDO3GĔIMUf{ A x2w;~IiR|9 EDI@&ݕHW: U@b#O_jJ Ζcu$.A#5F4H U'!W@[дtU )A   D7cF 詷(WALCe )Ր LT[j/ jrA&GJk)M0MбUO8R A  PrintPoint2=  PrintPoint0=  PrintPoint7=  PrintPoint1=  MitteX=  MitteY= W(OjET|1ypH6pL/Wt ىBfװ#thHjA@2ؘ=B[atd"KI)2fEŬkL\P (%!ыEJմ[R 1A 8!\3-vHsX=خ*FaD31){MHMKQ-Q$}vB-T s\Ӯ_LpYv QA x! TestLSSoܸIHgmKDyk3SKqKRzcҽI)YB0d{~F? K A !3޾A-U(^NrAzaP).L'@2On둯kF&@yY34GڃW'3iLL=U mScOqf|Ezߙ>*q]nH_LJZSM 1A 8"/겔XEmB|{)A Yj,kAz!L4|$iDʟ "mrN^[;s#rB?vf yA x" xr L\( 8 QH X h Qx   Q   Q   Q    (  Q8   ns 0XH$YTH3 ND|n B@g|Ido qLDХON؃G@rw2^N* A "t@uHYAOfYFLmFa?%_SZ G@=hX@~_.ȶS&Ge'Y &FC [j QA "@{P帇IMsީE{`U%OA퍙Z4HʅIJ(l`/ԝ!Dv/'K A 8#ɨN]g8|HM;J*IiȓH""FmiM3wWu*#WA:x^W@A$q A x#,.O^LП'|C4j{)K B}L7:h:zwU@,ki%^#GJn ӿkL-M$鼸T )A #x_G@d6Rz@Յs!{v:XKz(FSTK;4q} HŪwW NwCO&Q qA #PTE MmHxC:`L?+׎$2vIG4|kA}aeX"CQINk"p2 qA $h/I {O\f]FD(43U%WKJ3|_~=~O<;zWrâGH8a?(M1c> A $ۓ=F- z@8n"(FO0cez(cFKkÛ&MM10dF|_S#-BbgH`x,LI?? )A 8%FxuDD+E\QS}Oa"gOMZߢsiH9)dOXI%>xy}@S@[;X@A++E qA x%A.v 91&C;k8,{+zOR8rZ+70IlI-M gDAʿM_.L.TA.RB+;X:NmoA A %.GhKYMKh_V~K/}U T'O:Oz(L ʹB*޼gjIKrJ8!A)3j%Cv_B )A %BZLvF P 0@V?QO5!<1vfJA@9 mw!.:xC.Y8-yBB{PtZu@;8< A 8&1l4Ls:aGH1о`uI,S{:-A;Hug- Nk A x&ԻKG]3J*ttE& ߪAQ1nIˤmIM |<0i1]JciD4==:RA\vW<(؁Ip )A 8(Zo[@Cu6L @ 0!- _@bM+JLSn2yE\H  X  Qh  x    Q  q        a      9  y(  8  H  )X  qh ڔpa~G_9E8FYMtUv>4ɯ>Ism_nkE:& A x(颫x)GT~/JiPF4 v|t" O;HTϘ{^>8WCE)N A ({gEB85{\ zLOCC/Q ꖨ֛xC!w}>&BrA,QѡdLrɠ?DM AJ )A (WwϟAZeɃ~O&vB$Ip`=_Ct)OI'_-xBg[(GOLj IA 8)^ ռC_&1QGW_[Լ\hL*q^5Y6KTRXKO4tnEQrA iA x)ãB\P%ddtKdq98Ihۋ>fIf#BN~lޖMouBuOC A )ӚL<"kaHަ]]P/H' I\axHlR6xb:h{bG٣Xo 3cɘJO~ A )CO&w| Mf;E+V?%D_)\oSn,-@bڛIӖOF{%$ 9A 8*s HdҦ+I1HY'B$4/4M)vE-G鮂EfxGLIOE .F[fyӫ A x*IZ%D?uEf>GlHhtճ}-{MO5P}Ka^ j+DK4Cw eC?H|!i A *d_$CϠ =3Y1!CK:_.H`'.NyT2\;E ZD-d^NgO8Dh֦L A *۹k@Ŧ TestSdS TestSdhzS TestSddfghzS\LYzK%r=C-[ZcFr_n(eY=R@ح|׿SXsHI`1]x7IMcG QA 8+M|`ClcIi{!#q$ x  Q      Q      Q       Q   (  8  aH  X  h  Qx  A  Eh49G0:QO{=$:VCSSCxR 8XM4~B_͐B A x+-FҀH]z?MJA,=~nL1e.ӣ.1M"+N׭Ehn~tdg34C[ A +vK*}Cqm5Oa3(}LeKv^I,_iGXY`$~)j]NojgufEFGV A +bG$$NftzX\sN/@girJ5)MEfbonry<Nߎ:9@p_ |CV IA 8,K(M{7AY FY r,J 0CEFMQ4*h] sGiƮг=MD:6Z JWZ !@c: A x,`nAZ2H3fӪXDJ9 !Υ'c H枚dCQhAQ$=) ['GS+zinD%6N7]b&K ncWN!)'60/:#-A#r qA ,D?`Hc\Fy۳T(@ G\Gi GLA'  H'O8K*<ƞ"RMZNr]mC/R|i @Yh[Ln A 8-l3QHr*(Z&K/cڃh OF08NjSNvpLBbTDEjVA}9>"&4MHS awAm1/9  X-aLP{ImˮD4MwQ  qA -L ʐ%OWKOIUp )   y    A  Y cA .ak,NS]opcE|#N$2KON>wؠAd$%;a&%@G{'ץMgAݑ?EN qA 8/œVKR,KtK]aI .GaJ7MJBT=Ok씡6[I tI7l|ބSJ Bmu%y6K%L A x/"-?@Label22ҋB ` ComboBox1 ComboBox2ҋB `TextBox1BҋB ` CheckBox1Label3 CheckBox2 CheckBox3Label1 tk|eLx ǵ:o5+ K4Hy ¤NXNݛ O;G-ʑoAOºBReBfn3<)ydM´?^3GԈ8޾eH*l 1A 0j