Create default vport if none found and zoom to extents.
Authored by: ekarlo 1999-07-07
Parent: [r304]
Child: [r306]
