摘要:
我们可以使用ITransform2D来进行旋转,主要是提示:Rotate方法传入的是弧度,而不是角度,可参照如下代码:Sub GetAnnotationAttributes() Dim n As Integer Dim rAngle As Integer Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pMap As IMap Set pMap = pDoc.FocusMap Dim pMxDoc As IMxDocument Dim pElement As IElement Set pMxDoc = ThisDocum... 阅读全文