| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX |
Autor
|
Thema: Alle Kurven außerhalb einer Skizze auf Layer verschieben (1171 / mal gelesen)
|
Arkadius Mitglied CAD Consultant
Beiträge: 45 Registriert: 21.09.2006 Windows 7 NX 10.0.3.5
|
erstellt am: 10. Okt. 2019 14:53 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich verzweifle mal wieder an einer augenscheinlich simplen Anforderung. Ich möchte gerne alle Kurven auf ein Layer verschieben. Kurven in Skizzen sollen unberührt bleiben. Mein Ansatz ist: For Each curveObj As DisplayableObject In WorkPart.Curves Dim curveObjs(0) As DisplayableObject curveObjs(0) = curveObj curveObjs(0).RedisplayObject() WorkPart.Layers.MoveDisplayableObjects(NextFreeLayer(CuFrtLyr, CuLstLyr), curveObjs) WriteLW(curveObj.Name & " moved to layer " & curveObj.Layer.ToString) i = i + 1 Next Ich danke euch für eure Hilfe, Arkadius Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mseufert Moderator Freiberuflicher CAD/CAM Ingenieur
Beiträge: 2700 Registriert: 18.10.2005 HP Z420 WIN7 64 Win 10 UG NX6-2306 3D Printer Prusa MK2 S
|
erstellt am: 11. Okt. 2019 09:04 <-- editieren / zitieren --> Unities abgeben: Nur für Arkadius
Hallo Arkadius, auswendig kann das wahrscheinlich niemand beantworten. Da hilft dann ein Test der klärt, was über <Part>.Curves erfasst wird, im dümmsten Fall natürlich inkl. Sketch-Kurven. Die Skizzen selbst sind über <part>.Sketches zu finden, daneben helfen ggfs. auch die Cycle-Funktionen. Je nachdem, welche Kurven gesichert ermittelt werden können, geht's dann in die geliebte Mengenlehre, also alle Elemente von Menge A aus Menge B entfernen ... oder so ähnlich Oder für die Faulen: Erst alles auf den Ziellayer schieben und die Sketch-Kurven wieder zurück. Problem dabei: Wo war's vorher ? Gruß, Michael ------------------ Ein Mensch wird laut, wenn er was will; wenn er's erst hat, dann wird er still; Das "Danke" ist, nach alter Sitte, Weit selt'ner als das "Bitte, Bitte". Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Arkadius Mitglied CAD Consultant
Beiträge: 45 Registriert: 21.09.2006 Windows 7 NX 10.0.3.5
|
erstellt am: 11. Okt. 2019 11:08 <-- editieren / zitieren --> Unities abgeben:
Ja, es wird alles erfasst, auch die Sketch-Curves. Genau das ist mein Problem. Das war auch mein Ansatz. Ich finde nur keine Möglichkeit die Sketch-Curve Menge zu bekommen. Falls da einer eine Möglichkeit kennt, wäre ich sehr dankbar! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wipc3d59 Mitglied CAD Administrator
Beiträge: 66 Registriert: 24.06.2008 NX11.0.2.7 MP13 NX1899 Test ECTR 4.6 DSC Software AG Windows 10 HP Workstation z4 Intel Xeon W-2135 3,7GHz 32 GB Ram, Nvidia Quadro P4000
|
erstellt am: 11. Okt. 2019 11:46 <-- editieren / zitieren --> Unities abgeben: Nur für Arkadius
Hallo Arkadius, ich würde mal nach dem Feature der Kurven fragen... ...wenn Skizze dann...ansonsten... Mein Ansatz ist: For Each curveObj As DisplayableObject In WorkPart.Curves Dim curveObjs(0) As DisplayableObject Dim an_feat As NXOpen.Tag = Tag.Null theUfSession.Modl.AskObjectFeat(curveObjs.Tag, an_feat) curveObjs(0) = curveObj curveObjs(0).RedisplayObject() WorkPart.Layers.MoveDisplayableObjects(NextFreeLayer(CuFrtLyr, CuLstLyr), curveObjs) WriteLW(curveObj.Name & " moved to layer " & curveObj.Layer.ToString) i = i + 1 Next ------------------ Gruß Thorsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Mitarbeiter im Baumanagement (m/w/d) | Du möchtest die Zukunft mitgestalten und unsere Bauprojekte mit deinem Fachwissen und deiner Leidenschaft voranbringen? Dann werde Teil unseres Teams und starte deine Karriere bei der SuperBioMarkt AG am Hafen von Münster! Glaubwürdigkeit, gutes Gewissen, Gesundheit und Genuss ? das sind unsere aus dem Leitbild abgeleiteten vier Grundsätze. Kannst du dich damit identifizieren? Dann bist du bei uns richtig.... | Anzeige ansehen | Feste Anstellung |
|
Arkadius Mitglied CAD Consultant
Beiträge: 45 Registriert: 21.09.2006 Windows 7 NX 10.0.3.5
|
erstellt am: 11. Okt. 2019 13:49 <-- editieren / zitieren --> Unities abgeben:
|