ࡱ> 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  H]ThisDrawing034b273e11ThisDrawingQ+8 Root Entryܹr@VBA_Project0+!rVBA_Project_Version(VBA*+r    !"#$%&'()*+,-./0123  !"#$%&'()*+,-./0123456789:;<=>?@ABCDacID="{CC2D0B78-4FDD-4AFB-BEF2-0AF0108BF0F7}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="34360846087E0C7E0C7E0C7E0C" DPB="686A54A755A755A7" GC="9C9EA0EEE023E123E1DC" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=110, 145, 1349, 640, 640, Z ThisDrawingThisDrawingPROJECTwm&PROJECTwThisDrawingH_VBA_PROJECT dir<<980* pHd ACADProject8@ = t  H( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE AutomatXion0tD]xThisDrawingGTJisDrawing 2#(H1+8X ,@QT"+am *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\Dyi{QK@úo`8AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole` ThisDrawing5 _EvaluatePi^ZeroLz2 `Flatten SetVariable?REnt݉ AcadEntityioBlocks( AcadBlocksoBlock AcadBlockBlocksӍskip FlattenThisRegen acActiveViewportrNDesparadoFlatten9NenewNk oPlineAcadLWPolyline ModelSpace_ Thickness'~ Elevation,NormaloLineAcadLineeoMline AcadMLineoCirc AcadCircle,oArcEAcadArcoEll AcadEllipsegoHatchq AcadHatchoSpline AcadSplineڜoReg AcadRegiondoPoint AcadPointPoBref1AcadBlockReferenceoMt2 AcadMText oLeaderB AcadLeaderAttsOAttWup1^p2^p3^MINMAXȲins@Cen}El]i`oFace Acad3DFacec!bLockedoLayerD AcadLayer LayersLayer StartPointZ0`EndPointyLengthYDeletex Coordinates!kMove>yn1L^CenterW;isArcN AcadPolyline^Pline2dJIsPlanar FitPoints ControlPoints%Acad3DPolyline Flatten3DPoly;GetBoundingBoxYRd^InsertionPoint HasAttributes GetAttributesAcadRasterImage>oImageZhOriginFAcadText~RotRotatione TextString  CoordinateQ AcadDimensionowNormP>oSpaceknewArcnewEllSr&_Er ]M1'^Rotate3D;LRotateMidPoint8 MinorAxisMoveByBBw/NegNorm6 Exit_Herei Err_ControllErroNumber-ObjectIDo Description Clearo3Dpline9CoordVCoordsfCt\PtsSpace ObjectIdToObjectMOwnerIDAddLightWeightPolylineClosed, TrueColornum1]num2]dRetדdMidy AcadDocumentZ<  1A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tl%8]Q#xME  (08@HLPTX\`d@SLSS<  0 Then $ (End Ifk  (kk He .r r!D'z r$ r%#+   rB@k` Le . !'z  z   %'|+| |  , deDimPointsToZero Entk  (op+z z'iH] ]X]x]]]]]0]H`]xOn Error GoTo Err_Control+ !D'6] ! %. ! (k@$6$$6$$6$' 8 Hd  (Dk$6$e $  (D' (e .R R!'z R!'| z |  RB@ z |$  RB@' ,e .V V!' V!' 'zF '|$z$ +z$z$ +z$z$ +z$|$ +|$|$ +|$|$ +| z |  VB@' 8e .b bA@ He A@ @e]+  (D A@kkkk  z  !KTGeneral modeling failure[ V!S MsgBox Err.Description[ ! ! B@8 n0 i(  ] ]  R!D'6$6-C6? $6-C6? $6H.? $6qh? '+8 8 R(DzP $6H.? $6qh? e'+8 8 R(Dz k k k i  ]` x    B@$$$ '+   B@k8 i0  ]( ]@ ]X p ] ] ] !'  '[       %'$ +$  +  ! % .   %.: ! :(k ! :( ! :( :. B@ih  ]   ' :0yE> G'ji  ]x $z$| +$z$| +$z$| + 'i &Attribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit P!% Const Pi A s Dou^3.14159265358979 operty Get Zero()Varia n( Dim 0z2(2 &  xz2 E`nd Pr%+Sub Fkten!(Ent+Acadity)!#0oLineSMlM Circ l@_'AEll ip}F PLWPolyAHatchSpCRegEpPoiJCBrefEBlockRefePrencI 0AT= f !aMove El,"$ F'" =BF oa= n1("#@rtc@b #:h6Th`lS@o62isN( O0T_S 2.W?>fO o< t  aD # T0 |??7soou#B$R T" .Elevay= wQ O.$XP~ !kB2dUs05+ T? 8 4O _ ??#;s  o  o.IsPlanarSbydFiSoGb P UBound(p1) < 5_aᐳtrolRqxQ1cfbdhsfsSfU--3D/-_TөK_BEi#.ŢPBox k!@Rd(0KBp+O`7@@ .bpHo~O-s;-oB !g~WOD>oR .InsPǂPy?#Le #Hasriϵbutes Th en Atts = oBr@ef.Get 0p16dp18= 0@p1H??Ma OrEBKDRot @CDoubleB?.@aAn1(\)>.String91""HA Delet@vinA  N4 X' 9p4@π'ɩEt,? @Leade`@ɍZZCUC.Normanl $@=o=El,$.Coordinate(0)@*Move El, Zero&ad3DFacz!i-wo (UBound(p 1) - z/ R3Jp2@o (i?p2!kz` p(_1 sQGHo%`#@  EoP.oaMbQMinorAxioq:Mob0=== +PMp ,p1 vQ2Uhs~2azc 2}a -o Bc 2(po  o &?#X##uegb#No#TByBB oPft~RefexrenTnN|egT= -t] /Q  End If X D Exit_Her e:v Function Err_Control@Select Case .Numberx-2145386371'General modeling f@ailure5Debug.Print oEll.HObjfID XEls'MsgBoxCDescr|ip[ +V,CCleahResumuH  isArcN(o As Acad)Boo5Uim N Variant3D newN(2ADoubl@N = A.Normal If Abs(N(0)) < 0.0001 TheDA1 >9 A9C2B1QA=(Trul5= 1C.5  9A/< -0.P/> -/)@'-//YIaemNNMoveByB8B(E@jO@it y))AKMIN, MAX#Oncor D^NexP.GetBouReE( * + 1dGFDi 0 To %b P(iAi =  c$A(d! Q iSet c#=`MisDrawSdTo@.Ow ID2= .AddLightWeEC(d ]loseda] .CI%Y7Layer& DA Col`_d-.F 0!b'uD@|tPY4:D =num11+40, 2*ldR@Gj2=1'aC Ae&ksPkdk R 6vMidPo(p1, prN;dPF;m a0\( +p122 1%g"s/ )= Q"ar&pB 0 Iz  i  ,T 0 8 X  X@p