修改块的 x y 比例

张火火、

我想修改选择块的比例。下面的代码是直接修改块的属性。但是不能成功，望大神指点！！

Sub 图框缩放()
Do
    Dim ds As Double
    Dim Ent As AcadEntity  '选择集对象
    Dim Ent1 As AcadEntity  '选择集对象
   On Error Resume Next
   ThisDrawing.Utility.GetEntity Ent, Pnt, "图框："
   ThisDrawing.Utility.GetEntity Ent1, Pnt1, "说明文字："
     If Pnt(0) = "" Then         '退出sub
      Exit Sub
      End If
    ds = Ent1.Height
    ds = ds / 3

   Ent.XScaleFactor = ds
   Ent.XEffectiveScaleFactor = ds

   Ent.YScaleFactor = ds
   Ent.YEffectiveScaleFactor = ds
      If Err <> 0 Then
        Exit Do
      End If
Loop
End Sub

qqqincccken

謝謝提供分享，學習學習了！！！