Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Element einer Publikation tauschen

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:  Element einer Publikation tauschen (1400 mal gelesen)
Criollo
Mitglied



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

Beiträge: 42
Registriert: 07.11.2008

erstellt am: 21. Okt. 2010 16:32    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 zusammen,

ich möchte via Skript innerhalb eines Parts eine Publication ändern.
Die Publication soll nicht mehr auf das bisherige Geometrielement (z.B. Linie1)verweisen, sondern ein anderes verwenden (z.B. Linie2)

Eigentlich dachte ich das dies über den SetDirect-Befehl funktioniert. Aber leider klappt es nicht. Bekomme im besten Fall nur die Meldung das SetDirect failed.

Anbei mein Code myprod ist hierbei  die Partinstanz im Product und mypart ist das eigentliche Partobjekt.

Set myprod = PN
Set mypart = PN2

Set myline_eg = mypart.FindObjectByName ("Achse_Lenkwelle_bei_EG")
Set ref_myline_eg = mypart.CreateReferenceFromObject (myline_eg)
Set myline_dg = mypart.FindObjectByName ("Achse_Lenkwelle_bei_DG")
Set ref_myline_dg = mypart.CreateReferenceFromObject (myline_dg)
Set mypubs = myprod.Publications
Set mypub = mypubs.Item("Achse_Lenkwelle")

For each para in mypart.Parameters
If instr (para.name, "Gelenkart") <> 0 then
Set mypara = para
Exit For
end if
Next

If mypara.value = "Doppelgelenk" then
mypubs.SetDirect  mypub, ref_myline_dg
elseif mypara.value = "Einfachgelenk" then
mypubs.SetDirect mypub, ref_myline_eg
end if

mypart.Update

End Sub


Vielleicht hat jemand hierzu 'ne Idee. 
Viele Grüsse aus dem noch nicht verschneiten Süden.

Crio

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

JuPaV
Mitglied
Software-Entwickler


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

Beiträge: 39
Registriert: 11.11.2010

CATIA V5R20SP364
CATScript, CATVba, VB6, .NET, C++, NXOpen

erstellt am: 11. Nov. 2010 16: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 Nur für Criollo 10 Unities + Antwort hilfreich

Hallo!
Der SetDirect-Befehl funktioniert, aber „ReplaceElement“ muss Reference sein.

Beispiel:

Sub CATMain()

Set oProd = CATIA.ActiveDocument.GetItem("Part1")
Set RefLine1 = oProd.CreateReferenceFromName("Part1/!Line.1")'Ref Line.1

Set publications1 = oProd.Publications
Set publication1 = publications1.Add("Line.1")

publications1.SetDirect "Line.1", RefLine1 'Public Line.1

Set RefLine2 = oProd.CreateReferenceFromName("Part1/!Line.2") 'Ref Line.2

publications1.SetDirect "Line.1", RefLine2 'Replace Public Element Line.2

End Sub

------------------
Mit freundlichen Grüßen,
JuPaV

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