 
            | 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