Autor
|
Thema: Fehler Erzeugung FilePath Designtabelle (779 mal gelesen)
|
moppesle Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 12. Apr. 2018 14:52 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 12. Apr. 2018 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für moppesle
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
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 12. Apr. 2018 16:52 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 12. Apr. 2018 17:13 <-- editieren / zitieren --> Unities abgeben: Nur für moppesle
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
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 12. Apr. 2018 18:09 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 12. Apr. 2018 22:21 <-- editieren / zitieren --> Unities abgeben: Nur für moppesle
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
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 13. Apr. 2018 07:16 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 13. Apr. 2018 08:15 <-- editieren / zitieren --> Unities abgeben: Nur für moppesle
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
Beiträge: 3418 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 13. Apr. 2018 09:23 <-- editieren / zitieren --> Unities abgeben:
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 |