Product Coordinates

[saravanakumarr]

Hello,

Programmatically how to extract the coordinates(X,Y,Z &
Angles) of all the children of a product.

I am using the below code. But an error comes as below
shown image.

Код: Выделить всё

For i = 1 To Products.Count

    Dim Product As Product
    Set Product = Products.Item(i)

    Dim ProductPos As Position
    Set ProductPos = Product.Position

    Dim iAxisComponentsArray(11)
    ProductPos.GetComponents iAxisComponentsArray

Next i

Error Msg:
Compile error: Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic.

[Artem]

Код: Выделить всё

Dim d As Product
Set d = CATIA.ActiveDocument.Selection.Item(1).Value
For i = 1 To d.Products.Count

    Dim Product As Product
    Set Product = d.Products.Item(i)

    Dim ProductPos 'As Position
    Set ProductPos = Product.Position

    Dim iAxisComponentsArray(11)
    ProductPos.GetComponents iAxisComponentsArray
    MsgBox CStr(iAxisComponentsArray(0)) + CStr(iAxisComponentsArray(1))

Next i

Try this. On the future - selection also not like "as selection"

[saravanakumarr]

Thank you so much. That solved the problem.

[Wireless_Fidelity]

Индусы и сюда добрались...

Use search before asking. This will show your respect to the community. I believe you haven't even googled for your issue as there are hundreds pages that have a solution.

[[PTM]]

И среди них бывают нормальные программисты.

[AKB]

Индусы и сюда добрались...

Seoul, Korea