---

Hallo zusammen,
mein Makro und ich haben folgendes Problem:
Beim erstellen von Publications entsteht ein Fehler. In jeder Publication wird das komplette Part hinterlegt. Ich habe mich hier im Forum darüber schon einmal ein bisschen umgeschaut aber ich werde leider nicht ganz schlau aus den Antworten.

http://ww3.cad.de/foren/ubb/Forum137/HTML/004051.shtml#000003]

Das Problem ist der Button Do not activate defalult shapes on open in den Einstellungen Tools/Options/Infrastructure/Product Structure. Ist dieser deaktiviert, läuft es plötzlich normal. Leider ist dieser Button aufgrund größerer Produkte immer aktiviert, was ich auch nicht ändern möchte.

Gibt es eine Möglichkeit das Problem zu lösen? Die Idee die Einstellungen per Makro zu ändern [wie im Link beschrieben] finde ich eigentlich ziemlich gut! Ich kenne nur nicht die richtigen Befehle für diese Auswahl.
Grüße

[Diese Nachricht wurde von Student051089 am 25. Okt. 2017 editiert.]

[Diese Nachricht wurde von Student051089 am 25. Okt. 2017 editiert.]

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

---

Servus

Du kannst auch die DefaultShapes für jedes Product einzeln aktivieren und deaktivieren: siehe Doku ActivateDefaultShape und DesactivateDefaultShape

Gruß
Bernd

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

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

---

Hallo Bernd,
danke für deine schnelle Antwort! Leider werde ich aus der Doku zu dem Thema nicht so richtig schlau.
o Sub DesactivateDefaultShape( )
Deactivate default shape.
ist die Antwort der Doku?.. oder bin ich in einer anderen Doku unterwegs?... das scheint mir nicht schlüssig.
Kann ich das mit

Code:

---

CATIA.ActivateDefaultShape 'Blutiger Anfänger

---

lösen? Oder benötige ich hier so etwas wie im Link http://ww3.cad.de/foren/ubb/Forum137/HTML/004051.shtml#000001  zum Ändern der Einstellungen? Meine Idee ist das irgendwie umzuschreiben... nur weiß ich nicht wie
Grüße

Also quasi so...

Code:

---

Sub CATMain()
    Dim intSettConsObj As SettingControllers
    Dim intSettConInfObj As SettingController
    Dim intSettURCABoo As Boolean
   
    On Error GoTo ErrHandler
    Set intSettConsObj = CATIA.SettingControllers
    Set intSettConInfObj = intSettConsObj.Item("CATVizVisualizationSettingCtrl")
   
    intSettURCABoo = intSettConInfObj.RepresentationActivateDefaultShape
   
    Select Case CStr(intSettURCABoo)
        Case "True"
            intSettConInfObj.RepresentationActivateDefaultShape = False
            MsgBox "Die Einstellung " + Chr(34) + "Use root context in Assembly" + Chr(34) + " wurde deaktiviert!", vbInformation, "HINWEIS"
        Case "False"
            intSettConInfObj.RepresentationActivateDefaultShape = True
            MsgBox "Die Einstellung " + Chr(34) + "Use root context in Assembly" + Chr(34) + " wurde aktiviert!", vbInformation, "HINWEIS"
    End Select
   
    intSettConInfObj.SaveRepository
   
    Exit Sub
   
ErrHandler:
    MsgBox "Die Einstellung konnte nicht geändert werden!", vbCritical, "FEHLER"
   
End Sub

---

[Diese Nachricht wurde von Student051089 am 26. Okt. 2017 editiert.]

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

---

Servus

Das mit der Doku lesen musst du noch üben. Bei was findest du denn die Methode? Bei Product, also gibt es die Methode auch nur da und nicht bei der Applikation (Catia).
Lies dir die andere Diskussion nochmal durch. IMHO macht der Code eine andere Einstellung (die bei dir vielleicht nicht relevant ist)

Gruß
Bernd

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

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

---

Hallo Bernd,
das hat mich jetzt einiges an Lehrgeld gekostet!
Ich habe es herausgefunden!

Code:

---

Product.DesactivateDefaultShape
Product.ActivateDefaultShape

---

Vielen Dank für deine Hilfe!!
Grüße

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