problems running script

Has anyone else tried to run this script from the Wilcox site "tracesheet.bas"? I added all the assignments per the instructions and I get no output to the variables at all. If I'm correct should I not see the selections from the menu in the assignments in my pcdims program?

Thanks Bill

PCDMIS 3.7 MR3
PCDMIS 4.3 MR1

Parents

EHines over 15 years ago

Not sure how to pass it back to the pcd program?

If[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Dialog[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (Dlg1) = "-1" [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2]V10 = "OK"[/SIZE]
[SIZE=2]Else[/SIZE]
[SIZE=2]V10 = "Cancel"[/SIZE]
 
Dim Cmds As Object
Dim Cmd As Object
 
Set Cmds = PCDMISPart.Commands
 
 
For Each Cmd In Cmds
      If Cmd.Type = ASSIGNMENT Then
          If Cmd.GetText(DEST_EXPR, 0) = "BUTTON" Then
            bln = Cmd.PutText(V10, SRC_EXPR, 0)
            Cmd.ReDraw
       End If
  Next Cmd
 
[SIZE=2]Exit Sub[/SIZE]
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[/COLOR][/SIZE]

We have here a big jumble of snippets. I will try to put something comprehensive together but I can't do that right this minute.

Reply

EHines over 15 years ago

Not sure how to pass it back to the pcd program?

If[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Dialog[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] (Dlg1) = "-1" [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2]V10 = "OK"[/SIZE]
[SIZE=2]Else[/SIZE]
[SIZE=2]V10 = "Cancel"[/SIZE]
 
Dim Cmds As Object
Dim Cmd As Object
 
Set Cmds = PCDMISPart.Commands
 
 
For Each Cmd In Cmds
      If Cmd.Type = ASSIGNMENT Then
          If Cmd.GetText(DEST_EXPR, 0) = "BUTTON" Then
            bln = Cmd.PutText(V10, SRC_EXPR, 0)
            Cmd.ReDraw
       End If
  Next Cmd
 
[SIZE=2]Exit Sub[/SIZE]
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[/COLOR][/SIZE]

We have here a big jumble of snippets. I will try to put something comprehensive together but I can't do that right this minute.

Children

No Data