Hot News:

Mit Unterstützung durch:

   Foren auf CAD.de (alle Foren)
  Lisp
  Layer: TrueColor / Farbbuch auslesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:
Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Layer: TrueColor / Farbbuch auslesen (1266 mal gelesen)
tappenbeck
Mitglied
Vermessungsingenieur


Sehen Sie sich das Profil von tappenbeck an!   Senden Sie eine Private Message an tappenbeck  Schreiben Sie einen Gästebucheintrag für tappenbeck

Beiträge: 1213
Registriert: 30.05.2002

AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net

erstellt am: 07. Aug. 2008 15:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities
hi !

weiß einer von euch wo ich die truecolor bzw. das farbbuch auslesen kann.

tblsearch liefert das meines wissens nicht mit zurück !

gruß Jan :-)

------------------
jan :-)

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

benwisch
Mitglied
Bautechniker, CAD-Konstrukteur


Sehen Sie sich das Profil von benwisch an!   Senden Sie eine Private Message an benwisch  Schreiben Sie einen Gästebucheintrag für benwisch

Beiträge: 375
Registriert: 01.02.2001

 erstellt am: 07. Aug. 2008 16:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tappenbeck 10 Unities + Antwort hilfreich
Eigentlich ganz einfach mit ActiveX   
und nix mit TblSearch   
Code:

(vl-load-com)
(vlax-get-property
  (vlax-ename->vla-object
    (tblobjname "layer" "0")
    )
  'TrueColor
  )

liefert dir ein TrueColor-VlaObject zurück und mit diesem kannst du dir die Werte

  • Red   --> (vlax-get-property <TrueColor-VlaObject> 'Red)
  • Green --> analog wie oben
  • Blue  --> analog wie oben

und

  • BookName  --> (vlax-get-property <TrueColor-VlaObject> 'BookName)
  • ColorName --> analog wie oben

auslesen.

Alternativ die Kurzschreibweise...


    vla-get-truecolor
    vla-get-red
    vla-get-green
    vla-get-blue
    vla-get-bookname
    vla-get-colorname

Nur in Lisp, also ohne ActiveX, wird es schwieriger, da im Layer-Entity nur ein Index abgelegt ist. Dieser befindet sich im GC 420 (nur vorh. wenn gesetzt bzw. Farbuch vorh. ist) und Farbbuch/Farbname findest du im GC 430 (nur vorh. wenn Farbuch gesetzt ist).

Um den Index in RGB umzuwandeln muß man sich eine Funktion schreiben :)

Code:

(defun :C-TCsplit ( #c / )
(list (lsh (fix #c) -16)
       (lsh (lsh (fix #c) 16) -24)
       (lsh (lsh (fix #c) 24) -24)
)
)

Aufruf z.B. --> (:C-TCsplit (cdr(assoc 420 (entget(tblobjname "layer" "0")))))
Hier am Beispiel natürlich GC 420 vorh.
So und nun viel Spaß beim coden   


------------------
CADmaro.de

[Diese Nachricht wurde von benwisch am 07. Aug. 2008 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!
Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz