---

Hallo,
habe eben einen neuen Bug in der R14 ausgemacht:
Ist in den Properties eines Parts das Feld Description ausgefüllt (z.B. bei Verwendung des Stammdatentools in der DC-Umgebung), lässt sich dieses Part nicht mehr als .model speichern. Vorher also alles aus den Descriptions löschen, dann geht's wieder.

------------------
Viele Grüße
Jochen Kästle

www.denc.de

TUFKAD

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

---

Hallo Jochen,

also bei mir auf V5R14 SP3 funktioniert das aber einwandfrei. Liegts an der Installation?

Gruß, zizo

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

---

Höchstens an den Settings für den V4-Export. Daran kann ich aber nichts ändern. Sind gesperrt.
Oder am Betriebssystem. Der Fehler ist auf IBM AIX aufgetreten.

------------------
Viele Grüße
Jochen Kästle

www.denc.de

TUFKAD

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

---

Hab's eben auf WIN-XP getestet. Es scheint nur UNIX-Installationen zu betreffen. Auf HP und IBM trat der Fehler auf.

------------------
Viele Grüße
Jochen Kästle

www.denc.de

TUFKAD

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

---

hat man nur ein Part, kann man dieses Macro nehmen, es wird dann das aktuelle Part als V4-Model gespeichert, davor löscht es noch die Descriptions.

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument,filename,verz,box

CATIA.RefreshDisplay = False

Set partDocument = CATIA.ActiveDocument
    'Box = MsgBox("partDocument = " & partDocument.name) 'so heisst das Catia-file
Set product = partDocument.GetItem(PartFeature)
    'Box = MsgBox("product = " & product.name) 'so heisst das Part
  If  product.DescriptionRef <> "" then
      'Box =  MsgBox ("Beschreibung lautet: " & product.DescriptionRef  & "und wird nun gelöscht!")
      product.DescriptionRef = "" 'trage keine leerzeichen ein - Bug auf Unix-systemen
  End If

filename = Mid(partDocument.name,1,Len(partDocument.name)-8) 'Name des aktiven Part-files ohne .CATPart

verz="\BCATIA.THARMEN.MP01.WS/" 'hier eigenes Wunschverzeichnis eintragen

Box =  MsgBox ("speichere das V5-Part nun als V4 model ab unter " & verz & filename  & ".model", 64, "Info - speichern")

partDocument.ExportData verz & filename & ".model", "model"

Box =  MsgBox ("fertig ;-)", 64, "Ende")

end sub

---

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