将屏幕缩放到所选择的对象

AutoCAD.Internal.Utils.ZoomObjects(True) ‘Z O

Imports ZwSoft.ZwCAD.Runtime

Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.Geometry
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.ApplicationServices


Public Class Commands
    <CommandMethod("ZoomToObjects")> _
    Public Shared Sub ZoomToObjects()
        Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZcDb As Database = ZcDoc.Database
        Dim ZcEd As Editor = ZcDoc.Editor


        Dim result As PromptSelectionResult = ZcEd.GetSelection()
        Dim ent