---

Blatgrose.JPG

Hallo liebes Forum,

ich bräuchte da mal bitte Hilfe.
Ich möchte gerne eine I-Logic Regel erstellen, welche mir die Blattgröße ausliest und diese dann in die benutzerdefinierten Eigenschaften reinschreibt. Habe schon viel ausprobiert, aber ich bekomme es einfach nicht hin. Vielen Dank schon mal im Voraus.

Gruß Kathrin

------------------
Gruß Kathrin

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

---

Sheet Size ist doch bei den Eigenschaften des Blattes schon dabei   , das kannst du in beliebigen Textfeldern anziehen.
Willst du das wohin kopieren?

------------------

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Mahlzeit,

den Sinn dahinter verstehe ich zwar nicht, denn wie nightsta1k3r bereits gesagt hat gibt es dieses Property bereits und kann in sämtlichen Textfeldern angezogen werden, aber hier ist der VB.NET Code, welcher natürlich auch unter iLogic läuft:

Code:

---

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
oSheet = oDoc.Sheets.Item(1)
Dim SheetSize As String
SheetSize = oSheet.Size.ToString

Select Case SheetSize
Case "kA0DrawingSheetSize"
SheetSize = "A0"
Case "kA1DrawingSheetSize"
SheetSize = "A1"
Case "kA2DrawingSheetSize"
SheetSize = "A2"
Case "kA3DrawingSheetSize"
SheetSize = "A3"
Case "kA4DrawingSheetSize"
SheetSize = "A4"
End Select

Dim oUseProps As PropertySet
oUseProps = oDoc.PropertySets.Item("Inventor User Defined Properties")

oUseProps.Add(SheetSize,"Blattgroesse")

---

------------------
Mit Besten Grüßen

Marcel

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

---

Guten Morgen und

danke Vielmals. Klappt wunderbar.
Der Hintergrund ist folgender: Ich arbeite mit Vault und da wollte ich einfach sehen wie welches Blattformat die Zeichnung hat ohne sie öffnen zu müssen.

Gruß Kathrin

------------------
Gruß Kathrin

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

---

Guten morgen nochmal,

einen kleinen Wermutstropfen gibt es leider noch. Meine Zeichnungsvorlage ist aktuell A3. Jetzt habe ich mitbekommen, dass wenn ich dieses ändere z.B. auf A2, dann steht in den IProptertys immer noch A3. Ich habe versucht die Regel nach dem Speichern ausführen zulassen, da kommt aber leider eine Fehlermeldung "Falscher Parameter. (Ausnahme von HRESULT: 0x80070057(E_Invalidarg)". Da diese Codes für mich leider halbe bömische Dörfer sind, meine Frage bekommt man das irgendwie hin?

Gruß Kathrin

------------------
Gruß Kathrin

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

---

Beim zweiten Ausführen der Regel meckert er, dass das Property "Blattgroesse" bereits existiert und aus diesem Grund nicht angelegt werden kann.

Hier eine einfache Lösung:

Code:

---

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oSheet As Sheet
oSheet = oDoc.Sheets.Item(1)

Dim SheetSize As String
SheetSize = oSheet.Size.ToString

Select Case SheetSize
Case "kA0DrawingSheetSize"
SheetSize = "A0"
Case "kA1DrawingSheetSize"
SheetSize = "A1"
Case "kA2DrawingSheetSize"
SheetSize = "A2"
Case "kA3DrawingSheetSize"
SheetSize = "A3"
Case "kA4DrawingSheetSize"
SheetSize = "A4"
End Select

Dim oUseProps As PropertySet
oUseProps = oDoc.PropertySets.Item("Inventor User Defined Properties")

Try
oUseProps.Add(SheetSize, "Blattgroesse")
Catch ex As Exception
oUseProps.Item("Blattgroesse").Value = SheetSize
End Try

---

BTW: Die Regel sollte korrekterweise VOR dem Speichern des Dokumentes ausgelöst werden, niemals danach.
Denn speichere ich erst das Dokument und löse dann die Regel aus, dann ändert die Regel nach dem Speichern ein Property, weswegen ich diese Änderung nochmals speichern müsste.
Deswegen korrekterweise erst die Regel ausführen lassen und dann speichern, damit die Änderung an dem Property auch mitgespeichert wird. Stichwort: DirtyFlag

------------------
Mit Besten Grüßen

Marcel

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

---

Sollte die Regel nicht besser nach jedem Blatt bearbeiten ausgeführt werden?
Dirty Flag sehe ich nicht als Problem, aber ein A1-Blatt auf dem A0 steht ist unangenehmer.

------------------

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Guten Morgen Ruzy5624,

und besten Dank. Funktioniert einwandfrei.

Gruß Kathrin

------------------
Gruß Kathrin

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

---

Hallo Zusammen. Zunächst mal danke für den Beitrag.
Hat mir schon gut geholfen bei der Automatisierung von Zeichnungsaufgaben (PDF Drucken)

Kann ich die gleiche Funktion in geänderter Form nutzen um eine benutzerdefinierte Bauteilnummer anzulegen?

Beispiel:
Dateiname = 25DX_6800140.idw
Es wird dadurch die Bauteilnummer 25DX_6800140 für das Blatt erstellt

Nun möchte ich gerne eine benutzerdedinierte "Benutzer Bauteilnummer", "6800140" daraus ableiten
ist so etwas möglich ?

Prüfe ob Bauteilnummer = im Format "25DX_6800140", wenn ja, dann Funktion -> Lösche die ersten 5 Zeichen und schreibe eine Benutzerdefinierte Eigenschaft,
Benutzer Bauteilnummer "6800140"
Falls nicht, dann Schreibe Bauteilnummer in benutzerdefinierte Eigenschaft "Benutzer Bauteilnummer"

Möchte dies nutzen um einen Bereich Schriftkopf automatisch ausfüllen zu können

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

---

Hallo

Könnte man z.B. so machen:

Code:

---

Private Sub Main()

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oDesignProps As PropertySet
oDesignProps = oDoc.PropertySets.Item("{32853F0F-3444-11D1-9E93-0060B03C1CA6}") 'Design Tracking Properties

Dim oProp As Inventor.Property

For Each oProp In oDesignProps
    If oProp.Name = "Part Number" Then
        If Left(oProp.Value, 5) = "25DX_" Then
            Call SetUserProp("Benutzer Bauteilnummer", Mid(oProp.Value,6))
        Else
            Call SetUserProp("Benutzer Bauteilnummer", oProp.Value)
        End If
    End If
Next
End Sub

Private Function SetUserProp(ByVal sPropName As String, ByVal sPropValue As String)

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oUseProps As PropertySet
oUseProps = oDoc.PropertySets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'Inventor User Defined Properties

Try
    oUseProps.Add(sPropValue, sPropName)
Catch ex As Exception
    oUseProps.Item(sPropName).Value = sPropValue
End Try

End Function

---

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Perfekt. Vielen Dank.

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