参照パラメータを一括でユーザパラメータにコピーする方法はありますか？

atsushi_itoEDC23 — Wed, 14 Jun 2023 03:33:32 GMT

こんにちは！

参照パラメータを一括でユーザパラメータにコピーしたいのですが、１個ずつコピーする方法しかわかりません。

複数選択してコピーする方法はあるのでしょうか？

また、ユーザパラメータを複数選択して削除する方法も同じようにできないのでしょうか？

Re: 参照パラメータを一括でユーザパラメータにコピーする方法はありますか？

HideoYamada — Thu, 15 Jun 2023 01:34:20 GMT

こんにちわ。

@atsushi_itoEDC23 さんは書きました:

参照パラメータを一括でユーザパラメータにコピーしたいのですが、１個ずつコピーする方法しかわかりません。

複数選択してコピーする方法はあるのでしょうか？

複数の参照パラメーターをユーザーパラメーターにコピーするVBAマクロを作ってみました。

パラメーターのウインドウではなく、スケッチの寸法を複数選択して以下のマクロを実行してください。

Option Explicit Public Sub CopySelectedReferenceParameterToUserParameter() If ThisApplication.ActiveDocument Is Nothing Then Exit Sub End If Dim oParams As Parameters: Set oParams = GetParameters(ThisApplication.ActiveEditDocument) If oParams Is Nothing Then Exit Sub End If Dim oSelSet As SelectSet: Set oSelSet = ThisApplication.ActiveDocument.SelectSet Dim obj As Object For Each obj In oSelSet If Not TypeOf obj Is DimensionConstraint Then GoTo Continue_For_obj Dim oDimConst As DimensionConstraint: Set oDimConst = obj If Not oDimConst.Parameter.ParameterType = kReferenceParameter Then GoTo Continue_For_obj If Not oDimConst.Parent.Parent Is ThisApplication.ActiveEditDocument.ComponentDefinition Then GoTo Continue_For_obj CopyDrivenParameterToUserParameter oDimConst.Parameter, oParams Continue_For_obj: Next obj End Sub Private Function GetParameters(oDoc As Document) As Parameters If TypeOf oDoc Is AssemblyDocument Then Dim oAssyDoc As AssemblyDocument: Set oAssyDoc = oDoc Set GetParameters = oAssyDoc.ComponentDefinition.Parameters Exit Function End If If TypeOf oDoc Is DrawingDocument Then Dim oDrawingDoc As DrawingDocument: Set oDrawingDoc = oDoc Set GetParameters = oDrawingDoc.Parameters Exit Function End If If TypeOf oDoc Is PartDocument Then Dim oPartDoc As PartDocument: Set oPartDoc = oDoc Set GetParameters = oPartDoc.ComponentDefinition.Parameters Exit Function End If Set GetParameters = Nothing End Function Private Sub CopyDrivenParameterToUserParameter(oReferenceParam As Parameter, oParams As Parameters) oParams.UserParameters.AddByExpression oReferenceParam.Name & "_コピー", oReferenceParam.Expression, oReferenceParam.Units End Sub

また、ユーザパラメータを複数選択して削除する方法も同じようにできないのでしょうか？

[未使用要素を削除]ボタンで対応できませんか。

Inventor - 日本語フォーラムのトピックRe: 参照パラメータを一括でユーザパラメータにコピーする方法はありますか？

参照パラメータを一括でユーザパラメータにコピーする方法はありますか？

Re: 参照パラメータを一括でユーザパラメータにコピーする方法はありますか？