---

Hallo Gemeinde,

mein Makro ist fertig. (habe hier ja schon öfters gepostet), jetzt habe ich noch eine kleine Frage:
Wie kann ich eine Lage einer definierten Wall (Name Wall.1) im Koordinatensystem auslesen???
Erklärung:

mit meinem makro lass ich zu Beginn eine unfolded view automatisch erzeugen. Nun erzeugt es mir diese immer von der x/y Ebene. Siehe Code. Nun gibt es 2 Möglichkeiten:

1. die wall.1 ist immer Ursprung der unfolded view
2. ich lese aus, auf welcher flsche die wall.1 liegt und dann ist diese Fläche mein Ursprung für die View.

Dazu benötige ich aber eure Hilfe.
wenn jemand eine Möglichkeit lösen kann, einfach kurz antworten. Bin um jede Hilfe dankbar.

Hier noch der Code:

Language="VBSCRIPT"

Sub CATMain()

Set documents1 = CATIA.Documents

Set drawingDocument1 = documents1.Open("
\1_Startup/1_arb_m_a0.CATDrawing")

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.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("Part1.CATPart")

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("Part1")

drawingViewGenerativeBehavior1.Document = product1

drawingViewGenerativeBehavior1.DefineUnfoldedView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000

drawingView1.x = 594.500000

drawingView1.y = 420.500000

drawingView1.Scale = 1.000000

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.Update

drawingView1.Activate

Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection

selection1.Search "((Dashed!=1 & Dashed!=4) + (CATDrwSearch.DrwCenterLine + (CATDrwSearch.DrwText + (CATDrwSearch.DrwDimension + (CATDrwSearch.DrwArrow + (CATDrwSearch.DrwDetail + ((Dashed=4 - CATDrwSearch.CATEarlyGenItem) + (Name!=PL & (Name!='Unfolded view' & (Name!='Main View' & (Name!='Background View' & CATDrwSearch.DrwView))))))))))),all"

selection1.delete

Set drawingDocument1 = CATIA.ActiveDocument
drawingDocument1.ExportData "
\1x_Eigener_USER/000_test.dxf", "dxf"

drawingDocument1.close

End Sub

Gruß
uli

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