vb中的缩放。网

       <CommandMethod("ScaletoMetric")> _
       Public Sub ScaletoMetric()
           Dim doc As Document = Application.DocumentManager.MdiActiveDocument
           Dim ed As Editor = doc.Editor
           Dim db As Database = doc.Database
           Using trx As Transaction = db.TransactionManager.StartTransaction()
               Dim bt As BlockTable = trx.GetObject(db.BlockTableId, OpenMode.ForRead)
               Dim modelBtr As BlockTableRecord = trx.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForRead)
               For Each objId As ObjectId In modelBtr
                   Dim ent As Entity = trx.GetObject(objId, OpenMode.ForWrite)
                   ent.TransformBy(Matrix3d.Scaling(25.4, Point3d.Origin))
               Next
               trx.Commit()
           End Using
       End Sub