实现ZOOM命令的Extents选项的几种方法

最新推荐文章于 2024-11-09 01:32:19 发布

静喧

最新推荐文章于 2024-11-09 01:32:19 发布

阅读量4.7k

点赞数

分类专栏： ZWCAD .NET API开发文章标签： ZoomExtents .net cad api 缩放

本文链接：https://blog.csdn.net/jingxuan84/article/details/11251227

版权

ZWCAD .NET API开发专栏收录该内容

81 篇文章

订阅专栏

本文介绍了在AutoCAD中实现全屏显示的四种不同方法。这些方法包括通过编程方式更新视图范围并设置当前视图、调用内置的全屏显示功能、发送全屏显示命令字符串以及通过活动文档发送命令。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

AutoCAD.Internal.Utils.ZoomAuto(1, 1, 1, 1, 1) '这个就是z e

Imports ZwSoft.ZwCAD.Runtime

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

Public Class ZwApps

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

ZcDb.UpdateExt(True)
Dim minPoint As Point3d = ZcDb.Extmin
Dim maxPoint As Point3d = ZcDb.Extmax
Dim min2d As New Point2d(minPoint.X, minPoint.Y)
Dim max2d As New Point2d(maxPoint.X, maxPoint.Y)

Dim NewView As ViewTableRecord = New ViewTableRecord()
NewView.CenterPoint = min2d + ((max2d - min2d) / 2.0)
NewView.Height = max2d.Y - min2d.Y
NewView.Width = max2d.X - min2d.X
ZcEd.SetCurrentView(NewView)

End Sub
<CommandMethod("ZoomExtentTest02")> _
Public Sub ZoomExtentTest02()

Dim ZwApp As Object = Application.ZcadApplication
ZwApp.ZoomExtents()

End Sub

<CommandMethod("ZoomExtentTest03")> _
Public Sub ZoomExtentTest03()

Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
ZcDoc.SendStringToExecute("_.ZOOM _E ", True, False, False)

End Sub

<CommandMethod("ZoomExtentTest04")> _
Public Sub ZoomExtentTest04()

Dim ZwApp As Object = Application.ZcadApplication
ZwApp.ActiveDocument.SendCommand("_.ZOOM _E ")

End Sub

End Class

上面四个命令：ZoomExtentTest01，ZoomExtentTest02，ZoomExtentTest03，ZoomExtentTest04分别定义了四种实现ZoomExtents方法。