---

Hallo miteinander,

gibt es eine Möglichkeit einen Halbschnitt (im Modellbereich) automatisch zu erzeugen?
Der Schnitt soll immer zur Ursprungseben XY-Ebene erzeugt werden.

Anschließend soll die Baugruppe nach der XY-Ebene ausgerichtet werden.

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

----------------------------------
Mit freundlichen Grüßen

Felix

[Diese Nachricht wurde von Fiedel93felix am 26. Aug. 2015 editiert.]

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

---

Hallo Felix,

Sub Plane_XY()

Dim assm As AssemblyDocument
Set assm = ThisApplication.ActiveDocument
ThisApplication.ActiveDocument.SelectSet.Select assm.ComponentDefinition.WorkPlanes.Item(3)
ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyHalfSectionViewCmd").Execute
'Abstand
SendKeys "0.0"
SendKeys "{ENTER}"

End Sub

Grüße

Georg

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

---

Danke Georg für deine Hilfe,

ich kann es leider jetzt nicht testen, aber ich werde versuchen es so schnell wie möglich zu probieren.

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

----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Also georg,
der schnitt wird erzeugt.
Nur das bestätigen des schnittes mit:
          SendKeys "0.0"
          SendKeys "{ENTER}"

funktioniert nicht.
Ich hab auch schon geschaut ob man irgdnwei anders d"enter" betätigen kann, aber ich hab keine andere Möglichkeit gefunden...
Weis da jemand weiter?

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

----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Hallo Felix,

habe das ganze unter VBA und mit Inventor 2014 versucht. Da läuft es.

Unter .Net müsste es so gehen:
SendKeys.Send("{0.0}")
SendKeys.Send("{ENTER}")

Georg

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

---

Ja das es über vba geht kann ich mir vorstellen 

ich hab es jetzt gefunden wie es lauten muss, du warst na dran 

        SendKeys.SendWait("0,0")
        SendKeys.SendWait("{ENTER}")

Vielen Dank für deine Hilfe Georg 

Aber wie ich die Baugruppe nach den Achse ausrichte weist du nicht oder?

Fals es jemand interessiert, hier mein kompletter Code:

Imports Inventor
Imports System.Windows.Forms

Module Module1

    Public ThisApplication As Inventor.Application
    Public oDoc As Inventor.Document
    Public oProj As Inventor.DesignProject

    Sub main()
        ThisApplication = GetObject(, "Inventor.Application")
        oDoc = ThisApplication.ActiveDocument

        oDoc.SelectSet.Select(oDoc.ComponentDefinition.WorkPlanes.Item(3))
        ThisApplication.CommandManager.ControlDefinitions.Item("AssemblyHalfSectionViewCmd").Execute()

        'Abstand
        SendKeys.SendWait("0,0")
        SendKeys.SendWait("{ENTER}")

        MsgBox("OKAY")

    End Sub
End Module

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

----------------------------------
Mit freundlichen Grüßen

Felix

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

---

Meinst Du so was (VBA)?:

Public Sub Test()
Dim oCam As Camera
Set oCam = ThisApplication.ActiveView.Camera

oCam.Perspective = False
oCam.Apply

oCam.ViewOrientationType = kFrontViewOrientation
oCam.Fit
Call oCam.Apply
End Sub

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