аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ€Щ…BЗШР)VBA_Projectџџџџ€X…BЗШ€Щ…BЗШVBA_Project_Version(џџџџџџџџџџџџVBAџџџџ €Щ…BЗШ€Щ…BЗШџџџџџџџџ§џџџ ўџџџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ ўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFўџџџHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuўџџџwxyz{|}~€acadID="{703BD1B9-FB90-4599-93ED-FDE1310930F2}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="090BE8E8ECE8ECE8ECE8EC" DPB="1210F3F8FDF9FDF9FD" GC="1B19FAF302F402F4FD" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=132, 174, 1632, 666, UserFormUserForm1џџџџџџџџ€Щ…BЗШ€Щ…BЗШPROJECTwmџџџџ DPROJECTџџџџџџџџџџџџэfџџџџџџџџџџџџž 1=0, 0, 1500, 492, , 154, 203, 1654, 695, Z ThisDrawingThisDrawingUserForm1UserForm1В€0* pH‚dф ACADProject8@е = t  ЃxЎI( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0€MSForms>SFFrms3 €ED452EE1-E08F€-101A-8-02608C4 D0BB4EFM20.DLL#MicrosoftŠ ‚o џџџџ”pCompObjџџџџ џџџџ’aVBFrameџџџџџџџџџџџџ%ThisDrawing џџџџvЎUserForm1џџџџџџџџG _VBA_PROJECTџџџџџџџџџџџџ dirџџџџџџџџџџџџ ƒџџџџџџџџџџџџ: €^ ObЎ Libraryш/;D1€„uˆˆ00}#0‚#€k0Ÿ € РAFD1DCE7C-0F6C-€2F-BE7F-097B48@29C8C8ˆ6DOKUME~1\weca\LOKALATemp\VBE\„S.exd ;Р €с.E р….`PŒM ДAІBЁDТё7BЃThisDrawi ngG€T@Œi€jDrawing* 2 €ЊHB1‚­ОРУBE,B [ј"B+B РUseТrq1GР!ЖeР!1Р!Š 2” MO ZР M rC ()€У!ТЬ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\acax16enu.tlb#AutoCAD 2006 Type LibraryМ*\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{FD1DCE7C-0F6C-4D0F-BE7F-097B4829C8C8}#2.0#0#C:\DOKUME~1\weca\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџџџЃxЎI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџё7ThisDrawing1H49ae78bbџџThisDrawingџџ[јОџџUserForm11I49ae78bbџџUserForm1џџrZ џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџро&n\V@АъЊѕЙjџџџџ\Ъ^}’ЎC-є3™зf€џџџџџџџџH€+/џp*{€џme•€џPublicЏ€џSubAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Projekt1вAstdole“` ACADProjectІд ThisDrawingЙ5 €џ_Evaluateй AcadDocumentZ UserForm1)жMSFormsCUserFormNLabel1,Label2Ž, Label2_ClickŒ€џClickŠуLabel3,TextBox1ІSTextBox2ЇSTextBox3ЈSLabel4,Label5‘,Label6’,TextBox4ЉSCommandButton1|дCommandButton1_ClickфСlineObjmЙ€џAcadLinee „џstartPoint№Œ„џendPointдy €џModelSpace_ж€џAddLine8€џZoomAllm$TextBox1_Change=ч€џShowѕ€џValueфKTest4ЋUserForm_ClickлјUserForm_Initialize5cTest1іc €џџџInitializeгNџџTџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ $ИфtџџџџРT ё7rџџˆЖџџџџџџџџџџџџt”БCЗя`GЃБ\љКKJѓзC;:џџџџ`џџџ˜ˆiƒўџџџџџџџџџџџџџџџџџ џџџџИƒўџџџџџџџ№џџџџџџџџџџџџџџ%‚ џџџџўџџџ џџўџџџџџџџџџџџ% 8џџџџ`џџџџџџџџџџџџџ@џџџџeМœiƒўџџџџџџџџџџџџџџџџџ ’ „@џџџџDџџџР’P8P0,4FrP<џџџ џџ €iƒўџџџџџџџџџџџџџџџџџ џџџџiƒўџџџџџџџџџџџџџџџџџ џџџџџџџџ8,џџџ џџ џџџџ@ўџџџџ џџ џџџџh„ iƒўџџџџџџџџџџџџџџџџџ џџџџџџџџH(џџџџџџџџџџџџџџџџ(џџџџџџџџ0џџџџџџџџџџџџјШlРМџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ"€ . € џџџџ€€P€`€ џџџџ€ 4p@j@@jЈ€ џџџџ€ &ј=   шџџџџˆ]ђ`A@F–(oџџ`р( This example adds a line in model spacea]ЌЌђ€]ЌЌђ р- Define the start and end points for the line џџ!,Ќ+@F џџ!4Ќ+@FДЌ+@ џџA@rр Create the line in model spaceэ > @ !B%D.: џџ!(Ќ+>F џџ!*Ќ+>FДЌ+>џџџџxџџџџ#ВAttribute VB_Name = "UserForm1" " €Bas€0{48ED083F-FC29-4BE7-B361-21ADBFD22CD8}{46C0E6C4-40A1-4CC2-98F4-30A44174772A} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹DP Sub CommandButton1_Cli€ck() ' This exa€5e adds a line in mode8l s‚ƒDimObj AsР AcadL€startPoint(0 To Ф2)Dou€–‡endšC ' D„efС#the J 3  pAsр for A-У Щ)€^Me.Te€xtBox1:У51 2 -= œ0#CЧ*‹ 3:A"R4ˆЪC' Fe†.\Set†Z=ТjDrawingŒ.MСfТЇ.AdТ_(‡=,F%ФyZoomAllƒUnl oad M€ЃEndСˆ фф8 Иё7[јџџ#ˆЖџџџџџџџџ<џџўЕшдHЯБBР`F&чйuŽ!=в…Ф  Ц&‚ƒ„…†‡ˆ‰Š‹ŒўџџџŽ‘ўџџџ“ўџџџ•–—˜™š›œўџџџŸ ЁЂЃЄЅІўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@P НЎљCЃЗЉgjцх@џџџџџџџџџџџџx@P НЎљCЃЗЉgjцх@ўЕшдHЯБBР`F&чџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPSLџџџџSџџџџS”џџџџ6"џџџџ<џџ<џџ<џџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} ˜ €ўџџџџџџџ(џџџџџџџџџџ%иџџџџƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ8`џџџџџџИ џџџџ|џџџџџџџџџ|џџ„ Tџџџџ`џџџџџџџџџџџџ|џ@џџџџџџџџ|”џџџџриџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџh8@€|џџџџџџџџџџџџџџџџџџџџџџ0ЃxЎI $*\Rffff*1H49ae78bbпџџџџ4ўЪ" џџџџ(–иoџџp B@JAutџџџџXџџџџьАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Public Sub Test1() UserForm1.Show End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 2070 ClientLeft = 45 ClientTop = 435 ClientWidth = 3135 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 11 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq(€Punkt1:"Ї5€ЅTahoma:(€X:u "Ї5€ЅTahoma:(€Y:u "Ї5€ЅTahoma:@€H€,€і,0"u 5€ЅTahoma@€H€,€і,0"u 5€ЅTahoma@€H€,€і,100 5€ЅTahoma(€Punkt2:"Ї5€ЅTahoma:(€X:u ЇЇ5€ЅTahoma:(€Y:u ЇЇ5€ЅTahoma:@€H€,€і,100 5€ЅTahoma: (€CommandButton1ь Ou€ЅTahoma:  }šC м‹ (ѕ€28Label1:дд(ѕ€24Label2:дO(ѕ€24Label3:д$х€<TextBox1OO$х€<TextBox2O$х€<TextBox3ЖO(ѕ€28Label4x3; д(ѕ€24Label5x3; O(ѕ€ 24Label6x3; $х€ < TextBox4ЖЪ,х€ @ CommandButton1ь