我需要一个宏,以输入从模型在绘图表中的角度值。请帮帮我..。见图
发布于 2022-06-20 11:57:08
我们需要更多的信息。如果它能帮到你的话,请看下面:
Sub test()
Dim d As DrawingDocument = CATIA.ActiveDocument 'need to be a CATDrawing opened
Dim t As DrawingTable = d.Sheets.ActiveSheet.Views.ActiveView.Tables.Item(1)
Dim i As Integer = 1
Dim p As Product = CATIA.Documents.Item("Part1.CATPart").product 'i let you find your Part
For Each MyParam As Parameter In p.Parameters
If MyParam.Name Like "*Angle.*" Then 'i let you find a way to get your names
t.SetCellString(i, 1, MyParam.ValueAsString)
i += 1
End If
Next
End Sub查看我的网站:https://www.catiavb.net/
https://stackoverflow.com/questions/72686189
复制相似问题