' Gets the current view
Dim acView As ViewTableRecord = acDoc.Editor.GetCurrentView()
Dim eExtents As Extents3d = New Extents3d(New Point3d(0, 0, 0), New Point3d(630, 445.5, 0))

' Translates WCS coordinates to DCS
Dim matWCS2DCS As Matrix3d
matWCS2DCS = Matrix3d.PlaneToWorld(acView.ViewDirection)
matWCS2DCS = Matrix3d.Displacement(acView.Target - Point3d.Origin) * matWCS2DCS
matWCS2DCS = Matrix3d.Rotation(-acView.ViewTwist,
                               acView.ViewDirection,
                               acView.Target) * matWCS2DCS

' Tranforms the extents to DCS
matWCS2DCS = matWCS2DCS.Inverse()
eExtents.TransformBy(matWCS2DCS)

' Defines the area to output
acPlSetVdr.SetPlotType(acPlSet, Autodesk.AutoCAD.DatabaseServices.PlotType.Window)
acPlSetVdr.SetPlotWindowArea(acPlSet, New Extents2d(eExtents.MinPoint.X, eExtents.MinPoint.Y,
                                                    eExtents.MaxPoint.X, eExtents.MaxPoint.Y))

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2018/ENU/OARX-ManagedRefGuide/files/OREF ... ttingsValidator-SetPlotWindowArea-PlotSettings-Extents2d-html.html

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*7=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情