Dim myDoc As IntelliCAD.Document
Dim myPt As IntelliCAD.Point
Set myPt = Library.CreatePoint(3, 2, 0)
Set myPtEnt = ThisDocument.ModelSpace.AddPointEntity
Set myDoc = myPtEnt.Document
MsgBox "The point is located in: " & myDoc.Name
End Sub