---

Hallo,

Arbeite unter IV 2017 mit etwas umfangreicheren BG die viele innenliegende Bauteile hat, dazu brauch ich immer wieder geschnittene BG-Ansichten: Halbe Schnittansicht XZ-Ebene, Halbe Schnittansicht YZ-Ebene, Viertelschnittansicht XZ-YZ-Ebene, usw.
Dazu wäre es nett wenn ich diese immer wiederkehrenden Ansichten per Hotkey oder Menüknopf aufrufen könnte.

Es fehlen mir da aber die Ideen bzw. Kenntnisse:
- Wie kann ich sowas erstellen/programmieren?
- wie kann ich das lösen, dass zwar die geschnittene Ansicht samt Zoom/Pan/Ausrichtung immer gleich bleibt (also quasi Darstellung gesperrt), aber neue Bauteile so dargestellt werden wie sie laufend erstellt werden (also Ansicht nicht gesperrt)?

------------------
mfg - Leo

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

---

Hallo Leo,

vmtl. ist es schon hilfreich "Kamera automatisch speichern" zu deaktivieren. Zu finden im Kontextmenü der Ansichtsdarstellung.

Sollte den gewünschten Effekt haben, dass Du beim Aktivieren der entspr. Ansicht immer die gleiche Zoom/Pan/Ausr. hast. Egal in welchem Zustand Du die Ansicht zuletzt verlassen hast. Vorher natürlich die gewünschte Zoom/Pan/Ausr. mit "aktuelle Kurzaufnahme speichern".

Ist zwar dann noch kein Hotkey, aber immerhin...

------------------
Gruß KraBBy

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

---

Nachtrag:

Eine Schnittdarstellung "überlebt" leider nicht, wenn man sie deaktiviert und anschließend die Ansicht verlassen und wieder aktiviert wird.

------------------
Gruß KraBBy

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

---

ist zwar kein Hotkey bzw Programmierung aber auch mit einem klick erreichar aus der Hilfe...

Zitat:

---

Optionen für Schnittansichten
• Viertelschnitt: Wählen Sie zwei lotrechte Ebenen aus. Der Ihnen zugewandte Dreiviertelschnitt wird entfernt.
• Halbschnitt: Wählen Sie eine Ebene aus. Der Ihnen zugewandte Halbschnitt wird entfernt.
• Dreiviertelschnitt: Wählen Sie zwei lotrechte Ebenen aus. Der Ihnen zugewandte Viertelschnitt wird entfernt.
• Schnitt beenden: Zeigt wieder die vollständige Baugruppe an.

Schnittansichten können in Konstruktionsansichtsdarstellungen gespeichert werden.

---

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

hier noch zwei vba-Makros, schnell zusammengestrickt
Die Makros lassen sich auf die Benutzeroberfläche legen oder auch Tastatur-Alias vergeben.

Code:

---

Sub AnsichtsDarst_next()
' schaltet zur nächsten Ansichtsdarstellung
' Code funktioniert aktuell nur für .iam -> nach Anpassung auch für .ipt
' KraBBy 19.04.2018

    Dim oDoc As AssemblyDocument
    'Dim oDoc As Document    'Alternativ, dann klappts auch mit .ipt
    Set oDoc = ThisApplication.ActiveDocument
    'ggf. müsste noch abgefragt werden, ob DokType passt um Fehler z.B. bei .idw abzufangen
   
    Dim oRepMan As RepresentationsManager
    Set oRepMan = oDoc.ComponentDefinition.RepresentationsManager
   
    Dim oDesViewRepActiv As DesignViewRepresentation
    Set oDesViewRepActiv = oRepMan.ActiveDesignViewRepresentation
   
    Dim sName As String
    sName = oDesViewRepActiv.Name  'Name der aktiven Darstellung merken
   
    'Schleife durch die Liste der AnsichtsDarst.
    ' um den Index der aktiven zu finden
    Dim sTmp As String
    Dim i As Long, iMax As Long
    iMax = oRepMan.DesignViewRepresentations.Count
    For i = 1 To iMax
        sTmp = oRepMan.DesignViewRepresentations.Item(i).Name
        If sName = sTmp Then Exit For  'i ist jetzt der Index der aktiven Darst.
    Next
   
    If i = iMax Then i = 1 Else i = i + 1
    'wenn höchster Index erreicht, wieder von vorne
    'sonst die nächste Darstellung
   
    '(nächste) AnsichtsDarstellung aktivieren
    oRepMan.DesignViewRepresentations.Item(i).Activate
   
End Sub

---

Code:

---

Sub AnsichtsDarst_Name()
' ruft eine bestimmte Darstellung auf
' KraBBy 19.04.2018

    Const sDarst As String = "Ansicht1"    'hier den Namen angeben!
   
    On Error Resume Next
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
    oDoc.ComponentDefinition.RepresentationsManager.DesignViewRepresentations.Item(sDarst).Activate
   
    If Not (Err.Number = 0) Then MsgBox "Hat nicht geklappt" & vbCrLf _
        & "evtl. existiert die Darstellung '" & sDarst & "' nicht", vbOKOnly
   
End Sub

---

------------------
Gruß KraBBy

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

---

Ich sage zunächst mal danke, und werde das ausprobieren.

Seitenhieb:
Das ist wieder mal etwas, das AutoCAD/MDT schon vor 20 Jahren gut hingekriegt hat.

------------------
mfg - Leo

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