---

NeuesBild.png

Hallo,

ich hab ein Problem mit einem Makro, das mir immer wieder auf einigen Rechnern einen Überlauf-Laufzeitfehler produziert.

Laut fehlermeldung tritt der fehler bei Zeile 41 (Zeile 41: ViewScale = "1:" 1 / ScaleDezimal) auf. Da ist eine Rechenoperation drin.

Hier noch das Script (vieleicht nicht die sauberste lösung, aber normalerweise).

Code:

---

Sub CATMain()

'****************************************************************
'*** Blatt-Nr. ermitteln                                                                                      ***
'****************************************************************

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.ActiveSheet

For i = 1 To drawingSheets1.Count

If drawingSheet1 Is drawingSheets1.Item(i) Then Exit For

Next

SheetNumber = i

If SheetNumber >9 Then
SheetNumberForm = SheetNumber
Else
SheetNumberForm = 0 & SheetNumber
End if

'MsgBox SheetNumber

'****************************************************************
'*** Maßstab ermitteln                                                                                      ***
'****************************************************************

ScaleDezimal = drawingSheet1.Scale

If ScaleDezimal = 1 Then
ViewScale = "1:1"
ElseIf ScaleDezimal < 1 Then
ViewScale = "1:" 1 / ScaleDezimal
Else
ViewScale = ScaleDezima & ":1"
End if

'MsgBox ScaleDezimal
'MsgBox ViewScale

'****************************************************************
'*** Blatt-Nr. und Maßstab in Zeichnungskopf eintragen                                  ***
'****************************************************************

Set oDraw = CATIA.ActiveDocument                                                 
oFileName = SheetNumber                                                

Set oSheets = oDraw.Sheets
Set oSheet = oSheets.ActiveSheet
oSheet.Activate

Set oViews = oSheet.Views
oSheet.Views.Item(1).Activate                                                                               
Set OView = oViews.Item(1)
OView.Activate

Set ocText = OView.Texts

If s <> 1 Then
Set oViews = oSheet.Views
oSheet.Views.Item(2).Activate
Set OView = oViews.Item(2)
OView.Activate

Set ocText = OView.Texts

For i = 1 To ocText.Count
Set oText = ocText.Item(i)

  If oText.Text = oFileName Then
    t = 2
    Exit For
  ElseIf oText.Name = "Kopf_BalttNr" Then
    oText.Text = oFileName
    t = 2
  End If

Next

For i = 1 To ocText.Count
Set oText = ocText.Item(i)

  If oText.Text = ViewScale Then
    t = 2
    Exit For
  ElseIf oText.Name = "Kopf_Massstab" Then
    oText.Text = ViewScale
    t = 2
  End If

Next

End If

Set oViews = oSheet.Views
oSheet.Views.Item(1).Activate                                                                                 ' BLATT001 aktivieren
Set OView = oViews.Item(1)
OView.Activate

'**************************************************************************************************************************
'********Blatt umbenennen
'**************************************************************************************************************************
 
Set oDraw = CATIA.ActiveDocument
Set oSheets = oDraw.Sheets
Set oSheet = CATIA.ActiveDocument.Sheets.Item(SheetNumber)

SheetName = SheetNumberForm

If oSheet.Name <>SheetName Then
  oSheet.Name = SheetName
  oSheet.Activate
End If

oSheets.Item(SheetName).Activate

End Sub

---

Kennt das Problem einer von euch?

mfg
n4426

------------------
MfG

N4426

[Diese Nachricht wurde von n4426 am 07. Jul. 2009 editiert.]

[Diese Nachricht wurde von n4426 am 07. Jul. 2009 editiert.]

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

---

 

Zitat:

---

Original erstellt von n4426:

Laut fehlermeldung tritt der fehler bei Zeile 41 (Zeile 41: ViewScale = "1:" 1 / ScaleDezimal) auf. Da ist eine Rechenoperation drin.

---

