---

Test-geht.idw Test-gehtnicht.idw

Hallo

Ich habe ein Problem, das folgende Script geht mit der einen IDW, aber mit der anderen IDW nicht?

Hat jemand eine Idee woran das liegen kann?

Beide Test IDW's im Anhang

Code:

---

Sub Blattformat()

    Dim oApp As Inventor.Application
    Dim oDoc As Inventor.Document
    Dim zeichnung As DrawingDocument
    Dim blatt As Sheet
    Dim PropValue As String

    Set oDoc = ThisApplication.ActiveDocument
    Set blatt = oDoc.ActiveSheet
   
  If blatt.Height = "84,1" And blatt.Width = "118,9" Then Papier = "A0"
  If blatt.Height = "59,4" And blatt.Width = "84,1" Then Papier = "A1"
  If blatt.Height = "42" And blatt.Width = "59,4" Then Papier = "A2"
  If blatt.Height = "29,7" And blatt.Width = "42" Then Papier = "A3"
  If blatt.Height = "21" And blatt.Width = "29,7" Then Papier = "A4"
  If blatt.Height = "29,7" And blatt.Width = "21" Then Papier = "A4"

 
MsgBox "Blattgröße  :  " & blatt.Height & " x " & blatt.Width & " " & "  Format = " & Papier & "  "

End Sub

---

MFG
Berno

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

---

Hallo

Vielleicht weil du einen String mit einer Doublezahl vergleichst? Probier mal:

Code:

---

Option Explicit

Sub Blattformat()

    Dim oApp As Inventor.Application
    Dim oDoc As Inventor.Document
    Dim zeichnung As DrawingDocument
    Dim blatt As Sheet
    Dim PropValue As String
    Dim Papier As String
   

    Set oDoc = ThisApplication.ActiveDocument
    Set blatt = oDoc.ActiveSheet
 
  If CStr(blatt.Height) = "84,1" And CStr(blatt.Width) = "118,9" Then Papier = "A0"
  If CStr(blatt.Height) = "59,4" And CStr(blatt.Width) = "84,1" Then Papier = "A1"
  If CStr(blatt.Height) = "42" And CStr(blatt.Width) = "59,4" Then Papier = "A2"
  If CStr(blatt.Height) = "29,7" And CStr(blatt.Width) = "42" Then Papier = "A3"
  If CStr(blatt.Height) = "21" And CStr(blatt.Width) = "29,7" Then Papier = "A4"
  If CStr(blatt.Height) = "29,7" And CStr(blatt.Width) = "21" Then Papier = "A4"

MsgBox "Blattgröße  :  " & blatt.Height & " x " & blatt.Width & " " & "  Format = " & Papier & "  "

End Sub

---

Oder benutze das blatt.Size Propertie für die Prüfung.

Code:

---

Sub Blattformat()

    Dim oApp As Inventor.Application
    Dim zeichnung As DrawingDocument
    Dim blatt As Sheet
    Dim Papier As String
   

    Set zeichnung = ThisApplication.ActiveDocument
    Set blatt = zeichnung.ActiveSheet
 
Select Case blatt.Size

Case kA0DrawingSheetSize: Papier = "A0"
Case kA1DrawingSheetSize: Papier = "A1"
Case kA2DrawingSheetSize: Papier = "A2"
Case kA3DrawingSheetSize: Papier = "A3"
Case kA4DrawingSheetSize: Papier = "A4"
Case Else: Papier = "nicht metrisch"

End Select

MsgBox "Blattgröße  :  " & blatt.Height & " x " & blatt.Width & " " & "  Format = " & Papier & "  "

End Sub

---

------------------
MfG
Ralf

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

---

Hallo

Ok, so geht es!
Wieder was gelernt, danke für deine Hilfe!

Gruß
Berno

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