AppendStringParm

From scripting
Jump to: navigation, search
Sub AppendStringParm(CurObj As Variant, ParmName As String, ParmValue As String, CurPart As Part)
Dim CFParms As Parameters
Set CFParms = CurPart.Parameters.SubList(CurObj, True)
Dim CFStrParm As Parameter
Set CFStrParm = CFParms.CreateString(ParmName, ParmValue)
End Sub