---

Hallo Leute

Ich hoffe es gibt hier jemanden der mir helfen kann!

Ich versuche ein Script zu erstellen mit dem ich aus einem "Part" Körper mit jeweils unterschiedlicher Ausrichtung in eine Drawing Ableite.

Problem:

Wieß nicht wie ich dem Script sagen soll das z.b. Körper 8 von Ebene 8 abgeleitet werden soll und Körper 9 von Ebene 9 ... usw

Mein Script sieht so aus: siehe unten

Ändern muss ich folgende Zeile
drawingViewGenerativeBehavior1.DefineFrontView 0, 0, 0., 0, 0., 1.

weiß aber nicht wie

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Styropormodell 1")

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 partDocument1 As Document
Set partDocument1 = documents1.Item("W600.1377.01 G1.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Körper.12")

drawingViewGenerativeLinks1.AddLink body1

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

drawingView1.x = 882.362622

drawingView1.y = 517.160572

drawingView1.Scale = 1.012500

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.Update

drawingView1.Activate

End Sub

Kenne mich mit Scripte leider nicht besonders aus..

Gruß Martin

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