ࡱ> Root EntryRoot Entry (~&VBA_Project~ (~VBA_Project_Version(VBA (~ (~/ * !"#$%&'()+,-.0123  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|}~acID="{8F4AED7C-1B48-47AF-AA52-8806236F902F}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3634C21ECE620066006600660066" DPB="6C6E9854F88BF98BF98B" GC="A2A056A28DA38DA372" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=162, 162UserForm1 (~ (~PROJECTwm YPROJECTfb, 970, 644, UserForm1=81, 81, 889, 563, , 27, 27, 835, 509, Z Modul1=54, 54, 862, 536, ThisDrawingThisDrawingUserForm1UserForm1Modul1Modul10* pHd ACADProject8@ = t  IF( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0MSForms>SFFrms3 o @CompObj aVBFrame#ThisDrawingyUserForm1 WcModul1-_VBA_PROJECTdir ED452EE1-E08F-101A-8-02608C4 D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D1u00}#0#k0 ACF67E658-F75E-4883-9770-D317601F24076DOKUME~ 1\CarYn\ LOKALTemp\VBE\DTp.exd;!.E .`M "'ThisDrawingGTi@kDrawinPg 2 QHB1B-B,B mR"B+B UserAr1G!e!Ő1!m 2 O M FʇC (!A`Modul!Mqdu@ԁG2IQ%(! bam *\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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2007 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{CF67E658-F75E-4883-9770-D317601F2407}#2.0#0#C:\DOKUME~1\Carsten\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  IF'ThisDrawing0n46c9db88ThisDrawingmRUserForm10o46c9db88UserForm1F Modul10m46c9db88 Modul10Q%P0ޕ)NG%zl(6K!7SS#K#e0kr3 As=Dim{mepublicSubtoAutoCAD"VBAWin16~Win32MacVBA6#Projekt1Astdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ UserForm1)MSFormsCModul1pi^dtr`aX Stellfuss01cP\StBlock AcadBlockcol1 AcadAcCmColorSetRGB=col2BlocksӍErroNumber-AddrStLay? AcadLayer LayersS1_S2_S3_S4_S5 _S6 _ stellobj1 AcadEntityiUtility1J PolarPointK ModelSpace_AddLine8regobj1D AddRegionhaxisDir6angleA solidObj0t Acad3DSolidAddRevolvedSolidq TrueColorLayerrotaEURotate3D;LDeletexG0H]G1I]G2J]G3K]G4L]G5M]gewiobj1gewregaxisDir1{angle1gewObjiusObjradiusVheight| AddCylinderU0N_U1O_Move>yM0&^M1'^M2(^M3)^M4*^M5+^M6,^M7-^M8.^M9/^M10Pmuobj1mureg taperAngle^mutterAddExtrudedSolidjMU0MU1 MP2cmd2_clickUserFormNPrompt1,<vbCrLfZRohrKGetPoint/CommandButton1|CommandButton1_ClickClick _B_var_ZRohr8ShowZRohrasItemztest4hide9z`   6@8?'F, _ K%'xMEX @<*<.<> <\<<< <$<(<,<0<4<8<<<@ (9 (9 (9 (9 (9H (9p (9 (9 (9 (98  @/P/p//// 4  8@ H TP"B ( 8 P`p   xQ---Winkelfunktion definieren-----------------------------------------------------]n! @@zR---Winkelfunktion definieren------------------------------------------------------ " ' i5-----------------------------------------------------x]+&F+&F+&]];;; ,B0]0 2B0test02 %4.( N 6!8Block schon vorhandenDim |k &test02 !4%:.( On]P Stellfuss1 !@%:.<ing.Bl]pTh] !Rhand &f@$ 7T'Bor GoT Bf@$ ?7T'D DV@$ ?7T'F FV@$ )@7T'H H$ 7T'J S5, S J$ !@7T'Lq !VisDr & B7X2N StBlo B F7X2N(0), c F J7X2Nbj.Tru J L7X2Nr = "S L &7X2ND cP, q`]@ N !V%\'Zj1]X]MbP?+^Fh+^F+^ '`]WSet solidObj0 = ThisDrawing.ModelSpace.AddRevolvedSolid(regobj1(0), cP, axisDir, angle)ou$Z & ^ ` (%f.b , b(h 'Se Stellfuss1 b(jMo] @'ls, & B l bB@nSt$NB@p$NB@p$NB@p$NB@p$NB@p$ZB@E-------------------------------------------------------------------------](@X--]p !RM5, LV@$ 7T'rm muob rf@$ 7T'thisDra tV@$ +7T'v dtr(2 vV@$ 7T'x, dtr( x$ 7T'z1, dtr z$ 7T'|M2, dtq !V r t7X2~ t v7X2~ v z7X2~ z |7X2~ | r7X2~qH] ~ !V%\']]{Gz?+Fh+F+ ']USet gewObj = ThisDrawing.ModelSpace.AddRevolvedSolid(gewreg(0), cP, axisDir1, angle1)$ &   (%f. 2 (h Stellfuss1 (j & B l B@n$~B@p$~B@p$~B@p$~B@p$~B@p$B@?---------------------------------------------------------------]8]X]p @'?'BSet usObj = ThisDrawing.ModelSpace.AddCylinder(cP, radius, height) &   (%.]$-@ +   B@ 2 (h Stellfuss1 (j?---------------------------------------------------------------](@Xp] !R &p@$ 9m4@7T' f@$  0*@7T' f@$  0*@7T' V@$ 5^I @7T' V@$ 5^I @7T' $  0*@7T' $ _L* @7T' $  0*@7T' p@$ 5^I @7T' p@$ 5^I @7T' f@$  0*@7T'q !V  7X2  7X2  7X2  7X2  7X2  7X2q]@  !V%\']X']pMSet mutter = ThisDrawing.ModelSpace.AddExtrudedSolid(mureg(0), 6, taperAngle)$  (%.]$ +   B@ 2 (h Stellfuss1 (j$B@p$B@p$B@p$B@p$B@p$B@p$B@o80lAttribute VB_Name = "Modul1" Option Explicit '---Winke lfunkpdefinieren6/ Const piy3.14159Qg- Functr(a As Double) 1dtrF/ @180) *N End !PvP8ic Sub Stelss01() Dim cP(0` To 2J )рI0#:1= 0#StBlockiAcaFd-ol1 New AcCm Coloraall c.SetRGB(59, G&&ol22A245, 86O@rror Resu@Nex@A,= ThisDrawing.s("te`st02"fIf Err.Numbeh@Jhenm'sch@vorhand0Exit]rIfEF%Go\0 $.Add(cP , &mStLayGVeUC 7s"19A1, S23M4@SS6V`arian@NAdsobj1C4BEntity8WithUUtilS1.PolarPointK_( ^#)71i`.S2S 1t.53`9v0! 42C 5# 4 6M#F8AuAR elSpace=(j2Line"S et bo"S3r8"%3 S<. := ' 6,ǀ)aAreg!AjDeO Reg N(@ cPaxqir angle3 C 0.`001: eB&3<60'= (2soli`dObj0A AZ3|DSA஁j{volved"(!(0[!x, B  $$? r' .True"`V gIV9ot r$* 7b\ Rte3D C` t! V0).Delet@^12O1(3O1(4G '.Eraspr(GP0, G GEGe4GPAG5! QgewiPadPvfPG0PS6aECL6"G-Sa !$S]>GSa g4BGRa 72RQ!rPR1aOPuMPJI 16+P=P[Pv PC}OG@RG00O0>!$B_Or#pO1OaKOOO1(11O1( Pq%P0 O O KO5O5nfO4TsDiry3}O2 OOqLML=7G6hL6XL6HL6:LPS/LOJ"usradius1e$_heightY1t= 8`= z1'q9 Chylir2, 0/9OsH U0#,, U"1q Ut-U0-+ 14.5  .Move Up\U1%q@"?"1"/CMU0M +MdMdMdM`EM6, M7080M1‡ fmue5 ﶝMe!Z27"]70q]M@yh Df4.041hMfA  Mfm", 7.002) M4 = .PolarPoint(M3, dtr(90#)5 4LJ4.04166 L5L@8.0831L7U &6M8 &7&2*7 9 '8'10% (918cEnd With   ThisDrawing.ModelSpace Set muobj1(0).AddLine(M1, M3u1M52M!3iM8!4M10 5 10*#e=Dim@6reg As Variant muA=C.@?Reg0ion(E AtaperAngleDoubl@OH= 0[Ctter Acad3DSolid8 'CA Extruded !,f, JCStBlock0*MU0#(21MU1U1@+ 15ǁM@ve [U1FTrueColor@ col"2LayA= "Stellfu0ss1"I.D0eletRD1)UM2N3N4.5'#(.Eras` DSubA;8DEAhlnH sK˰xMESPSSS<0<4<<<< <$<(<,<8<<<0{37BC0CD8-3BA0-4E51-8DB2-DE80023E60E4}{43C53216-F913-4536-B2AA-177FDA9F8F42}x0(%X0 %`h r$ `x8d @T ei H%x% `4@ (0P D  "X  x08 `pPx]  Einfgepunkt:'  !R%'o(]` A@rA@$ B@ppAttribute VB_Name = "UserForm1" " Bas0{37BC0CD8-3BA0-4E51-8DB2-DE80023E60E4}{43C53216-F913-4536-B2AA-177FDA9F8F42} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizDOp tion 0licit P"& Sub CommandButton1_Ck() Dim Prompt1 As SngA ZRohr V`arian)= vbCrLf & "Einfgepunkt:Me.hid{= ThisDrawing.Utility.GetPoint(,"Unload MStellfuss01  End0 8'mR#<SFOv 1zyL$jq#Cx[LICnY xCx[LICnY SFOv 1MEPSLSS6"<<<<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%` % % `|@ h8@0IF$*\Rffff*0n46c9db884 " 0xoh B@PAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit @ Pub Sub test() UserForm1.Show End VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 744 ClientLeft = 36 ClientTop = 324 ClientWidth = 1704 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 1 End  Microsoft Forms 2.0 FormEmbedded Object9q (CommandButton1 OuTahoma  } 4,@CommandButton1