- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Ilogic 이벤트 트리거 관련 하여 테스트 로직을 작성하고 여러 이벤트 상황에 넣어 봤지만 작동을 하지 않네요.
일단 규칙만 실행하면 작동은 됩니다.
각 이벤트 트리거 별 규칙이 있는지 이벤트 트리거를 작동 시키기 위해서는 어떤 특정한 구문을 추가해야 하는지
알고 싶습니다.
사용된 규칙은 아래와 갈습니다.
Dim oDef As ComponentDefinition = ThisDoc.Document.ComponentDefinition Dim oPDef As PartComponentDefinition = ThisDoc.Document.ComponentDefinition Dim oFeature As PartFeature Dim oFeatures As PartFeatures = oDef.Features Dim oHole As HoleFeature Dim oHoles As HoleFeatures = oFeatures.HoleFeatures Dim oThreadFeats As ThreadFeatures = oPDef.Features.ThreadFeatures ' - 색상 지정 Dim M3 As String = "일반 남색" Dim M4 As String = "PINK" Dim M5 As String = "일반 적색" Dim M6 As String = "일반 노란색" Dim M8 As String = "일반 초록색" Dim M10 As String = "일반 보라색" Dim M12 As String = "일반 주황색" Dim M16 As String = "일반 청색" Dim others As String = "일반 검은색" For Each oHole In oHoles If oHole.Tapped = True currentType = Feature.ThreadDesignation(oHole.Name) If currentType = "M3x0.5" Then Feature.Color(oHole.Name) = M3 ElseIf currentType = "M4x0.7" Then Feature.Color(oHole.Name) = M4 ElseIf currentType = "M5x0.8" Then Feature.Color(oHole.Name) = M5 ElseIf currentType = "M6x1" Then Feature.Color(oHole.Name) = M6 ElseIf currentType = "M8x1.25" Then Feature.Color(oHole.Name) = M8 ElseIf currentType = "M10x1.5" Then Feature.Color(oHole.Name) = M10 ElseIf currentType = "M12x1.75" Then Feature.Color(oHole.Name) = M12 ElseIf currentType = "M16x2" Then Feature.Color(oHole.Name) = M16 Else Feature.Color(oHole.Name) = others End If Else dim HoleType as String = oHole.ClearanceInfo.FastenerSize If HoleType = "M3" Then Feature.Color(oHole.Name) = M3 ElseIf HoleType = "M4" Then Feature.Color(oHole.Name) = M4 ElseIf HoleType = "M5" Then Feature.Color(oHole.Name) = M5 ElseIf HoleType = "M6" Then Feature.Color(oHole.Name) = M6 ElseIf HoleType = "M8" Then Feature.Color(oHole.Name) = M8 ElseIf HoleType = "M10" Then Feature.Color(oHole.Name) = M10 ElseIf HoleType = "M12" Then Feature.Color(oHole.Name) = M12 ElseIf HoleType = "M16" Then Feature.Color(oHole.Name) = M16 Else Feature.Color(oHole.Name) = others End If End If Next 'InventorVb.DocumentUpdate() - 혹시나 해서 아래 구문과 테스트 해봤음. iLogicVb.UpdateWhenDone = True
Solved! Go to Solution.