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