;********************************************************************************************* ; Dateiname : SD_Teilematerial.lsp ; Autor : Stephan Wörz ; Erstellt : 23.04.2005 ; geändert : ;********************************************************************************************* ; Beschreibung: - Setzen der Teiledichte mit vordefinierter Teilefarbe ; - ;********************************************************************************************* ; Änderungen ; ;********************************************************************************************* (in-package :Teo) (use-package :oli) (sd-defdialog 'SD_Teilematerial :dialog-title "Teilematerial" :toolbox-button t :variables '( ("Anwenden auf...") (parts :value-type :part :modifies nil :title "Teile" :multiple-items t :initial-value nil ) ("Voreinstellungen") ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (ALU :title (sd-multi-lang-string "ALU" :german "ALU") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00275) (setq farbe2 "0.6,0.6,0.6") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (STAHL :title (sd-multi-lang-string "STAHL" :german "STAHL") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00785) (setq farbe2 "0.7,0.9,1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (EDELSTAHL :title (sd-multi-lang-string "EDELSTAHL" :german "EDELSTAHL") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.0079) (setq farbe2 "0.8,1,1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (HARTMETALL :title (sd-multi-lang-string "HARTMETALL" :german "HARTMETALL") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.015) (setq farbe2 "0.4,0.8,0.4") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (KUNSTSTOFF :title (sd-multi-lang-string "KUNSTSTOFF" :german "KUNSTSTOFF") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.0014) (setq farbe2 "1,0.8,0.6") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (NE-METALL :title (sd-multi-lang-string "NE-METALL" :german "NE-METALL") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00275) (setq farbe2 "1,0.6,0.1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (GUMMI :title (sd-multi-lang-string "RUBBER" :german "GUMMI") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00113) (setq farbe2 "0.10196,0.50196,0.10196") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (GLAS :title (sd-multi-lang-string "GLAS" :german "GLAS") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00260) (setq farbe2 "1,0.8,1") (setq Transparenz 0.5) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (MACROLON :title (sd-multi-lang-string "MACROLON" :german "MACROLON") :toggle-type :wide-toggle :push-action (progn (setq dichte 0.00120) (setq farbe2 "0.7,1,1") (setq Transparenz 0.5) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- ("Farbe & Dichte") ;; ---------------------------------------------------------------------------------------------------------------------------------------------------- (dichte :value-type :positive-number :initial-optional t ) (farbe :value-type :rgb-color :title (sd-multi-lang-string "Color" :german "Farbe") ; :after-input (display FARBE) ) ("Optionen") (DelTeilEig :title "Exemplareigensch. loeschen" :toggle-type :wide-toggle :value-type :boolean :initial-value t :after-input (progn (setf nurBericht nil) );progn ) ;end DelTeilEig (Bericht :title "Bericht ausgeben" :toggle-type :wide-toggle :value-type :boolean :initial-value nil :after-input (progn (setf nurBericht nil) );progn ) ; end Bericht (nurBericht :title "nur Bericht ausgeben" :toggle-type :wide-toggle :value-type :boolean :initial-value nil :after-input (progn (setf DelTeilEig nil) (setf Bericht nil) );progn ) ; end Bericht ) ;end variables :ok-action '( progn (TeoMatri) );end ok-action :cancel-action '( progn );end cancel-action :help-action ' (progn (sd-display-url ( Format NIL "~A/SD_Teilematerial.htm" (oli::sd-convert-filename-from-platform (oli::sd-sys-getenv "SCHILLERHELPDIR")))) ); end progn :local-functions '( (TeoMatri () (let ((n (length parts)) (i 0)) (dolist (part parts) (progn (if nurBericht (progn (display "Bericht") (display "-------") (sd-call-cmds (display (format nil "Teil im Browser: ~A" (sd-inq-obj-pathname PART)))) (display " ") (display "Werkstoff wie im" ) (sd-call-cmds (display (format nil "WM als letztes gespeichert ~A " (sd-inq-item-attribute part "DB-PREF" :WERKSTOFF :attachment :contents)))) (display " ") (sd-call-cmds (display (format nil "Teilefarbe (instance): ~A [RGB] " (sd-inq-part-color part :instance)))) (sd-call-cmds (display (format nil "Grundfarbe (contents): ~A [RGB] " (sd-inq-part-color part :contents)))) (sd-call-cmds (display (format nil "Teildichte (instance): ~A [g/mm3]" (sd-inq-part-density part :instance)))) (sd-call-cmds (display (format nil "Grunddichte (contents): ~A [g/mm3]" (sd-inq-part-density part :contents)))) (display " ") (display "NIL = keine Eintraege") (display "==============================================================================================") );endprogn (progn (if DelTeileig (progn (sd-call-cmds (set_part_inst_color :parts part :clr)) (sd-call-cmds (set_part_inst_density :parts part :clr)) (sd-call-cmds (set_part_base_transparency :parts part :transp :clr)) );end progn );endif (sd-call-cmds (set_part_base_color :parts part :color farbe)) (sd-call-cmds (set_part_base_density :parts part :dens dichte)) (sd-call-cmds (set_part_base_transparency :parts part :transp Transparenz)) (if Bericht (progn (display "Bericht") (display "-------") (sd-call-cmds (display (format nil "Teil im Browser: ~A" (sd-inq-obj-pathname PART)))) (display " ") (display "Werkstoff wie im" ) (sd-call-cmds (display (format nil "WM als letztes gespeichert ~A " (sd-inq-item-attribute part "DB-PREF" :WERKSTOFF :attachment :contents)))) (display " ") (sd-call-cmds (display (format nil "Teilefarbe (instance): ~A [RGB] " (sd-inq-part-color part :instance)))) (sd-call-cmds (display (format nil "Grundfarbe (contents): ~A [RGB] " (sd-inq-part-color part :contents)))) (sd-call-cmds (display (format nil "Teildichte (instance): ~A [g/mm3]" (sd-inq-part-density part :instance)))) (sd-call-cmds (display (format nil "Grunddichte (contents): ~A [g/mm3]" (sd-inq-part-density part :contents)))) (display " ") (display "NIL = keine Eintraege") (display "==============================================================================================") );endprogn );endif );end prognelse );endif );endprogn (incf i)) );end let );endTeoMatriAlu );endlocalfunction ) ;enddefdialog