Add3DPoly Example |
Using Programming Languages other than VBA
Sub Example_Add3DPoly() Dim polyObj As Acad3DPolyline Dim points(0 To 8) As Double ' Create the array of points points(0) = 0: points(1) = 0: points(2) = 0 points(3) = 10: points(4) = 10: points(5) = 10 points(6) = 30: points(7) = 20: points(8) = 30 ' Create a 3DPolyline in model space Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points) ZoomAll End Sub
Comments? |