#|
erstellt: 04.12.2008
letzter Änderungszeitpunkt: 04.12.2008 20:00
Autor: Patrick Weber

Im Modeling unter Werkzeuge -> Anpassen einen Befehl anlegen und als Befehlsaktion folgendes eintragen:

cust-ch-single-color-part-dialog :FARBE "#125499"


Farbe in " " ist HEX-Farbcode

      HEX-Farbcode kann man z.B. mit dem Rechner auf
      http://www.drpeterjones.com/colorcalc/
      umrechnen.

      
Wenn Exemplarfarben geändert werden möchten, Zeile auskommentieren:
(sd-call-cmds (set_part_base_color :parts TEIL :color (sd-rgb-to-color FARBE)))  ; Basisfarbe ändern
und die darunter liegende Zeile 
(sd-call-cmds (set_part_inst_color :parts TEIL :color (sd-rgb-to-color FARBE)))   ; Exemplarfarbe ändern
das Kommentarzeichen davor entfernen.

Soll beides geändert werden,  nur bei
;(sd-call-cmds (set_part_inst_color :parts TEIL :color (sd-rgb-to-color FARBE)))   ; Exemplarfarbe ändern
das Kommentarzeichen davor entfernen.

      
ä Ì   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³
|#

(in-package :custom)
(use-package :OLI)


(sd-defdialog 'cust-ch-single-color-part-dialog
:dialog-title "Teile auf parametrisierte Farbe umfÌrben"
:toolbox-button nil  ; kann t gesetzt werden, wenn in Werkzeugkiste erscheinen soll
:without-show t
:variables
  '(
      (FARBE
         :value-type :string
         :title "Farbe"
         :next-variable 'TEIL
      )
      (TEIL 
         :selection (*sd-part-seltype*)
         :multiple-items nil
         :initial-value nil
         :prompt-text "Teil angeben"
         :title "Teil"
         :after-input
            (progn
               (sd-call-cmds (set_part_base_color :parts TEIL :color (sd-rgb-to-color FARBE)))  ; Basisfarbe ändern
               ;(sd-call-cmds (set_part_inst_color :parts TEIL :color (sd-rgb-to-color FARBE)))   ; Exemplarfarbe ändern
               (setf TEIL nil)
            )
         :next-variable 'TEIL
      )
   )
:local-functions '()
:ok-action '()
:help-action '()
)