---

Hallo,
wieso kann ich folgendes nicht als Variable in den Dialog einbinden?

(format nil "~a.~a" (sd-inq-obj-contents-name (oli::sd-inq-curr-part)) "stp")

Gruß
Edgar

(in-package :eadm)
(use-package  :Oli)

(oli::sd-defdialog 'step-erzeugen
:variables
  `(
    ("Step erzeugen")
    ("vom aktiven")
    ("Teil nach")
    ("S:/tmp/nc") 
;;  (" (format nil "~a.~a" (sd-inq-obj-contents-name (oli::sd-inq-curr-part)) "stp") ")
)
rompt-text "alles okay?"
k-action  '(export-step)

)
 
(export 'export-step)

(defun export-step ()
(oli:sd-with-current-working-directory "S:/tmp/nc"
(step_export :SELECT (oli::sd-inq-curr-part)
  :FILENAME (format nil "~a.~a" (sd-inq-obj-contents-name (oli::sd-inq-curr-part)) "stp")
  :OVERWRITE
)
)
)

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

---

Zitat:

---

Original erstellt von edgar:
Hallo,
wieso kann ich folgendes nicht als Variable in den Dialog einbinden?

(format nil "~a.~a" (sd-inq-obj-contents-name (oli::sd-inq-curr-part)) "stp")

---

Weil die Syntax für Variablen in Dialogen völlig anders ist. Ich empfehle, erst einmal ein paar Beispiele zu studieren.

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

Mir rollen sich bei diesem "Dialog" zwar gerade die Fussnägel hoch  , aber mal egal.

Code:

---

:variables
....
(subtitle5 :title "dummy")
...
:after-initialization
  '(sd-set-variable-status 'subtitle5 :title
      (format nil "~a.~a" (sd-inq-obj-contents-name
                            (sd-inq-curr-part)) "stp") "))

---

aber es gibt deutlich bessere und huebschere Methoden, z.b.:

Code:

---

(defun curr-part-2-step ()
(when (equal :yes
              (sd-display-question
              (format nil "Step erzeugen vom aktiven Teil nach S:/tmp/nc/~A.stp"
                      (sd-inq-obj-contents-name (sd-inq-curr-part)))))
  (export-step))
  )

---

Wenn Dir ein dialog angenehmer ist: mal ueber :Precondition nachlesen.  Und ueber den value type :filename.

------------------
● Seamonkey Firefox Thunderbird ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

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

---

 

Zitat:

---

Original erstellt von der_Wolfgang:

aber es gibt deutlich bessere und huebschere Methoden, z.b.:

Code:

---

(defun curr-part-2-step ()
(when (equal :yes
              (sd-display-question
               (format nil "Step erzeugen vom aktiven Teil nach S:/tmp/nc/~A.stp"
                      (sd-inq-obj-contents-name (sd-inq-curr-part)))))
   (export-step))
  )

---

---

Ja, danke, so hatte ich mir das ursprünglich auch überlegt. Aber aufgrund miserabler Lisp-Kenntnisse hab ich  dann den geposteten Weg eingeschlagen, der leider aber auch scheiterte.

Gruß
Edgar

[Diese Nachricht wurde von edgar am 31. Okt. 2008 editiert.]

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