Hallo,
ich habe mir ein Makro gebastelt.
Sub CATMain()
On Error GoTo Fehler
Set actdoku = CATIA.ActiveDocument
Set liste = actdoku.Selection
anzahl = liste.Count
If anzahl > 1 Then
MsgBox "Es darf nur eine Aufspannung selektiert werden!"
Exit Sub
End If
Set aufsp = Nothing
Set aufsp = liste.Item(1).Value
If (aufsp.IsSubTypeOf("ManufacturingSetup")) Then
Dim Machine1 As ManufacturingMachine
Set Machine1 = aufsp.CreateMachine("Mfg3AxisMachine")
Machine1.PreferedToolCatalogName = "TestTools"
Machine1.PPTableName = "Test.PPTable"
Else
MsgBox "Die Auswahl ist keine Aufspannung!"
End If
Exit Sub
Fehler:
MsgBox "Es ist keine Aufspannung ausgewählt!"
End Sub
Gruß
bewnc
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP