cad.net可以让某个要素居中显示 谁实现过？

LDJ

cad.net可以让某个要素居中显示，控制显示比例。  谁实现过？给段代码

guohq

1. ''' <summary>
   
2.     ''' 按对象进行缩放
   
3.     ''' </summary>
   
4.     ''' <param name="ID"></param>
   
5.     ''' <param name="ZoomScale">此数为正数，表示放大倍率（如果此数小于等于 0 则自动调整为1）</param>
   
6.     ''' <remarks></remarks>
   
7.     Public Sub ZoomO(ByVal ID As ObjectId, Optional ByVal ZoomScale As Double = 1.0)
   
8.         Dim MinPt As Point3d = Nothing, MaxPt As Point3d = Nothing
   
9.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
   
10.             Dim obj As DBObject = ID.GetObject(OpenMode.ForRead)
    
11.             If TypeOf obj Is Entity = False Then
    
12.                 Trans.Commit()
    
13.                 Exit Sub
    
14.             End If
    
15.             Dim Ent As Entity = obj
    
16.             MinPt = Ent.GeometricExtents.MinPoint : MaxPt = Ent.GeometricExtents.MaxPoint
    
17.             Trans.Commit()
    
18.         End Using
    
19. 
    
20.         Dim Ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
    
21. 
    
22.         Dim VTabRec As New ViewTableRecord
    
23. 
    
24.         VTabRec.CenterPoint = New Point2d((MaxPt.X + MinPt.X) / 2.0, (MaxPt.Y + MinPt.Y) / 2.0)
    
25.         If ZoomScale <= 0 Then
    
26.             ZoomScale = 1.0
    
27.         End If
    
28.         VTabRec.Height = (MaxPt.Y - MinPt.Y) / ZoomScale
    
29.         Ed.SetCurrentView(VTabRec)
    
30.         Ed.UpdateScreen()
    
31.     End Sub

''' <summary><br />     ''' 按对象进行缩放<br />     ''' </summary><br />     ''' <param name="ID"></param><br />     ''' <param name="ZoomScale">此数为正数，表示放大倍率（如果此数小于等于 0 则自动调整为1）</param><br />     ''' <remarks></remarks><br />     Public Sub ZoomO(ByVal ID As ObjectId, Optional ByVal ZoomScale As Double = 1.0)<br />         Dim MinPt As Point3d = Nothing, MaxPt As Point3d = Nothing<br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim obj As DBObject = ID.GetObject(OpenMode.ForRead)<br />             If TypeOf obj Is Entity = False Then<br />                 Trans.Commit()<br />                 Exit Sub<br />             End If<br />             Dim Ent As Entity = obj<br />             MinPt = Ent.GeometricExtents.MinPoint : MaxPt = Ent.GeometricExtents.MaxPoint<br />             Trans.Commit()<br />         End Using<br /> <br />         Dim Ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor<br /> <br />         Dim VTabRec As New ViewTableRecord<br /> <br />         VTabRec.CenterPoint = New Point2d((MaxPt.X + MinPt.X) / 2.0, (MaxPt.Y + MinPt.Y) / 2.0)<br />         If ZoomScale <= 0 Then<br />             ZoomScale = 1.0<br />         End If<br />         VTabRec.Height = (MaxPt.Y - MinPt.Y) / ZoomScale<br />         Ed.SetCurrentView(VTabRec)<br />         Ed.UpdateScreen()<br />     End Sub

此方法将对象居中于当前视图（同时可以设置放大倍率）