AUTOCAD VBA二次开发AcadEntity.rotate

tong2004114

autoCAD VBA 中用AcadEntity.rotate函数进行旋转要执行两次才能转到正确位置，第一次转到离正确位置十几公分，第二次才能到正确的位置，我很郁闷啊！各位大侠指点下小弟！
下面是代码示例：
'循环平移每个选中的实体
         For Each Entry In ThisDrawing.ModelSpace
         With Entry
                Entry.Move fFstPnt, tFstPnt
                Entry.Update
           End With
         Next Entry
         
          '循环旋转每个选中的实体
         For Each Entry In ThisDrawing.ModelSpace
            With Entry
                Entry.Rotate tFstPnt, ang
                Entry.Update
            End With
         Next Entry
         
           '循环缩放每个选中的实体
         For Each Entry In ThisDrawing.ModelSpace
          With Entry
                Entry.ScaleEntity tFstPnt, sca
                Entry.Update
          End With
         Next Entry

tong2004114