Re: [V8i VBA] Moving a reference

Hi MercerJon,

I am also confused with what you expected to implement. With the below code, I can move my reference files even they had been moved.

Sub MoveRefs()
  Dim distance As Point3d
  Dim myRef As Attachment
  distance = Point3dFromXY(1, 0)
  For Each myRef In ActiveModelReference.Attachments
    myRef.Redraw msdDrawingModeErase
    myRef.Move distance, True
    myRef.Rewrite
    myRef.Redraw msdDrawingModeNormal
  Next
End Sub

HTH, Yongan