---

Ansicht.JPG

Hallo,

ich möchte ein Journal erstellen, welches alle Ansichten in einer Zeichnung auswählt. Was ich nicht hinbekomme ist, dass ich die Umstellung des Auswahlfilters auf "View" ins Journal bringe.

Hat jemand eine Idee wie ich das machen könnte?

Vielen Dank!

Grüße,

Thomas

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

---

Hallo Thomas,

vielleicht kannst du damit was Anfangen  .

"Dim Ansichten As Drawings.SheetDraftingViewCollection = wp.DrawingSheets.CurrentDrawingSheet.SheetDraftingViews"

------------------
Benjamin

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

---

journal.JPG

Hallo Benjamin,

danke für deinen Tipp!

Wenn ich diese Zeile ins Journal einbaue, dann kommt eine Fehlermeldung.
Kannst Du damit was anfangen?

In der NX Hilfe hab ich auch was gefunden "Entfernen der Auswahlanhaftung in einem Journal", aber da blick ich nicht ganz durch wie das in meinem Fall aussehen müsste.

Grüße,

Thomas

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

---

Hallo Thomas,

wp muss erst deklariert werden mit " Dim wp As Part = theSession.Parts.Work"

Und alle die einzelnen Ansichten gibst du dann mit: "For Each ansicht As View In Ansichten
theSession.ListingWindow.Open()
theSession.ListingWindow.WriteLine(ansicht.Name)
            sess.UpdateManager.DoUpdate(UndoM)
        Next"

aus.

------------------
Benjamin

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

---

Hallo Thomas,

nimm' statt wp workpart, dann ist der Fehler weg.

Gruß, Michael

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

---

Der zweite Teil muss so aussehen ohne "DoUpdate"

"For Each ansicht As View In Ansichten
theSession.ListingWindow.Open()
theSession.ListingWindow.WriteLine(ansicht.Name)
        Next"

------------------
Benjamin

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

---

Hallo Michael, hallo Benjamin!

vielen Dank für eure Hilfe!!

Der Tipp von Michael hat funktioniert, damit wählt mir das Journal mal alle Ansichten in der Zeichnung aus.

Was ich jetzt noch nicht hinbekommen habe ist, dass im nächsten Schritt (alle Ansichten sind ausgewählt) der Dialog "View Style" geöffnet wird. Da möchte ich dann bei manchen Tabs "load defaults" auswählen.

Ich denke mir aber dass das machbar sein sollte?

Sorry ich hatte bis lang damit nicht viel am Hut 

Danke!

Grüße,

Thomas

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

---

Zitat:

---

Original erstellt von tom-nx:
Was ich jetzt noch nicht hinbekommen habe ist, dass im nächsten Schritt (alle Ansichten sind ausgewählt) der Dialog "View Style" geöffnet wird. Da möchte ich dann bei manchen Tabs "load defaults" auswählen.

---

Hallo Thomas,

wie oben von Benjamin beschrieben, brauchst Du dazu eine Schleife, die eine Ansicht nach der anderen bearbeitet. Den Inhalt der Schleife bekommst Du über das Aufzeichnen eines Journals. Das würde ich in eine Sub packen und jeweils in der Schleife aufrufen.

z.B.:

Sub Main()
  For each v as view in workpart.DrawingSheets.CurrentDrawingSheet.SheetDraftingViews
      ChangeView(v)
  Next
End Sub

Sub ChangeView(Byval v as view)
  ' Hier den Inhalt der Aufzeichnung reinpacken und die Variable für die View anpassen.
end Sub

Gruß, Michael

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

---

Hallo Thomas

so schwierig ist das gar nicht. So wie es Michael gesagt hat brauchst du eine Schleife (wie oben) und ein Unterprogramm wie Michael gesagt hat (Sub ChangeView(Byval v as view)).
und dann ersetzt du in der Aufzeichnung folgende Zeile "Dim sectionView1 As Drawings.SectionView = CType(workPart.DraftingViews.FindObject("SX@5"), Drawings.SectionView)" (es gibt Unterschiedliche Ansichttypen (SectionView, BaseView)) mit dieser "Dim baseView1 As Drawings.BaseView = ansicht".
Wobei "ansicht" die Variable aus der Schleife ist. Damit man kein Problem mit den Typen bekommt muss vorher noch überprüft werden welcher Ansichtstyp gearde in der Schleife ist mit

Schleife:

"For Each ansicht As View In Ansichten"

"ChangeView(ansicht)"

"Next"

Unterptogramm:

"Sub ChangeView(ByVal ansicht As View)"

"If ansicht.GetType = GetType(Drawings.BaseView) Then"

"Dim baseView1 As Drawings.BaseView = ansicht"

hier die Aufzeichnung des Journals für die Änderungen... (auf Typ Achten)

"End If"

"End Sub"

Ich hoffe das ist verständlich  .

------------------
Benjamin

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