Find Instance Name from Selecting Edge Using SelectElement2

[blues1143]

Hello,

I need to know the coordinates of a point within a CATPart with respect to the CATProduct/Assembly origin.

How can I do this?

Cheers

 

[itsmyjob]

check FAQ for point in part and do some math to get position from root product. This is if you're looking for script.

If you need manual info, then double click the reference you want to use - defined by the blue level - (root product or sub level par) then use the measure tool...

Eric N.
indocti discant et ament meminisse periti ​

 

[blues1143]

Hi,

I am after a script...

What Math would I use to get position from the root product?!

Thanks

 

[itsmyjob]

if google math did not work then try matrix math... if you having problem with matrix math then go back to google math

Eric N.
indocti discant et ament meminisse periti ​

 

[blues1143]

Okay sorted that out.

Finally.... how can I get the instance name of the part in a product if I select an edge on the part using selectelement2?

Cheers

 

[itsmyjob]

selection.item(1).Value.Parent.Parent.Parent.Parent

or something like that

Eric N.
indocti discant et ament meminisse periti ​

 

[blues1143]

Unfortunately that didn't work! Any ideas... I have my code below

Dim InputObject(0)
InputObject(0) = "Edge"

Dim coord(2) As Variant

Set ocentre = CATIA.ActiveDocument.Selection
Status = ocentre.SelectElement2(InputObject, "Select Circle", False)
Set otemp = ocentre.Item(1)
Set oprod = ocentre.FindObject("CATIAPart")
Set partDocument1 = documents1.Item(oprod.Parent.Name)
Set oPart = partDocument1.Part
Set ohsf = oPart.HybridShapeFactory
Set oRef = otemp.Reference
Set opoint = ohsf.AddNewPointCenter(oRef)
opoint.Compute
opoint.GetCoordinates coord

MsgBox ocentre.Item(1).Value.Parent.Parent.Parent.Parent.Name 'This is the line I need to get the instance name of the part the selected edge is on!

End