---

Hallo,

Kann ich irgendwie das Links des Balloons entfernen/Isolieren natürlich durch den Makro(vba)?
Balloon Generation schon geht aber darf kein links haben.

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

---

Was ich probiert:

1)
Makro aufnahmen während Isolirung...

2)
drawingView1.Texts.Item(1).Isolate

3)

Code:

---

For j = 1 To drawingView1.Texts.Count
selection1.Add drawingView1.Texts.Item(j)
Next
Anwendung = "Isolate"
CATIA.StartCommand Anwendung

---

4)
Copy-Paste

5)
Neue Balloon erstellen.
Leaderposition kann ich nicht abfragen.

Code:

---

Dim MyText2 As DrawingText
Set MyText2 = drawingView1.Texts.Add("ComplexText", 0#, 0#)
MyText2.AnchorPosition = 21
MyText2.FrameType = catCircle

Dim MyLeader As DrawingLeader
Set MyLeader = MyText2.Leaders.Add(20#, 50)

---

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

---

Servus
Kannst du nochmal beschreiben was du im generellen vor hast?
Willst du Balloons erstellen oder verändern?

Gruß
Bernd

PS: If it is easier for you, we could discuss this topic also in English.

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

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

---

Hallo Nyari,

zu dem von Bernd gefragten noch folgendes:

Falls ein Header an einem 2D-Punkt fixiert ist(HeaderTarget),
reicht es den Punkt zu löschen.
Für andere händisch 2D-Elemente gilt dasselbe.

Daher die Frage: Wie wurden die Header gesetzt? Auf per 'Update' erzeugte Geometrie?

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

ISOansicht.JPG

Hallo,

Ich habe eine ISO Ansicht.

Mittels diese Befehl:

Code:

---

Anwendung = "Balloon" & " " & "generation"
CATIA.StartCommand Anwendung

---

erstelle ich den Balloons und nach der Erstellung benenne ich das um.

Das funktioniert gut. Aber jedes Balloon hat ein Attribute link, das muss man momentan per Hand isolieren. Das möchte ich auch automatisieren.

Grüß
Gergö
----
Englisch geht leider nicht.

[Diese Nachricht wurde von NyariG am 19. Aug. 2015 editiert.]

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

---

Servus
Deine 3. Möglichkeit (selektieren und über StartCommand isolieren) hat bei mir funktioniert.
Vermutlich dürfen nur Texte mit einem Attributlink markiert sein, und der Name des Startcommand muss passen (aus "Tools -> Anpassen -> Befehl -> alle Befehle" heraussuchen)

Gruß
Bernd

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

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

---

Hallo

Bei mir funktioniert leider nicht.
Kannst du bitte anschauen:

Code:

---

Private Sub CommandButton8_Click()

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.ActiveSheet

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.ActiveView

Set DrawTexts1 = drawingView1.Texts

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Clear

For j = 1 To DrawTexts1.Count
selection1.Add DrawTexts1.Item(j)
Next

Dim anwendung As String

anwendung = "Isolate Text"
CATIA.StartCommand anwendung

anwendung = "Isolate"
CATIA.StartCommand anwendung

anwendung = "Isolate Point(s)"
CATIA.StartCommand anwendung

selection1.Clear

End Sub

---

Gruß
Gergö

[Diese Nachricht wurde von NyariG am 20. Aug. 2015 editiert.]

[Diese Nachricht wurde von NyariG am 20. Aug. 2015 editiert.]

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

---

inaktive.JPG

Hallo
Ich habe den Problem gefunden.
Bei mir der Befehl "Isolate" manchmal aktiv manchmal inaktiv.
Wenn das inaktiv ist wird die Balloons nicht isolieren.

Wie kann man das prüfen ob das inaktiv ist? Und wie kann man das aktive machen?

Gruß Gergö

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