I have these 2 external rules that work just fine by themselves I want to combine them. I have all parts triggerd to run the rule below to change the styles. Now I want to add another rule to it. I have tried snippets (add rule) but I get declaration errors. The rule I want to add changes the owner and designer to current user on save.
And it looks like this
iProperties.Value("Project", "Designer") = ThisApplication.GeneralOptions.UserName iProperties.Value("Summary", "Author") = ThisApplication.GeneralOptions.UserName
Wher do I insert the new lines of code without destroying something that already works??
'THIS RULE GETS CURRENT STYLE COPIES TO CUSTOM PROP 06-MATERIAL 'ALSO IF THE PROPERTY "08-WEIGHT" IS MISSING IT WILL ADD TO CUSTOM PROPERTIES LIST 'SET TRIGGER TO BEFORE SAVE Sub Main() 'iProperties.Value("Custom", "PropertyName") 'iProperties.Value("Custom", "CustomName") = "New Value" 'iProperties.Value("Custom", "08-weight") = Round(iProperties.Mass,2) & " lbs" ' copy sheet metal style to custom prop iProperties.Value("Custom", "06-material") = SheetMetal.GetActiveStyle() InventorVb.DocumentUpdate() ' mass = iProperties.Mass ' FindOrCreateProperty("08-weight", mass) ' iProperties.Value("Custom", "08-weight") = Round(iProperties.Mass,2) & " lbs" End Sub
Function FindOrCreateProperty(propName As String, propValue As Object) ' Get the current document. oDoc = ThisDoc.Document ' Get the user defined (custom) property set Dim propSet As PropertySet = oDoc.PropertySets.Item("Inventor User Defined Properties") Dim invProperty As Inventor.Property ' See if the property alreay exists. If it does, don't change the value. For Each invProperty In propSet If (invProperty.Name = propName) Then Return invProperty Next ' Create the property invProperty = propSet.Add(propValue, propName) End Function