Autor
|
Thema: CATDrawing Bemaßungsgenauigkeit ändern (1679 mal gelesen)
|
wumpel Mitglied
Beiträge: 108 Registriert: 20.10.2006 V5 R20SP7 Win 7 SP1 x64
|
erstellt am: 18. Jun. 2009 07:13 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 16 Registriert: 10.06.2009
|
erstellt am: 18. Jun. 2009 15:53 <-- editieren / zitieren --> Unities abgeben: Nur für wumpel
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
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 / zitieren --> Unities abgeben: Nur für wumpel
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
Beiträge: 108 Registriert: 20.10.2006 V5 R20SP7 Win 7 SP1 x64
|
erstellt am: 19. Jun. 2009 09:34 <-- editieren / zitieren --> Unities abgeben:
|
Tim2007 Mitglied Konstrukteur
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 / zitieren --> Unities abgeben: Nur für wumpel
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 19. Jul. 2013 09:29 <-- editieren / zitieren --> Unities abgeben: Nur für wumpel
|