菜鸟求教：ARX中动态块镜像后尺寸标注的问题？

fatkids · 发表于 2014-9-25 11:04:00

各位好！
   又来麻烦了！
   我在程序中对动态块进行镜像，发现动态块的尺寸标注全部都反过来了。因为我的尺寸要随着动态块的变化而跟着变化，所以我把尺寸做到了块里。
   程序我用的是TransformBy。
   部分程序如下：

      For Each ID As ObjectId In blockTableRec
                  Dim ent As  Entity = trans.GetObject(ID, OpenMode.ForWrite)
                  If ((ent.GetType() Is GetType(BlockReference))) Then
                     'MessageBox.Show(ent.GetType.ToString + "--" + ent.BlockName)
                     Dim BlkRef As BlockReference = ent ' trans.GetObject(ID, OpenMode.ForWrite)
                     acMat = BlkRef.BlockTransform
                     'Dim acEntFrom As Entity = trans.GetObject(acEntFromRsl.ObjectId, OpenMode.ForWrite)
                  End If
                  Dim pt As Point3d = New Point3d(0, 0, 0)
                  Dim pt1 As Point3d = New Point3d(0, 10, 0)
                  ent.TransformBy(acMat.Mirroring(l))
            Next
我所需要的是把当前文档中的图形进行镜像。
谢谢啊！预祝国庆快乐！