AddSphere method example

Sub AddSphere_Example()
' This example adds a sphere to the drawing using the AddSphere method.
    Dim sphereObj  As Acad3DSolid
    Dim pt1(0 To 2) As Double: pt1(0) = 0: pt1(1) = 0: pt1(2) = 0
    Set sphereObj = ThisDrawing.ModelSpace.AddSphere(pt1, 4)
    sphereObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub