Your Products have been synced, click here to refresh
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
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.
© 2024 Hexagon AB and/or its subsidiaries. | Privacy Policy | Cloud Services Agreement |