---

Hallo zusammen,

bei und ist die Genauigkeit der Bemaßung im Drafting auf 0,01 eingestellt. Von anderen Abteilungen wird dies auch so benötigt - nicht aber von unserer.
Jetzt wollte ich wissen, ob es viell. ein Makro o.Ä. gibt, wo man per Knopfdruck ALLE Maße einer Zeichnung auf 0,1 umstellen kann.

Danke für eure Antworten 

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

---

Hallo resch-martin.
Klar geht das! Mach ein großes Fenster über alle Maße und ändere die Einstellung.Aber das wird bestimmt Ärger geben! Eventuelle Toleranzen werden sicjh dann aber auch zu deinen ungunsten Ändern. Wenn du die Zeichnungen abspeicherst und die andere Abteilung diese öffnet, finden die das bestimmt nicht so toll!

gruß, Tom 

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

---

Hallo Martin,

Du kannst mal folgenden Code in ein CATScript kopieren. Das sollte dann genau das machen. Anwendung auf eigene Gefahr! 

Code:

---

Option Explicit

Dim oDrwDoc
Dim oDrwSheets
Dim oSheetToRestore
Dim oCurrentSheet
Dim oDrwViews
Dim oViewToRestore
Dim oCurrentView
Dim oDims
Dim oDim
Dim oDimValue
Dim iNumSheet
Dim iNumView
Dim iNumDim

Sub CATMain()
Initialize
End Sub

Sub Initialize()
If CheckActiveDocument Then
Set oDrwDoc = CATIA.ActiveDocument
Set oDrwSheets = oDrwDoc.Sheets
Set oSheetToRestore = oDrwSheets.ActiveSheet
For iNumSheet = 1 To oDrwSheets.Count
Set oCurrentSheet = oDrwSheets.Item(iNumSheet)
oCurrentSheet.Activate
Set oDrwViews = oCurrentSheet.Views
Set oViewToRestore = oDrwViews.ActiveView
For iNumView = 1 To oDrwViews.Count
Set oCurrentView = oDrwViews.Item(iNumView)
oCurrentView.Activate
Set oDims = oCurrentView.Dimensions
For iNumDim = 1 To oDims.Count
Set oDim = oDims.Item(iNumDim)
Set oDimValue = oDim.GetValue
oDimValue.SetFormatPrecision 1, 0.1
Next
Next
Next
End If
End Sub

Function CheckActiveDocument()
CheckActiveDocument = FALSE
If TypeName(CATIA.ActiveDocument) = "DrawingDocument" Then
CheckActiveDocument = TRUE
End If
End Function

---

------------------
Gruß Michael B.

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

---

Super. Hat funktioniert.
Danke!

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