---

Hallo,
ich möchte gern das Blattformat (das aus dem Schriftfeld, bzw. das im Blatt bei Blattgröße eingestellte) auslesen.

Als Ergebnis sollte also z.B. ein String "A0" erscheinen.
(Es soll nicht aus Höhe und Breite berechnet werden.)

Code:

---

    ' Blattformat wird ermittelt
    Dim oSheet As Inventor.Sheet
    Set oSheet = oDoc.Sheets.Item(1)
 
    Dim sBlattname As String
    sBlattname = oSheet.Name
    MsgBox ("Blattname: " & sBlattname)
   
    Dim oSheetFormat As SheetFormat
    Set oSheetFormat = oSheet.SheetFormat
   
    Dim sFormat As String
    sFormat = oSheetFormat.Name
   
    MsgBox ("Blattgröße : " & sFormat)

---

Der Blattname erscheint, aber die Blattgröße bleibt leer.
Wo ist der Fehler?

Ich habe es auch so versucht:

Code:

---

sFormat = oSheet.Properties.Item("SheetSize").Value

---

oder

Code:

---

sFormat = oSheet.Properties.Item("Blattgröße").Value

---

leider alles ohne Erfolg.
.

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

---

Hallo, so (siehe unten) lese ich die Blattgröße aus.

Zitat:

---

iProperties.Value("Custom", "1234") = ActiveSheet.Size

---

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

---

Zusatz: den iLogic Code habe ich in der Zeichnungsvorlage als Regel angelegt.

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

---

Habe es nun so probiert:

Code:

---

    Dim sFormat As String
    sFormat = ActiveSheet.Size
   
    MsgBox ("sFormat : " & sFormat)

---

Ausgabe bleibt leer. ?????

Morgen ist auch noch ein Tag. Für heute ist erst mal Schluss. Danke

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

---

Moin

Sheet.SheetFormat gibt es nicht. Das kann nicht funktionieren.
Sheet.Size liefert keinen String, sondern einen DrawingSheetSizeEnum. Das sollte so ebenfalls nicht funktionieren. iLogic erstellt ein spezielles Objekt "ActiveSheet", dass nicht das Gleiche wie DrawingDocument.ActiveSheet ist. Darin ist das Property "Size" mit einem String gefüllt. Unter VBA steht das Objekt nicht zur Verfügung. Muss man selber ran.

Kann es sein, dass du oberhalb der nicht funktionierenden Stelle ein "On Error Resume Next" stehen hast und deswegen keine Fehler ausgespuckt werden?

Code:

---

Private Sub SheetSize()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim sSize As String

Select Case oDrawDoc.ActiveSheet.Size
    Case kA0DrawingSheetSize: sSize = "A0"
    Case kA1DrawingSheetSize: sSize = "A1"
    Case kA2DrawingSheetSize: sSize = "A2"
    Case kA3DrawingSheetSize: sSize = "A3"
    Case kA4DrawingSheetSize: sSize = "A4"
    Case Else: sSize = "nn"
End Select

MsgBox (sSize)

End Sub

---

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

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

---

Danke, jetzt funktioniert es, damit komme ich erst mal weiter.

Mir ist trotzdem nicht klar, wieso ein Parameter, der im Schriftfeld direkt abgerufen werden kann, nicht auch per VBA direkt erreichbar ist.

.

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

---

Moin

Weil es diesen Parameter so gar nicht gibt. Autodesk war bisher nicht der Meinung, dass es diese Eigenschaft in der API braucht. Die Option im Schriftfeldeditor ist auch nichts anderes als ein Platzhalter. Welche Funktion sich dahinter versteckt ist nicht ersichtlich.
Solange das mit einer Hand voll Codezeilen zu machen ist, sehe ich da kein echtes Problem. Da gibt es ganz andere Baustellen in der API - teilweise seit Jahrzehnten. 

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

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