Solid Edge Framework Type Library > Application Object : StartCommand Method |
A constant that specifies the ID of the Solid Edge command to start. The constant can be a member of:
Any constant from any of these sets is valid, as long as the environment to which the constant set belongs is active.
Visual Basic |
---|
Public Sub StartCommand( _ ByVal CommandID As SolidEdgeCommandConstants _ ) |
Value | Description |
---|---|
seAssemblyPlacePartCommand | Place Part command |
seAssemblySelectCommand | Select command |
seConvertCommand | |
seDraftSelectCommand | Draft Select command |
sePartInsertPartCommand | Insert Part command |
sePartSelectCommand | Part Select command |
seRefreshViewCommand | Refresh View Command |
seSheetMetalSelectCommand | SheetMetal Select command |
seSurfaceVisualCommand | Surface Visual Command |
A constant that specifies the ID of the Solid Edge command to start. The constant can be a member of:
Any constant from any of these sets is valid, as long as the environment to which the constant set belongs is active.
Private Sub Form_Load() Dim objApp As SolidEdgeFramework.Application Dim objDoc As SolidEdgePart.PartDocument Const TESTFILE = "T:\vbtests\testcases\cube.par" ' Report errors Const PI = 3.14159265358979 ' Create/get the application with specific settings On Error Resume Next Set objApp = GetObject(, "SolidEdge.Application") If Err Then Err.Clear Set objApp = CreateObject("SolidEdge.Application") Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument") objApp.Visible = True Else Set objDoc = objApp.ActiveDocument End If ' Open a PartDocument Set objDoc = objApp.Documents.Open(TESTFILE) ' Call the StartCommand Call objApp.StartCommand(CommandID:=sePartSelectCommand) ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing End Sub