---

Hi, benutz doch einfach Code statt Zitat dann bleiben die Smilies weg

Code:

---

(in-package :custom)
(use-package :OLI)

;;--------------------------------------------------------------------------

(
sd-defdialog 'LibAttr
:Dialog-title '(sd-multi-lang-string "set lib_attr" :german "Lib_Attr vergeben")
:variables

  '(
    (teil  :value-type    Part
           :multiple-items nil
           :title (sd-multi-lang-string "Part" :german "Teil"))

(LibID :value-type :string
:title (sd-multi-lang-string "Lib ID" :german "Lib ID")
:initial-value "XYZ"
  Proposals ("XYZ"))

(LibName :value-type :string
:title (sd-multi-lang-string "Lib name" :german "Lib Name"))
) ;;variables

   :local-functions
'((set_lib_attr ()
(setq path (sd-inq-obj-pathname teil))
(sd-set-library-attr (sd-pathname-to-obj path) LibID LibName))) ;;local functions
     Ok-action '(set_lib_attr)
  )

---

------------------
Gruss Friedhelm

[Diese Nachricht wurde von friedhelm at work am 31. Mai. 2013 editiert.]

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