ࡱ> '=>4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit   &@h   (  h xxN This example adds a line in model space and returns the delta of the new line]@]`]x- DRoot Entry@?s4VBA_Project Gq@?sVBA_Project_Version(VBA Gq` N (x c !"#$%&)*<,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijklmnopqrstuvwyz{|}~ . !"#$%&'()*+,-t/012345689:;<=>?@ABCDEFGHIJuvwxyz{|}~ID="{056B416F-46F3-450C-8B88-69BC5B2369F1}" Document=ThisDrawing/&H00000000 Module=Entities Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="A0A2696F6D6F6D6F6D6F6D" DPB="E4E62DEB352E362E362E" GC="282AE1F2E2F2E20D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Entities=8, 56, 652, 425, Z PROJECTwmAPROJECTThisDrawing 7__SRP_4ThisDrawingThisDrawingEntitiesEntitiesrU~}   px0* pHd ACADProject8@ = K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~__SRP_5BEntities+__SRP_2__SRP_3'_VBA_PROJECTdir |dir__SRP_0 ~~~~~  |B?PuCᓗU  a i y  ThisDrawingChap12_ExamplesModule1 ACADProjectF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA 9 a0W & 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD Y@0Fc:\windows\SYSTEM\StdOle2.TlbstdoleAddPolyfaceMesh IqP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms aa`iGH$c:\windows\TEMP\VBE\MSForms.exd 9aap Add3DFace Add3DPolyAddArcAddArcD AddCircleTan AddCircleD AddEllipse AddEllipseDAddHatchAddLightWeightPolylineAddLineAddLineDAddMLineAddMTextAddPoint AddPointD Add3Dmesh AddPolyline AddRasterAddRayEditRayAddRayD AddRegionExample_AddRegionAddShapeAddSolid AddSolid2 AddSpline AddSpline2AddTextAddTrace AddTrace1AddXLine AddXLineD AppendixD u!= &8WnݓOXuB^Du!= &?۱Iy%QXh{ _ AcadDocument @(x`5%^I`5()`5u!= &W[`5AddArc2()t  _%n=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#Gj0rAB89669 C8-1E647F2-A348-24BB1FB70198APXWP\VBE\DO.exd`7.E .`PM DuT@hisDraugGThi@fDrawng 2 HB1¨BE,B "B+BEntitiesGAnie$2f>!<jxu#<8WnݓOXuB^Du!= &?۱Iy%Qx?۱Iy%Q8WnݓOXuB^DME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (am  *\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\AutoCAD 2000i\ACAD.TLB#AutoCAD 2000 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   _%n=uThisDrawing053d6e1276ThisDrawingEntities093d7113bc0Entities>f0P^3VI?w'Mg"D1 xmH0!XN As=dim]GoSubObjectreturnSubTextWidthAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateChap12_Examples; Add3DFace4 Acad3DFacec!P1^P2^P3^P4^ ModelSpace_VisibilityEdge3 Add3DPoly9Acad3DPolylinePgClosed,AddArc_AcadArcCenterW;RadiusVAngBegGgAngEndxColor2FacRedAddArc2A Application* ZoomCenter|i`ja startAngle|/Update AddAttribute AcadAttribute+Height|ModevPromptmTag&ValueKacAttributeModeVerify AddCircle AcadCircle, CircumferenceDiameter( AddCircleTan#ObjLAcadLineeObjP AcadPointPObjCvAddLine8AngleASinCosOAddPoint  SetVariable?R ZoomExtents+ AddCircleTan1Object1LObject2LObject3LObject4LObject5LR1^Object6LR2^Object7LP1alP1bmP2aP2bP3aP3bRotate IntersectWith acExtendBothSqr( AddCircleTan2P5aP5bP6a%P6b& acExtendNone> AddEllipseğ AcadEllipsegAxisMjRadRat AddEllipse2gendAngle`AddHatch AcadHatchPatNam#PatTyp Assoct8LoopOTsl AcadEntityiAppendOuterLoopxEvaluateT AddHatch2&LoopINkAppendInnerLoop@AddLightWeightPolylineAcadLWPolylineLinetypeGenerationAddLine08FootballLcWmAddMLine= AcadMLineAddMText AcadMText HerefacYellow ZoomWindowMsgBoxR GetVariable~vbCr$AddPolyfaceMesh1=AcadPolyfaceMeshZFaces'AddPolyfaceMesh9zAddPolyfaceMesh2>AddPolyfaceMesh3?AcadText~P5^P6^P7^P8^P9^P10[P11\P12]AddTextQAddPolyfaceMesh4@PointsFnum PnumAddPolygonMesh AcadPolygonMeshήMdNe Add3Dmesh>acQuadSurfaceMesh2eAddPolygonMesh3AddPolygonMesh4 AddPolyline  AcadPolyline^ AddPolyline2ESetWidthHSetBulge;OacCubicSplinePoly'acFitCurvePolyacQuadSplinePolyr AddRasterAcadRasterImage>ImgNamScaleFNAngRotVErrMsg TransparencyAddRay1kAcadRaylAddRay0AddRay2lMarkerSDirectionVectorStrEditRay\ AddRegion19VcurvesZ{Ri startPointendPointy AddRegionhacGreenb AddRegion2:VCentroidgCentrPnt AddRegion3;VTanBeg+TanEnd& AddSpline FitTolerancemomentOfInertiaCenterPtExample_MomentOfInertiaboxObj^u Acad3DSolidlengthYAddBoxd NewDirectionActiveViewport  direction&ZoomAllm$ AddShape1 AcadShapeShpNam LoadShapeFile>shapeObjcAddShape,AddSolid8 AcadSolid; AddSolid2  AddSpline1Z AcadSplineڜ AddSpline2Z SetWeight[xoSetControlPoints~Reverse`o AddSpline3Z ElevateOrderAddText1 Example_AddTraceũtraceObjA AcadTracerQtracePts=$AddTraceouTraceCcTrim@ SendCommandc AddTrace1@; AddTrace2A;plineObjC AddXLine1Ȓ AcadXlineU#AddXLineRGModule1b Example_DeltaxlineObjm lineDelta&DeltavbCrLf AcadDocumentZ _B_var_Pointsȕ _B_var_Faces_B_var_shapeObj+ _B_var_Sub_B_var_i  _B_str_Strz _B_str_Trim_B_var_plineObj|_B_var_traceObj  AppendixDFAddMLing?A3Dmeshpg AcadLayer LayersAddr ActiveLayer>LayNum  _B_var_LayNumvNewLayerxlaynimAddArcDS AddEllipseDg_B_var_AddMLing AddCircleD4AddLineD8 AddMLineDH AddPointD>_B_var_AddMLineDEditRayD6AddRayD~_B_var_AddRayD AddXLineDےExample_AddRegionc centerPoint regionObjJBringBAddTrace_Doesnt_B_var_AddArcDVEntitiesT1  $ e()`5()`5AddPolygonMesh SURFV()`5()`5 0.25 , FILLMODE _TRACE       ()`5AddTrace_DoesntEntities-Trace_Doesnt1AddPolygonMesh SURFVz$y,`$-`$.`$ /`$10`$Y1`$2`$3`$4`$5`nrU~| !!Yq  0  0  0 @  0  0 H  0   0   0   0   0   0   0   P ] x kxpxkx`vkxk\tcXkvktl`@ tdXc ve\T z kzpzkzTvkzkP tcLkvktlT@ tdL veP>=0lTM4 %l`Md %D$ D (l0=H)D0LP<$HT`D00   0   0   0   0 @#  0 0$  0  0 p)  0 >  0 -  0 -  0 0/  0   0 x1  0 4  0 86  0 6  0 8  0  0 8        HMp0  0 x1  0 2  0 4  0 4  0 5  0 86  0 6  0 x7  0 8  0 8        !"#$%&'()*+,-.      !"#$%&'()*+,-./012345\rU @nrU  y 4 aA efine the start and end points for the line+fF+fF+f+hF+hF+h Create the line in model space f h !$%r. !BB@" Display the delta of the new line !' ,,,The delta of the new Line is: DeltaX:$ DeltaY:$ DeltaZ:$A@oAttribute VB_Name = "Module1" Option Explicit SubxMEL8<@DHPTX\ $`(04<<*<2<<`x `0@ ">801`8H> 5P5585h;H>XH>@L `)@< H>8 66x6<0H>V @T/ h= H>H>D  =(@ @< @, H>@( @$ @    P >>0 @>< 0?>8`@y>>(, @ h>8 $8`>@X< @, @ @ 8 `@ = , _%n=$*\Rffff*093d7113bch. 6p. . *. P. RH/ R/ R/ NP0 0 81 " 0 0@P 6*`4*2*4* $O@ hx 0 "  2*2*2* 4H `p p1 "  2*$=0 1(X P1 " 1x0 2*1h112$= 2 p(H2 `2p2"22*2 23$3 83$=H3 p3 33 3 " 0 2*2*(=`  ('('4 70Px ` " . 2*2*(&8 @`  44 0  " -PX`h p  4 2*"C@ P`"Cp    8 " .     0  P  p 4    - "   ; 3   $ 2+H 2, =   3 " 0  2* 2*X 2* 2* 2* 2*8 4p   " 0    2*   3 :P  p 2*  :  p4 " 1  2* 4   (82*H2*-   ! &*0 |X    " .,   P`x     (@X p   = 4 "  2*2*H2* 2*:12*0 2*h802*  =(H @: " 44442*5808580p58052*52*680P62*68062*62*072*h72*72*72*82*H88082*88082*(92*`980980980:2*@:x: =: 44 : ;4 ; " PX 2*h2*2*2*2*H4 1 " 1 "-2*$=  HX `*h (; " (1 2*2* =X x44  "   2*02*h= 44 4* P4`x  "   @ 2*(2*`2*2*2*2*@2*x2*2*2* 2*X2*2*@  84@ Xpx  4  " 08@PX `@(. h2*x$7$70 8 +@`  "      2*X 2* 2*2*$O "   !!(! >68!80x!80!2*!$O "H" h " h"p""" :1"80"2*#2*P#2*# F## `; " ($$$ $0$ :1@$80$ 2*$2*$2*(%!`% F% % % 2*%2*%2*0&$*h& F&& & 2*&2*'2*H''' F'2+'( ( ((8( P" " H(P(X(h( p((2*( :((2*) :@)`) # " @(h)2*x)2*)2*)2* *2*X* ****@V* + +"%8+`+ @; " h+p+2*+2*+2*+2*(, `,4,, ; " 01,,, 2*,2*-=8- X-p-4x-4---;@ ]@]`]]]+F+F++F+F++ F+ F+ +"F+"F+"    " !$%. (&o] ]]+,F+,F+,+,F+,F+,+,F+,F+, , !$%(. (.ox]( ]]]P]h]+4F+4F+4'6-n! @'8;n! @': 4 6 8 : !$%0. 4 !BB@D Object.Color = acRed]@ o0PDMODE" B@|]]]](]`+F+F+ +F +F+   !$%r.h]]x] h!t't'6$ 6 t$v + $ 6 t$x + +   !$%z.l  6 !$%^.p !BB@~  Example 9-11.o Example 9-12.] ]]8]p+4F+4F+4+F+F+ ??? 4   !$%.-n! @ (Jhn! @ ( ] 4 !$%z.l  !$%z.lPDMODE" B@| !BB@~o  Example 9-14.] ]@]X]pEscher'''    !$%.]]]+4F+4F+4'6 4 6 !$%^2  B@]?'6 4 6 !$%^2  B@ B@ B@LoX]] +,F+,+,F%` % %`h8@tt0_%n=$*\Rffff*053d6e12764 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C+,+,F+,+,F+,+,F +, , !$%. ( B@LoH]] ]]P ']h] F   F+F+F+ F+F +F+   !$%r. Fo  Example 9-21.]]8(+,FF+,F+,2+,FF+,F+,<+,FF+,F+,( +,F< +,F +,2 +,F< +,F+,<+,F<+,F+, , !$%.o]]]8] +,F+,F+,' ,  d !$%.+,F+,F+,werve ,  d !$%. (ect.o Example 9-26.]x]+F+F+  !$%z.  (<]]+F+F+ +F+F+   !BB@] ] F` HPDMODE F H B@|PDSIZE F H @ B@| PDMODE=PDMODE % PDSIZE=PDSIZE % Press OK to continue...A@ H Fo] ] ]( ]@ C:/A2K2_VBA/FullerPoints.txtller   '   F  H F H $ H F   '  F  H F H $ H FW]   !$%.o]](]@]8+,F+,F+,+,F+,F+,+,F+,F+, +,F +,F +, +,F +,F?+,+,F+,F+,+,F+,F+,+,F+,F?+,+,F+,F+,'&F'( & ( , !$%*.o<]x]+,F+,F+,+,F+,F+,+,F+,F+, +,F +,F +, +,F +,F+, , !$%2.o@7] ] ] ]!]0!Lh.+,F+,F+,'H'J F , H J !$%B. (N|-L- F not found.A@o- Example 9-37.orH]#]#]#+F+F++F+F+   !$%T.PDMODE" B@|]$  !$%z.X  !$%z.XA@op) Example 9-38.or Example 9-40.]p$]$]$+F+F++F+F+   !$%T.PDMODE" B@|]%  !$%z.X  !$%z.XA@+F+F+  (Z  !$%z.Xo' Example 9-42.])])+F++F+  !$%2b]&(*+F+F++F+F++F+F+ +F +F + +F +F++F+F++F+F+ +F+F+ +F+F++F+F++F+F +!+F"+F#+$+F%+F&+  !$%22b @$b(l]`* b !$%j'PDMODE" B@|]x*]*]*]*$!p'p F p p F$p F+ F  !$%z.o X  ]P-]p-]-]-]-L8bat'+,F+,F+,'H'J+ in radians  , H J !$%.n! @'J  , H J !$%.|0L(Shape file not found.A@o Example 9-44.oh    " !$%.+"F+"F+"++ F+ F+ ++F+F++ +F+F++"]]( ]X ] ]  P  ]p/]/]/]0]80?+F?+F+?+F+F++ F?+ F+ +"F+"F+"    " !$%.o Example 9-46.]0]0]1]@1 @+vF+vF+v?+xF+xF+x+,F+,F+,+,F+,F+, +,F+,F+, , v x !$%z.o Example 9-48.]1]1]1](2]`2 @+vF+vF+v?+xF+xF+x+,F+,F+,+,F+,F+, +,F+,F+, F? , v x !$%z. F (| F +,F+,F+,+,F+,F+,+,F+,F+, F?? , v x !$%z. F B@ F+,F+,F+,+,F+,F+,!+,F+,F+,]2 F , v x !$%z.+F F+F+  B@ B@ Fo( ]5]85]P5]5?'R Base Point'd+,F+,F+, d , R !$%.X Second Point'd+,F+,F+, d , R !$%.Xo ]x6+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +, +,F +,F+,]6]6 0.25' F  F$,$ \, F $,$ \$ ' FFILLMODE B@|_TRACE   B@o] 7] @7+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +,FILLMODE B@| , !$%.o`] 9]@9]x9+F+F++F+F+   !$%.PDMODE" B@|]9  !$%z.X  !$%z.XA@o~~C:/A2K2_VBA/RasterFile.jpg'Fjpg' Example 9-16.@/C:/...AutoCAD Directory.../Support/ltypeshp.shx B@/ VBA for AutoCAD 2002: Writing AutoCAD Macros Jeffrey E. Clark # Copyright 2002 Prentice Hall PTR!$%J This software may be freely copied and used so long as this disclaimer,K together with the above copyright notice, are included in all copies and+L any accompanying documentation. These example programs are made available - worK "as-is" without any explicit or implied warranty. Neither the author norG publisher warrant that these programs are error free or will operate without interruption. Example 9-3.  ]X H Example 9-33.,  Example 9-1. Example 9-7. 9'6 Example 9-5.Th] -n! @'8, AngB > (<,+4F+4F+4;n! @':ot fou 4 6 8 : !$%0.0002 4 !BB@D]p  F? H@BF H0 F+4F+4F+4  4 (4T F (6- Fn! @'8 8 (J 4 6 8 : !$%0. B@L+ F0o Example 9-8. h ', Example 9-18., ?Bring me my Bow of burning gold: Bring me my Arrows of Desire: ?Bring me my Spear: O clouds unfold! Bring me my Chariot of fire'd  Example 9-23.  Example 9-28.F]]8]JoSURFU B@|SURFV B@|+,F+,F+, 8 +,F+,FQ?+,+,F+,F?+, +,F +,FQ? +, +,F +,F+,y Spea+,F+,F+,'d +,F+,F?+,+,F+,F+, Desir+,F+,F?+,+,F+,F+,xample+,F+,F +, !+,F"+,F#+,$+,F%+,F&+,;n'+,F(+,F)+,%0*+,F++,F,+, F-+,F.+,F/+, H0+,F1+,F?2+,3+,F4+,F5+,6+,F7+,F?8+,9+,F:+,F;+,0<+,F=+,F>+,ing.Se?+,F@+,FQ?A+,B+,FC+,F?D+,E+,FF+,FQ?G+,H+,FI+,FJ+,8'&F'(P & ( , !$%*.: Example 9-29. (see PolygonMesh Excel macro in Ch09.xls) , (l0! B@L!B Example 9-31. Example 9-35.  Example 9-unnumbered.F Example 9-unnumbered., Example 9-50.,]XXPing.Se?+,F@+,FQ?A+,B+,FC+,F?D+,E+,FF+,FQ?G+,H+,FI+,FJ+,8'&F'(P & ( , !$%*.: Example 9-29. (see PolygonMesh Excel macro in Ch09.xls) , (l0! B@L!B Example 9-31. Example 9-35.  Example 9-unnumbered.F Example 9-unnumbered., Example 9-50.,@I+,FJ+,8'&F'(P & ( , !$%*.: Example 9-29. (see PolygonMesh Excel macro in Ch09.xls) , (l0! B@L!B Example 9-31. Example 9-35.  Example 9-unnumbered.F Example 9-unnumbered., Example 9-50.,'+,F(+,F)+,%0*+,F++,F,+, F-+,F.+,F/+, H0+,F1+,F?2+,3+,F4+,F5+,6+,F7+,F?8+,9+,F:+,F;+,0<+,F=+,F>+,ing.Se?+,F@+,FQ?A+,B+,FC+,F?D+,E+,FF+,FQ?G+,H+,FI+,FJ+,8'&F'(P & ( , !$%*.: Example 9-29. (see PolygonMesh Excel macro in Ch09.xls) , (l0! B@L!B Example 9-31. Example 9-35.  9-31.xD 6 8 : !$%0.'J+4F+4F+4;n! @':ot fou 4 6 8 : !$%0.0002 4 !BB@D]p  F? H@BF H0 F+4F+4F+4  4 (4T F (6- Fn! @'8 8 (J 4 6 8 : !$%0. B@L+ F0ox+F+  !$%T.DE" B@| B@~] !$%z.X !$%z.X]  F%Z F+   !$%z.XH$ \ $ $ \ $ $ \A@o@#, 000510 - works with Text example]#]#]#+F+F++F+F+   !$%T.PDMODE" B@|]$  !$%z.X  !$%z.XA@op)0$, 000512 - works with Text example]p$]$]$+F+F++F+F+   !$%T.PDMODE" B@|]%  !$%z.X  !$%z.XA@+F+F+  (Z  !$%z.Xo'r,000216]]]]]0+,F+,F+,z @': (d 8 : !$%02b0b!f$b!h !$%r2b] b!$%j' l$(<or,000508]]]]]0+,F+,F+,z @': (d 8 : !$%02b0b!f$b!h !$%r2b] b!$%j'DE" B@|]]]!p'p  p p F F+r  !$%z.or,000508]]]]8+vF @+vF+v0?+xF+xF+x0+,F+,F+,0+,F+,F+, 0+,F+,F+, v x !$%z2b$b(| v x !$%z2b$b(|] b!$%j'DE" B@|]]]!~'p*Centroid  p p F F+r  !$%z.op),000509])])+F++F+  !$%2b]&(*+F+F++F+F++F+F+ +F +F + +F +F++F+F++F+F+ +F+F+ +F+F++F+F++F+F +!+F"+F#+$+F%+F&+  !$%22b @$b(l]`* b !$%j'PDMODE" B@|]x*]*]*]*$!p'p F p p F$p F+ F  !$%z.o +, AutoCAD documentation for Region+ This example creates a box in model space.2 It then returns the MomentOfInertia for that box.]@+]`+x++]+ Define the box@+4F@+4F+4@'F'F$@'R/ Create the box (3DSolid) object in model space 4   R !$%.C Change the viewing direction of the viewport to better see the box]++F+F+  !( ! (A@' Return the MomentOfInertia for the box], !~'~#The MomentOfInertia for the box is $~, $~, $~MomentOfInertia ExampleA@o0,,000216]p,],],],],L$d:/AutoCAD_2000/Support/ltypeshp.shx B@box'+,F+,F+,'H'J+ in radians  , H J !$%.|LShape file not found.A@o-,000510]P-]p-]-]-]-L8bat'+,F+,F+,'H'J+ in radians  , H J !$%.n! @'J  , H J !$%.|0L(Shape file not found.A@o-,000216]0.]P.].].].+F+F++F+F++ F+ F+ +"F+"F+"    " !$%.o0/,000510]p/]/]/]0]80?+F?+F+?+F+F++ F?+ F+ +"F+"F+"    " !$%.op0,000216]0]0]1]@1 @+vF+vF+v?+xF+xF+x+,F+,F+,+,F+,F+, +,F+,F+, , v x !$%z.ox1,000506]1]1]1](2]`2 @+vF+vF+v?+xF+xF+x+,F+,F+,+,F+,F+, +,F+,F+, F? , v x !$%z. F (| F +,F+,F+,+,F+,F+,+,F+,F+, F?? , v x !$%z. F B@ F+,F+,F+,+,F+,F+,!+,F+,F+,]2 F , v x !$%z.+F F+F+  B@ B@ Fo(2,000513]3]03]h3]3 @+vF+vF+v?+xF+xF+x+,F+,F+,+,F+,F+, +,F+,F+, , v x !$%z.]3 F , v x !$%z. B@+F F+F+  B@ Fo 4,000215]P4]p4]4]4 Hello, World.'d+,F+,F+,?'R d , R !$%.o 4,*000510 - works with Ray and XLine examples]5]85]P5]5?'R Base Point'd+,F+,F+, d , R !$%.X Second Point'd+,F+,F+, d , R !$%.Xo 5- This example creates a trace in model space.]5] 6* 4 (3D) points Define the points of the trace+F+F++F+F+4 tracePts(6) = 5: tracePts(7) = 3: tracePts(8) = 06 tracePts(9) = 5: tracePts(10) = 1: tracePts(11) = 0+F+F+ +F +F +' Turn on the system variable (FILLMODE)! to fill the outline of the traceFILLMODE B@|' Create the trace object in model space  !$%.A@o86,000513]x6+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +, +,F +,F+,]6]6 0.25' F  F$,$ \, F $,$ \$ ' FFILLMODE B@|_TRACE   B@o6,000216] 7] @7+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +," P(12) = 5: P(13) = 0: P(14) = 0FILLMODE B@| , !$%.o`x7,000510]7] 7+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +, , !$%2. (.+,F+,F+,+,F+,F+,+,F+,F+, +,F +,F +,FILLMODE B@| , !$%.o8,000216]P8]p8]8+F+F++F+F+   !$%.o08, 000510 - works with Text example] 9]@9]x9+F+F++F+F+   !$%.PDMODE" B@|]9  !$%z.X  !$%z.XA@o~~C:/A2K2_VBA/RasterFile.jpg'Fjpg'3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@~Bring me my Bow of burning gold: Bring me my Arrows of Desire: Bring me my Spear: O clouds unfold! Bring me my Chariot of fire'd'p~Bring me my Bow of burning gold: Bring me my Arrows of Desire: Bring me my Spear: O clouds unfold! Bring me my Chariot of fire'd'3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@@9]x9+F+F++F+F+   !$%.PDMODE" B@|]9  !$%z.X  !$%z.XA@o~~C:/A2K2_VBA/RasterFile.jpg'Fjpg'3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@!$%.A@o86,000513]x6+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +, +,F +,F+,]6]6 0.25' F  F$,$ \, F $,$ \$ ' FFILLMODE B@|_TRACE   B@o6,000216] 7] @7+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +," P(12) = 5: P(13) = 0: P(14) = 0FILLMODE B@| , !$%.o`x7,000510]7] 7+,F+,F+,+,F+,F+,+,F +,F+, +,F +,F +, , !$%2. (.+,F+,F+,+,F+,F+,+,F+,F+, +,F +,F +,FILLMODE B@| , !$%.o8,000216]P8]p8]8+F+F++F+F+   !$%.o08, 000510 - works with Text example] 9]@9]x9+F+F++F+F+   !$%.PDMODE" B@|]9  !$%z.X  !$%z.XA@o~~C:/A2K2_VBA/RasterFile.jpg'Fjpg'3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@PF+,+,F+,F+, +,F +,F +,FILLMODE B@| , !$%.o8,000216]P8]p8]8+F+F++F+F+   !$%.o08, 000510 - works with Text example] 9]@9]x9+F+F++F+F+   !$%.PDMODE" B@|]9  !$%z.X  !$%z.XA@o~~C:/A2K2_VBA/RasterFile.jpg'Fjpg'3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@~oCAD 2000/Support/ltypeshp.shx B@3C:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx B@`~__SRP_1 r__SRP_6__SRP_7mV`<jxu#< #G@Syu!= &(_,MRU\^lx(_,MRU\^l #G@SyMEAttribute VB_Name = "Entities" Option Explicit @ ' A for AutoCAD 200 2: Wrlng*MacrosbJeffrey E. Clark*CopyrightA Prezce Hall PTRoThis software may be Oely copied and usso lBoas t6disclaimer,ttogether withe above$Fnotice, 6inclubd+in J7s7&any acPcompi;dPocumca. These example programcd=vailable'"as-iDs"Mout3y i#wranty. Necfi aut"hnor&publisuar9watyIEerNrTAwi_operat%J#int up7gBED79-1.Sub Add3DFace()  Dim Object As AcaGP1(0 To 2)ADo/@P2Z3Z4UCA)-1: 1#8= 2 2(ۂ @ & 4 "K 3 3( 6 % 4  4 F8 CSetEO=isDraw.ModelSpZ.\P1,%34`_.Visibility Edge3Fatls-E h 7:3a:Poly:llinI7/8:cP(0 0`/ "B%0%3$%P(4!4a5b%6P(7!3! 7[(e(PK'Clo!0ru&5&Arc7&ce!dC erU!Radiuhs -dAngBe2ni%&/b[1= 1= 45 * 3.14159 /8 187= |31422(, ,  5ol=Redg!EgApZ(oomC % 5 Rb7;2;c ;#4!;:l`AYp  KK LC6,  S!q5i, jmF$i@-2j Step 0.4aja10:yxt jSQ 6i?A CG9Abs(i0#= (":=)1startp=t67???K?xULpdr!Nei 888CircleTan8L-!LzipPPo CS1 ߊ q5: y{a1Pm2ӁUdLP!/[Q(3T!g C$ P"L.)3# C+ (* Sin() 3-Cos;Pb(P3zCS!h$iVari "PDMODE", 3thxExt>ӡU/h Ellips϶ƶHAxisMjj7`R<"q@/p/ W=XY0.8Y ߳׳E J`-. Rߏsend-p%360WOS SPJ .s. A{ObjP = ThisDrawing.ModelSpace.AddPoint(AxisMj)  SetVariable "PDMODE", 34RApplication.ZoomExtents End Sub ']ExampM`9-12. Hatch(Dim ect As AcaduPatNabmStr TypLongAsso'Booplean '= "Escher" %= 0!rue Tn3', 7,R/Iy'nCer(0 To 2)a DouRPadius LoopOT0AOEntityEE)1: 1=2F== >3<A Ci rcle(, ;w.end Outer (gCDIN5)1.5 * ?*pp*Inn *IN *4EvaluatDUpd4ÀLightWeAPolylineyLW>BJ93GCP(C@<: P(b?1B?33&244F5!d,P(67U7!688`= 9e’Pq-L#typ8eGe3ZFalls/6/-Footballaq/iA-iIntegerL WL360 * 1d-W 1*=:1#:3`-P2#For i L Step (53D+P` 6i61B0BWA 2W2>(<&9A)(P 12Next i8i5M"d%n,A52^1`U(Cb4C7B(c5bcb$b6bbc?bfcd q11+1 1BbDrdd7_x37J{21JT@JFNp , Width-.1qZbJbtC= TK~B me my Bow of burn g old: Arrows1Desire: " &\ _#D!" Spear: O clouds unf@!JChotQf0oo#aq (P,3, 0TguE6@;3.?#5#39#;0!; Q=Here/NS3p 0 ?  [ColT= acYellowaq !T2? WA,Wd,W9V P ]Windp.Vwi ?l j6mzd96d3%Qjftq1  j+L jOg.LSDIZ(i P) - 6 MsgBox (=;IG5")N=" PD!ok b )tvbCr0"Press OK to conue...$@p_q2"f0MesZFnubP 1 !! O "C:/A2K2_VBA/FullerB4s.txt"B !Inpub#$c#32 H= (r* o- DReQ#5Aήfba *x,8 as& SQ3 r* |, F@s 1 86b" /( =@o 3 Input #1, Faces(i + j)Next j<,i`Close Dim Object As Aca@dPolyfMeshFSet#= ThisDrawing.Mo delSp,.Ad 8(PointsEnd Sub 'Example `9-28. C3Dmv(XgonMM]I@ntegerjN P(0 To 26)Doubl) = 2: P(120-P(34451.= 678˄!910*v1;61>CG1-0.51 1  & "8 B 2 2!]2  12"G W= MU3: NCĄM, N, Pڒ9. (se e Excel macro in Ch09.xls D  7J؉1B[B[a[j-",0.3P(=+P(= M5=cB=" dM.66C2^5Bc=BcM#bcILLH"LcL߃Qbh`2"Z22B33g3. 3b3b|3#"Ck#E3/4"4"& 4.4".414"!4"զ44'5"(%5'5bb 5b5#bCbi ".56"BF6b6b.6bb]Bb$Z666 7 70h^7"C"ba`a?e!. BI Varia "SURFU", 2 Vf{ .TypeUacQuadSur)|$Updatnxx31xQQlinexs.NiN3O02Eo!K /  5B&7Riۏu8B29W ig 33RasterImagImgNam!Str|ScaleFagAngRo On Error GocВMsg$= "C:/A2K@2_VBA/ File.jpg"?4'? = $G( 0, , ~2ransp@arency TruExitCi c: Box & " nfound.?5555[y/14RayP12S3A21a2(P@A12C!3KG//"y(PP2s?LNPDMODE@L34Q Marker"A@`$o_ r( Tn/"37&Edit`??Q?(Q?@2Q5t@?H0/݁ ?k?P ?t?:]?c" (w6-h/2#$CDirio nV`PQ= P2_ _ R BB8Beg% Dim curves(0 To 1) As AcadEntit0y P13Doublet2) = 3: = 52:2212r2Set!ThisDrawing.ModelSpace.AddLightWePolyline(P1^)`28g2(2(2 0!P2(5Q0 4 i2(5 627In2(:= $9s 10=1@5&1>,1?ۈA7@1@C8Af2A2C1!+2@UFD2"92!6_!"(2!4 !GX"3! 3!3 o !.3 S3 HW2D1).TypeacQuadSpA 6@ CObject1ҀVariant = Region(!C 3B@ "PDMODE", 34C 2PoiE ACentroidÎ'erPtci2}ai!Int0egerF = ad(0).cFor i(LBoPund()Ul#*ih(i3Next i<2 7,! End Sub '`Example `9-40.` @Shape( !!#S hpNamStr'Py+ScaleF.AngRot- On Err+Go 1@Msg I LoVFi@("C:/...AutPoCADrVory`/Supp@ort/lt ^shp.shx"= "bat" a3!c" z= 1#DA15 Step 28`Set Object%ThisDrawing.ModelSpace.AddSpline(P, @TanBegE8nd)I17j:1 i =. pl.wControlPoint 2, x%ReverseNext i : Sub  '(Example 9-46. XT(OMarkerAcad7  Str} PHeight  |.51= "Base y"JB~BMBgIMhD/= hA(, iC ?Aw"SecondmP(BGuWk8Jkrk^1ŌL0B,BI,= Bϑ[BՂ8b9e0HCn1n_-Ƽ iI@ntegerGT=!CAOF 08.25dEy}14y3c ak& r$(P(i))@ & ","T`rim$(  + 1))DEla  MPVaria "FILLMODE", 1QndCommaM"_TRACECeCID 0.25ĊE143c y& r$(P(i)) & ","Trim $(  + 1))DEla MP Varia "FILLMODE", 1QndCommaM"_TRACECCID 0.25ĊE143c y& r$(P(i)) & ","Trim $(  + 1))DEla MP Varia "FILLMODE", 1QndCommaM"_TRACEC HatcholLW"n g15 MaM}_\/2#/- fMes3Dmo _?# QRast'#Ray  'd_egi onShapSolidoloo4d{L0Exi6t,:t<= ~1Gc0(3DJRActive ccp.Col@UR0etur #Ray  'D_egi onShapt@Solidoloo4dr@0Exi6t,:t<= pF؀(3T_)gActi|veDc.8Col URetur J@A2Cq=2JMP1 Y24G_TPDM#334!k[aaY(P1$_ T __ǠDo!o!5|o!o!o!O2_pPaSo! o!Ao!PPf;6l!o6n6ppendixc# Lay9cNumdAGoSub Newp83DFXonPo lyolArcDB4 GoSub NewLayer AddCi`rcleD<E llips PHatchLightWePolyPline 3n ML!KMText8`Point`f@aceMes|3 Dm!Rast#Ray2'Example_@RegionGShapmSolidp•mTrc ^XDExitB :CNum = + 1Set ObjectThisDrawing. ersj.P( ) ActiveB @C .ColorCReturdEnd+ %X$ X lD=(x)XDx T,,, -M %,MH %X$ dX )X(H"%*$ (H%+$  x,`XDP ,] x- kxpxkx`vkxk\tcXkvktl`@. tdXc ve\T z- kzpzkzTvkzkP tcLkvktlT@- tdL veP>=0lTM4 %l`Md %D$ D (l0=/H)D0LP<$HT`D0HLLLLLLLLL L L L L L?LLLLLLLLL?LLLL (8hpf=0LM8 %kfh"4$ 4 tl0=0x)40LX@xhL40t ````````` ` ` ` ` ``4D`MH %X$ X lD=1x)XD8 T<x`XD@K2Ct\\\tPtH=0mHmP\M4 %ltD$ D l0=3x)D0 x (3*'''lt4*F 56 X@x\t$D0 0 @#  0 0$  0   0 p)  K6$ 7Ct\\\tPtH70mHmP\M4 %ltD$ D Q0 Dn! @tH70mHmP\M4 %ltD$ D Q0 D+''':48N 56\Dx \t$D0```DDD(((   O M %(M %DM %`M %$  l=9x)x`D( 0 0/  , @DDD?(((`````` ```F(M %DM %`M % $  l=:x) ,(x` D 0 x1  X?tP;Ct\\\:8mP\M< %ltL$ L l8=<x)L8=Ct\\\:8mP\M< %ltL$ L l8=<x)L8DX@x\tL8ddddddd dd d d d d dd>CX^kTMVlXk^d@MD@ ?#@*#<@*#$k^d@M,@ ?#( A# *1X2 @<($ ^eT(D%B$ %ClX*#@D*#<$ X2@<\T<Xd @<($ 0 6  0 8                                              kvpv6dkv#hl$ 4l \ld=x/h)ldlx=[l$ lkvx T(xhld      !Co 6'o o >' Turn on the system variable (FIL@LMODE)t@o filloutline ofThisDrawing.PSetV'"'"8, 1B' @Create& object in model a7w/>k$>X&P13%@",>2OS1(`)= 4 1;'@A!2C6@2J7${ 7(P1, P2_7s)+!510 - works with T\examp~l&Q92vixs&pP2(BsIQ,a#"PDM34q MarkerQw!cPointaOSlF0!_ TQQJK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 7KO626n  a  1  ACADProject ThisDrawingChap12_ExamplesModule1F@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA I q0W & 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD i@0Fc:\windows\SYSTEM\StdOle2.TlbstdoleAddLine YP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms aa`iGH$c:\windows\TEMP\VBE\MSForms.exd 9aap Add3DFace Add3DPolyAddArcAddArc2 AddAttribute AddCircle AddCircleTan AddCircleTan1 AddCircleTan2 AddEllipse AddEllipse2AddHatch AddHatch2AddLightWeightPolylineAddLine0AddMLineAddMTextAddPointAddPolyfaceMesh1AddPolyfaceMesh2AddPolyfaceMesh3AddPolyfaceMesh4AddPolyfaceMeshAddPolygonMeshAddPolygonMesh3AddPolygonMesh4 AddPolyline AddPolyline2 AddRasterAddRay1AddRay2AddRayEditRay AddRegion1 AddRegion2 AddRegion3 AddRegionExample_MomentOfInertia AddShape1AddShapeAddSolid AddSolid2 AddSpline1 AddSpline2 AddSpline3AddText1AddTextExample_AddTraceAddTrace AddTrace1 AddTrace2 AddXLine1AddXLine  :C:/A2K2_VBA/Fuller_Points.txt e eu!= & #G@Syu!= &(_,MRU\^lXh{ _ AcadDocument @(x`5%^I`5()`5yf X 8C:/A2K2_VBA/FullerPoints.txt 4C:/A2K2_VBA/RasterFile.jpgϊ c  not found.VBE6.DLL yS  HD:/AutoCAD_2000/Support/ltypeshp.shx bat *Shape file not found. HC:/AutoCAD_2000/Support/ltypeshp.shx()`5 dC:/Program Files/AutoCAD 2000/Support/ltypeshp.shx fC:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx()`5()`5()`5 PDMODEu!= & yF  yG 8W[`5()`5 Escher()`5()`5A Bring me my Bow of burning gold: Bring me my Arrows of Desire: Bring me my Spear: O clouds unfold! Bring me my Chariot of fire()`5 PDSIZE PDMODE=  PDSIZE=  .Press OK to continue...()`5 Add3Dmesh()`5()`5 Base Point()`5 Second PointTypeCentroidFitTolerancemomentOfInertiastartPointendPoint Color Hd:/AutoCAD_2000/Support/ltypeshp.shx box()`5()`5 AddSpline Hello, World. 0.25 , FILLMODE _TRACE  y (SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%H` % %`h8@tt0ԕ<$*\Rffff*053c95d3e24 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit A2K2_VBA/RasterFile.jpgϊ c  not found.VBE6.DLL yS  HD:/AutoCAD_2000/Support/ltypeshp.shx bat *Shape file not found. HC:/AutoCAD_2000/Support/ltypeshp.shx()`5 dC:/Program Files/AutoCAD 2000/Support/ltypeshp.shx fC:/Program Files/AutoCAD 2000i/Support/ltypeshp.shx()`5()`rU $`$`$`$`$!`$I`$q`$`$`$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`$`$`$ `$1`$Y`$`$`$`$`$!`$I`$q`$ `nLLL?LLLLLL L!L"L#L$L%L&L'L(L)L*L+L,L-L.L/L0L1L?2L3L4L5L6L7L?8L9L:L;L<L=L>L?L@LQ?ALBLCL?DLELFLQ?GLHLILJL (8hpf=0LM8 %kfh"4$ 4 tl0=x)40(8%$ (8%$ x  x LX@xhLK400   0 X>  0 @#  0 0$  0  0 p)  0 >  0 -  0 -  0 0/  0   0 x1  0 4  0 86  0 6  0 8  0  0 8        H %<$ < l=$x)<dh`Dx<8(`F``2`F``<`F``( `< ` `2 `< ``<`<``4D`MH %X$ X ,lD=%x)XD88T<x`XDX```tT&CP:8lPmT`M< %L$ L l8='x)L89x '```:8lPmT`M< %L$ L l8='x)L8DX@x`PL80 8   ```4D`MHAttribute VB_Name = "Chap12_Examples" Sub Add3DFace() '000423  HDim Object As Aca:P1(0 To 2)!@Double2u34_y)w-1: 1qF= 2A 2( P2(^4E 336J4@48Set= ThisDrawing.M@odelSp.P1,J3 4)!.VisibilityEdge3zFalBsEnd @w yPoly=ylinrCc8y*P(0E0bCEBBX0E3DNP(4A4 5E6A27A3A@s UBBPRClosed@PTru7QArc\P@\+centerARadius AngBeg@a@si%(`1_3= 1= 45 * 3.14159 / 18:= 36035Ne`-, , @L8olor 8acRed A k` 277!7776jw77714<77ng7iApplication.ZPoomC"d ,\ 5 C!+i_,T jaFAi B-2b Step \0.$Y!!j 1 1`@: Next j ,.i:晤fd?@  kAbxs(i$ZC]("m)3j startlA37?gg77xUpXdatSi/8d>d838208 mp needs comm (enumD?CqQHexighbSvLongPromzpS0oZgTaX=Value?AS v9= acF Verify f-DatavP)i)Q a ###ŧ(#, p, , ZCircl!UoZ 3 q 7/8_s_s _s V=FcCoD/TC!umferenc>2w ' <$Di0It. Tan/C3 ma  L7aAL PPoint' CcŲd0_ςRq#5: Vɴ :}a1;UɁT[LQ(ô#g a.a1RPЗ=1L. C+ (* Sin() "p-Cos)Pb(P3zCS!l9Varia "PDMODEp", 33-Extnssdd010Reverse`oSetControlPoints~_B_var_X (AddPolyline2ESetWidthHSetBulge;OacCubicSplinePoly'acFitCurvePolyacQuadSplinePolyr (AddRegion2:VmomentOfInertiaMoIObjectIdToObjectM thisdrawinh5_B_var_thisdrawinh Perimetery@Centroidg(Example_MomentOfInertiaboxObj^u Acad3DSolidlengthYAddBoxd _B_var_ObjP"0P'0ܴ00425 Dim i As IntegerObject1lAcadLiTne p283845PointtRDoubl63Circ 6R477ThisDrawing.SetVaria; "PDMODE", 34P1a(0 To 2),9P1b223a9SP3+) = 5:  1 0= 0G7B.11:@ br(B 12I J = QModelSpace.AdB(,)C2%2.R`otateh.14 / 2CC~PYB2/B2 A<[B 49<@<3-2a<2b<4<4<,2b<=De2. rs {With(d, acExtendBothdFor@= LBound(P3a)[Uc*L&i%(iNext i;5B~` $ = Sqr(!(0) -A<) ^ 28 +  41)wG6Z#! , R1!R@^0 7e 2aApplication.Zoom6ts End Sub l#Tan2()4r'0#Eu5#Ń6&`@__6AFW_455aHuP6o"n6odC@Oeq VpOeVӈOeOeIeT o_a(Z 1o_bgEjnk_S c1catAc4p#ax!U+"p!M6sP4~"U#M)397i4/iAHPP)%i3/ii%iNoneT-i5+i 3bhW/ia%/i)$i5+i2% 1/ 2_up - 6+ ( 6Su6a/ W my/ P6+ _e_e_edEllipse/e &Qe21$C!Lq^4centerLAxisMjRadxRat=R/0: 0-@,@0D .3 , 0 /}$o}) }?pDod?! ???I= ? 5x2v0.8 Step 0.1s {ʿA(1.startAngle @45 * 3P159183602KS w SD5P%5 Po'c'еe.AddPoint(cente r) Set ObjP = ThisDrawing.Mod@elSpacAxisMjn XVariable "PDMODE`", 34 RApplication.ZoomExts End Sub  Hatch()'000216hDimect As 0AcadCPatNamStr#r Typ Long Asso'Boolean '= "Esc0her" %= 0!rue ?T3', }7,RIÃ'|LoopOT(0 `To 0)Entity~C b2B DoumGRadiuOs IE )1: 1=2F== ~3<(A I C ircleD, /;@M.endOu (CD EvaluaFt^Upd'@ "Regen Ti'not required with u2a42HLatWBWxW !KWR+V?9_ OW`?WUWϿWa"IN1.5llll`InneralINllcLightWePolyplineecLWECA&P%9.C"0: P(b1B33!2445!Q,P(677!$P(88`= 9" P-L%typeGe@3FalsӜ/ne0'(u$ceA ݒ1;2SP91[&eP@52I0! (P1u2`oN)[a508FootballiaIger QLX, W>Lqw20 * 12@4cWQ6STq Q`For ipL Step (5(1i1yQ51(AWIߐG @Next iϣd׸#E4E7(E5E3EԢE62E3E6EӴ= 13V11dgMd555AK4MTOGO42OGE1Npc;2wid@ 16YZ_bstC=  A way a loneaastvRg the...river@run, p1Evndam's, from swerpof shore to bx bay~,POOAQ (P,P,p<ѯezW= to6 ;>k#W#Q<42N[j2 Here9$2($2 $'ThisDrawing.Ap plicaWindow Point1,2[!62vi, jEsIger F0or ie96 Step 33P j4  CSetVaria "PDM ODE",-+ "j&SIZ(i ) - 6 8MsgBox (A0=" & BGB")_ /" PD%B)vbCr"_B_var_Object4JP_B_var_Object2HP _B_var_P3a} _B_var_P3b}CMoICtrPtBCtroidCtrPntCntrPtCntroidjCntrPntqCentrPnt (AddRegion3;V AddRegion4,SZdcTZ% TZ TZp c$#1C_1v_1V_1aR_1 Z,h3_1 Z504 /Y study 2 Td3(_74mx56789l1012oe2-d1m0.577350027:B21.7320508G((RZ|(P1Y__P ("1 P0.3U j 2R t_e3 2 hh 2 2, O()P3-1.15470054pM3  xt(P3 3 1 4  4 `qo o zb4oom4a 4j p:a d 5o P5o S2J(P5o _m 5a 5j Ca k6c !P6o o g.O@6o o m 6a 6i BPLX7 *?*7 7 7 7ZTa 4K8o P8o o o b 8o o m z8a 8j 0]b Pv9c 9o o c lSpace.AddPoint(@P9) Set Object = ThisDrawing.ModeText("9", P@9, 0.3|P 10(0)t0: 11.15470054*2*-1.73205081 ''{10110T10 Z1Z1O1(Z-0.577@35027:e1(BZ12Z1Z1 Z2Z-ZP12Z2CZ22-2-2 -ØVariable "PDMHODE 34O Application.ZoomExtents End Sub (  ´lyfMesh4(&)'004 vor equilibriu"mDimEAs Acaʇs(0 To 35) Dou3-F"D5CInteger,&ŀ DIAsCv8 3A4 =  6c7@w(zE 8A 9 x(1p!%$Cfc2&(% b0@!12#d 2bbv2h'2"ub-22#02Ch 7: 3b13 M%  b"3 (& Dm"Q!'`b2top)3)3cngulav12TOP HALFB38)"29 squar~eIb4c JB47W)j 18 'tZS!Xd 1r6"7 "'5z+26 S 6#7z C7:65 i 2'79B4 /R2210 'bottom half D8 8$'$3 31GZn= )0j ~3b,2<213 4RH!4B/<bJ4+  dB"414/94b *? $#:>4S j5b5b 522%1*5M&9 51 SqǕ:(Ca,3/Po?2/.Fnum1 ijj3Open "C:/Docum/O'Reilly/Chap12_Entities/Fu ller_s.t xt" F@Input#0cz#P 3p(Ir* `- DR~e sAi bStep wT'j'  8 i + j˄AN j ~iS3= (r* &, #2 1 1* b" .& 8  xt CloszDho1o1`1gon11r0429 Dim Object As AcadPolygo nMeshM, NxIntegerXP(0 T o 74)8Double6 2@) = 1:1U20B3 2!?+5!.33$63$7 P8 0.5#9r4#10 uv0.66&1~5'{>J1@ =P1>@ >2>K2A^2==J2?^2=_=%@^2>2>K33=3=?23(3=E%3CBC [B.4B 4B1 4B.4B B$4Cf4BBk =4G5BHJ5mG>55F%5CB /5B B%6B 6 6 B]6 0ɻ HZ66&6@7ۂ7ɼ7B!oB B bMt`N#A6SetŁ= ThisDrawing.ModelSpace.APdd3D(,8 P)!Varia "SURFU", 2v VC.Type@acQuadpSurfDUpdatEnd Sub 3() '00@8!@Сc28 Ģ@b5"+E4L4"DWBD6e"D"D e bD} 1cDe#'1B-N㢂1CF bBccB1Gc C"dk# XfXd?Y3YH4H20HEH4+?HAޢ-HHy$P(8&$C$M}$P(C$#O$1"r1C"RN)$ $s$C!SP(S$ 3v_$@,C'v)3v3vR 3vC {v 3S3vBvRvC<v"*554 5aa 5Yline48ZY215 z-coordinP^ appears to have no eff# Ϭ4Z!N54Z0R/qBzv- vP(;"75Y "1"%9)__ߴp"ze2/'507w! -SE  b( tL=sLIb3 %B%Xӏ%%0#%!+)c%H ԣ.Width 0,".ET1.B2c 2B} 3B% %#%r<1BBj%%1B*% :(c Bul|ge\L Object.SetBulge 2, 0.6 3, 0-0.1pP(0) = 7: P(1120B3.004Z25D6 1;7 5"8 "R9 141s6W t$1y1>1w9%w%ThisDrawing.ModelSpace.AddPolyli`ne((AddShape1 (AddTrace1@; (AddTrace2A;_B_var_plineObj|SubSub} (AddSolid2  SendCommandc thisdrawinmj _B_var_thisdrawinmj(Trace TraceCc AddTraceXg;strpe5Trim@ _B_str_Trim Ch3_EditRay newVector<(EditRay\ (AddSpline3Z`    6:3DP)dTypeacCubicSphhf8r\FitCurveDfs-B3D2D2923BNDQuadMEnd S@ub  @Raster()'0005D03ÙDimA@s AcadImageImgNam Str@G To 0ADoublS`caleF-A ngRot- On Error Go @Msg D= "C:/Innet/DC_ARTWK/Dca02230.jpg"#dhEg"E= $=El}}.#, Pd,  ,  ransparen$cyru$&ExLit:a7 :C Box & " n'found.qAy1`V$(a )) >"P51?P4_.RayO. 9a10 - works w ith T examp ]2A`+CQA A/Aϙ$ǙAw'//1--OG"0-02__^-0$bnEditQ) ?2 @A!27aRaT*?7O LNO1?CCC1-Єb622S.LOP2cHRegPR 6(Zs ##1)&Entit ?% RQ_0gBegng <ӈIRz!= 3.14159X )'nArc(Rbr "o0&w&LA6. start*, Wenr5Qu{`ect = ThisDrawing.ModelSpace.AddRegion(Curves) " Obj(0).Color~acGreen End SubP 2 ()r'000508^Dim o(0 To 1) As AcadEntity% P 2 Doub4leR5 AngBeg^40)o1: P(1C= 28= 05R3. )= 3.141592Seto.Arc(P, R, -)$M$LinestartP oint,D.endDj,d|1ANVariantCI+@2Bp "PDMODE", 34C Centroidc!Pnt+2/;C= 4DFi{LBound( )AUC Q %&iA{ (iYNext i At(YT-3n8nTan@l0? 5#!A&-3: \3.5Iq` a0dwI{"}+3 P(4&5!$P(69!7!#;uSplv@@), $F.FitToleranceRHdB    6#_!i _!x %_ ao#_`mom@OfInertia '%|c#a&bA=e x/Ca6z9 B<&tz14:v0P>P1Sv58A91(s8Af0%LightWeQPoly514@ q P2 oM! 2$ @>2( u@2# 0Bi! 2(B2Bq2(BCB9011Iwp1x27} 1JtKC`1b8s2 222r1B2B_QB62Bx 2B4sC 333B23r332o2xr 3232t&"L'&2C$&X.TypAZacQuad#^ 5(<ߖu>STiaߖQwoR2Do_Se,rP_iInteger &ߗ73Ttߗid}= ߗߗ2/E(EחyYExample_Ma~U'AutoCAD docuAdat fPps' eS creates a box in m s"(It then returns rthatq.P`&3DSolidlength3\, wid] HV'crercV;`' De~f `s5O5#: 8?4 =  = E = 10#' &C% () oR S@d88Box( , # 9, d*@hangeBviea0 dir@ ofporo better se3NewD 7,on(0) = -1: NewD@irecti12T1 ThisDraw ing.AhveViewport.d p.U& ", 2),  xExample" End S@ub  AddShape1()ܖ'0002166AK>b IAcaS hpNamStrGP(0 T o @Double caleF MAngRotM On Err@sGo@] LoD(File ("d:/AutoCAD_25/Sup/ltypeshp.s0hx")2= >"@{OAH12: P(B0D C2= /= 0VX'in ra dset sg[LModel@Space.q(+, P, SB , C3ExitCArrL:@Bƒ fJn`.found.7GG !G51"?G?GC1$/M?G-GD?G1Gat?G?Ga6u??G'?Gp,G(= 3.14159S9SeFSSSol|idSaaWPR1P234!01_Ɏ2G2^(3' 3WE4G4JSsIt`= W&rP1pI20304IuhS2J/Dbjh1g hPjP .5'02sd fSPO@d(nᮄplinKK?}2s18)]m TanBeg3&q -3}` 21"@3$3"(45QaP(69$(7r`9D"(P ,q O9_9JB9007?m iV O3@ 2"!tO OO5MFi7 Step P(#Q_ _ _ P A.FitToler0anceNext 0_.%R.t16Q 4o. 2n.%-0.23_MM0an_`Weight Pl? :N2b O P(22ς33a>!1x1S5152?">"ϵ.AddSpline(P, TanBeg8End) x(0) = 17: x(1(i$2$0LObject.SetControlPoint 2, xHRe verseNe@xt i u Sub b 3()'@000513KDim  As AcaP(0@ To 8) DoublCo!S1 `-3.5:1)~2 b'Pi,P(3@P4(45P(6A9: P(7AF= DrES= ThisDrawing.ModelSpace?^@^)LVFoHr i-515 Step 2C}"ElevateOrder 2;DM:T1 215N AAStrg[Height` = "Hello, World."c$OR$O"` F$ .7H(, w`_)%:0 - works with Ray and XL exampl es#"MarkBSa g,,!] d%B /Base ⧫.y‚".a,yu! p,a(Seco@$ >"NLInteger{WCrTW p0.25dWu"14cDV&r$(P(i))@ & ","PT`rim$( + 1))TU? Y','ndCommm"_TRACESC tr ߈7"216'+!T $$@b"c!%$ $D$$@ C1N$3$ E@ =<

K '000216 Dim Object As AcadXlinepP1(0@ To 2)@Doubl :2:z) = 5: 5 1 4 N=  _TRACE 0.5  _TRACE 0.5  _TRACE 0.5 _TRACE 0.8 _TRACE P(i) AddTraceX , !  p "_TRACE 0.8  "  0.8 _TRACE  0.25 Ch3_EditRay Edit Ray The base point of the ray is:  'The directional vector for the ray is: EditRay AddSpline3{ .0$D72($6 $Set= ThisDrawing.ModelSpace@.AddXL(P1, P2) End SubP  )510 - works with Text examp`P2(0 3AFCh[Varia "PDMODE`", 34C M arkerœPoint!pB po k A}A zl9A0C626} (%` % %`h8@tt0C#n=$*\Rffff*053d6e12764 xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit `5()`5()`5VBE6.DLL  F  G  PDMODE()`5 Escher()`5()`5! ~Bring me my Bow of burning gold: Bring me my Arrows of Desire:  SURFU! ~Bring me my Spear: O clouds unfold! Bring me my Chariot of fire()`5 PDSIZE PDMODE=  PDSIZE=  .Press OK to continue...  S  8C:/A2K2_VBA/FullerPoints.txt e