CADopia - AddPointEntity method

Creates a point entity and adds it to the drawing.

Syntax

objectVariable = object.AddPointEntity(Point)

Where:

     objectVariable is a PointEntity object;

     object is one of the ModelSpace or PaperSpace collection objects or a Block object;

     Point is a Point object representing the location to insert the PointEntity.

AddPointEntity method example

Private Sub AddPointEntityExample()

' This example adds a point entity to the drawing using the AddPointEntity ' method.

     Dim icadDoc As CADopia.Document

     Dim myPoint As CADopia.Point

     Dim myPtEnt As CADopia.PointEntity

     Set icadDoc = ActiveDocument

     Set myPoint = Library.CreatePoint(4, 2)

     Set myPtEnt = icadDoc.ModelSpace.AddPointEntity(myPoint)

     myPtEnt.Update

     MsgBox "Point created at 4,2."

End Sub