Hallo CAD Gemeinde,
ich bin gerade dabei in die schöne Welt der Makro Programmierung einzusteigen.
Mein erster Versuch ist ein bestehendes Makro um zu schreiben. Leider stoße ich da sehr schnell auf meine Grenzen.
Das bestehende Makro benennt die Boolschen Operationen um, und zwar mit dem Namen des Verwendeten Bodys. (siehe Bild)
Sub CATMain()
Dim partDocument1
Set partDocument1 = CATIA.ActiveDocument
Dim part1
Set part1 = partDocument1.Part
Dim bodies1
Set bodies1 = part1.Bodies
For i = 1 To bodies1.Count
Dim body1
Set body1 = bodies1.Item(i)
Dim shapes1
Set shapes1 = body1.Shapes
For j = 1 To shapes1.Count
Dim boolShape
On Error Resume Next
Set boolShape = shapes1.Item(j)
If (Err.Number = 0) Then
boolShape.Name = boolShape.Body.Name
End If
On Error GoTo 0
Err.Clear
Next
Next
End Sub
Mein Ziel ist es nun, alle in einem Geometrischen Set enthaltene Joins mit dem gleichen Namen zu versehen, den das Geometrisches Set hat in dem der Join ist.
Hier mein kläglicher Versuch:
Sub CATMain()
Dim partDocument1
Set partDocument1 = CATIA.ActiveDocument
Dim part1
Set part1 = partDocument1.Part
Dim hybridbodies1
Set hybridbodies1 = part1.HybridBodies
For i = 1 To hybridbodies1.Count
Dim hybridbody1
Set hybridbody1 = hybridbodies1.Item(i)
Dim hybridshapes1
Set hybridShapes1 = hybridBody1.HybridShapes
For j = 1 To hybridShapes1.Count
Dim hybridShapeAssemble
On Error Resume Next
Set hybridShapeAssemble = hybridShapes1.Item(j)
If (Err.Number = 0) Then
hybridShapeAssemble.Name = hybridShape.Body.Name
End If
On Error GoTo 0
Err.Clear
Next
Next
End Sub
Ich bin für jede Hilfe Dankbar
Grüße
Alex
[Diese Nachricht wurde von MuckAlex123 am 25. Mrz. 2009 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP