Document property example

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