cad information

You might be able to get it through the transformation matrix?

https://docs.hexagonmi.com/pcdmis/2023.2/en/helpcenter/mergedProjects/automationobjects/webframe.html#PCDLRN_AlignCmnd_CadToPartMatrix.html
https://docs.hexagonmi.com/pcdmis/2023.2/en/helpcenter/mergedProjects/automationobjects/webframe.html#PCDLRN_AlignCmnd_MachineToPartMatrix.html

Thanks for the pointer. Unfortunately these API functions don't provide the transforms I'm looking for. All of the transforms I was able to extract from AlignCmd objects had identity vectors for the X,Y,Z columns. The transform I'm looking for is rotated 180 about the Z axis.

It can be done, it’s a bit tricky though. I can check my code when I’m at work.

Actually, the theoreticals were the easy part. A key observation is that the values you get from different commands are sometimes dependent on where in your program the marker is. This code may assume the alignment you want to report in is the one used in the code where the marker is. It can be moved by "Cmds.InsertionPointAfter".



Multiplying theos with that should take you straight back.

Thanks for the suggestion. I still need the transform in the CadInformation box. The alignment CadToPartMatrix have me some of the transform needed but it doesn't provide the full transform from CAD model to where it is when the feature is measured. I have to combine the CadInformation transform with the Alignment CadToPartMatrix to get what I'm looking for.

I found a solution, it may not be the best but it works.
Now all you have to do is take advantage of the information in these offices​.

'************************************************* **************************************
Set PCDApp = CreateObject("PCDLRN.Application")
Set PCDPartPrograms = PCDApp.PartPrograms
Set PCDPartProgram = PCDApp.ActivePartProgram
Set PCDCommands = PCDPartProgram.Commands
Set WShell = CreateObject("WScript.Shell")

PCDApp.Visible = True

AppActivate ("PC-DMIS CAD++ 2019 R1 (release)")

WShell.SendKeys "%VO"

Set WShell = CreateObject("Wscript.Shell")
WShell.Popup "Validar dados", 1, "INFO", 48

AppActivate ("CAD Information")

Sleep 1000
WShell.SendKeys "^a"

WShell.SendKeys "^a"

WShell.SendKeys "^c"

WShell.SendKeys "{ENTER}"

WShell.Popup "Validar dados", 1, "INFO", 48

Text1.Text = Clipboard.GetText(vbCFText)
​
'**************************************************************

Were the part moved from the original cad coordinates then? That is something that really, really should be avoided IMO.

Thanks for the solution. I ended up doing something similar in C# with a combination of the Windows Automation Framework and sending key events to the program.

Hi wesley.hoke, are you able to share your solution? I have been looking into creating something similar myself when I get a chance.

I second this, I'd like to know what your solution was.