VBA Get the linked product's name of a drawing view based on a scene 1

[Arpad_Jacso]

Hi,

I would like to get the Product's name (e.g: Something.CATProduct) from a drawing view which generated from an enchanted scene.
I've tried the
oDrawingView.GenerativeLinks.FirstLink.Parent.Name 'which gives me "Scenes".

and also tried the
oDrawingView.GenerativeBehavior.document.Parent.Name 'which still gives me "Scenes".

oDrawingView.GenerativeLinks.FirstLink.Parent.Parent.Name or oDrawingView.GenerativeBehavior.document.Parent.Parent.Name doesn't work, it gives an error.

I also found ferdo's earlier reply for the same question:
oDrawingView.Activate
oDrawingView.GenerativeBehavior.document.ReferenceProduct.Parent.Fullname 'but is still gives me an error.

How the hell can I obtain the parent or the referenceproduct of the "Scenes"??

 

[Little Cthulhu]

Hi.

You were on the right track.

In VBA use typed variable:

Dim prd as Product
set prd = oDrawingView.GenerativeBehavior.document.Parent.Parent
MsgBox prd.Name

In CATScript you can't simply "cast" to a type so use [tt]PspWorkbench.GetInterface[/tt]:

Dim psp ' as PspWorkbench
Dim doc: for each doc in CATIA.Documents
  if TypeName(doc) = "ProductDocument" then
    set psp = doc.Product.GetTechnologicalObject("PspWorkbench")
    exit for
  end if
next
Dim prd: set prd = psp.GetInterface("CATIAProduct", oDrawingView.GenerativeBehavior.document.Parent.Parent)

 

[Arpad_Jacso]

Perfect!
Greatful forever.