;********************************************************************************************* ; 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) (setq Kantenfarbe 0,0,0) (setq Transparenz 0) (sd-defdialog 'SD_Teilematerial :dialog-title "Teilematerial" :toolbox-button nil :variables '( ("Anwenden auf...") (parts :value-type :part :modifies nil :title "Teile" :multiple-items t :initial-value nil :after-input (progn ;; Eigenschaften des 1. Teils in der Auswahlliste mal in GUI darstellen (setq farbe (sd-inq-part-color (first parts) :contents)) (setq Transparenz (sd-inq-part-transparency (first parts) :contents)) (setq dichte (* 1000 (sd-inq-part-density (first parts) :contents))) ;;(setq Kantenfarbe (sd-inq-part-color (first parts) :contents)) );;progn );;parts ("WERKSTOFFE") ;;---------------------------------------------------------------------- (ALU :title "ALU" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.6,0.6,0.6") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) (NE-METALL :title "NE-METALL" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 8.80) (setq farbe2 "1,0.6,0.1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (STAHL :title "STAHL" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 7.85) (setq farbe2 "0.7,0.9,1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) (EDELSTAHL :title "EDELSTAHL" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 7.90) (setq farbe2 "0.8,1,1") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (HARTMETALL :title "HARTMETALL" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 15.00) (setq farbe2 "0.4,0.8,0.4") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) (GUMMI :title "GUMMI" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.13) (setq farbe2 "0.10196,0.50196,0.10196") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (KUNSTSTOFF :title "KUNSTSTOFF" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.40) (setq farbe2 "1,0.8,0.6") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) (ENERGIEKETTE :title "E-KETTE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.13) (setq farbe2 "0.25490197539329529,0.25490197539329529,0.25490197539329529") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (GLAS :title "GLAS" :title-alignment :center :toggle-type :left-toggle :push-action (progn (setq dichte 2.60) (setq farbe2 "0.91764712333679199,0.90980398654937744,1.0") ;;"1,0.8,1") (setq Transparenz 0.95) ;;0.5 (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (PC_PolyCarbonat :title "PC KLAR" :title-alignment :center :toggle-type :left-toggle :push-action (progn (setq dichte 1.20) (setq farbe2 "0.7,1,1") (setq Transparenz 0.5) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- (ADDITIVE :title "3D DRUCK PA12" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.10) (setq farbe2 "0.9960784912109375,0.95686280727386475,0.81176477670669556") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) (ALUMIDE :title "3D DRUCK ALUMIDE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.381) (setq farbe2 "0.85490202903747559,0.87058830261230469,0.87058830261230469") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn ) ;;---------------------------------------------------------------------- ("BAUTEILE") ;;---------------------------------------------------------------------- (Pneumatik-Aktoren :title "PNEUMATIKATOREN" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.0,0.60000002384185791,1.0") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Pneumatik-Aktoren (Pneumatikteile :title "PNEUMATIKTEILE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.84705889225006104,0.84705889225006104,0.84705889225006104") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Pneumatik-Aktoren ;;---------------------------------------------------------------------- (Ventile :title "VENTILE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.0,0.0,0.69411766529083252") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Ventile (Sensoren :title "SENSOREN" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "1.0,1.0,0.20000001788139343") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Sensoren ;;---------------------------------------------------------------------- (Druckschlauch :title "PNEUMATIKSCLAUCH" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.20) (setq farbe2 " 0.0,0.60000002384185791,1.0") (setq Transparenz 0.5) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Druckschlauch (Vakuumschlauch :title "VACUUMSCHLAUCH" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.20) (setq farbe2 "0.29019609093666077,0.61568629741668701,0.38823533058166504") (setq Transparenz 0.5) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Vakuumschlauch ;;---------------------------------------------------------------------- (KabelStecker :title "KABEL & STECKER" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "1.0,0.50196081399917603,0.40000003576278687") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;KabelStecker (Energieketten :title "ENERGIEKETTEN" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.4) (setq farbe2 "0.25490197539329529,0.25490197539329529,0.25490197539329529") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Energieketten ;;---------------------------------------------------------------------- ;;---------------------------------------------------------------------- (Motoren :title "MOTOREN" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.0,0.40000003576278687,0.40000003576278687") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;KabelStecker (Getriebe :title "GETRIEBE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 1.40) (setq farbe2 "0.30196079611778259,0.45098042488098145,0.40000003576278687") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Energieketten ;;---------------------------------------------------------------------- (Transportgurt :title "TRANSPORTGURT" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 2.75) (setq farbe2 "0.40000003576278687,0.40000003576278687,0.40000003576278687") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Transportgurt (Transportsicherungen :title "TRANSPORTSICHERUNG" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte nil) (setq farbe2 "1,0,0") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Transportsicherungen ;;---------------------------------------------------------------------- (Schweissnaehte :title "SCHWEISSNAHT" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 7.85) (setq farbe2 "0.8784313725490196,0.44313725490196076,0.12156862745098039") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;Schweissnaehte (HILFSTEILE :title "HILFSTEILE" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 0.00000001) (setq farbe2 "0.94117653369903564,0.31764706969261169,0.36078432202339172") (setq Transparenz 0.8) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;HILFSTEILE ;;---------------------------------------------------------------------- (BEISTELLUNG :title "BEISTELLUNG" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte 0.00000001) (setq farbe2 "0.074509806931018829,0.7568628191947937,0.19607844948768616") (setq Transparenz 0) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;HILFSTEILE (MASSENLOS :title "ohne Masse" :title-alignment :center :toggle-type :grouped-toggle :push-action (progn (setq dichte nil) (setq farbe2 "1,0,0") (setq Transparenz 0.8) (setq farbe (sd-rgb-to-color (read-from-string farbe2))) );endprogn );;MASSENLOS ;;---------------------------------------------------------------------- ("Farbe & Dichte") (dichte :title "Dichte [kg/dm³]" :value-type :positive-number :initial-optional t );;dichte (Transparenz :value-type :positive-number :initial-optional t );;Transparenz (farbe :value-type :rgb-color :title (sd-multi-lang-string "Color" :german "Farbe") ; :after-input (display FARBE) );;farbe (Kantenfarbe :value-type :rgb-color :initial-value 0 :title (sd-multi-lang-string "Edgecolor" :german "Kantenfarbe") ; :after-input (display FARBE) );;Kantenfarbe ("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: ~A" (sd-inq-obj-pathname PART)))) (display " ") (display (format nil "Werkstoff wie im PDM zuletzt gespeichert ~A " (sd-inq-item-attribute Part "LESATECH_BOM_ATTR" :Lesa_HLZ_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 (and DelTeileig (not (sd-inq-obj-parent-contents-read-only-p part))) (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)) (if dichte nil (setq Dichte (/(sd-inq-part-density part) 1000)) );;if (sd-call-cmds (set_part_base_density :parts part :dens (/ dichte 1000))) (sd-call-cmds (set_part_base_transparency :parts part :transp Transparenz :complete)) (part_prop :the_part (sd-inq-obj-pathname part) :BASE_EDGE_COLOR Kantenfarbe );;part_prop (if Bericht (progn (display "Bericht") (display "-------") (sd-call-cmds (display (format nil "Teil: ~A" (sd-inq-obj-pathname PART)))) (display " ") (display (format nil "Werkstoff wie im PDM zuletzt gespeichert ~A " (sd-inq-item-attribute Part "LESATECH_BOM_ATTR" :Lesa_HLZ_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