---

Hallo
hab ein Makro aus dem Forum für eine Elementselektion.
Nun möchte in einer Produktstruktur ein Part auswählen und dann auf die Parameter zugreifen um Parameterwerte von Part zu Part zu kopieren.
Wie komme ich nach der Selektion des Parts an die Referenz um auf die Parameter zu zugreifen.

Code:

---

Sub CATMain()

    Dim intRootDocObj As ProductDocument
    Dim intSelObj As Object 'Selection
    Dim intSelFilter(0)
    Dim intSelStateStr As String
 
    On Error Resume Next
    Set intRootDocObj = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        MsgBox "Falscher Dokumententyp!", vbExclamation, "ERROR"
        Exit Sub
    Else
        On Error GoTo 0
    End If
 
    Set intSelObj = intRootDocObj.Selection
    intSelObj.Clear
 
    MsgBox "Bitte selektieren Sie einen Part" + vbNewLine + "ESC zum Abbrechen der Selektion und des Makros", vbInformation, "Punkt selektieren"
    intSelFilter(0) = "Part"
    'intSelFilter(0) = "Point"
    intSelStateStr = intSelObj.SelectElement2(intSelFilter, "Bitte Part selektieren / ESC zum Abbrechen", False)
    If intSelStateStr = "Normal" Then
        MsgBox "Sie haben folgenden Punkt selektiert:" + vbNewLine + vbNewLine + _
                "Punktname:" + vbTab + intSelObj.Item(1).Value.Name + vbNewLine + _
                "Partname:" + vbTab + intSelObj.Item(1).Value.Parent.Parent.Parent.Parent.Name, vbInformation, "Selektion erfolgreich"
        Exit Sub
    Else
        MsgBox "Die Selektion war NICHT erfolgreich", vbExclamation, "Selektion nicht erfolgreich"
        Exit Sub
    End If

End Sub

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Uwe,

(was macht das Mopped?) :-)

die von Dir ausgesuchte Routine ist ein wenig kleinlich.
Zum einen muss ein Produkt aktiv sein - ein einzelnes Part geht offenbar nicht - zum anderen bekommst als Partnamen grundsätzlich 'CNext' zurück.

Ausserdem versteh ich jetzt auf Anhieb nicht, weshalb Du die Referenz bilden willst.
(Reicht set oRef = intSelObj.item2(1).reference nicht?)

Was ich Dir noch anbieten kann:

Code:

---

'---------------------------------------------------------------------------------------
' Procedure : GetSelDoc
' Author    : jherzog
' Date      : 28.10.2015
' Time      : 16:05
' Languages : VBA 6.5
' V5-Release: V5R19/21
' Purpose  : Interactivly select a document(product, part or drawing)
' Parms    : -
' Ret. Value: the selected doc object
'
' Syntax    : GetSelDoc
'
' Prereqs  : an open doc
' Remarks  : -
'---------------------------------------------------------------------------------------
'
Public Function GetSelDoc() As Object
  Dim oSel                                                'As Selection
  Dim arrSelWhich(2)
  Dim Status As String
  Dim oPP
  Dim i As Integer

  On Error GoTo GetSelDoc_Error

  AppActivate CATIA.Caption, False                        'switch to catia
  LockMouseToDoc hWndDoc                                  'confine mouse

  For i = 1 To CATIA.Documents.Count
      If TypeName(CATIA.Documents.Item(i)) <> "DrawingDocument" Then
        CATIA.Documents.Item(i).Product.ApplyWorkMode (DEFAULT_MODE)  'set work mode
        DoEvents
      End If
  Next

  arrSelWhich(0) = "Part"                                ''part' needs to be part first?!
  arrSelWhich(1) = "Product"                              'otherwise only products will be allowed
  arrSelWhich(2) = "DrawingRoot"

  Set oSel = CATIA.ActiveDocument.Selection
  oSel.Clear

  Status = oSel.SelectElement2(arrSelWhich, "Select Part, Product or Drawing / Push Escape to cancel", False)

  If (Status = "Normal") Then
      Set oPP = oSel.Item2(1)
      Select Case oPP.Type
        Case "Part"
            Set GetSelDoc = oPP.Value.Parent
        Case "Product"
            Set GetSelDoc = oPP.Value.ReferenceProduct.Parent
        Case "DrawingRoot"
            Set GetSelDoc = oPP.Document
      End Select
  ElseIf Status = "Cancel" Then
      CATIA.StatusBar = "Selection cancelled by user"
      AppActivate frmParmDoc.Caption, False
  End If
  oSel.Clear
  ClipCursor ByVal 0&

  Exit Function
  '---------------------------------------------------------------------------------------
GetSelDoc_Error:
  Dim errMsg As String
  Dim errRet As VbMsgBoxResult

  Select Case Err.Number
      Case 438                                            'ApplyWorkMode causes error if already set
        Resume Next
'      Case -2147467259
      Case Else
        errMsg = Err.Number & ": " & Err.Description & " in procedure GetSelDoc"
        errRet = MsgBox(errMsg, vbOKOnly, "GetSelDoc")
  End Select

  'Resume Next                                          'fall thru to quit sub
  '---------------------------------------------------------------------------------------
End Function

---

Die Funktion liefert das ausgewählte Dokument als Objekt zurück.

Hope it helps,
Joe

------------------
Inoffizielle Catia Hilfeseite

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joe,

Moped ist fertig. Dast geht bei mir auch schneller als das programmieren.   

Danke dir für den Code.
Versuche das mal ein zu bauen.

Zitat:

---

Ausserdem versteh ich jetzt auf Anhieb nicht, weshalb Du die Referenz bilden willst.
(Reicht set oRef = intSelObj.item2(1).reference nicht?)

---

Ich muss halt nur an die Parameter der entsprechenden Parts ran.

Also Parameterwert von Part1 in Part2 übertragen.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP