Execute feature

I want to create a button that executes a feature and immediately RefreshPart the dimension.

something similar to this.

Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms

PCDApp.Visible = True

Set PCDPartProgram = PCDApp.ActivePartProgram
AppActivate ("PC-DMIS CAD++ 2019 R1 (release)")
PCDPartProgram.EXECUTEfeature
PCDPartProgram.RefreshPart

vpt.se over 3 years ago

What about EXECUTE (in the command method)?

EXECUTE Attempts to execute the current command.

Executes the command if the command is immediately executable.

You'd need to add the command object though.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
carlos silva over 3 years ago in reply to vpt.se

how do I do that?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
NinjaBadger over 3 years ago

What methodology would you use to select the feature to run? Just where the cursor is?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
carlos silva over 3 years ago in reply to NinjaBadger

yes
I execute the feature where the cursor
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Jared Hess over 3 years ago

Hi Carlos silva maybe something like this is what you want. You could then tie it to a custom button or menu option:

Sub Main
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Ew As Object
Set Ew = Part.EditWindow
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object

' Selects the command where the cursor is
EW.SelectCommand

' Sets the current command as the command object
Dim myCommand as Object
Set myCommand = Cmds.CurrentCommand

' Executes the current command
MsgBox "Command Selected. Attempting to execute command."
myCommand.Execute

' Refreshes
Part.RefreshPart
End Sub

carlos silva over 3 years ago in reply to Jared Hess

Thank you very much.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

quentin66 over 1 year ago

Hi Carlos silva maybe something like this is what you want. You could then tie it to a custom button or menu option:

Sub Main
Dim App As Object
Set App = CreateObject ("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Ew As Object
Set Ew = Part.EditWindow
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object

' Selects the command where the cursor is
EW.SelectCommand

' Sets the current command as the command object
Dim myCommand as Object
Set myCommand = Cmds.CurrentCommand

' Executes the current command
MsgBox "Command Selected. Attempting to execute command."
myCommand.Execute

' Refreshes
Part.RefreshPart
End Sub

Furthermore,how to execute from cursor? or execute from specified command?