Hallo,
Ich würde gerne einfache eine besimmte fläche die ich über ein makro offsettiere vorher einfärben...habe auch schon viel gelesen finde allerdings immer nur beispiele mit einer selection und wenn ich des auf meinen fall anwende funktioniert es leider nicht:
Hier mein bisheriger code:
For i = 1 To zahl
Dim hybridShapeExtract1
'Set hybridShapeExtract1 = hybridBody1.HybridShapes.Item(i)
Set hybridShapeExtract1 = GeoSet.HybridShapes.Item(i)
Dim UserSelection As Selection
' UserSelection = CATIA.activeDocument.Selection
UserSelection = CATIA.activeDocument.hybridShapeExtract1
Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = userSelection.VisProperties.SetRealColor 255, 128, 0, 0
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeExtract1)
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim hybridShapeOffset1 As HybridShapeOffset
Set hybridShapeOffset1 = hybridShapeFactory1.AddNewOffset(reference1, OffsetWert, Richtung, 0.01)
hybridBody2.AppendHybridShape hybridShapeOffset1
hybridShapeOffset1.name = "offset" & i
part1.InWorkObject = hybridShapeOffset1
On Error Resume Next
part1.Update
If Err.Number <> 0 Then
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
selection1.Clear
selection1.Add hybridShapeOffset1
selection1.Delete
End If
On Error GoTo 0
Next
wäre klasse wenn mir jemand helfen könnte...
Gruss Niko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP