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

Autor

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

Sirus
Ehrenmitglied
CAD Applikationsentwickler

Senden Sie eine Private Message an Sirus

Schreiben Sie einen Gästebucheintrag für Sirus

Beiträge: 1564
Registriert: 03.06.2004

SolidWorks2022

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: 1564
Registriert: 03.06.2004

SolidWorks2022

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

Technischer Mitarbeiter (m/w/d)/ Technischer Redakteur (m/w/d)
Die SET Stange Energietechnik GmbH mit Gründungsjahr 1997 und Sitz in Langenfeld, ist spezialisiert auf die Entwicklung und Herstellung individueller Diesel-Stromerzeuger für mobile Anwendungen, insbesondere im militärischen Bereich. Seit über 25 Jahren begegnen wir mit Leidenschaft den technischen Herausforderungen der mobilen Stromerzeugung, insbesondere dort, wo standardisierte Lösungen nicht ausreichen....
*Anzeige ansehen*	Technische Dokumentation

ä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 >>)