---

error.PNG

Hallo Zusammen,

ich habe bislang Catia R19 genutzt, in dieser konnte man das folgende Makro von Lusilnie [URL=http://ww3.cad.de/foren/ubb/Forum133/HTML/004878.shtml][/URL] nutzen

Code:

---

Sub CATMain()
 
    Dim rootDoc As ProductDocument
    Set rootDoc = CATIA.ActiveDocument
   
    Dim root As Product
    Set root = rootDoc.Product
   
    Dim oProds As products
    Set oProds = root.products
   
    Dim oSections As Sections
    Set oSections = root.GetTechnologicalObject("Sections")
   
    Dim oSection 'As Section
    Set oSection = oSections.Add
   
End Sub

---

welches im Product einen Schnitt erzeugt und gespeichert hat, ohne das man eine weitere Lizenz wie SPA oder DMU benötigt. Jetzt habe ich Catia R22 und bekomme die Meldung (siehe Bild)
Ich habe leider gar keine Ahnung von Makros. Ist das ein lösbares Problem oder hat Dassault dieses Feature ausgebessert?

Danke und Gruß
Kevin

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

---

Hi Kevin,

mich irritiert der Strichpunkt am Ende der Zeile der Fehlermeldung.
VB verwendet den so nicht.
Falls der Strichpunkkt tatsächlich im Makro steht, lösch ihn und speichere das Makro.

Tschau,
Joe

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

---

Bei weiterer Betrachtung der Fehlermeldung fällt 3/16 auf. Es kann sein, dass Du die 'As'-Deklarationen auskommentieren musst. Das sieht dann so aus:

Code:

---

Sub CATMain()

    Dim rootDoc 'As ProductDocument
    Set rootDoc = CATIA.ActiveDocument
 
    Dim root 'As Product
    Set root = rootDoc.Product
 
    Dim oProds 'As products
    Set oProds = root.products
 
    Dim oSections 'As Sections
    Set oSections = root.GetTechnologicalObject("Sections")
 
    Dim oSection 'As Section
    Set oSection = oSections.Add
 
End Sub

---

Hope it helps,
Joe

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

---

Servus Kevin
Speicher mal das Makro als CATScript ab.
Dann läuft es vielleicht schon.

Gruß0
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ohhhh, Ihr seid so heldenhaft. Mein endloser Dank sei mit euch.
Es funktioniert beides. Catscript und dann läuft es schon, Schande über mich, das habe ich gar nicht gesehen.
'funktioniert ebenfalls, ist auch die stabilere Variante, da diese in beiden Varianten funktioniert.

Also vielen Dank für die wie immer schnelle und kompetente Hilfe.

Edit: Sectioning wird zwar erstellt, jedoch lässt sich der Schnitt nichtmehr wie in R19 ohne Lizenz editieren. Schade. Dennoch Danke.

------------------
Click OK to terminate

[Diese Nachricht wurde von leChefe am 13. Okt. 2014 editiert.]

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