I have a program that reports several Xactmeasure line profiles. I have to put the max/min values of each profile into a spreadsheet. Right now I do that by hand. I'm looking for a way to automate the process using a script. I have a script that I use to extract nominal and measured values for points and am thinking I can modify it but I have no idea how to "find" the Xactmeasure profile dimensions in my program within the script. Any ideas?
Sub Main()
Dim pcd As Application
Dim cmd As Command
Set pcd = CreateObject("PCDLRN.application.7.1", "")
For Each cmd In pcd.ActivePartProgram.Commands
If cmd.IsFCFCommand Then
If cmd.FCFCommand.HasProfileDimension Then
MsgBox (cmd.FCFCommand.ProfileDimension.Max)
MsgBox (cmd.FCFCommand.ProfileDimension.Min)
End If
End If
Next cmd
End Sub
"Command.IsFCFCommand" was not available in 2010MR3. I see you are on 2011MR1, I do not know when this was added. Some adjustment may be necessary.
Unfortunately this is not working. It appears "FCFCommand" is not available in 2011. I need to figure out how to find a FCF command in 2011. Thank you for the suggestion though!
Sub Main()
Dim pcd As Application
Dim cmd As Command
Set pcd = CreateObject("PCDLRN.application.7.1", "")
For Each cmd In pcd.ActivePartProgram.Commands
If cmd.IsFCFCommand Then
If cmd.FCFCommand.HasProfileDimension Then
MsgBox (cmd.FCFCommand.ProfileDimension.Max)
MsgBox (cmd.FCFCommand.ProfileDimension.Min)
End If
End If
Next cmd
End Sub
"Command.IsFCFCommand" was not available in 2010MR3. I see you are on 2011MR1, I do not know when this was added. Some adjustment may be necessary.
Unfortunately this is not working. It appears "FCFCommand" is not available in 2011. I need to figure out how to find a FCF command in 2011. Thank you for the suggestion though!
