[讨论]图中已插入块，如何移动块属性参照。

dfgs

块属性参照已提供了move方法，但为什么无法使用呢？

雪山飞狐_lzh

你是怎么使用的，代码呢？

dfgs

 Dim p1, p2 As Variant
   p1 = ThisDrawing.Utility.GetPoint
   p2 = ThisDrawing.Utility.GetPoint
   Dim al As Variant
  Dim k1 As AcadBlockReference
  Dim b1 As AcadBlocks
  Dim s As AcadSelectionSet
  If ThisDrawing.SelectionSets.Count <> 0 Then
    ThisDrawing.SelectionSets(0).Delete
  End If
  Set s = ThisDrawing.SelectionSets.Add("dqs")
  s.Select acSelectionSetAll
  Dim m1 As Variant
 
  For Each k1 In s
    m1 = k1.GetAttributes
    m1.Move p1, p2  '出错

    k1.Move p1, p2  '块移动正常
    k1.Update
  Next

雪山飞狐_lzh

m1是属性数组，当然无法移动