ࡱ> Root EntryRoot Entry@g0XN,VBA_ProjectXN@g0XNVBA_Project_Version(VBA vXN@g0XN 5 !"#$%&'()*+,-./01234678  !"#$%&()*+,./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~acadID="{913A1E8B-2DFD-11D7-B880-0050DA2F01D7}" Document=ThisDrawing/&H00000000 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="9E9C49ED79151319131913191319" DPB="3C3EEB8B172818281828" GC="DAD80D31AA32AA3255" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=19, 19, 367, 405, C PROJECTwm>PROJECTThisDrawing __SRP_4 ThisDrawingThisDrawingModule1Module1rU~}  AngleCpAp1Ap2Ap3 !eK*mrU~~~~~~~~~^ :-P/  e Q __SRP_5BModule1 0__SRP_2 ^j__SRP_3Y _VBA_PROJECT- dir'n__SRP_0 __SRP_1 a `aq) ! Project1 ACADProject ThisDrawingModule1F@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA A i0W &:c:\Program Files\Autodesk Architectural Desktop 3\ACAD.TLBAutoCAD a @0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole yPdtrBelt2 SetIncrement Ellipsoid   *Center Of Ellipsoid: u!= &:-P/u!= &:-P/Xh{ _ AcadDocument @Jm  6Lenght of Radius on X-Axis: 6Lenght of Radius on Y-Axis:  6Lenght of Radius on Z-Axis:(x`5%^I`5()`5()`5()`5W[`5 DeletefĤIx8<W[`5VBE6.DLL  F  G   j0* pHd ACADProject8@ = t  ~?( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE Automation^swThisDrawingGThisDrawng* 2# H1 ,@"E+Module1GFdu1@2:':H!Cam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#c:\Program Files\Autodesk Architectural Desktop 3\ACAD.TLB#AutoCAD 2000 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation ~?ThisDrawing053f7eb1a7ThisDrawingModule1043f7eb1a7Module1'8:-P/:-P/HIJX. AutoCAD" VBAWin16~Win32MacVBA6#Project1  stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ Module1bPi^Incr|Z Ellipsoid3d Acad3DSoliddtr`AngleABelt2SCp\Ap1tAp2tAp3ti`ja PlArrayOutb PlArrayInPLineMAcadLWPolylineAngltPlPointǺZi `ZAngBaseZAngTopBHeight.ZCpPlBelt BeltBlock BeltBlockS1 BeltRegionCurvesZ{P1^P2^P3^MiniXHbase ModelSpace_ AddSphere&uSinCosOAddLightWeightPolylineClosed, AddRegionhAddExtrudedSolidjDeletex SliceSolidUlErroNumber-ClearacUnionl]Mirror3D:Move>y (SetIncrement SetIncUtility1JGetReal9gPromptm (EllipsoidѡCpoint D1\D2\D3\GetPoint/H $rU  (`a +8`y/+++$`$`nrU~|  aq   ) Q y L -DT! @tt$ tX oXtX oX4tX?8oX9M< %L$  L l8= )L8 p t(<%l B5(<%l B5Fc'Z tkFot<*Z tkFot4&m4 t m< to ot,m< t o tP6(<%l m< kB6zc$ tkzotd&m< t md o L&m< t md o LxckxLkzkxlt xd zdzc$ tkzotd&m4 t md o L&m4 t md o LxcykxLkzkxlp xdV zdzc kzpzkzlpkzlpkzltkzltkzltkzltkzlpkzlp48M< %L$  L l8=l)L8 l ll4Y:< %L$  L Lf(<%m< t 9o,o 9[8L$  L l= )8L5AX ,(<%5o,oPoPddoPd6LdM %M( %M< % lL= L  ,o,oPoPddo,oPd6LdM %M( %M< % lL= LK  ,$ LL l[L LLHLl= [L_ L zd Fd7ddd6LdM %M( %M< %_ lL= Ll= [L_ Lddd6LdM %M( %M< %_ lL= Ll= [L_ Lddd6LdM %M( %M< %_ lL= Ll= [L_ L (%M< %_  |d ptLdR4l L8 0    / :0%'@%P$ P \ lP*:@%P$ P 8otdP*:@%P$ P 8ot\P*:@%P$ P 8otTPT\dl d(lP \{'xMEH@0  :> "LLLLPPLLLLLLx``@pF`B<`D4`F, H JH0 Mh% O0%`P SR% T VHP8 Xdp`ZX`\P  ~@`   `k`l `d`\`T(E@P@0@X(&@P @p@ @0 @ @  XPppX ( X8"bdrx@L @< @p 8 @X ( @p  @  @  )@@  @ @ @ @  /@  /@   3@H  ( 38 5` 6@p  H 7@  p 7@  ;@  ; = p >@0  H  A@ 0 A@ @ 0 l mH ` `"tp H `P@`  0~?*\R1*#c7$*\Rffff*043f7eb1a7*\R1*#d1$*\Rffff*053f7eb1a7*\R1*#f2*\R1*#10c*\R1*#59*\R1*#5b*\R1*#64*\R0*#15*\R1*#72*\R1*#72*\R1*#58*\R1*#64*\R0*#13*\R0*#19*\R1*#16*\R1*#5c  ( B 08P " X `hpx 0@H P Xhp x 2*"?   8P h '(*@&>&6Px $ && &&   8 HX $p && &&    (  8 Xh p  x      8 X 4x   4 8f   6  6X 6 D: >6 >6P  6  D: >6  D:H  6     $           2*( 2*` 2* 6  2* 2*@ 6x  2* 2* 6 @ X p " x ,   ` ( 0 "8 @ H P X  ` ./h 2* 2* 2* "@h x]-DT! @en]]P $ '"i(]p]]]]]0]DH]]]]]]]P]p]]]] ]X]] *'Z Z , ,'Zk Z . .'Zkh+TF+TF+T T Z !^%`.  6  4$(+H$(+H @  @Z $"'B @ Z $"'D . D$b B$b 'F7Heigth Of Current Slice . B$b'\$#Height of the base of current Slice$( B$b . +H 0  0 $"'<R <$d * B$d+> <$b , B$d+> 2 2$> 0 2 +4 2 0 0  0 $"'< <$d * D$d+> <$b , D$d+> 2 2$> 0 2 +6 2 0 0  0'0k 0$6+J 0 $6+J 0$4+J 0 $4+J 0 $4+J 0 $4+J 0 $6+J 0 $6+J J !^%f.8 8(h 82R R !^%j'P$P F . B$b !^%l.L$RB@n$PB@n /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX /XXXXXXXXXXX SLICING BLOCK XXXXXXXXXXXXXXXXXXXXX /XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX$J+TF$J+TF F \ +T$J+VF$J+VF \+V$J+XF$J+XF \+X T V X L%p.N NB@n$J+TF$J+TF F \ +T$J+VF$J+VF \+V$J+XF$J+XF F \ +X T V X L%p.NH NB@n r!t[ rB@vk x L B@  0 @+TF+TF+T+VF+VF+V+XF+XF+X T V X %z.L x L B@ +VF+VF+V+XF+XF+X T V X %z.L x L B@ +VF+VF+V+XF+XF+X T V X %z.L x L B@  T ( B@|oIncrement Around 180: !%' '  KAttention: The Larger the increment the longer it takes (1.2MHz,Inc=24,1mn) !B@ko@]]]] 'Center Of Ellipsoid: !%'Lenght of Radius on X-Axis: !%'Lenght of Radius on Y-Axis: !%'Lenght of Radius on Z-Axis: !%'Cylinders Cpoint, D1, D2, D3    A@&oxpAttribute VB_Name = "Module1" Option Explicit Const Pi3.14159265358979 Dim Incr AsAteger(Ellipsoid3d6Acad3@DSolidSPrivaFuncpdtr(Angle,Double) #&/ 180) * En d J ^Sub Belt2(CpMVariant`, Ap1.2u 3)(?uiY Ins j PlArrayOut(e%InLinLWPolyl; PlPoint(0 To 1) Z1Z8Bas`ToBQMBHeightCp"2@Ag C7RBlockA _FStxRegAD6Curves!A\P1C 32Zb3YMine WHnbd. =If >2 ThenAJ 2cY!fIfc33#A")r0: @N= C`$@PSet )= isDrawing.elSpace.AddSphere(P1,8/ 2`pc Reg* 2 +]PppZASa"`1For> fj  -\ 1#g=A* a90 /Ad/ei= ( !/@l=3`(Sin(r)w)) 'arth Of [rent S eK  zof the BP`cur1 &=&+ *QG!!)a)A!= i$"18f(&8os!,* C%2D9a aB=2`aja]b A-Qj! jNext ji% %B%`="1(dyobCgo_`k__ X*&:[pO(1,Oc '=?=aYSegPlh(iLUtb6qM p(3'6۟4+W653_(6]=p o AePRdldLW5( .Closed0>TruR  ? 7 #(lQaS_WExtrudedR(', b+WP>:Y, 0\v .DeletϺk'X SLICING BLOCK 'ogՌ60)W$1#8Gt2e@d(2q2(>"3# Ps343 5#* %= ab&.s$qP2,9, 10"6S1 `fX* P2  2: 67SR%tOprrResu{8PlErr.NumberP9lQClear P End I f 4Ellipsoid3d.Boolean acUnion, BeltBlockNext i:ZP1(0) = 0: 5 1 2 1P2)$2($1/2( $3$3$T3$1ISet;jMirror3D(P1, P23)}UPhU*6U0UJjove, Cp Sub Public @ zIncrement(q@}ThisDrawing.Utility.Get@Real(" Arou180:"A@>If B> 18 ThenAPrompt ("Att':A Larger `the iE.Blonit takes (1.2MHz,=24,1mn)E'DGJEQDDim(oint As VariantAD1Do*e23"= 12CCp =`0P(, "C##!Of : 68Lenght of Radius on @X-Axisf9D2}AY3/Z'Cylinders1, DeDD3&A2`rU @nrU a4)V`<jx#<:-P/u!= &:-P/x:-P/׊:-P/ME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%H` % %`h8@tt0~?$*\Rffff*053f7eb1a74xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2