Allows access to a local linear pattern feature, which is a linear pattern of components in an assembly.
.NET Syntax
| Visual Basic (Declaration) | |
|---|
Public Interface ILocalLinearPatternFeatureData |
| C# | |
|---|
public interface ILocalLinearPatternFeatureData |
| C++/CLI | |
|---|
public interface class ILocalLinearPatternFeatureData |
Example
'VBA
'--------------------------------------------------
' Preconditions: Verify that the assembly exists.
'
' Postconditions:
' 1. Opens the assembly.
' 2. Selects an edge for Direction 1.
' 3. Selects a subassembly to pattern.
' 4. Creates a local linear pattern.
' 5. Examine the FeatureManager design tree and
' graphics area.
'
' NOTE: Because the assembly is used elsewhere, do
' not save changes.
'---------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swFeatureManager As SldWorks.FeatureManager
Dim swFeature As SldWorks.Feature
Dim swLocalLinearPatternFD As SldWorks.LocalLinearPatternFeatureData
Dim status As Boolean
Dim errors As Long
Dim warnings As Long
Dim fileName As String
Sub main()
Set swApp = Application.SldWorks
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2019\samples\tutorial\api\distance linkage.sldasm"
Set swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocASSEMBLY, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension
Set swFeatureManager = swModel.FeatureManager
status = swModelDocExt.SelectByID2("", "EDGE", 0.222723097227572, -0.193386735236572, -0.10172211746567, False, 2, Nothing, 0)
status = swModelDocExt.SelectByID2("mount base-1 @ distance linkage", "COMPONENT", 0, 0, 0, True, 1, Nothing, 0)
Set swLocalLinearPatternFD = swFeatureManager.CreateDefinition(swFmLocalLPattern)
swLocalLinearPatternFD.D1ReverseDirection = True
swLocalLinearPatternFD.D1Spacing = 0.1516
swLocalLinearPatternFD.D1TotalInstances = 4
swLocalLinearPatternFD.D2PatternSeedOnly = False
swLocalLinearPatternFD.D2ReverseDirection = False
swLocalLinearPatternFD.D2Spacing = 0.05
swLocalLinearPatternFD.D2TotalInstances = 1
swLocalLinearPatternFD.SynchronizeFlexibleComponents = False
Set swFeature = swFeatureManager.CreateFeature(swLocalLinearPatternFD)
swModel.ClearSelection2 True
swModel.ViewZoomtofit2
End Sub
Example
Remarks
Accessors
See Also