---

Hallo zusammen,
gibt es eine Möglichkeit Designtables zu isolieren ohne den Sendkey Befehl ?
Die Problematik : Ein OEM schickt Normatielkataloge raus aber ohne die Designtables. Dadurch gibt es ewig lange ladezeiten der modelle weil Catia nach der Documentsuche alles absucht!
Die Lösung wäre nun das Modell zu laden und alle Designtables zu isolieren .Sei es nun xls oder txt.
Vielleicht weiß jemand ohne den umweg über sendkey eine Lösung !

Grüsse
Andy

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

---

Loesche_Konstruktionstabelle.catvbs.txt

Hallo AndyMF,

hier ein Makro welches ich mal gemacht hatte.
Funktioniert aber nur das LOESCHEN!
Ds Isolieren hatte ich irgendwie nicht hinbekommen. Vielleicht weiss hier jemand Rat.

Gruss Norman

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Danke für das Script.
Die Problematik ist das ich ein isolate brauche,aber mir die Methode sendkey zu dirty ist -.-

Gruss
Andy

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

---

Hallo  ,

das sollte weiterhelfen 

Code:

---

Sub CATMain()

'**********************************Abfrage Dokumente**********************************
    Dim intWindows As Windows
    Dim intDoc As Document
    Dim intObjTypeStr As String
    Dim inPart As Part
    Dim intSel As Selection
    Dim intDeakCounterInt As Integer
    intDeakCounterInt = 0
   
    Set intWindows = CATIA.Windows
    If intWindows.Count = 0 Then
        MsgBox "Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!" _
                , vbCritical, "Keine Dokument geladen"
        Exit Sub
    End If
    Set intDoc = CATIA.ActiveDocument
    intObjTypeStr = TypeName(intDoc)
    If intObjTypeStr <> "PartDocument" Then
        MsgBox "Das aktive Dokument ist kein CATPart!" + Chr(10) + "Das Makro kann nicht ausgeführt werden!", _
                vbCritical + vbOKOnly, "Falscher Dateityp"
        Exit Sub
    End If
    intObjTypeStr = ""
   
    '***Instanzierungen
    Set inPart = intDoc.Part
    Set intSel = intDoc.Selection
   
    '***Suche und Abfrage
    intSel.Search "CATKnowledgeSearch.DesignTableType,all"
    If intSel.Count = 0 Then
        MsgBox "Es wurden keine Konstruktionstabelle gefunden", vbInformation, "Makro wird beendet"
        Exit Sub
    Else
        For i = 1 To intSel.Count
            If CStr(intSel.Item(i).Value.Activated) = "True" Then
                intSel.Item(1).Value.Deactivate
                intDeakCounterInt = intDeakCounterInt + 1
            End If
        Next
    End If
   
    '***Abschluss
    intSel.Clear
    inPart.Update
    MsgBox "Es wurden " & CStr(intDeakCounterInt) & " Konstruktionstabelle deaktiviert", vbInformation, "Makro erfolgreich beendet"

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke Daniel 
das mit dem deactivieren hab ich zum konstruieren auch genommen! Wollte aber für Daimler dann alle isolieren zum abgeben der Daten! so das die Funktionen der Normteile bestehen bleibt ohne alle designtables in dem part vorher wieder zu activieren !

Grüsse
Andy

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

---

Hallo,

IMHO kann man DesignTables gar nicht isolieren. Also auch nicht per Hand. Von dem her auch nicht per Script 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel
doch du kannst designtabels isolieren! Wenn du ein Produkt öffnest ,dann auf Desk gehst siehst du die Designtables die nicht gefunden sind rot ! Folge der verknüpfung zu dem Part odert Produkt und lasse dir die Links anzeigen und dann isolate ! somit is die Funktion noch gegeben aber der Designtable wird nicht mehr gesucht!
Hab das Prob gerade bei Daimler BEMI Kons.! Ewig lange ladezeiten wegen nicht vorhandenen Designtables!

Grüsse
Andy

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

---

Hallo Daniel,

funktioniert das Makro auch in einem Produkt mit mehreren Parts?
Ich habe leider keine Idee wie man so etwas umschreiben koennte.

Gruss Norman

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Hallo,

@Andy: Ah ok über den Desk schon aber interen über das Kontextmenü hast du keine Möglichkeit. Von dem her auch keine ProgrammAPI. Daraus folgt du wirst es mit den SendKeys machen müssen 

@Norman:

Du musst einfach nur die Abfrage nach dem Dokumententyp löschen. Siehe Beispielscript:

Code:

---

Sub CATMain()

    Dim intDoc As Document
    Dim inPart As Part
    Dim intSel As Selection
    Dim intDeakCounterInt As Integer
    intDeakCounterInt = 0

 
    '***Instanzierungen
    Set intDoc = CATIA.ActiveDocument
    Set inPart = intDoc.Part
    Set intSel = intDoc.Selection
 
    '***Suche und Abfrage
    intSel.Search "CATKnowledgeSearch.DesignTableType,all"
    If intSel.Count = 0 Then
        MsgBox "Es wurden keine Konstruktionstabelle gefunden", vbInformation, "Makro wird beendet"
        Exit Sub
    Else
        For i = 1 To intSel.Count
            If CStr(intSel.Item(i).Value.Activated) = "True" Then
                intSel.Item(1).Value.Deactivate
                intDeakCounterInt = intDeakCounterInt + 1
            End If
        Next
    End If
 
    '***Abschluss
    intSel.Clear
    inPart.Update
    MsgBox "Es wurden " & CStr(intDeakCounterInt) & " Konstruktionstabelle deaktiviert", vbInformation, "Makro erfolgreich beendet"

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke Daniel
Eine Frage hät ich noch! An die Links selber komm ich nicht über die api oder ? Also von einem Part oder Product die Contextlinks CCP links usw abfragen ob vorhanden und darüber dann isolieren ?

Grüsse Andy

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

---

Hallo Daniel,

Leider habe ich eine Sache bei meinen Vorlagen nicht beruecksichtigt sodass ich die Funktion Deaktivieren leider nicht mit steuern kann.
Trotzdem Danek fuer den Hinweis.

Gruss Norman

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Hallo  ,

@Andy: Nein mit VBA keine Chance. Es gibt eine CAA Api soweit ich weiß. Aber in CATVba, CTAVbs und CATScript gibt es keine Möglichkeit diese ContextLinks abzufragen bzw. zu isolieren 

@Norman: kein Problem 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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