Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  CATDrawing Bemaßungsgenauigkeit ändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  CATDrawing Bemaßungsgenauigkeit ändern (1679 mal gelesen)
wumpel
Mitglied



Sehen Sie sich das Profil von wumpel an!   Senden Sie eine Private Message an wumpel  Schreiben Sie einen Gästebucheintrag für wumpel

Beiträge: 108
Registriert: 20.10.2006

V5 R20SP7
Win 7 SP1 x64

erstellt am: 18. Jun. 2009 07:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,
wie in der Betreffzeile bereits erwähnt würde ich gerne per Makro sämtliche Bemaßungen einer CATDrawing von 0.00 auf 0.000 ändern.

Das ganze im Standard zu ändern ist leider keine Alternative.
Hat da jemand was für mich? *bettel* 

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

adran.dargel
Mitglied



Sehen Sie sich das Profil von adran.dargel an!   Senden Sie eine Private Message an adran.dargel  Schreiben Sie einen Gästebucheintrag für adran.dargel

Beiträge: 16
Registriert: 10.06.2009

erstellt am: 18. Jun. 2009 15:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wumpel 10 Unities + Antwort hilfreich

Hallo Wumpel,

hast du schonmal Probiert ein Makro aufzuzeichnen. Vielleicht kommst du so auf die richtige Befehlsfolge. Bei mir funktioniert das Aufzeichnen leider nicht.

Prinzipiell bin ich aber an einer Lösung sehr interessiert. Ich könnte sowas auch gebrauchen

bis dann...

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

DanielFr.
Moderator
Manager


Sehen Sie sich das Profil von DanielFr. an!   Senden Sie eine Private Message an DanielFr.  Schreiben Sie einen Gästebucheintrag für DanielFr.

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 19. Jun. 2009 06:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wumpel 10 Unities + Antwort hilfreich

Hallo wumpel, hallo adran,

diese Aktion kann man nicht mit dem Makroreacorder aufzeichnen. Es gibt Funktionen und Befehle die CATIA nicht aufzeichnen kann da diese Funktion nicht implementiert ist.

Aber keine Sorge ich habe hier ein Script das alle Dimensionen einer Zeichnung sucht und die Genauigkeit auf "0,001" einstellt. Je nachdem wieviel Dimensionen du hast kann das ein wenig dauern (kann ich gerade nicht testen  )

Code:

Sub CATMain()

    'by Daniel Frauenrath
    'for cad.de

    'Deklarationen
    Dim oDoc As DrawingDocument
    Dim oSel As Selection
    Dim Counter As Integer
   
    'Counter nullsetzen
    Counter = 0
   
    'Alle Maßen suchen
    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
    oSel.Search "CATDrwSearch.DrwDimension,all"
   
    'Genauigkeit setzen
    If oSel.Count > 0 Then
        For i = 1 To oSel.Count
            Set oDimension = oSel.Item(i).Value
            oDimension = oDimension.GetValue.SetFormatPrecision(1, "0,001")
            Counter = Counter + 1
        Next
    Else
        Box = MsgBox("Es konnten keine Dimensionen iun der Zeichnung gefunden werden", vbExclamation, "Keine Dimensionen gefunden")
        Exit Sub
    End If
   
    'Anwenderausgabe
    Box = MsgBox("Das Macro wurde erfolgreich beendet!" + Chr(10) + "Die Genauigkeit von " & Counter & " Dimensionen " & _
                "wurde auf " + Chr(34) + "0,001" + Chr(34) + " gesetzt", vbInformation + vbOKOnly, "Macro erfolgreich beendet")
End Sub


------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

wumpel
Mitglied



Sehen Sie sich das Profil von wumpel an!   Senden Sie eine Private Message an wumpel  Schreiben Sie einen Gästebucheintrag für wumpel

Beiträge: 108
Registriert: 20.10.2006

V5 R20SP7
Win 7 SP1 x64

erstellt am: 19. Jun. 2009 09:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hey,
SUPER!
Vielen dank.
Habe es ausprobiert - bin begeistert.

10 Points!!!

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

Tim2007
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Tim2007 an!   Senden Sie eine Private Message an Tim2007  Schreiben Sie einen Gästebucheintrag für Tim2007

Beiträge: 143
Registriert: 02.01.2007

Catia V5R19SP3 XP64<P>"Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean." Sir Isaac Newton

erstellt am: 19. Jul. 2013 08:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wumpel 10 Unities + Antwort hilfreich

Und wie geht das jetzt mit der Genauigkeit der Toleranzen?

Danke schon mal.

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 19. Jul. 2013 09:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für wumpel 10 Unities + Antwort hilfreich

Servus Tim
Bitte keine "Doppelpost" (sieh auch Antwort hier).

Gruß
Bernd

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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz