部品表とバルーンの関係

[かめかめ]

初めまして。Inventorを使用して図面を書いています。そこでですが部品表に上がっている物が抜けなくバルーンを表示させているか簡単に確認できる方法ってあるのでしょうか？自分で一つ一つ確認していったらいいのかもしれませんが、部品数が多ければ確認するのが大変で何かいい方法がないのかなと思ってまして。

[やまら]

こんにちわ。

私は2つの方法を使っています。

1つ目の方法)

最終的には消すにせよ、図面に部品表を入れて、ダブルクックすると出てくる一覧表に、

バルーンの状況が表示されます。

私の場合は、組図に部品表を添付しませんので、作業が終われば部品表を消します。

2つ目の方法)

どれでもいいから、バルーンの上で右クリック→バルーンをリストからアタッチ→出てきたダイアログのフィルターで、バルーン化されていない項目を設定

お試しあれ!!

[かめかめ]

2017年5月3日水曜日 1時42分13秒 UTC やまら:

> こんにちわ。
>
>
> 私は2つの方法を使っています。
>
>
> 1つ目の方法)
> 最終的には消すにせよ、図面に部品表を入れて、ダブルクックすると出てくる一覧表に、
> バルーンの状況が表示されます。
> 私の場合は、組図に部品表を添付しませんので、作業が終われば部品表を消します。
>
>
>
>
>
>
>
>
>
>
>
>

> 2つ目の方法)
> どれでもいいから、バルーンの上で右クリック→バルーンをリストからアタッチ→出てきたダイアログのフィルターで、バルーン化されていない項目を設定
>
>
>
>
>
>
>

> お試しあれ!!

やまら様　大変参考になります。ありがとうございます。活用させて頂きます。

[やまら]

こんなことで良ければ、いつでもどうぞ～

[かめかめ]

すいません。バルーンが重複している場合、見る方法はないのでしょうか？

[やまら]

こんにちわ。

1つの部品(項目)に対して、複数のバルーンが上がっているかどうか、確認する方法ということでしょうか。

残念ながら、それは無いように思います。

マクロでも作らないと、対応は難しいかな・・・

[やまら]

マクロを作りました。

これを実行すると、重複しているバルーンを選択します。

どうぞお試しあれ。

Private Const MaxNumberOfBalloonValues = 100

Sub CheckRepeatedBalloon()
    Dim oDDoc As DrawingDocument
    Dim oBalloons As Balloons
    Dim oBalloon As Balloon
    Dim oBalloonValueSet As BalloonValueSet
    Dim aBalloonValueSet(MaxNumberOfBalloonValues) As BalloonValueSet
    Dim NofBalloonSet As Integer
    Dim pointer As Integer
    Dim blRepeated As Boolean
    Dim NofRepeatedBalloon As Integer

    If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then
        MsgBox "図面を開いて実行してください"
        GoTo END_OF_CheckRepeatedBaloon
    End If
   
    Set oDDoc = ThisApplication.ActiveDocument
    Set oBalloons = ThisApplication.ActiveDocument.ActiveSheet.Balloons
    NofBalloonSet = 0
    NofRepeatedBalloon = 0
    oDDoc.SelectSet.Clear
   
    For Each oBalloon In oBalloons
        For Each oBalloonValueSet In oBalloon.BalloonValueSets
            blRepeated = False
            For pointer = 0 To NofBalloonSet - 1
                If StrComp(aBalloonValueSet(pointer).Value, oBalloonValueSet.Value) = 0 Then
                    blRepeated = True
'                    MsgBox "重複 : " & oBalloonValueSet.Value
                    Call oDDoc.SelectSet.Select(oBalloon)
                    Call oDDoc.SelectSet.Select(aBalloonValueSet(pointer).Parent)
                    pointer = NofBalloonSet ' ループ脱出
                End If
            Next
            If blRepeated Then
                NofRepeatedBalloon = NofRepeatedBalloon + 1
            Else
                If NofBalloonSet = MaxNumberOfBalloonValues Then
                    MsgBox "バルーンの種類が多すぎで終了"
                    GoTo END_OF_CheckRepeatedBaloon
                End If
                Set aBalloonValueSet(NofBalloonSet) = oBalloonValueSet
                NofBalloonSet = NofBalloonSet + 1
            End If
        Next
    Next
    MsgBox NofRepeatedBalloon & "個の重複"
   
END_OF_CheckRepeatedBaloon:
    Do While NofBalloonSet > 0
        NofBalloonSet = NofBalloonSet - 1
        Set aBalloonValueSet(NofBalloonSet) = Nothing
    Loop
End Sub

[やまら]

すいません、こちらに差し替え願います。

後処理が誤動作しそうだったのと、Balloonの綴りを間違っていた個所を修正しました。

Sub CheckRepeatedBalloon()
    Dim oDDoc As DrawingDocument
    Dim oBalloons As Balloons
    Dim oBalloon As Balloon
    Dim oBalloonValueSet As BalloonValueSet
    Dim aBalloonValueSet(MaxNumberOfBalloonValues) As BalloonValueSet
    Dim NofBalloonSet As Integer
    Dim pointer As Integer
    Dim blRepeated As Boolean
    Dim NofRepeatedBalloon As Integer

    ' 後処理の都合上、これだけ先に初期化
    NofBalloonSet = 0

   
    If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then
        MsgBox "図面を開いて実行してください"

        GoTo END_OF_CheckRepeatedBalloon
    End If
   
    ' 変数の初期化

    Set oDDoc = ThisApplication.ActiveDocument
    Set oBalloons = ThisApplication.ActiveDocument.ActiveSheet.Balloons

    NofRepeatedBalloon = 0
    oDDoc.SelectSet.Clear
   
    For Each oBalloon In oBalloons
        For Each oBalloonValueSet In oBalloon.BalloonValueSets
            blRepeated = False
            For pointer = 0 To NofBalloonSet - 1
                If StrComp(aBalloonValueSet(pointer).Value, oBalloonValueSet.Value) = 0 Then
                    blRepeated = True
'                    MsgBox "重複 : " & oBalloonValueSet.Value
                    Call oDDoc.SelectSet.Select(oBalloon)
                    Call oDDoc.SelectSet.Select(aBalloonValueSet(pointer).Parent)
                    pointer = NofBalloonSet ' ループ脱出
                End If
            Next
            If blRepeated Then
                NofRepeatedBalloon = NofRepeatedBalloon + 1
            Else
                If NofBalloonSet = MaxNumberOfBalloonValues Then
                    MsgBox "バルーンの種類が多すぎで終了"

                    GoTo END_OF_CheckRepeatedBalloon

                End If
                Set aBalloonValueSet(NofBalloonSet) = oBalloonValueSet
                NofBalloonSet = NofBalloonSet + 1
            End If
        Next
    Next
    MsgBox NofRepeatedBalloon & "個の重複"
   

END_OF_CheckRepeatedBalloon:

[かめかめ]

素晴らしいです。できるんですね。ありがとうございましたから早速使ってみます。