假定你已经做了一个草图并已处于激活状态。草图中有两个尺寸“d0”,“d1”需要按要求控制。把下面的代码复制到basic的文档文件中。修改if中的条件合乎你的要求即可。
Public Sub ModelParameters_change() Dim oPartDoc As Inventor.PartDocument Set oPartDoc = ThisApplication.ActiveDocument
Dim oParams As Parameters Set oParams = oPartDoc.ComponentDefinition.Parameters
Dim oModelParams As ModelParameters Set oModelParams = oParams.ModelParameters
If oModelParams.Item("d1").Value = 5 Then oModelParams.Item("d0").Value = 4 End If oPartDoc.Update End Sub
注意在程序中数值的长度单位为:cm
用这个方法比用excel中VB方便灵活。如果你有兴趣可以做出机构模型草图的动画。当然还要增加一点语句。 |