Hallo,
ich versuche gerade ein Makro zu schreiben mit dem ich Flächen (Multible-Extract, Join, Trim) abmessen und den flächenwert ins excel übertragen kann - bis zum suchen und markieren funktioniert bei meinem test soweit alles.
nach ausführen des Makros ist die richtige Fläche markiert.
leider scheitere ich jetzt beim messen und eintragen, vielleicht kann mir ja wer aus der patsche helfen
gesteuert wird das ganze vom Excel aus, in Catia kann ich nämlich die Excel Bibliotheken nicht aktivieren und bin mir auch nicht sicher ob die Firmen IT das zulässt..
Catia V5 R28, Excel 2016, strenge firmen IT
würd mich freuen wenn mir wer helfen könnte.
Sub Paint()
Dim s1 As String
Dim spabench As SPAWorkbench
Dim mymeas As Measurable
Dim ref1 As Reference
Dim myans As Double
Dim InputObjectType(0)
s1 = Worksheets("Sheet1").Range("a1")
MsgBox s1
Set CATIA = GetObject(, "CATIA.Application")
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
selection1.search "(Name=" & s1 & " - 'Generative Shape Design'.'Geometrical Set');all"
Set ref1 = Selection.Item(1).Reference
Set spabench = partDocument1.GetWorkbench("SPAWorkbench")
Set mymeas = spabench.GetMeasurable(ref1)
myans = mymeas.Area
Debug.Print myans
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP