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?
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?
This works in 2012 MR1.
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.
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?
This works in 2012 MR1.
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.
