Guten morgen zusammen
Edit: Problem habe ich gerade gelöst!!!Hatte den Constraint falsch angesprochen.
hab mal wieder ein kleines Problem.Möchte ein Offset im Sketch über Parameter steuern.Bekomme aber immer die Meldung Typen unverträglich.
Hab schon einiges durchprobiert komm aber irdendwie nicht weiter, vielleicht könnte mir jemand weiterhelfen
Gruß Andi
Sub CATMain()
set sel=CATIA.ActiveDocument.Selection
Dim sFilter(0)
sFilter(0) = "Part"
sel.SelectElement SFilter, "Part selektieren", false
set part1 = sel.Item(1).Value
Dim Params As Parameters
Set Params = part1.Parameters
Dim Spannmarke as Dimension
Set Spannmarke=Params.CreateDimension("Spannmarke", "Length", 25)
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("Adapterpart 03.CATPart")
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Spannmarke")
Set sketches1 = body1.Sketches
Set sketch1 = sketches1.Item("Sketch.1")
Set constraints1 = sketch1.Constraints
Set constraint1 = constraints1.Item("Offset.4")
Dim Rels As Relations
Set Rels = Part1.Relations
Dim Formel As Formula
Set Formel1 = Rels.CreateFormula("Formel1", "Test", constraints1.Item("Offset.4") , "Spannmarke")
End Sub
[Diese Nachricht wurde von Augustiner am 16. Mrz. 2006 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP