Hallo,
was mache ich falsch?
Das ist die Datei die mein Hauptmenü erstellt:
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Menü SolidDesigner (extra Elektra-Beckum) L.Timmer /12/2001
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; (load "C:/Programme/CoCreate/SolidDesigner 9.1.0.15/SDAN_Anpassungen/menue_vorlage_fuer_solddesigner.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì Ä Ø ö Î Ö Ú ü Ï Ü Û ß Þ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(display "Lade weitere SolidDesigner Menues...") ;Box für die Ausgabe
(setf *sd-anpassung-dir* (getenv "SD_ANPASSUNG_DIR")) ;Umgebungsvariable einladen (z.B. Computername, Username...)
(setf *text-editor* "write ")
(setf *soliddesigner-programm-dir* "C:/Programme/CoCreate/SolidDesigner 9.1.0.15")
;die nächsten 5 Zeilen erzeugen einen Hauptmenueknopf
(sd-add-menu-button "elektra-beckum-SD"
:label "EB SD"
arent '("TASK" "SolidDesigner") ; im Hauptmenuebereich (TASK) der Applikation SolidDesigner
:mapmenu "elektra-beckum-SD"
)
;die folgenden Zeilen sind der Hauptmenueinhalt, hier werden Untermenues aufgerufen
(sd-create-menu "elektra-beckum-SD"
:title "EB SD extra"
:contents
'((:buttonBox "biegeberechnung"
:title "Biegeberechnung"
:buttons
(
(biegeberechnung_menue :label "Biegeberech.")
)
)
(:buttonBox "namenstausch"
:title "Teilename"
:buttons
(
(uebertrage_inhalts_id_in_name :label "Inh.-ID z Na")
(uebertrage_inhalts_id_in_name_solidlibrary :label "Norm Name")
)
)
(:buttonBox "dichteneditor"
:title "Dichteneditor"
:buttons
(
(material_Messing :label "Messing")
)
)
)
)
Am Punkt *** material-Messing *** möchte ich dieses Lisp- Program ausführen:
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Dichteneditor (im Menue EB SD extra) L.Timmer /12/2001
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; (load "C:/Programme/CoCreate/SolidDesigner 9.1.0.15/SDAN_Anpassungen/EB_Programme/dichten_menue.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ä Ì Ä Ø ö Î Ö Ú ü Ï Ü Û ß Þ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(sd-defdialog 'material_Messing
:action '(material_Messing)
complete
(defun material_Messing ()
(set_pers_context :none)
(set_text_wid_value_f "prompt" "Teil angeben.")
(current_part :interactive)
(put-buffer "complete")
(set_part_inst_color arts :current :color :clr) ; Teileeigenschaften Farbe loeschen
(set_part_base_color arts :current :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe aendern -> Farbangabe aus
; Propertiemenue -> Inquire
(set_part_inst_density arts :current :dens :clr) ; Teileeigenschaften Dichte loeschen
(set_part_base_density arts :current :dens 0.00845) ; Grundeigenschaften Dichte aendern
(put-buffer "complete")
)
)
Bitte um Antwort. Es eilt!!
------------------
MfG
Ludger
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP