| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für NX |
|
Autor
|
Thema: RGB Farben direct ansprechen (2864 mal gelesen)
|
uwe.a
Ehrenmitglied
maschbau-ing.
   Beiträge: 1939
Registriert: 20.12.2000 Windows7/64Pro
Vmware7.1 UG11-Nx9
|
erstellt am: 26. Nov. 2005 13:42  <-- editieren / zitieren -->   Unities abgeben:          
Aus verschieden Gründen (mehrer CDF Configs) möchte möchte ich Geometriefarben direkt über die RGB Farben bestimmen. In Grip gibt da ein Beispiel für die Backgroundcolor. Funktioniert es auch mit normaler Geometrie? Von Journaling hab ich noch keine Ahnung  . Würde aber gerne Wissen ob diese Funktion bereits unterstützt wird. (... Code Beispiele wären nett) mfg uwe.a Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stefan.f
Mitglied
Beiträge: 123
Registriert: 03.09.2002
|
erstellt am: 28. Nov. 2005 07:17 <-- editieren / zitieren --> Unities abgeben: Nur für uwe.a 
|
uwe.a
Ehrenmitglied
maschbau-ing.
Beiträge: 1939
Registriert: 20.12.2000 Windows7/64Pro
Vmware7.1 UG11-Nx9
|
erstellt am: 05. Dez. 2005 09:45 <-- editieren / zitieren --> Unities abgeben:
|
stefan.f
Mitglied
Beiträge: 123
Registriert: 03.09.2002
|
erstellt am: 05. Dez. 2005 15:21 <-- editieren / zitieren --> Unities abgeben: Nur für uwe.a
Das ist eigentlich der Aufruf aus UGOpen. Aber im Journaling heissen die Routinen fast genau so. Hier noch ein BSP fürs Journaling:
Es werden die RGB Werte für die Körper im Part ausgegeben. Imports System
Imports NXOpen
Imports NXOpen.UF Module NXJournal Sub Main Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim b As Body
Dim clr_name As String
Dim clr_values As Double() = {255,255,255}
Dim text As String
If Not s.Parts.Work Is Nothing Then
For Each b In s.Parts.Work.Bodies
ufs.Disp.AskColor(b.Color,0,clr_name,clr_values)
s.ListingWindow.Open() text = CType(255 * clr_values(0), String) + " " + CType(255 * clr_values(1), String) + " " + CType(255 * clr_values(2), String)
s.ListingWindow.WriteLine(text)
s.ListingWindow.WriteLine(clr_name)
Next
End If
End Sub
End Module Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
met
Mitglied
CAD-Admin / Konstrukteur
Beiträge: 137
Registriert: 23.07.2004 Solidworks 2017
TCE 9.1.3
NX 5
3ds max 2017/2019
CorelDraw 12
|
erstellt am: 01. Jul. 2008 15:20 <-- editieren / zitieren --> Unities abgeben: Nur für uwe.a
|
| | Elektrotechniker als Konstrukteur für E-Unterlagen im Marineschiffbau (m/w/d) | | Akkodis ist ein Vorreiter in der Smart Industry und ein weltweit führendes Unternehmen in den Bereichen Engineering, IT, Forschung und Entwicklung. Als globaler Partner in einer sich ständig verändernden Technologie- & Wettbewerbsumgebung unterstützen wir unsere Kunden mit unserem 360°-Angebot dabei, eine nachhaltigere & smartere Zukunft zu gestalten. Wir sind davon überzeugt, dass wir die Grenzen des Möglichen überschreiten müssen, um das Unglaubliche zu schaffen.... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
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: 01. Jul. 2008 16:06 <-- editieren / zitieren --> Unities abgeben: Nur für uwe.a
Hallo met, Farbe lesen oder setzen geht über das Property color, das alle "displayable Objects" haben. Also: body_as_object.color = int. Der Integer ist im Bereich von 0 bis 216. Falls Du RGB- Werte brauchst, schau' mal in UFDisp. Gruß, Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
