Wie verarbeite ich das dann weiter?
'Ansichtsebene auswählen + Ausrichtung
Dim aVector1(2)
Dim aVector2(2)
Dim aVector(5)
Set oSel = oDoc.Selection
oSel.Clear
ReDim aFilter(0)
RedCode = MsgBox("Wählen Sie die Draufsicht der Bauguppe aus.", 64 + vbYesCancel, "Draufsicht")
aFilter(0) = "PlanarFace"
sUserSel = oSel.SelectElement2(aFilter, "Select planar face", False)
If sUserSel = "Normal" Then
Set oPlanarFace = oSel.Item(1).Value
oPlanarFace.GetFirstAxis aVector1
oPlanarFace.GetSecondAxis aVector2
aVector(0) = aVector1(0)
aVector(1) = aVector1(1)
aVector(2) = aVector1(2)
aVector(3) = aVector2(0)
aVector(4) = aVector2(1)
aVector(5) = aVector2(2)
fctPlanarFaceVector= aVector
End If
'Neue Zeichnung öffnen
Set oDocs = CATIA.Documents
Set oDraw = oDocs.Add("Drawing")
oDraw.Standard = catISO
Set drawSheets = oDraw.Sheets
Set drawSheet = drawSheets.Item("Sheet.1")
drawSheet.PaperSize = catPaperA0
drawSheet.Scale = 1.000000
drawSheet.Orientation = catPaperLandscape
'Erste Ansicht erstellen
Set drawViews = drawSheet.Views
Set drawView1 = drawViews.Add("AutomaticNaming")
drawView1.x = 500.000000
drawView1.y = 400.000000
drawView1.Scale = 1.000000
Set drawViewGenerativeLinks1 = drawView1.GenerativeLinks
Set drawViewGenerativeBehavior1 = drawView1.GenerativeBehavior
DocName = oDoc.Name
Set oProduct = oDocs.Item(DocName)
Set prodDoc = oProduct.product
drawViewGenerativeBehavior1.Document = prodDoc
drawViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000 Hier wird die FrontView definiert also muss ich hier dann irgendwas mit dem aVectort machen oder?!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP