---

Hallo   

ich hoffe jemand kann mir helfen.
Das Makro generiert aus jedem Part in einer Baugruppe eine Draufsicht in einer Zeichnung.
Soweit funktioniert das Makro auch.
Im moment wird immer die X Y Ebene gewählt. Das möchte ich gerne ändern in Y Z Ebne ändern.
Ich bin für eure Unterstützung sehr dankbar.

Sub CATMain()
    Dim ActiveWindow    As PartDocument
    Dim MainPRD        As Part
    Dim TmpNode        As Document
    Dim PartName    As String
    Dim CatiaDocs      As Documents
    Dim dumDrawDoc      As DrawingDocument
    Dim DumSheet        As DrawingSheet
 
    'CATIA.DisplayFileAlerts = False
    'CATIA.RefreshDisplay = False

    'On Error Resume Next
     
 
    'Set ActiveWindow = CATIA.ActiveDocument
    'Set MainPRD = ActiveWindow.Product
    Set CatiaDocs = CATIA.Documents
    Set dumDrawDoc = CatiaDocs.Add("Drawing")

    dumDrawDoc.Standard = CatDrawingStandard.catISO
    Set dumSheets = dumDrawDoc.Sheets
    Set DumSheet = dumSheets.Item("Sheet.1")
    DumSheet.PaperSize = CatPaperSize.catPaperA0
    DumSheet.Orientation = CatPaperOrientation.catPaperLandscape

         
    For Each TmpNode In CATIA.Documents
     
        If InStr(TmpNode.Name, "CATPart") > 0 Then
         
            PartName = TmpNode.Name
            CreateView (PartName)
         
        End If

 
    Next

    'CATIA.DisplayFileAlerts = True
    'CATIA.RefreshDisplay = True
    dumDrawDoc.Update

End Sub

Sub CreateView(ProductName As String)

    Dim drawingDocument1 As DrawingDocument
    Set drawingDocument1 = CATIA.ActiveDocument

    Dim drawingSheets1 As DrawingSheets
    Set drawingSheets1 = drawingDocument1.Sheets

    Dim drawingSheet1 As DrawingSheet
    Set drawingSheet1 = drawingSheets1.ActiveSheet

    Dim drawingViews1 As DrawingViews
    Set drawingViews1 = drawingSheet1.Views

    Dim drawingView1 As DrawingView
    Set drawingView1 = drawingViews1.Add("AutomaticNaming")

    Dim drawingViewGenerativeLinks1 As DrawingViewGenerativeLinks
    Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks

    Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
    Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

    Dim documents1 As Documents
    Set documents1 = CATIA.Documents

    Dim productDocument1 As ProductDocument
    Set productDocument1 = documents1.Item(ProductName)

    Dim product1 As Product
    Set product1 = productDocument1.Product

    drawingViewGenerativeBehavior1.Document = product1

    drawingViewGenerativeBehavior1.DefineFrontView -1, -0, -0, -0, 1, 0

    drawingView1.X= 1
   
    drawingView1.Y= 1

    drawingView1.[Scale] = 1

End Sub

    CATIA.ActiveWindow.ActiveViewer.Reframe

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

---

Servus

Die Ausrichtung des Teils in der Ansicht wird über die Methode DefineFrontView (Vektoren der Ebene) definiert.
Für die Y-Z-Ebene müsst dabei wohl DefineFrontView 0, 1, 0, 0, 0, 1 angeben werden.

Gruß
Bernd

Hinweis: In deinem Code werden für alle geöffneten Parts Ansichten erzeugt, also auch von mehreren parallel geöffneten CATProducts bzw CATParts

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke 

hat sofort funktioniert
ich mehme an  DefineFrontView 0, 1, 0, 0, 0, 1 steht für DefineFrontView X,Y,Z,X,Y,Z dann macht das auch einen Sin.

Was mir jetzt auf gefallen ist, das ganze etwas unübersichtlich ist.
Kann man da noch die Part Benennung als Textfeld einfieseln lassen ?

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

---

Servus

An die PartNumber kommst du über productDocument1.Product.PartNumber
Wo du diese dann hinschreibst musst du dir noch überlegen (ich würde wohl am einfachsten die View entsprechend benennen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ja das ist noch besser

Wie komme ich da dran?

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

---

Servus

Bei fast allen Objekten kommst du über .Name an den Namen

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ich hab das

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("AutomaticNaming")

Durch das ersetzt

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("productDocument1.Product.PartNumber")

jetzt haben alle Ansichten den gleichen Namen productDocument1.Product.PartNumber
Aber der Name vom Part wird nicht übernommen

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

---

Servus

Da fehlen wohl ein paar Grundlagen zu VB(A).
Lass mal die Anführungszeichen weg.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Dann kommt eine Fehlermeldung

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add(productDocument1.Product.PartNumber)

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

---

Servus

Wie lautet die Fehlermeldung? Hast du dir überlegt woran das liegen könnte?
Ist die Variable denn schon gefüllt? (Code verstehen)
Du könntest zB auch nach DefineFrontView den Namen der Ansicht ändern (drawingView1.Name)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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