我如何获取 CATDrawing 中的参数值并对其进行编辑
how do i get the value of a parameter in a CATDrawing and edit it
我希望能够得到参数CATDWG_SH_NO的值。并将 Totalsheets1 的值添加到其中。
所以最后的 strparam1.Value 会给我前面提到的 2 的总和。我现在的代码只将参数值更新为 totalsheets1 值。
我面临的另一个问题是,只有当值存在于参数多值下拉列表中时,代码才会更新该值,即如果值 10 不在下拉列表中,它将无法更新参数。
任何帮助将不胜感激。谢谢。
Function SheetNoUpdate(odoc As Document)
Dim parameters1 As Parameters
Set parameters1 = odoc.Parameters
Set strparam1 = parameters1.Item("CATDWG_REV")
strparam1.Value = "A"
Set strparam1 = parameters1.Item("CATDWG_SH_NO.")
strparam1.Value = Totalsheets1.Value
End Function
我不确定我对你问题的解释是否正确:如果你想添加值,请尝试:
strparam1.Value = strparam1.Value + Totalsheets1.Value
'or if both are strings
strparam1.Value = CStr(CInt(strparam1.Value) + CInt(Totalsheets1.Value))
或者您要创建公式吗?
在多值参数上,您可以使用 GetEnumerateValues
和 SetEnumerateValues
获取值(数组)以分配数组。
我希望能够得到参数CATDWG_SH_NO的值。并将 Totalsheets1 的值添加到其中。 所以最后的 strparam1.Value 会给我前面提到的 2 的总和。我现在的代码只将参数值更新为 totalsheets1 值。 我面临的另一个问题是,只有当值存在于参数多值下拉列表中时,代码才会更新该值,即如果值 10 不在下拉列表中,它将无法更新参数。 任何帮助将不胜感激。谢谢。
Function SheetNoUpdate(odoc As Document)
Dim parameters1 As Parameters
Set parameters1 = odoc.Parameters
Set strparam1 = parameters1.Item("CATDWG_REV")
strparam1.Value = "A"
Set strparam1 = parameters1.Item("CATDWG_SH_NO.")
strparam1.Value = Totalsheets1.Value
End Function
我不确定我对你问题的解释是否正确:如果你想添加值,请尝试:
strparam1.Value = strparam1.Value + Totalsheets1.Value
'or if both are strings
strparam1.Value = CStr(CInt(strparam1.Value) + CInt(Totalsheets1.Value))
或者您要创建公式吗?
在多值参数上,您可以使用 GetEnumerateValues
和 SetEnumerateValues
获取值(数组)以分配数组。