PaperSpace property example

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