---

Maske1.pdf

Hallo zusammen,

gibt es eine funktion um die Maske für Aufspannung/Maschineneditor automatisch auf meine bedüfnisse einzustellen?

Hierbei meine ich nur die Punkte

- Maschine
- Postprozessor Worttabelle
- Post Prozessing
- Werkzeugkatalog

Hoffe und Bitte um hilfe

Danke Gruß Joe

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

---

Hier ein kleines Script mit dem so was geht.
Du musst nur noch die Variablem mit deinen Werten belegen.
Oder entfernen wenn nicht benötigt.
Gruss
crash

Language="VBSCRIPT"

Sub CATMain()
Set MfgDoc1 = CATIA.ActiveDocument
Set ActivityRef = MfgDoc1.GetItem("Process")
If (ActivityRef.IsSubTypeOf("PhysicalActivity")) Then
    Set childs = ActivityRef.ChildrenActivities
    quantity = childs.Count
    if quantity <= 0 then
      Exit Sub
    End if
    NumberOfSetup = 0
    For I=1 To quantity
Set child = childs.Item(I)
If (child.IsSubTypeOf("ManufacturingSetup")) Then
Set Setup1 = child
NumberOfSetup = NumberOfSetup +1
Exit For
End If
Next
End If
if NumberOfSetup <= 0 then
   Exit Sub
End if
'Nun gehts los
Set ProgramList = Setup1.Programs
Dim Machine1 'As ManufacturingMachine
'Man kann auch checken ob die Maschine schon da ist
'so wird sie immer neu erzeugt
Maschine1 = 3
if(Maschine=1)then
  Set Machine1 = SetUp1.CreateMachine("Mfg3AxisMachine")
end if
if(Maschine=2)then
  Set Machine1 = SetUp1.CreateMachine("Mfg3AxisWithTableRotationMachine")
  Machine1.RotaryAxis = "C"
end if
if(Maschine=3)then
  Set Machine1 = SetUp1.CreateMachine("Mfg5AxisMachine")
end if

Machine1.PreferedToolCatalogName = ToolCatalogName
Machine1.PPTableName = PPTableName

'*** Define Tool Change Point on Machine Tool
Dim XTlChg 'As AnyObject
Dim YTlChg 'As AnyObject
Dim ZTlChg 'As AnyObject

Set XTlChg = SetUp1.GetAttribute("MfgToolChgX")
XTlChg.Value = PtX
Set YTlChg = SetUp1.GetAttribute("MfgToolChgY")
YTlChg.Value = PtY
Set ZTlChg = SetUp1.GetAttribute("MfgToolChgZ")
ZTlChg.Value = PtZ
End Sub

[Diese Nachricht wurde von crash am 30. Mrz. 2006 editiert.]

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

---

hallo !

Wir haben eine Lösung auch ohne VB Kenntnisse:

Einen neuen Jüngfräulichen Prozess öffnen,
Maschine , PP, PPTable, WKZ-Table usw, einstellen und abspeichern.
Diesen mit einem schreibschutz versehen, dann kann er immer als Vorlage geöffnet werden, falls sich mal was ändert kann immer schnell und einfach umgestellt werden.

Grüssle Frank Kohler

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

---

Hallo Frank,
das ist richtig, dann muss du aber das Produkt/Part nachtraeglich in den Prozess laden und kannst nicht von einen PART starten und CATIA erstellt dir die NC Geometrie automatisch in einem extra Produkt.
Aber sonst ist dein Weg ebenso moeglich.
Ich kann weiterhin mit dem Script nachtraeglich in einem bestehenden Prozess was aendern.
Gruss
crash

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

---

Hallo Forumianer,
dieser Thread ist zwar schon n bissl älter, aber trotzdem gut.
Ich hab jedoch hier eine Frage:
Ich möchte nicht eine der von CATIA vorgegebenen Maschinen laden, sondern über einen Öffnen-Dialog (fileselectionbox) eine eigene Maschine auswählen und laden.
Die Auswahl klappt ja, aber wie soll der Code aussehen, um die Auswahl ins Setup zu laden?

Code:

---

Set FileSys = CATIA.FileSystem
fpath = CATIA.FileSelectionBox("Maschine wählen", "*.CATProduct", CatFileSelectionModeOpen)
Set Machine1 = CATIA.Documents.Open(FileSys.GetFile(fpath))

---

Danke im Voraus,
Gregor

------------------
Wer bin ich? Und wenn ja: wieviele?

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