Inventor工程图尺寸标注文字怎么一次性全部居中
2019/07/27 13:59:03
Q：这是检索的尺寸，怎么一次性全部居中所有的线性尺寸？现在都是一个一个手动拖动，很是麻烦。
A：UI 上没有办法可以做到。 但是用iLogic可以简单的实现。（帮助中有范例。）
工程图中新建iLogic规则，然后粘贴下列代码。可实现激活sheet下所有长度尺寸和角度尺寸的文字居中。
复制以下代码：
设置事件触发器，当文件保存前触发规则运行就可以了
A：UI 上没有办法可以做到。 但是用iLogic可以简单的实现。（帮助中有范例。）
工程图中新建iLogic规则，然后粘贴下列代码。可实现激活sheet下所有长度尺寸和角度尺寸的文字居中。
复制以下代码：
- Dim oDoc As DrawingDocument
- oDoc = ThisApplication.ActiveDocument
- Dim oSheet As Sheet
- oSheet = oDoc.ActiveSheet
- Dim oDrawingDim As DrawingDimension
- For Each oDrawingDim In oSheet.DrawingDimensions
- If TypeOf oDrawingDim Is LinearGeneralDimension Or _
- TypeOf oDrawingDim Is AngularGeneralDimension Then
- Call oDrawingDim.CenterText
- End If
- Next