;***************************************************************************** ; Anpassungen Material ISAG Urs Thali / 05.05.2005 ;***************************************************************************** ; ä Ì Ä Ø ö Î Ö Ú ü Ï Ü Û ß Þ ° ³ ;***************************************************************************** (in-package :OLI) (use-package :OLI) (sd-add-menu-button "ISAG_material" :label "Material" :parent '("TASK" "SolidDesigner") :image "SolidDesigner/ISAG/Material" ; Bild typisch .bmp :mapmenu "material_menue" ) (sd-create-menu "material_menue" :title "Material" :ignoreCmdIcons t ; Ohne Icons 05.05.2005 :contents '((:buttonBox "material" :title "Material" :buttons ( (material_Stahl_menue :label "Stahl") (material_Stahlblau_menue :label "Stahl blau") (material_Stahlgelb_menue :label "Stahl gelb") (material_Stahl1028_menue :label "St gelb 1028") (material_Stahl2003_menue :label "St orange 2003") (material_Stahl3000_menue :label "St rot 3000") (material_Stahl6001_menue :label "St grÏn 6001") (material_Aluminium_menue :label "Aluminium") (material_Bronze_menue :label "Bronze") (material_Polyamid_menue :label "Polyamid") (material_Polyurethan_menue :label "Polyurethan") (material_Renogliss_menue :label "Renogliss 4001.S") (material_Becorit_menue :label "Becorit D670") (material_Fels_menue :label "Fels") (material_Moertel_menue :label "Moertel") (material_Sand_menue :label "Sand") (material_Zement_menue :label "Zement") (material_Splitt_menue :label "Splitt") (material_Ausbruchmaterial_menue :label "Ausbruchmaterial") (material_Holz_menue :label "Holz") (material_Beton-armiert_menue :label "Beton armiert") (material_Hebezeuge_menue :label "Hebezeuge") (material_Aufbauten_menue :label "Aufbauten") (material_Laser_menue :label "Laser") (material_Glas_menue :label "Glas") ) ) (:buttonBox "weiteres" :title "Weiteres" :buttons ( (transparent_menue :label "Transparenz") (transparent_cyan_menue :label "Transpar. cyan") (nicht_transparent_menue :label "Transpar. weg") ) ) ) ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Bronze (sd-defdialog 'material_Bronze_menue :dialog-title "Bronze" :dialog-control :sequential :ok-action '(material_Bronze) ) (defun material_Bronze () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0085) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl (sd-defdialog 'material_Stahl_menue :dialog-title "Stahl" :dialog-control :sequential :ok-action '(material_Stahl) ) (defun material_Stahl () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.6,0.6,0.6) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl blau (sd-defdialog 'material_Stahlblau_menue :dialog-title "Stahl blau" :dialog-control :sequential :ok-action '(material_Stahlblau) ) (defun material_Stahlblau () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.207,0.356,1.000) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl gelb (sd-defdialog 'material_Stahlgelb_menue :dialog-title "Stahl gelb" :dialog-control :sequential :ok-action '(material_Stahlgelb) ) (defun material_Stahlgelb () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.98,0.86,0.04) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl gelb RAL1028 (sd-defdialog 'material_Stahl1028_menue :dialog-title "St gelb RAL1028" :dialog-control :sequential :ok-action '(material_Stahl1028) ) (defun material_Stahl1028 () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 1,0.702,0) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl orange RAL2003 (sd-defdialog 'material_Stahl2003_menue :dialog-title "St orange RAL2003" :dialog-control :sequential :ok-action '(material_Stahl2003) ) (defun material_Stahl2003 () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.98,0.47,0.28) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl rot RAL3000 (sd-defdialog 'material_Stahl3000_menue :dialog-title "St rot RAL1028" :dialog-control :sequential :ok-action '(material_Stahl3000) ) (defun material_Stahl3000 () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.694,0.176,0.259) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Stahl grÏn RAL6001 (sd-defdialog 'material_Stahl6001_menue :dialog-title "St grÏn RAL6001" :dialog-control :sequential :ok-action '(material_Stahl6001) ) (defun material_Stahl6001 () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.0902,0.631,0.0902) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Aluminium (sd-defdialog 'material_Aluminium_menue :dialog-title "Aluminium" :dialog-control :sequential :ok-action '(material_Aluminium) ) (defun material_Aluminium () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.732,0.715,0.969) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0027) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Polyamid (sd-defdialog 'material_Polyamid_menue :dialog-title "Polyamid" :dialog-control :sequential :ok-action '(material_Polyamid) ) (defun material_Polyamid () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.8,0.8,0.8) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00114) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Polyurethan (sd-defdialog 'material_Polyurethan_menue :dialog-title "Polyurethan" :dialog-control :sequential :ok-action '(material_Polyurethan) ) (defun material_Polyurethan () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.400,0.400,0.400) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00126) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Renogliss 4001.S (Ceram P schwarz) (sd-defdialog 'material_Renogliss_menue :dialog-title "Renogliss" :dialog-control :sequential :ok-action '(material_Renogliss) ) (defun material_Renogliss () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.300,0.300,0.300) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00095) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Becorit D670SB (sd-defdialog 'material_Becorit_menue :dialog-title "Becorit" :dialog-control :sequential :ok-action '(material_Becorit) ) (defun material_Becorit () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.75,0.57,0.16) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00124) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Fels (sd-defdialog 'material_Fels_menue :dialog-title "Fels" :dialog-control :sequential :ok-action '(material_Fels) ) (defun material_Fels () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.9,0.81,0.6) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0022) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Moertel (sd-defdialog 'material_Moertel_menue :dialog-title "Moertel" :dialog-control :sequential :ok-action '(material_Moertel) ) (defun material_Moertel () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.86,0.55,0.71) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0022) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Sand (sd-defdialog 'material_Sand_menue :dialog-title "Sand" :dialog-control :sequential :ok-action '(material_Sand) ) (defun material_Sand () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.9,0.82,0.39) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.002) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Zement (sd-defdialog 'material_Zement_menue :dialog-title "Zement" :dialog-control :sequential :ok-action '(material_Zement) ) (defun material_Zement () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.75,0.75,0.2) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0016) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Splitt (sd-defdialog 'material_Splitt_menue :dialog-title "Splitt" :dialog-control :sequential :ok-action '(material_Splitt) ) (defun material_Splitt () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.63,0.75,0.0) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0018) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Ausbruchmaterial (sd-defdialog 'material_Ausbruchmaterial_menue :dialog-title "Ausbruchmaterial" :dialog-control :sequential :ok-action '(material_Ausbruchmaterial) ) (defun material_Ausbruchmaterial () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.9,0.63,0.47) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0017) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Holz (sd-defdialog 'material_Holz_menue :dialog-title "Holz" :dialog-control :sequential :ok-action '(material_Holz) ) (defun material_Holz () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.67,0.39,0.2) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0009) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Beton armiert (sd-defdialog 'material_Beton-armiert_menue :dialog-title "Beton armiert" :dialog-control :sequential :ok-action '(material_Beton-armiert) ) (defun material_Beton-armiert () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.39,0.6,0.47) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0022) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Hebezeuge (sd-defdialog 'material_Hebezeuge_menue :dialog-title "Hebezeuge" :dialog-control :sequential :ok-action '(material_Hebezeuge) ) (defun material_Hebezeuge () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0.3,0.7,0.3) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Aufbauten (sd-defdialog 'material_Aufbauten_menue :dialog-title "Aufbauten" :dialog-control :sequential :ok-action '(material_Aufbauten) ) (defun material_Aufbauten () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 1.00,0.92,0.66) ; Grundeigenschaften Farbe aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.00785) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Laser (sd-defdialog 'material_Laser_menue :dialog-title "Laser" :dialog-control :sequential :ok-action '(material_Laser) ) (defun material_Laser () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 1,0,0) ; Grundeigenschaften Farbe aendern (set_part_inst_transparency :parts :current :transpr :NONE) ; Teileeigenschaften Transparenz loeschen (set_part_base_transparency :parts :current :transpr :SEMI) ; Grundeigenschaften Transparenz aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Material Glas (sd-defdialog 'material_Glas_menue :dialog-title "Glas" :dialog-control :sequential :ok-action '(material_Glas) ) (defun material_Glas () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 1,1,1) ; Grundeigenschaften Farbe aendern (set_part_inst_transparency :parts :current :transpr :NONE) ; Teileeigenschaften Transparenz loeschen (set_part_base_transparency :parts :current :transpr :SEMI) ; Grundeigenschaften Transparenz aendern (set_part_inst_density :parts :current :dens :clr) ; Teileeigenschaften Dichte loeschen (set_part_base_density :parts :current :dens 0.0025) ; Grundeigenschaften Dichte aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Teil transparent und farbig (sd-defdialog 'transparent_cyan_menue :dialog-title "Transpar. cyan" :dialog-control :sequential :ok-action '(transparent_cyan) ) (defun transparent_cyan () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_color :parts :current :color :clr) ; Teileeigenschaften Farbe loeschen (set_part_base_color :parts :current :color :rgb 0,1,1) ; Grundeigenschaften Farbe aendern (set_part_inst_transparency :parts :current :transpr :NONE) ; Teileeigenschaften Transparenz loeschen (set_part_base_transparency :parts :current :transpr :SEMI) ; Grundeigenschaften Transparenz aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Teil transparent (sd-defdialog 'transparent_menue :dialog-title "Transparenz" :dialog-control :sequential :ok-action '(mache_transparent) ) (defun mache_transparent () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_transparency :parts :current :transpr :NONE) ; Teileeigenschaften Transparenz loeschen (set_part_base_transparency :parts :current :transpr :SEMI) ; Grundeigenschaften Transparenz aendern (put-buffer "complete") ) ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ;Teil nicht transparent (sd-defdialog 'nicht_transparent_menue :dialog-title "Transpar. weg" :dialog-control :sequential :ok-action '(nicht_transparent) ) (defun nicht_transparent () (set_pers_context :none) (set_text_wid_value_f "prompt" "Teil angeben.") (current_part :interactive) (put-buffer "complete") (set_part_inst_transparency :parts :current :transpr :NONE) ; Teileeigenschaften Transparenz loeschen (set_part_base_transparency :parts :current :transpr :NONE) ; Grundeigenschaften Transparenz loeschen (put-buffer "complete") )