---

Hallo Leute, 
ich habe ein kleines Problem bezüglich des Ansprechens des Radius-Parameters bei der Kantenverrundung.
Im folgenden habe ich meinen Code gepostet und ich finde den Fehler nicht.

Code:

---

Dim intPartDocObj As PartDocument
    Dim intRelsObj As Relations
    Dim intRelObj As Relation
    Dim intParasObj As Parameters
    Dim intParaUserObj As Parameter
    Dim intInternalVerrundungParaObj As Parameter
    Dim intBodiesObj As Bodies
    Dim intBodyObj As Body
    Dim intHybShapeObj As Shapes
    Dim intVerrundungObj As ConstRadEdgeFillet
   
    On Error Resume Next
    Set intPartDocObj = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        Exit Sub
    Else
        On Error GoTo 0
    End If
   
   
    Set intRelsObj = intPartDocObj.Part.Relations
    Set intParasObj = intPartDocObj.Part.Parameters
    Set intParaUserObj = intParasObj.Item("Verrundungsradius")
    Set intBodiesObj = intPartDocObj.Part.Bodies
    Set intBodyObj = intBodiesObj.Item("Hauptkörper")
    Set intHybShapeObj = intBodyObj.Shapes
    Set intVerrundungObj = intHybShapeObj.Item("Kantenverrundung.1")
   
    '***Radius-Parameter von der Verrundung holen
  'Fehler Method 'GetItem' for Object Parameters failed 
Set intInternalVerrundungParaObj = intParasObj.GetItem(intParasObj.GetNameToUseInRelation(intVerrundungObj) & "\Radius")

 
    Set intRelObj = intRelsObj.CreateFormula("Verrundungsradius", "", intInternalVerrundungParaObj, intParaUserObj.Name)
   
    intPartDocObj.Part.Update

---

Ich weis nicht was falsch ist. Diesen Fehler hatte ich auch noch nie.
Würde mich über Hilfe sehr freuen.
Vielen Dank
weylin

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

---

Hallo weylin,

Du kommst hier sicher mit der "SubList" besser:

Code:

---

Set intInternalVerrundungParaObj = intParasObj.SubList(intVerrundungObj, True).Item("Radius")

Set intRelObj = intRelsObj.CreateFormula("Verrundungsradius", "", intParaUserObj, intParasObj.GetNameToUseInRelation(intInternalVerrundungParaObj))

---

Ich habe auch die Formel-Erstellung nach meinem Verständnis (  ) korrigiert. Ist allerdings nicht getestet!

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo weylin,

suche hier im Forum oder in V5Automation.chm auf "Sublist".
Das müsste dir die Lösung geben.
z.B. in diesen Beitrag

Gruß,
Zoltan

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

---

Hallo
Lusilnie dank dir für die hervoragende Code-Korrektur. Funktioniert einwandfrei super Tipp mit der Sublist zu arbeiten.

zoltan.bekesi dank dir für die Zusatzinfos so kann ich mich in das Thema weiter einarbeiten.

Vielen Dank euch
Viele Grüße
weylin

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