Zitat:
Original erstellt von joerg.m:
Hallo zusammen,weiß jemand von Euch wie man per Makro feststellen kann, aus welchen konkreten Objekten (Linie, Kreis...) sich eine 2D-Komponente zusammensetzt? Vielen Dank!
Gruß,
Jörg
hi joerg,
hier ein bisschen beispielcode:
die Benamsung ( Blatt.1 und View.4 aus Makrorekorder ) solltest du entsprechend anpassen...
mkim
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("Blatt .1")
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("View.4")
drawingView1.Activate
Dim drawComp As DrawingComponent
Set drawComp = drawingView1.Components
For i = 1 To drawComp.count
Set comp = drawComp.Item(i)
Set compRef = comp.compRef
Set geometricElements = compRef.geometricElements
MsgBox("Komponente: " & comp.Name & " von " & components.Count)
For k = 1 To geometricElements.count
Set geo = geometricElements.Item(k)
MsgBox("Komponente: " & geo.Name )
Select Case geo.GeometricType
Case catGeoTypeLine2D
MsgBox (" Bin vom Typ: Line2D " )
Case catGeoTypeCircle2D
MsgBox (" Bim vom Typ: Circe2D " & geo.radius)
' weitere Typen ...
End Select
Next
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP