grip: attribut kopieren? (Siemens Digital Industries Software/NX Programmierung)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX

Solid Edge: Erste Schritte, ein Webinar am 27.03.2026

Events abonnieren

Autor

Thema: grip: attribut kopieren? (824 mal gelesen)

Sirus
Ehrenmitglied
CAD Applikationsentwickler

Senden Sie eine Private Message an Sirus

Schreiben Sie einen Gästebucheintrag für Sirus

Beiträge: 1577
Registriert: 03.06.2004

SolidWorks2024

erstellt am: 24. Sep. 2008 09:35

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

hallo zusammen

von ugs-samples habe ich nachfolgendes grip-prog.
ich möchte aber nur ein bestimmtes attribut (zb. DB_PART_REV)
vom master auf das part kopieren nicht alle, kann mir jemand helfen?

mit grip möchte ich es machen,
da ich kein vb-code gefunden habe....

----------------------------
ENTITY/ child, parent
STRING/ att_title(50), att_value(132)

$$ Find the first component in the part
MASK/ 63
INEXTE/ ALL
A10: child = NEXTE/ IFEND, A90:
parent = &MEMCMP(child, IFERR, A15
JUMP/ A10:

$$ found the component - now transfer all the attributes
A15: n_atts = &NATTR(child, 5)
DO/ A20:, ii, 1, n_atts
att_title = &ATTTL(child, ii, 5)
att_value = &ATTVL(child, att_title)

ASATT/PART, att_title, att_value
A20: $$ End do ii

A90: HALT
----------------------------

------------------
gruss urs

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

älg
Mitglied
CADmin

Schreiben Sie einen Gästebucheintrag für älg

Beiträge: 403
Registriert: 17.06.2003

erstellt am: 24. Sep. 2008 09:42

<-- editieren / zitieren -->

Unities abgeben:

Nur für Sirus

Dann bau noch eine Schleife ein:

Code:
ENTITY/ child, parent
STRING/ att_title(50), att_value(132)
$$ Find the first component in the part
MASK/ 63
INEXTE/ ALL
A10: child = NEXTE/ IFEND, A90:
parent = &MEMCMP(child, IFERR, A15
JUMP/ A10:
$$ found the component - now transfer all the attributes
A15: n_atts = &NATTR(child, 5)
DO/ A20:, ii, 1, n_atts
att_title = &ATTTL(child, ii, 5)

IFTHEN/ att_title == 'DB_PART_REV'
att_value = &ATTVL(child, att_title)
ASATT/PART, att_title, att_value
$$ hier kann noch ein Sprung nach A20: rein, um die Sache abzukürzen
ENDIF
A20: $$ End do ii
A90: HALT

Beachte, daß nur die ersten 6 Zeichen einer Variable relevant sind, der Rest wird ignoriert. Das kann Fehler zur Folge haben, wenn sich Variablen erst ab dem 7. Zeichen unterscheiden.

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

Sirus
Ehrenmitglied
CAD Applikationsentwickler

Beiträge: 1577
Registriert: 03.06.2004

SolidWorks2024

erstellt am: 24. Sep. 2008 11:31

<-- editieren / zitieren -->

Unities abgeben:

hallo älg

vielen dank, funktioniert perfekt!
(...grip ist also doch noch cool..)

------------------
gruss urs

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

Konstrukteur (m/w/d) Maschinenbau
Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Kolleg:in, der:die wie wir Technologien auf die nächste Stufe bringen möchte. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte....
*Anzeige ansehen*	Konstruktion, Visualisierung

älg
Mitglied
CADmin

Beiträge: 403
Registriert: 17.06.2003

erstellt am: 24. Sep. 2008 11:33

<-- editieren / zitieren -->

Unities abgeben:

Nur für Sirus

quod erat demonstrandum

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)