---

Hallo,

ich steh vor einem kleinen Problem:
Bei uns soll mittels eines Makros aus einer 3D Geoemtrie automatisch eine „Unfolded View“ von Wall.1 erstellt werden.

Hat jemand so etwas schon einmal gemacht und kann mir Hilfe leisten?

Wäre euch sehr dankbar

Grüße
uli

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

---

hab noch eine Anmerkung:
view erstellen tut. Ich selektiere auch gleich einige Dinge und lösche diese. Jedoch ist das im Moment auf ein definiertes CATPart beschränkt. Möchte diese Erstellung jedoch unabhängig vom Modell erstellen.
weiß da wenigstens jemand abhilfe??

Hier mein Code:
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("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

End Sub

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

---

Hallo uli79,

probier mal das:

Dim Part As CATBstr

Part = CATIA.FileSelectionBox("CATPart  auswaehlen","*.CATPart",CatFileSelectionModeOpen)
Set PartDocument = Catia.Documents.Read(Part)

Gruß
Bertel

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

---

Danke für deine Hilfe, leider sollte das anders gehen:
das 3D ist bereits geöffnet (kommt via VPM)
jetzt gibt es 2 Möglichkeiten:
1.) Anwender muss die Wall.1 manuell auswählen
2.) das Programm findet automatisch die Wall.1

Kannst du da auch etwas dazu beitragen?

Grüßle
uli

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

---

Hallo uli,

tut mir leid, da muß ich passen.

Gruß
Bertel

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

---

Sodele, auch ein close nach dem Makro tut ohne Probleme. Jtzt sollte ich nur noch die Wall.1 bekommen und nicht nur die (hier bei mir im moment x/y) Ebene
Habe es auch mit einer Plane versucht. Tut ebenfalls nicht so wie es muss.
Niemand eine Idee? Auch nur ein Gedanke?

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