Create Circular Pattern Example (VB.NET)
This example shows how to create a circular-pattern feature using a preselected axis, a preselected feature, and a specified angle between
instances.
'-------------------------------------------------------------'
' Preconditions: Make sure that the specified file exists.
'
' Postconditions: A circular-pattern feature is created.
'
' NOTE: Because the model is used elsewhere, do not
' save any changes when closing it.
'--------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Public
Sub Main()
Dim
swModel As
ModelDoc2
Dim
swModelDocExt As
ModelDocExtension
Dim
swFeatureMgr As
FeatureManager
Dim
swFeature As
Feature
Dim
status As
Boolean
Dim
warnings As
Long
Dim
errors As
Long
swModel = swApp.OpenDoc6("C:\Program
Files\SolidWorks Corp\SolidWorks\samples\tutorial\api\FeatureCircularPattern.SLDPRT",
swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent,
"",
errors, warnings)
swModelDocExt = swModel.Extension
swFeatureMgr = swModel.FeatureManager
' Select boss feature to use for
circular pattern; selection mark is 4
status = swModelDocExt.SelectByID2("Boss-Extrude2",
"BODYFEATURE",
0, 0, 0, False,
4, Nothing,
0)
' Select axis around which to
create circular pattern; selection mark is 1
status = swModelDocExt.SelectByID2("Axis1",
"AXIS",
0, 0, 0, True,
1, Nothing,
0)
' Create circular-pattern feature
swFeature = swFeatureMgr.FeatureCircularPattern2(6,
1.047197551197, False,
"NULL",
False)
End
Sub
'''
<summary>
'''
The SldWorks swApp variable is pre-assigned for you.
'''
</summary>
Public
swApp As
SldWorks
End
Class