×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

CATIA V5 - VBA/VB/VBScript - Searching/Activating Part Design Within Product Structure.

CATIA V5 - VBA/VB/VBScript - Searching/Activating Part Design Within Product Structure.

CATIA V5 - VBA/VB/VBScript - Searching/Activating Part Design Within Product Structure.

(OP)
Hey Guys,

Usually I am quite dependable doing this but I have hit a blank memory which happens to everyone!

I have a Product Structure & Excel List (Written VIA Excel VBA)

Option Explicit

Public Sub ExtactPartLevel()
Dim objCAD As Object
Dim objDOC As Object
Dim objSEL As Selection
Dim objPRT As Object
Dim objPRD As Product
Dim ii As Long

On Error Resume Next
Set objCAD = GetObject("CATIA.Application")
If Err.Number <> 0 Then
Set objCAD = CreateObject("CATIA.Application")
On Error GoTo 0
Set objDOC = objCAD.ActiveDocument
Set objSEL = objCAD.ActiveDocument.Selection
Set objPRD = objDOC.Product
objSEL.Add objPRD
End If

'I would usually create a "Nested Loop" in the Product to search for the specific part but I already have the number so the not required so I can do a simple query search

objSEL.Search "Name=V2917609420000*,all"

'Once I find the part Within the CATIA Product, I can't recall on how to Interigate the model exactly. (Opening In New Window - Isn't an Option has the visulition is to memory heavy)
Once Inside the Selected part I am them searching one parameter then searching for next part.

Any Help Guys?

Regards,

Ash

RE: CATIA V5 - VBA/VB/VBScript - Searching/Activating Part Design Within Product Structure.

(OP)
Nevermind guys,

I bodged the job

objSEL.Search "Name=V2917609420000*,all"
Set objPRT = objSEL.Item2(2)
Set objVal = objPRT.Value.Parameters.RootParameterSet.DirectParameters.Item(1)
objValue = objVal.Value

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources