---

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

---

Hi Ludger,

mir ist icht ganz klar was Du erreichen moechtest. Die Codezeilen

                  (sd-defdialog 'material_Messing
                    :action '(material_Messing)

                  complete
                  ....

sind entweder falsch oder unvollstaendig (Klammerung). Was soll das 'complete' an dieser Stelle? Wenn Du Dir die Docu zum Integration Kit/Dialog Generator (documentation/integration_kit/reference/dg_manual.html) anschaust, wirst Du sehen, dass es obige Syntax von sd-defdialog nicht gibt!!

Gruss Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ludger,

Du solltest Dir mal die Dokumentation zu sd-defdialog durchlesen!
Damit kann man wirklich tolle Dinge machen.

Als Loesung Deines Problems koennte z.B. folgender kleiner
Dialog dienen:

(sd-defdialog 'material_Messing
  :variables
  '((A_PART :value-type : part
    :title "Teil"
    : prompt-text "Bitte Teil selektieren."
    :initial-value nil))
  : ok-action
  '(sd-call-cmds
    (progn
      (set_part_inst_color  : parts A_PART :color :clr) ; Teileeigenschaften Farbe loeschen
      (set_part_base_color  : parts A_PART :color :rgb 0.991,0.873,0.394) ; Grundeigenschaften Farbe aendern  -> Farbangabe aus
; Propertiemenue -> Inquire
      (set_part_inst_density  : parts A_PART :dens :clr) ; Teileeigenschaften Dichte loeschen
      (set_part_base_density  : parts A_PART :dens 0.00845) ; Grundeigenschaften Dichte aendern
      )))

Ausserdem solltest Du oben in jedem Deiner LISP Source Files etwas wie dies stehen haben:

(in-package :elektra-beckum)
(use-package : oli)

Viele Gruesse,
Markus

P.S.: Jeglicher Leerschritt zwischen : p und : o im Code ist nur da, um die Smilies zu umgehen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP