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 objSketchs As SolidEdgePart.Sketchs = Nothing
Dim objSketch As SolidEdgePart.Sketch = Nothing
Dim objProfile As SolidEdgePart.Profile = Nothing
Dim objModels As SolidEdgePart.Models = Nothing
Dim objModel As SolidEdgePart.Model = Nothing
Dim objSlots As SolidEdgePart.Slots = Nothing
Dim objSlot As SolidEdgePart.Slot = Nothing
Try
OleMessageFilter.Register()
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objPartDocument = objApplication.ActiveDocument
'set the modeling mode
objPartDocument.ModelingMode = SolidEdgePart.ModelingModeConstants.seModelingModeOrdered
objSketchs = objPartDocument.Sketches
'get a sketch & profile
objSketch = objSketchs.Item(1)
objProfile = objSketch.Profile
objModels = objPartDocument.Models
objModel = objModels.Item(1)
'get Slots collection
objSlots = objModel.Slots
'create a Slot
objSlot = objSlots.Add(objProfile,
SolidEdgePart.FeaturePropertyConstants.igRegularSlot,
SolidEdgePart.FeaturePropertyConstants.igFormedEnd,
0.005,
0.0,
0.0,
SolidEdgePart.FeaturePropertyConstants.igFinite,
SolidEdgePart.FeaturePropertyConstants.igLeft,
0.5,
SolidEdgePart.KeyPointExtentConstants.igTangentNormal,
Nothing,
SolidEdgePart.FeaturePropertyConstants.igNone,
SolidEdgePart.FeaturePropertyConstants.igNone,
0.0,
SolidEdgePart.KeyPointExtentConstants.igTangentNormal,
Nothing,
Nothing,
SolidEdgePart.OffsetSideConstants.seOffsetNone,
0.0,
Nothing,
SolidEdgePart.OffsetSideConstants.seOffsetNone,
0.0)
'set some properties (edit) on the slot
objSlot.SlotEndCondition = SolidEdgePart.FeaturePropertyConstants.igLancedEnd
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
OleMessageFilter.Revoke()
End Try
End Sub
End Module