| | | KISTERS 3DViewStation: Mehr CAD Lizenzen durch 3D-Viewer ersetzen und Geld sparen, eine Pressemitteilung
|
Autor
|
Thema: Publication (3237 mal gelesen)
|
tobiley Mitglied Masterstudent
Beiträge: 59 Registriert: 15.02.2010 Win XP CatiaV5 R17, R18, R19 HD2-Lizenz VB2008
|
erstellt am: 05. Mai. 2010 11:54 <-- editieren / zitieren --> Unities abgeben:
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. Ehrenmitglied V.I.P. h.c. Manager
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 / zitieren --> Unities abgeben: Nur für tobiley
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
Beiträge: 59 Registriert: 15.02.2010 Win XP CatiaV5 R17, R18, R19 HD2-Lizenz VB2008
|
erstellt am: 05. Mai. 2010 13:13 <-- editieren / zitieren --> Unities abgeben:
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 |
tobiley Mitglied Masterstudent
Beiträge: 59 Registriert: 15.02.2010 Win XP CatiaV5 R17, R18, R19 HD2-Lizenz VB2008
|
erstellt am: 02. Jun. 2010 15:44 <-- editieren / zitieren --> Unities abgeben:
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 >>)
|