---

Hallo!

Ich will das Ergebnis einer autom. durchgeführten Überschneidungsanalyse als Datei ausgeben. Die Analyse führe ich folgendermaßen durch:

' Retrieve the Clashes collection
Dim cClashes As Clashes
Set cClashes = CATIA.ActiveDocument.Product.GetTechnologicalObject("Clashes")

' Create a clash with all components and compute it
Dim oClash As Clash
Set oClash = cClashes.AddFromSel
oClash.ComputationType = catClashComputationTypeBetweenAll
oClash.InterferenceType = catClashInterferenceTypeContact
oClash.Compute

Jetzt möchte ich das Ergebnis als TEXT-Datei ausgeben (Das Text-Format kann man ja auch in CATIA per Hand auswählen)! Mit

Dim ThePath As String
oClash.Export CatClashExportTypeXMLResultOnly, "c:\tmp\sample.xml"

bekomme ich eine XML-Datei. Und für den "CatClashExportType" wird in der Hilfe nur folgendes angegeben:

CatClashExportType (Enumeration)
enum CatClashExportType {
  CatClashExportTypeXMLResultOnly
}

The different types of clash export.
It is used by the Clash and ClashResult objects to specify the export type.
Values:
CatClashExportTypeXMLResultOnly
The export is done using XML format with only the result data

Mit welchem "CatClashExportType" bekomme ich eine Text-Datei?

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

---

hi
dieses Problem versuche ich auch gerade zu lösen
mfg
l_c

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

---

ich hab ganz auf die automatische ausgabe verzichtet und einfach die befehle im VB verwendet, um die einzelnen kollisionen auszugeben. das ist etwas umständlicher, aber wenn man in einer schleife (clash, count) alle durchgeht, kann man jeden beliebigen parameter (type, bauteil 1, bauteil 2, länge,...) in eine textdatei schreiben.

mfg

martin

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

---

hi
danke für den hinweis,
da ich aber ein bekennender Anfänger im scripting bin,
konnte ich hiermit nichts anfangen.
...es wäre nett wenn ich mehr erfahren würde...
z.B.: wie die befehle genau aussehen
danke
mfg l_c

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

---

Hallo!

Hier ein paar Teile meines Makros. Zuerst die Variablen erzeugen:

Dim oDocuments As Documents
Dim oProductDocument As ProductDocument
Dim oProduct As Product                   
Dim Clashes1 As Clashes
Dim Clash_fix_versch As Clash
Dim oConflicts1 As Conflicts
Dim oConflict1 As Conflict
Dim FileNum As Integer

'Document,... zuweisen:

Set oDocuments = CATIA.Documents
Set oProductDocument = CATIA.ActiveDocument
Set oProduct = oProductDocument.Product   

'Kollisionen im Product:

Set Clashes1 = oProduct.GetTechnologicalObject("Clashes")

'Kollisionsanalyse zuweisen mit Namen der VORHER
'definierten Kollisionsanalyse "Konflikt_1"
'(man kann natürlich auch eigene Kollisionen erzeugen,...)

Set Clash_fix_versch = Clashes1.Item(Konflikt_1)

'Kollisionen neu berechnen; evtl. vorher ein "oProduct.Update":

Clash_fix_versch.Compute

'Ergebnisse zuweisen:

Set oConflicts1 = Clash_fix_versch.Conflicts

'Kollisionen durchgehen, hier kann man natürlich auch die Ergebnisse
'direkt in Textdatei ausgeben:

For m = 1 To oConflicts1.Count
  Set oConflict1 = oConflicts1.Item(m)

  If oConflict1.Type = 0 Then
      Value1 = oConflict1.Value             
  End If
Next m

'Dateien bearbeiten:
'für Windows-Systeme:
'Zugriff auf FileSystem-Objekt (Dateien bearbeiten: löschen, kopieren)
Set fs = CreateObject("Scripting.FileSystemObject")   

'Datei öffnen und Ergebnisse hineinschreiben

FileNum = FreeFile()
Open "c:\Temp\ergebnis_konflikt.txt" For Output As FileNum

' "... For Append As FileNum", wenn man nur Ausgabe an bereits
' vorhandenen Dateiinhalt anhängt

Print #FileNum, "Wert" & Value1
Close #FileNum

   

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

---

Hallo,

hat jemand schonmal automatisiert eine xml-Datei als Export erzeugt.
Bei mir funktioniert das nicht. Ich erhalte wohl eine XML-Datei, kann sie aber nicht öffnen.
Im Vergleich zur manuellen Verschneidungsüberprüfung fehlen einige Dateien im Export, wie z. B. ClashGrammar.dtd.

Bin für jeden Ratschlag dankbar.

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

---

Ich führe automatisiert eine Kollisionsuntersuchung durch.
Dabei ändere ich die Parameter zweier Blöcke in einem Produkt
fortlaufend über eine Schleife und möchte hinterher wissen, wo Kollisionen auftraten.

Anschließend schreibe ich alle Kollisionen in eine Textdatei.

Leider werden dabei nicht alle Kollisionen erkannt.

Ich habe jetzt eine Messagebox eingebaut, die aufpoppt, wenn eine neue Kollisionsuntersuchung ansteht. Warte ich nun nach der Veränderung der Geometrie solange, bis das Update des Products abgeschlossen ist, werden alle Kollisionen erkannt.
Dies ist jedoch nur eine Notlösung.

Wie kann ich im Skript dafür sorgen, dass die Kollisionsüberprüfung erst beginnt, sobald das Product aktualisiert wurde??

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

---

Hallo,
etwas spät aber gibt es hier noch was neues zu diesem Thema??

Ich versuche gerade clash value, FirstProduct, SecondProduct
und die Coordinaten in ein Text File heraus zu schreiben.

Bei dem value hat es mit einer MsgBox geklappt, aber beim FirstProduct und SecondProduct klappt es nicht.

Script:

Sub CATMain()

Set oProductDocument = CATIA.ActiveDocument
Set oProduct = oProductDocument.Product
         
Set Clashes1 = oProduct.GetTechnologicalObject("Clashes")
Set Groups1 = oProduct.GetTechnologicalObject("Groups")

Set Clash = Clashes1.Add
Clash.ComputationType = catClashComputationTypeBetweenTwo
           
Clash.InterferenceType = catClashInterferenceTypeClearance
Clash.Clearance = 20
           
Set FirstGroup = Groups1.Item(1)      'oder ...Groups1.Item("Gruppe1")
Clash.FirstGroup = FirstGroup
   
Set SecondGroup = Groups1.Item(2)    'oder ...Groups1.Item("Gruppe2")
Clash.SecondGroup = SecondGroup
Clash.Compute

Set Clash_fix_versch = Clashes1.Item(Clash)

Clash_fix_versch.Compute

Set oConflicts1 = Clash_fix_versch.Conflicts

For m = 1 To oConflicts1.Count
  Set oConflict1 = oConflicts1.Item(m)

If oConflict1.Type = 0 Then
    MsgBox oConflict1.value
End If
Next

Clash.Export CatClashExportTypeXMLResultOnly, "/tmp/clash-export"

End Sub

Danke

MFG Petermaen

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