| Solid Edge Part Type Library > FamilyMember Object : LiveRule Property |
| Visual Basic |
|---|
Public Property LiveRule( _ ByVal LiveRule As LiveRulesConstants _ ) As Boolean |
| Value | Description |
|---|---|
| igConcentricLiveRule | Maintain concentric relations |
| igCoplanarAxesAboutXLiveRule | |
| igCoplanarAxesAboutYLiveRule | |
| igCoplanarAxesAboutZLiveRule | |
| igCoplanarAxesLiveRule | Maintain coplanar Axes. Always on for live rules in an FOP and cannot be turned off. |
| igCoplanarLiveRule | Maintain coplanar relations |
| igMaintainRadiusLiveRule | Maintain same radius if possible |
| igOrthoLockingLiveRule | Maintain orthogonal to base if possible |
| igParallelLiveRule | Maintain parallel relations |
| igPerpendicularLiveRule | Maintain perpendicular relations |
| igSymmetricLiveRule | Maintain symmetric relations |
| igSymmetricXYLiveRule | Maintain symmetric relations based on XY plane |
| igSymmetricYZLiveRule | Maintain symmetric relations based on YZ plane |
| igSymmetricZXLiveRule | Maintain symmetric relations based on ZX plane |
| igTangentEdgeLiveRule | Maintain connected tangent relations |
| igTangentTouchingLiveRule | Maintain touching tangent relations |
| igThicknessChainLiveRule |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objPartDocument As SolidEdgePart.PartDocument = Nothing Dim objFamilyMembers As SolidEdgePart.FamilyMembers = Nothing Dim objFamilyMember As SolidEdgePart.FamilyMember = Nothing Try OleMessageFilter.Register() ' Connect to Solid Edge objApplication = Marshal.GetActiveObject("SolidEdge.Application") objApplication.Visible = True objPartDocument = objApplication.ActiveDocument objFamilyMembers = objPartDocument.FamilyMembers For Each objFamilyMember In objFamilyMembers ' Determine if specified LiveRule is enabled. If Not objFamilyMember.LiveRule(SolidEdgePart.LiveRulesConstants.igConcentricLiveRule) Then ' Enable specified LiveRule. objFamilyMember.LiveRule(SolidEdgePart.LiveRulesConstants.igConcentricLiveRule) = True End If Next Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module