---

HEADTARGETFAILED.jpg

Hallo Zusammen,

Ich möchte eine Makro Scrheiben um in einem CATDrawing zu prüfen auf welche 3Ds die Balloons zeigen.
Hier mein Code:

Code:

---

'**************************************************************
'***  Macro To check witch Part the balloon is pointed      ***
'***                                                        ***
'***  VBA                                                  ***
'***                                                        ***
'**************************************************************

Sub CATMain()

On Error Resume Next
Set MonDessin = CATIA.ActiveDocument
If (Err.Number <> 0) Then
    MsgBox ("Un CATDrawing doit être actif")
   
    Exit Sub
End If
If (InStr(MonDessin.Name, ".CATDrawing")) = 0 Then
    MsgBox ("La fenêtre active doit être un CATDrawing")
        Exit Sub
End If
Err.Clear
On Error GoTo 0

Dim ElemDispatch As CATBaseDispatch
Dim myBalloon As DrawingText
Dim myleaders As DrawingLeaders
Dim myleader As DrawingLeader

Set selection1 = MonDessin.Selection
'selection1.Search "Name=Numéro de pièce*,all" ' CATIA IN FRENCH
selection1.Search "Name=Balloon*,all" ' CATIA IN ENGLICH
   
For i = 1 To selection1.Count
    Set myBalloon = selection1.Item(i).Value
    Set myleaders = myBalloon.Leaders
    Set myleader = myleaders.Item(1)
    Set ElemDispatch = Nothing
    Set ElemDispatch = myleader.HeadTarget
        MsgBox myBalloon.Text & "-" & myleader.Name & "-" & ElemDispatch.Name
   

Next
End Sub

---

Ich bekomme aber leider ein  fehler : "methode HeadTarget failed" (siehe Bild)

Danke im Voraus für ihre Hilfe.

------------------
Gruss
Marc

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

---

Servus
Hat denn der Leader eine Verknüpfung zu einem Element? (wenn du das Element verschiebst sollte sich die Hinweislinie mit verschieben)
In meinem Kurztest liefert HeadTarget bei Texten die DrawingTextProperties (wtf). Somit kannst du ggf keinen Namen ausgeben.
Für die Suche kannst du folgenden sprachunabhängigen Filter nutzen:

Code:

---

selection1.Search "CATDrwSearch.DrwBalloon,all"

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

kann man die Methode ,wenn sie nicht vorhanden ist, nicht einfach ausschließen?
Z.B wenn nicht da dann Abbruch.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Servus
Klar geht das Uwe.
Einfach den Fehler abfangen/auswerten. zB (ungetestet)

Code:

---

Set ElemDispatch = Nothing
On Error Resume Next  'Fehlerbehandlung ausschalten
Set ElemDispatch = myleader.HeadTarget
on error goto 0  'Fehlerbehandlung wieder einschalten
If (Err.Number <> 0) Then     'falls ein Fehler aufgetaucht ist
    Err.Clear                 'Fehler löschen
    next                      'nächsten Ballon aufrufen
end if

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

LINE1.png

Hallo,

Danke für die Suche Methode.

Ja, den Leader hat eine Verknüpfung mit dem Element.
Ich habe den Feheler wenn die Leader auf generierte Geometry zeigt.
Wenn die Leader auf eine line die ich im Catdarwing ergestellt habe zeigt dann kommt den Name der Line raus! (siehe Bild)
Gibt es ein andenren weg um zu wissen auf welches 3Ds die Balloons zeigen (CATPart PartNumber zu finden)?

------------------
Gruss
Marc

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

---

Servus Marc
Das wird wohl schwierig.
Wie erzeugt ihr die Positionsnummer bzw die Ballone?
Wenn ihr die Nummer im Product erzeugt und die Ballone über die automatische Funktion erzeugt könntest du ggf auch die Stückliste nutzen um die PartNumber zu ermitteln (Nummer aus dem Ballon ermitteln und in der Stückliste "nachschlagen").

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Marc,

wenn du mit eingeschalterter Bamaßungs- oder Ballonfunktion über ein Element der entsperchenden View fährst wird der Name der Part auch angezeigt.
Vieleicht reicht dir das ja schon aus.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo,

Bernd, wir erzeugen die PositionNummer Manual im CATDrawing mit der Funktion "Balloon".

Uwe, Genau diese info des Names des Parts brauche ich aber für alle Balloons die sich schon in eimen Catdrawing finden.
Zum testen habe ich nur ein MSGBOX gemacht aber wenn es klapt werde ich alle Werte listen (in einer LISTBOX zB).

------------------
Gruss
Marc

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

---

Hallo Marc,

schau mal unter Tools/Optionen/Mechanical Design/ Drafting im Reiter Annotation and Dressup under Balloon Creation.

Dort kannst du auf Part Number stellen.
So wird der Ballon gleich mit der Partnummer erzeugt.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hallo Uwe,

Danke für alle deine Vorschläge, es geht aber leider nicht mit was ich machen wollte.

------------------
Gruss
Marc

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