Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Fehler Erzeugung FilePath Designtabelle

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Fehler Erzeugung FilePath Designtabelle (779 mal gelesen)
moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 12. Apr. 2018 14:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


12-04-201814-49-35.jpg

 
Hallo zusammen,

beim zuweisen des FilePath einer Designtabelle bekomme ich folgende Fehlermeldung.

Meldung:
"Method 'IsConst' of object 'DesignTable' failed".
in Zeile: TableToChange.FilePath = sNewPathOfTable

Auslesen funktioniert, leider nicht das zuweisen.

Code:
Function ChangePathOfDesignTable(oRelations As Relations, InTabel As Relation, sErrorList As String)

    Dim DTablePath As String
    Dim DTableName As String
    Dim TableToChange As DesignTable
    Dim sNewPathOfTable As String
    Dim NewPath As String
    Dim ExistServerPath As String
    Dim ZielNormpath As String
    Dim NameDTable As String

        Set TableToChange = InTabel
        If TableToChange Is Nothing Then
            'sErrorList = sErrorList & "-" & sNameOfTabel & vbLf
        Else
 
            ExistServerPath = CheckFolderExist(NewPath)
            'Debug.Print ExistServerPath
           
            DTablePath = TableToChange.FilePath
            ZielNormpath = Stringsuch(DTablePath)
            'Debug.Print ZielNormpath
           
            sNewPathOfTable = ExistServerPath + ZielNormpath
            Debug.Print sNewPathOfTable

            TableToChange.FilePath = sNewPathOfTable
           
            TableToChange.Hidden = False


           
           
        End If
End Function



Hat jemand einen Tip für mich.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 12. Apr. 2018 15:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für moppesle 10 Unities + Antwort hilfreich

Servus Uwe

Was mich wundert sind die Werte von ConfigurationsNb und ColumnsNb.
Ist die ursprüngliche Tabelle leer?
Stimmt der Pfad sNewPathOfTable? Hat die Tabelle die richtigen "Dimensionen"?

Gruß
Bernd

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

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

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 12. Apr. 2018 16:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,

die Tabelle hat die Verknüpfung zum Server verloren.
Pfad ist aber noch über die Properties verfügbar.
Diesen kann ich auch auslesen, nur nicht zurückschreiben.

sNewPathOfTable sollte stimmen, habe auch probeweise mit einem testString probiert.

Was meinst du mit Dimensionierung?

Hiermit hatte es schon mal funktioniert.
Wobei der Pfad mit dem Aufruf der Funktion übergeben wird.

Code:
Sub ChangePathOfDesignTable(oRelations As Relations, sNameOfTabel As String, sNewPathOfTable As String, sErrorList As String)

    Dim TableToChange As DesignTable

Set TableToChange = GetDesignTableByName(oRelations, sNameOfTabel)
        If TableToChange Is Nothing Then
            sErrorList = sErrorList & "-" & sNameOfTabel & vbLf
           
        Else
            TableToChange.Hidden = HiddenDTables
            TableToChange.FilePath = sNewPathOfTable
        End If
End Sub


------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 12. Apr. 2018 17:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für moppesle 10 Unities + Antwort hilfreich

Servus Uwe

Mit "Dimensionen" meint ich ob die Anzahl der Spalten und deren Überschrift passt (sollte bei dir stimmen).
Gibt es bei der "neuen" Tabelle genügend Zeilen? (Configuration = 7)
Prüfe bitte nochmal den zusammengesetzten neuen Pfad (ggf noch eine FileExists-Prüfung einbauen)

Gruß
Bernd

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

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

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 12. Apr. 2018 18:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Bernd,

es hängt wohl an den Anführungszeichen die fehlen.
Wie kann ich die vorne anhängen?

So solle es aussehen.
"D:\Daten\CAD-Daten\3D-Konstruktion\#Vorlagen Normteile Parametrisiert\Fibro\2072_45_Haltestueck\2072_45_Haltestueck.xls"


Hinten habe ich es mit +"""" hinbekommen, leider funktioniert es vorangestellt nicht.

Hast du ne Idee?

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 12. Apr. 2018 22:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für moppesle 10 Unities + Antwort hilfreich

Servus Uwe

Da macht wohl das Leerzeichen im Pfad die Probleme.
Dimensioniere den sNewPathOfTable mal als CATBSTR, in meinem Kurztest hat es dann auch mit Leerziehen geklappt (ohne spezielle Anführungszeichen vor/nach zusetzen).

Gruß
Bernd

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

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

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 13. Apr. 2018 07:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Moin Bernd,

danke dir.


Leider bekomme ich dann "User-defined type not defined.

Ich programmiere in vba, und das Makro soll später als catskript oder catvba laufen.

Hast du noch einen Tip.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

Randle
Mitglied
CAD/PLM Consultant


Sehen Sie sich das Profil von Randle an!   Senden Sie eine Private Message an Randle  Schreiben Sie einen Gästebucheintrag für Randle

Beiträge: 695
Registriert: 12.04.2003

Win10 x64
CATIA V5 R18, R19, R21, R27-29

erstellt am: 13. Apr. 2018 08:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für moppesle 10 Unities + Antwort hilfreich

Hallo,

du kannst die Anführungszeichen auch so einfügen:

sNewPathOfTable = chr(34) & ExistServerPath + ZielNormpath & chr(34)

Nicht getestet, sollte aber gehen.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

moppesle
Ehrenmitglied V.I.P. h.c.
Konstrukteur


Sehen Sie sich das Profil von moppesle an!   Senden Sie eine Private Message an moppesle  Schreiben Sie einen Gästebucheintrag für moppesle

Beiträge: 3418
Registriert: 28.05.2009

CATIA V5 R19 SP9
WIN 7 64bit

erstellt am: 13. Apr. 2018 09:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Randle, Hallo Bernd,

danke euch beiden.

habe das Problem gelöst.
Wie so oft sitzt das Problem "vor" dem Rechner.
Ich hatte bei der Pfad-Zusammenstellung einen Syntaxfehler in der Funktion.

Danke für die Unterstützung.

PS. die Anführungszeichen waren nicht das Problem.
Funktioniert ohne Anführungszeichen

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz