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
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.