Das kann IMHo so auch nicht gehen. Du versuchst Text und Rechenoperationen miteinander zu verknüpfen ohne entsprechende Umwandlungen zu machen. Viewscale soll eine Textvariable sein und wenn Du da was anhängst solltest Du erst das was Du anhängst in Text konvertieren (z.B. CStr(..) und dann das Anhängen mit der richtigen Operation "&" durchführen.

Axel

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

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

---

Hi Axel,

meinst du so? (Das "&" ist mir wohl beim testen versehentlich rausgefallen.

Code:

---

ViewScaleRech = 1 / ScaleDezimal
ViewScale = "1:" & CStr(ViewScaleRech)

---

------------------
MfG

N4426

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

---

So in etwa, hab hier keine Gelegenheit es durchzutesten

Axel

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

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

---

ok. laufen tut es so bei mir. Schaun ma mal, ob der überlauf irgendwann wieder kommt.

------------------
MfG

N4426

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

---

Der Überlauf ist zustandegekommen wenn Deine ElseIf Bedingung erfüllt ist.

Axel

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

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

---

Zitat:

---

Original erstellt von Axel.Strasser:
Der Überlauf ist zustandegekommen wenn Deine ElseIf Bedingung erfüllt ist.

---

ja, genau.

------------------
MfG

N4426

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

---

Jettz ist es wieder soweit, dass der Überlauf-Fehler wieder auftritt.

Hat noch jemend eine Idee, an was es liegen kann?

------------------
MfG

N4426

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

---

Gib mal die Syntax für die Zeile an, für die Dir die Meldung gezeigt wird mit den aktuellen Werten für alle Variablen in dieser Zeile.

Axel

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

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

---

Hi Axel,

der fehler tritt bei

Code:

---

ViewScaleRech = 1 / ScaleDezimal

---

auf.

Der Wert für ScaleDezimal ist 0,2.

------------------
MfG

N4426

[Diese Nachricht wurde von n4426 am 08. Jul. 2009 editiert.]

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

---

Servus
Tritt es bei allen Dezimalzahlen auf?
Ist im Makro das Dezimaltrennzeichen ein Punkt? (zB 0.2)

Gruß
Bernd

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

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

---

Zitat:

---

Original erstellt von bgrittmann:
Tritt es bei allen Dezimalzahlen auf?
Ist im Makro das Dezimaltrennzeichen ein Punkt? (zB 0.2)

---

Hi Bernd,

die Dezimalzahl wird im Script über den Befehl "ScaleDezimal = drawingSheet1.Scale" aus den Blatteingenschaften ausgelesen.

Wenn ich die Variable über eine MsgBox ausgeben lassen, schreibt er 0,2

------------------
MfG

N4426

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

---

Schreib mal CDbl() um dein Scale, vielleicht wird es ja zu Int konvertiert.

Von welchem Typ sind deine Variablen denn?

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hi Henry,

hat leider auch nichts gebracht.

Code:

---

ElseIf ScaleDezimal < 1 Then
ViewScaleRech = 1 / CDbl(ScaleDezimal)
ViewScale = "1:" & CStr(ViewScaleRech)

---

------------------
MfG

N4426

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

---

Versuche es mal mit

Code:

---

ScaleDezimal = Replace(ScaleDezimal, ",", ".")
ViewScaleRech = 1 / CDbl(ScaleDezimal)
ViewScale = "1:" & CStr(ViewScaleRech)

---

Axel

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

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

---

Hi Axel,

habs mal probiert, nur leider rechnet er jetzt nicht mehr richtig.

1 / 0.2 = 0,5

Es sollte aber eigentlich 5 rauskommen (1 / 0,2 = 5).

------------------
MfG

N4426

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

---

Musst halt mal ein bisschen "spielen"

ich habe es mit einem vbs Script gemacht und da geht es:

Code:

---

ScaleDezimal = "0,2"
msgbox ScaleDezimal
ScaleDezimal = Replace(ScaleDezimal, ",", ".")
msgbox ScaleDezimal
ViewScaleRech = 1 / CDbl(ScaleDezimal)
msgbox CDbl(ScaleDezimal)
msgbox ViewScaleRech
ViewScale = "1:" & CStr(ViewScaleRech)
msgbox ViewScale

---

Axel

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

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

---

ok, werd ich mal versuchen. Danke.

------------------
MfG

N4426

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

---

Hi Axel,

ich habs versucht, nur leider aktzeptiert mein Script den "." nicht als Dezimaltrennzeichen.

Wir haben gestern nochmal getestet den fehler auf einem 32-Bit und einem 64-Bit Windows XP System zu provozieren. Auf dem 64-Bit-System hatten wir den fehler schnell bekommen, dagengen auf dem 32-Bit-System hat es keine probleme gegeben.

Kann das irgendwie mit dem 64-Bit-System zusammen hängen (CATIA ist aber auf beiden 32-Bit)?

------------------
MfG

N4426

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