- 积分
- 1098
- 明经币
- 个
- 注册时间
- 2007-4-12
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
各位好!
又来麻烦了!
我在程序中对动态块进行镜像,发现动态块的尺寸标注全部都反过来了。因为我的尺寸要随着动态块的变化而跟着变化,所以我把尺寸做到了块里。
程序我用的是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
我所需要的是把当前文档中的图形进行镜像。
谢谢啊!预祝国庆快乐! |
|