조립품 안의 모든 구속조건만 한번에 억제하는 방법은 없나요?

Public Sub DELETE_CONSTRAINTS()
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
    Dim bDelete As Boolean
    If MsgBox(“Do you want to delete all existing constraints?”, vbYesNo + vbQuestion) = vbYes Then
        bDelete = True
    Else
        bDelete = False
    End If
    Dim oConstraint As AssemblyConstraint
    For Each oConstraint In oAsmCompDef.Constraints
        If bDelete Then
            oConstraint.DELETE
        Else
            oConstraint.Suppressed = True
        End If
    Next

End Sub

—————————

윗부분 내용을 메크로에 등록하신후

실행하면 구속조건 일괄삭제및 억제 가능합니다.

메크로 실행하면 나오는 창에서 ‘예’ 버튼 누르시면 모든 구속조건 삭제

‘아니오’ 버튼은 모든 구속조건 억제 입니다.

즐벤 하시길~~