AddPointEntity method example

Sub AddPointExample()
'This example adds a point entity to the drawing using the AddPoint method.
    Dim Pt1(0 To 2) As Double
    Dim myPtEnt As AcadPoint
    Pt1(0) = 4: Pt1(1) = 2
    Set myPtEnt = ThisDrawing.ModelSpace.AddPoint(Pt1)
    myPtEnt.Update
    MsgBox "Point added  at 4,2.", vbInformation, "AddPoint Example"
End Sub