VBA更新块属性

修改块的属性后，如何应用到块参照？可以使用battman命令，还可以用attsync命令。使用attsync命令个格式是这样的，和命令行并不一样。
ThisDrawing.SendCommand "Attsync Name " & blkMrk.Name & vbCr 'Chr(10)
ThisDrawing.SendCommand "(acet-attsync " & Chr(34) & blkMrk.Name & Chr(34) & ")" & vbCr