| |
| 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 (1104 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: 2624 Registriert: 18.10.2005 HP Z420 WIN7 64 Win 10 UG NX6-1980 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 |
| Technischer Produktdesigner (m/w/d) | Die VULKAN Gruppe ist ein global agierender Konzern. Seit 1889 steht das Unternehmen für ausgezeichnete Qualität, innovative Spitzentechnik sowie für permanente Kunden- und Mitarbeiterbindung. Das operative Geschäft der Gruppe wird in drei Marken gegliedert: VULKAN Couplings: Schiffsantriebstechnik und Generatoranwendungen VULKAN Drive ... | Anzeige ansehen | Produktdesign, Industriedesign |
|
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:
|