CATIA VBA - 如何更改绘图中所选尺寸的字体大小和名称

Question

请问是否可以更改图纸中所有尺寸的字体名称和字体大小？ 我尝试使用此代码选择尺寸：（尺寸已选择，但我不知道如何输入字体名称和字体大小更改）

Set oDrwDoc = CATIA.ActiveDocument
Set oSheets = oDrwDoc.Sheets
Set oSheet = oSheets.ActiveSheet
Set oViews = oSheet.Views
For vc = 3 To oViews.Count 'scan all views for dimensions except main view and background views
Set oView = oSheet.Views.Item(vc)
oView.Activate
Set oDims = oView.Dimensions
For dc = 1 To oDims.Count
Set oDim = oDims.Item(dc)
Set oDimVal = oDim.GetValue
oDim.SetFontName 0, 0, "Monospac821 BT"
Next 'dc
Next 'vc

Answer 1

你找到解决办法了吗？如果是。请告诉我。

我也有同样的问题，我只是使用EKL来修改它们。 EKL 有这个选项。

例如。 让 oDim (DrwDimension)

oDim.FontName = "Arial (TrueType)" oDim.FontSize = 3