---

Hallo

Da ich hier ja schon sofort Hilfe gefunden habe probiere ich es gleich nochmal. 

Ich hab in einem Drawing einen Text, den ich in eine Skizze kopieren will (über dxf). Das funktioniert jetzt soweit.

Jetzt möchte ich den Text mittig (in der Skizze im Part) ausrichten. Vertikal ist kleines Problem, da die Schrifthöhe zwar bekannt ist, aber irgendwie paßt meine Umrechnung nicht ganz. Aber wie mache ich das horizontal? Und mache ich das am Besten erst in der Skizze oder schon im Drawing?

Ich hab hier ein dickes blaues Catia-Makro-Buch, aber zum Drawing steht da leider so gut wie gar nix.

Gruß
White_Fox

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

---

Servus
Woher kommen die Konturen für den Text?
Wenn diese auch aus Catia kommen würde ich den Text vor dem Export schon mit AnchorPosition (catMiddleCenter) und der Position (auf 0,0) ausrichten.

Gruß
Bernd

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

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

---

Ah...die Konturen kommen von hier:
http://forum.cad.de/foren/ubb/Forum137/HTML/006255.shtml

Der Text selber ist unbekannt, kann imemr was anderes sein. Aktuell platziere ich den schon bei 0,0

Ich hab mal probiert, die Größe des Textrahmens zu verändern und das als Makro aufzunehmen. Das Ergebnis ist eine leere Sub... 

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

---

Servus
Wenn der Text eh schon bei 0,0 ist musst du doch nur noch die AnchorPosition korrigieren.

Gruß
Bernd

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

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

---

Hallo White-Fox,

wie Bernd schon geschrieben hat.

mfG
Mario

Code:

---

Option Explicit

Sub CATMain()

Dim MyDrawing  As DrawingDocument
Dim MySheets    As DrawingSheets
Dim MySheet    As DrawingSheet
Dim MyViews    As DrawingViews
Dim MyView      As DrawingView
Dim MyTexts    As DrawingTexts
Dim MyText      As DrawingText

Set MyDrawing = CATIA.ActiveDocument
Set MySheets = MyDrawing.Sheets
Set MySheet = MySheets.Item(1)
Set MyViews = MySheet.Views
Set MyView = MyViews.Item(1)
Set MyTexts = MyView.Texts
Set MyText = MyTexts.Item(1)

MyText.X = 0
MyText.Y = 0
MyText.AnchorPosition = catMiddleCenter

End Sub

End Sub

---

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

Ja...genau das hab ich gesucht. Funktioniert ja sehr gut. 

Und endlich hab ich auch mal ein Google-Stichwort, mit dem ich die Doku von Dassault gefunden habe. Vielen Dank. 

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

---

Servus
Schau mal für die Doku ins Catia-Installationsverzeichnis. Dort findest du die Doku (V5Automation.chm)

Gruß
Bernd

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

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

---

Die Doku ist sehr nützlich. 
Auch schön und übersichtlich aufgebaut.

Trortzdem hab ich noch zwei neue Fragen:
1. Wie kann ich eine Verknüpfung aus Elementen in einer Skizze erstellen?
2. Wie kann ich diese Elemente in meiner Skizze um einen Punkt drehen?

Der Makro-Editor ist leider nutzlos.

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

---

Servus
zu 1) siehe zB hier
zu 2) IMHO gibt es keine Transformationsfunktionen innerhalb einer Skizze. Also entweder dies selbst programmieren oder die Ausrichtung der Skizze drehen (zB SetAbsoluteAxisData).
Zusätzlich zum Makroeditor solltest du auch das Watchfenster bzw ggf auch die Objektauflösung im VBA-Editor nutzen.

Gruß
Bernd

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

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

---

Da meldet Catia erst "Unbekannter Befehl" und bricht dann ab. 

Code:

---

CATIA.Documents.Item(.Count).Selection.Clear
            With .Item(.Count).Part.Bodies.Item("IC-Gehäuse").Sketches.Item("Skizze Schriftzug")
                .OpenEdition
                i = 2
                Do Until i > .GeometricElements.Count
                    CATIA.Documents.Item(CATIA.Documents.Count).Selection.Add (.GeometricElements.Item(i))
                    i = i + 1
                Loop
                CATIA.StartCommand "Fix Together"
                .CloseEdition
            End With

