iCAx开思网

标题: AUTOCAD VBA二次开发AcadEntity.rotate [打印本页]

作者: tong2004114 时间: 2011-3-25 17:16
标题: AUTOCAD VBA二次开发AcadEntity.rotate
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 时间: 2011-3-30 15:42
怎么没有理我，郁闷啊！

欢迎光临 iCAx开思网 (https://www.icax.org/)