---

Guten Morgen alle Zusammen,

gibt es in Inventor eine Möglichkeit den Buchstaben Counter bei Schnitten und Detailansichten zurück zu setzen?

Danke vorab

Gruß
Georg

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

---

Hab ich auch schon probiert über die Jahre, scheint aber nicht möglich zu sein. Einzige Option wäre, alle Ansichten auf eine neue Zeichung zu kopieren.

https://forums.autodesk.com/t5/inventor-forum/section-view-label-reset-to-quot-a-a-quot/td-p/5980140

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

---

Hallo

Hilft es dir etwas, wenn du im Nachgang neu "durchnummerieren" kannst? Also beim Erstellen der Ansichten die Buchstaben ignorieren und am Ende per iLogic anpassen? Die Regel "nummeriert" Detailansicht von A aufsteigend durch und Schnitte von Z absteigend.

Code:

---

Option Explicit On

Dim DrawDoc As DrawingDocument= ThisDoc.Document

Dim DetailString As String
DetailString = "A"
Dim DetailLetter As String
DetailLetter = "A"

Dim SectionLetter As String
SectionLetter = "Z"
Dim SectionString As String
SectionString = "Z"

Dim iDL As Integer
Dim iSL As Integer
Dim i As Integer

Dim oSheet As Sheet
Dim oView As DrawingView

Dim oTrans As Transaction = ThisApplication.TransactionManager.StartTransaction(DrawDoc, "RenameViews")

For Each oSheet In DrawDoc.Sheets
  For Each oView In oSheet.DrawingViews
  If oView.Suppressed=False Then
  If oView.ViewType = 10502 Then 'kDetailDrawingViewType
            oView.Name = DetailString
            iDL = Asc(DetailLetter)
            If iDL = 90 Then
                Dim DetailStringLength As Integer
                DetailStringLength = Len(DetailString) + 1
                DetailString = ""
                DetailLetter = "A"
                For i = 1 To DetailStringLength
                    DetailString = DetailString & DetailLetter
                Next
            Else
                DetailLetter = Chr(Asc(Right(DetailString, 1)) + 1)
                DetailString = Left(DetailString, Len(DetailString) - 1) & DetailLetter
            End If
      End If
      If oView.ViewType = 10503 Then 'kSectionDrawingViewType
            oView.Name = SectionString
            iSL = Asc(SectionLetter)
            If iSL = 65 Then
                Dim SectionStringLength As Integer
                SectionStringLength = Len(SectionString) + 1
                SectionString = ""
                SectionLetter = "Z"
                For i = 1 To SectionStringLength
                    SectionString = SectionString & SectionLetter
                Next
            Else
                SectionLetter = Chr(Asc(Right(SectionString, 1)) - 1)
                SectionString = Left(SectionString, Len(SectionString) - 1) & SectionLetter
            End If
End If
End If
    Next
Next

oTrans.End

---

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Keine Ahnung. Probiere ich einmal aus wenn ich die Zeichnung fertig habe.

Feedback folgt.

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

---

Hi, hab das gerade mal ausgeführt. Perfekt.

Danke und Gruß

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