Private Sub PaperSpaceExample()
'This example returns the PaperSpace property.
Dim ents As IntelliCAD.Entities
Dim ent As Object
Set ents = ActiveDocument.Entities
For Each ent In ents
MsgBox "The PaperSpace property for this entity is: " & ent.PaperSpace
Response = MsgBox("Continue listing entities?", vbYesNo, "PaperSpace property")
If Response = vbNo Then ' User chose Yes.
End
End If
Next ent
End Sub