Dim Params As Parameters
Set Params = CATIA.ActiveDocument.Part.Parameters
Dim Reell As RealParam
Set Reell = Params.CreateReal ("Pi", 3.14159)
Dim Laenge, Winkel As Dimension
Set Laenge = Params.CreateDimension ("Hoehe", "Length", 200)
Set Winkel = Params.CreateDimension ("Anschluss", "Angle", 100)
End Sub
这是我调试通过的程序,供参考。软件环境V5R19, English作者: linlily0925 时间: 2012-7-17 17:10
先得到ParameterSet,然后再添加到ParameterSet中~~~
页可以参考CATIParmPublisher接口~~作者: nixiao 时间: 2013-3-1 12:31
求CATIA金属结构设计教程