Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Publication

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:  Publication (3175 mal gelesen)
tobiley
Mitglied
Masterstudent


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

Beiträge: 59
Registriert: 15.02.2010

Win XP
CatiaV5 R17, R18, R19
HD2-Lizenz
VB2008

erstellt am: 05. Mai. 2010 11:54    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


R19_PC1.JPG


R19_PC2.JPG

 
Hallo,

ich habe folgendes Problem, mittels eines Makros lasse ich Elemente veröffentlichen, um sie später mit Link zu kopieren. Komischerweise funktioniert das Veröffentlichen nicht auf allen Rechnern. Gibt es eine Einstellung dazu in Catia? Habe das Makro ganz normal in VBA programmiert.

Code:
Sub AddPublication(MyPartProduct, MyElement, Name)
'Publiziert ein Element
    Dim MyElementName As String
    Set MyParentProduct = MyPartProduct
           
    MyRefName = MyParentProduct.PartNumber & "/!" & MyElement.Name
           
    Set MyRef = MyParentProduct.CreateReferenceFromName(MyRefName)
   
    MyPartProduct.Publications.Add (Name)
   
    MyParentProduct.Publications.SetDirect Name, MyRef
End Sub

Vielen Dank für eure Hilfe!

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

DanielFr.
Moderator
Manager


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

Beiträge: 2506
Registriert: 10.08.2005

HP Compaq 8710w, Intel Core Duo T7700, 2,40 Ghz, 3GB RAM, Windows XP Professionel @32bit, Quadro FX 1600M, CATIA V5 R19 SP3

erstellt am: 05. Mai. 2010 12: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 Nur für tobiley 10 Unities + Antwort hilfreich

Hallo   ,

IMHO liegt es an der Einstellung "Use root context in assembly" (Tools -> Infrastructure -> Part Infrastructure -> General). Ist diese aktiviert wird als Kontext immer das höchste Root-Produkt angezogen. Ist die Einstellung nicht aktiv so wird immer das Produkt als Kontext angezogen in dem sich das Publizierte Objekt befindet.

Die Einstellung könntest du bei Bedarf zuerst abfragen und ggf. aktivieren um nachher immer das höchste Root-Produkt als Kontext zu haben

[EDIT]
Anbei noch der CATvba-Code zum auslesen und Ändern der Einstellung während der Laufzeit

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("CATMmuPartInfrastructureSettingCtrl")
   
    intSettURCABoo = intSettConInfObj.ExternalReferencesAssemblyRootContext
   
    Select Case CStr(intSettURCABoo)
        Case "True"
            intSettConInfObj.ExternalReferencesAssemblyRootContext = False
            MsgBox "Die Einstellung " + Chr(34) + "Use root context in Assembly" + Chr(34) + " wurde deaktiviert!", vbInformation, "HINWEIS"
        Case "False"
            intSettConInfObj.ExternalReferencesAssemblyRootContext = 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


[/EDIT]
------------------
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

tobiley
Mitglied
Masterstudent


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

Beiträge: 59
Registriert: 15.02.2010

Win XP
CatiaV5 R17, R18, R19
HD2-Lizenz
VB2008

erstellt am: 05. Mai. 2010 13: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

Hallo Daniel,

vielen Dank für deine schnelle Antwort, an die Einstellungen der Part Infrastruktur habe ich auch schon gedacht. Habe es eben noch einmal ausprobiert mit deaktiviertem "Use root context in assembly". Leider wird die Veröffentlichung immer noch nicht richtig erstellt. Ich bin schon alle für mich relavent erscheinende Optionen durchgangen und habe sie zwischen den beiden PCs verglichen, aber leider ohne Erfolg.

Schon mal vielen Dank für weitere Hilfe!

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



Technischer Projektmanager ? Projektplanung Schiffsreparatur / Yacht-Refit (m/w/d)

In über 145 Jahren Firmengeschichte hat sich viel verändert, unser Wertekompass und unsere Leidenschaft für den Schiffbau jedoch nicht. Seit vier Generationen bleiben wir ? auch bei teils stürmischer See - als Familienunternehmen konstant auf Kurs und sorgen mit Teamwork, Qualität und Innovation für exzellenten Yachtbau auf höchstem Niveau. An unseren Standorten Bremen, Hamburg und Rendsburg sorgen ...

Anzeige ansehenProjektmanagement
tobiley
Mitglied
Masterstudent


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

Beiträge: 59
Registriert: 15.02.2010

Win XP
CatiaV5 R17, R18, R19
HD2-Lizenz
VB2008

erstellt am: 02. Jun. 2010 15:44    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


loesung.JPG

 
Hallo,

für alle die es interessiert, ich habe den Fehler gefunden, folgende Einstellung (siehe Screenshot im Anhang) darf nicht aktiviert sein.

Alternativ kann das Element auch "scharf" geladen werden. ( .ActivateDefaultShape)

[Diese Nachricht wurde von tobiley am 02. Jun. 2010 editiert.]

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