hexagon logo

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

Parents Reply Children