---

Oder muß ich der Selection noch etwas mitgeben?

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

---

Hi Fox,

Zitat:

---

.Item(.Count)

---

Da hat Dich Deine eigene Methode geschlagen!
Bist Du sicher, dass der Punkt da hin gehört?

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo White-Fox,

"Catia.StartCommand" würde ich vermeiden oder anders gesagt es wird meistens Probleme geben.

Der StartCommand ist wie eine externe Befehlseingabe und läuft nicht mit deinem Makro synchron. Ich vermute mal dein Makro hat den Sketch schon geschlossen und danach erhält Catia erst den Befehl "Fix Together".

StartCommand funktioniert Problemlos als letzte Zeile im Makro.
Würdest du also vor deim CloseEdition das Makro mit "End" beenden, sollte das "FixTogether" funktionieren. Varianten mit Pausen im Makro funktionieren nach meiner Erfahrung eher schlecht alse recht.

Versuch es mal über die constrains (z.B. Fix), sowas z.B.:

Code:

---

Dim constraint9 As Constraint
Set constraint9 = constraints1.AddMonoEltCst(catCstTypeReference, reference2)

---

mfG
Mario

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

[Diese Nachricht wurde von roccat am 27. Jan. 2017 editiert.]

[Diese Nachricht wurde von roccat am 27. Jan. 2017 editiert.]

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

---

@roccat:

Füge dem StartCommand ein CATIA.RefreshDisplay = True an, also zB.

Code:

---

  CATIA.StartCommand "Graph tree reordering"  'öffnet den Dialog zum Sortieren des Produktes
  CATIA.RefreshDisplay = True

---

Dann sollt's funktionieren.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Zitat:

---

Original erstellt von joehz:
Hi Fox,

Da hat Dich Deine eigene Methode geschlagen!
Bist Du sicher, dass der Punkt da hin gehört?

Tschau,
Joe

---

Danke...aber doch, ich denke das passt so. Vollständig heißt es:

Code:

---

With CATIA.Documents
    With .Item(.Count).Part.Bodies.Item("IC-Gehäuse").Sketches.Item("Skizze Schriftzug")
        .OpenEdition
        i = 2
        Do Until i > .GeometricElements.Count
            CATIA.Documents.Item(CATIA.Documents.Count).Selection.Add (.GeometricElements.Item(i))
            i = i + 1
        Loop
        CATIA.StartCommand "Fix Together"
        .CloseEdition
    End With
End With

---

@roccat:
Oha...also sowas ähnliches wie die Sendkeys-Methode unter MS Office. Mit sowas arbeite ich auch nur sehr ungern, bzw eigentlich gar nicht.
Ich werd das mal mit den Constraints probieren...scheint ja am Ende genau das zu sein, was ich machen will.

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

---

Hi Fox,

mag sein.
mE sparst Du ein paar Variable auf Kosten der Lesbarkeit.

Deine Wahl.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Ich hab das mit dem Fixieren probiert...funktioniert auch.
Ist aber nicht ganz das, was ich möchte.

Ich suche eigentlich eher die Funktion, die hinter der Büroklammer im Skizzierer steckt.

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

---

Hallo Joehz,

RefreshDisplay ist meiner Erfahrung nach auch nicht sicher. Schleifen, DoEvents und Sleep war auch alles nicht sicher. Das kann funktionieren, muß aber nicht.

Das einzige was bei mir relativ Sicher funktioniert hat war der Zugriff von Extern. Das war damals ein VB.Net Programm welche einzelne Makros  zeitlich versetzt aus einem Timer Aufgerufen hat. Das war aber reichlich aufwand.

mfG
Mario

------------------
Wenn das die Lösung sein soll,
will ich mein Problem zurück !!

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

---

Hi roccat,

mit einem nachgeschalteten 'RefreshDisplay = True' hab ich alle meine
bisherigen Timing-Probleme in den Griff gekriegt, insbesondere 'StartCommand'-Probleme.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Vielen Dank...jetzt funktioniert es alles. 

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