---

Hallo!
Ich habe mal wieder eine Frage. Ich möchte mit einem Macro eine Offset-Plane erzeugen, deren Wert immer dem eines Parameters entspricht. Der Offset-Wert soll dabei über eine Formel an den Parameter gebunden sein. Mein Offset übernimmt leider immer nur den Wert des Parameters, ist aber nach Durchlauf des Macros nicht an den Parameter gekoppelt. Wie programmiert man das? 

Grüße Hannes

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

---

Hallo Hannes  ,

hierbei ist die Vorgehensweise im Script genauso wie die Vorgehensweise per Hand. D.h. du benötigst einen Parameter (Lenght) und die Ebene. Die Ebene selber hat einen internen Parameter mit dem Namen "Offset" (Lenght). Diesen internen Parameter verknüpfst du mit einer "=" Formel mit dem von dir erstellten Parameter. Hier mal das ganze in einem Script als Beispiel. Die Ebene sowie den Parameter kann man natürlich im Script auch interaktiv vom Anwender selektieren lassen (dann ist man nicht an die Namensgebung gebunden  )

Code:

---

Option Explicit

Sub CATMain()

    '***Deklarationen
    Dim intPartDocObj As PartDocument
    Dim intRelsObj As Relations
    Dim intRelObj As Relation
    Dim intParasObj As Parameters
    Dim intParaUserObj As Parameter
    Dim intInternalPlaneParaObj As Parameter
    Dim intHybBodiesObj As HybridBodies
    Dim intHybBodyObj As HybridBody
    Dim intHybShapeObj As HybridShapes
    Dim intPlaneObj As Plane
   
    '***Abfrage Dokumententyp
    On Error Resume Next
    Set intPartDocObj = CATIA.ActiveDocument
    If Err.Number <> 0 Then
        Exit Sub
    Else
        On Error GoTo 0
    End If
   
    '***Alle Objekte instanzieren
    Set intRelsObj = intPartDocObj.Part.Relations
    Set intParasObj = intPartDocObj.Part.Parameters
    Set intParaUserObj = intParasObj.Item("OFFSET_PARAMETER")
    Set intHybBodiesObj = intPartDocObj.Part.HybridBodies
    Set intHybBodyObj = intHybBodiesObj.Item("Geometrical Set.1")
    Set intHybShapeObj = intHybBodyObj.HybridShapes
    Set intPlaneObj = intHybShapeObj.Item("Plane.1")
   
    '***Offset-Parameter der Ebene holen
    Set intInternalPlaneParaObj = intParasObj.GetItem(intParasObj.GetNameToUseInRelation(intPlaneObj) & "\Offset")

    '***Formel erzeugen
    Set intRelObj = intRelsObj.CreateFormula("OFFSET_PLANE", "", intInternalPlaneParaObj, intParaUserObj.Name)
   
    '***Part Updaten
    intPartDocObj.Part.Update

   
End Sub

---

 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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