Sometimes I want to use mouse select"PNT1...PNT(N)"&"ctrl+E" instead of "ctrl+E" for adjusting gauge,because use "ctrl+E" can
refresh the report,but another can not.We need another(mouse select"PNT1...PNT(N)"&"ctrl+E") because there is so many points,move
points and otherwise in one part of gauge,so I need to use "UpdateDimensionNominals" to refresh report.
This Application can not update nominals,but I can not find out the problem!
Sub UpdateDimensionNominals(UpdateObjectText As Boolean)
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
For Each Cmd In Cmds
If UpdateObjectText=True Then
cmd.UpdateDimensionNominals
End If
Next Cmd
Cmd.ReDraw
End Sub
Sub UpdateDimensionNominals(UpdateObjectText As Boolean)
Dim App As Object
Set App = CreateObject("PCDLRN.Application")
Dim Part As Object
Set Part = App.ActivePartProgram
Dim Cmds As Object
Set Cmds = Part.Commands
Dim Cmd As Object
For Each Cmd In Cmds
