---

Hallo,

hat jemand eine Idee oder kennt ein Tool mit dem ich Zeichnungsmaße automatisch mit Nummern versehen kann?
Hintergrund sind Probleme mit Maßberichten:
1. Unsere Zeichnung
2. Maßbericht Lieferant
3. Maßbericht unsere QM
4. externe Messtechnuker

Im extremfall listet jeder die Maße und Ergebnisse in unterschiedlicher Reihenfolge.
MfG

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

---

Mit diesem Macro-Code könntest du starten:

Sub CATMain()

Dim MyDocument As DrawingDocument
Set MyDocument = CATIA.ActiveDocument

Dim MyDimension As DrawingDimension

Dim intIndexLng As Long
Dim intBeforeStr As String
Dim intAfterStr As String
Dim intUpperStr As String
Dim intLowerStr As String

Dim I As Long
   
Dim selection1 As Object 'Selection for CATScript
Set selection1 = MyDocument.Selection
   
selection1.Search "CATDrwSearch.DrwDimension,all"

'***INDEXWERT FESTLEGEN AUF DEN DIE METHODE ANGEWENDET WERDEN SOLL
intIndexLng = 1 'MAIN VAULE
'intIndexLng = 2 'DUAL VALUE

Dim MyDimValue As Object

For I = 1 To selection1.Count
    Set MyDimension = selection1.Item(I).Value
   
    Set MyDimValue = MyDimension.GetValue
       
    intAfterStr = "  Nr. " & I
   
    '***TEXTE SCHREIBEN (DER TEXT HINTER DEM MAß IST SINNGEMÄß "intAfterStr")
    MyDimValue.SetBaultText intIndexLng, intBeforeStr, intAfterStr, intUpperStr, intLowerStr
 
Next

End Sub

Je nachdem, ob vor, hinter, über oder unter der Masszahl kannst du intBeforeStr, intAfterStr, intUpperStr, intLowerStr  mit einem bestimmten String ergänzen.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

---

Danke,

da werd ich mal probieren drauf aufzubauen.

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

---

Bamassungs_bubbles.jpg

Hallo,
ich bins nochmal.

Leider überschreibt das Makro wenn zB. hinter dem Mass x45° steht.
Geht es vielleicht auch so siehe Bild)??

@Admin: Ist es möglich dieses Thema ins V5 Makro Programierungs Forum zu verschieben?

Beste Grüße
Steinbeisser

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

---

Bamassungs_bubbles2.jpg

oder so siehe Bild)
Die Schriftgrösse etwas kleiner als das Mass?

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

---

Servus
Versuch es mal mit SetBaultText und den Text unter das Maß zu schreiben (intLowerStr)

Gruß
Bernd

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

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

---

Hallo Bernd,

meine Programmierkenntnisse sind erbärmlich.

Wie sähe der Code denn dann aus??

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

---

Servus
Siehe oben mit dieser Änderung:

Code:

---

For I = 1 To selection1.Count
    Set MyDimension = selection1.Item(I).Value
 
    Set MyDimValue = MyDimension.GetValue
     
    intLowerStr = "  Nr. " & I
 
    '***TEXTE SCHREIBEN (DER TEXT HINTER DEM MAß IST SINNGEMÄß "intAfterStr")
    MyDimValue.SetBaultText intIndexLng, intBeforeStr, intAfterStr, intUpperStr, intLowerStr

Next

---

Gruß
Bernd

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

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

---

Es gibt eine Applikation von Cenit, die solche Etiketten erzeugt (http://www.cenit.de/de/plm/cenit-software/qa-report.html). Solltest vielleicht mal dort nachfragen.

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

... und kostet auch nicht die Welt !!           !!!

------------------
gruß, Tom       

[Diese Nachricht wurde von thomasacro am 15. Mrz. 2012 editiert.]

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

---

Danke erstmal für alle Beitraege,

ich fahr jetzt zweigleisig.
Die Cenit Lösung sieht gut aus, die frag ich mal an.
Bei dem Makro bitte ich meinen "Spezi" um Hilfe, das mach ich nur sehr selten, dafür bekomme ich aber exzellente Programme.
(Das letzte update des Makros bläht meine Prüfmasse auf, aussederm hät ich die Schrift gern kleiner und in rot).

Ich meld mich wieder wenns neues gibt.
Bis dahinn und schönen Feierabend!

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