| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Script geht geht nicht ? (812 mal gelesen)
|
BernoAn Mitglied
Beiträge: 172 Registriert: 16.01.2014
|
erstellt am: 21. Mai. 2014 15:08 <-- editieren / zitieren --> Unities abgeben:
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 |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 21. Mai. 2014 22:18 <-- editieren / zitieren --> Unities abgeben: Nur für BernoAn
Hallo Vielleicht weil du einen String mit einer Doublezahl vergleichst? Probier mal: Code: Option ExplicitSub 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 |
BernoAn Mitglied
Beiträge: 172 Registriert: 16.01.2014
|
erstellt am: 22. Mai. 2014 08:12 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|