---

Hallo,

ich habe ein Macro geschrieben mit dem eine Baugruppe als PKG-Datei gespeichert wird, mit der Inhalts-ID als Dateiname.

Es können nur reservierte Baugruppen gespeichert werden. Ich möchte aber das auch nicht reservierte Baugruppen gespeichert werden können.

In der Dokumentation habe ich keine Möglichkeit gefunden, das einzustellen.

Ist es wirklich nicht möglich schreibgeschützte Baugruppen zuwählen ?

Wie funktioniert das in dem Macro "Objects flag" ?
(load "dbdialog")

Ich wäre Euch dankbar für die Lösung dieses Problems.

Unten findet Ihr das Macro.

Tschuess
Martin.M

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(sd-defdialog 'gr_pkg-export
  :dialog-title "PKG-Export"
  :variables
  '((A_ASSEM :value-type :assembly
    :modifies :contents
    :title "Baugruppe"
    :prompt-text "Baugruppe auswaehlen."
    )
  )

  :ok-action
  '(progn
      (save_package A_ASSEM
      :FILENAME (FORMAT NIL "C:/temp/~A.pkg" (SD-INQ-OBJ-CONTENTS-NAME A_ASSEM ))  :OVERWRITE
      )
  )
)

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

[Diese Nachricht wurde von Martin.M am 12. Jan. 2005 editiert.]

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

---

Ich rate mal: Wenn Du in Deinem Code ausdruecklich ankuendigst, dass Du das Modell veraenderst (":modifies :contents"), ist es kein Wunder, dass OSDM Dich keine schreibgeschuetzten Teile auswaehlen laesst.

Probier's also mal mit ":modifies nil".

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

Hola!

Quick and Dirty würde ich deine ok_action so schreiben.

:ok-action
'(progn
(setq content_merker "aus")
(setq instance_merker "aus")
( if (OLI::sd-inq-obj-contents-read-only-p object_struct)
(setq content_merker "an")
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_CONTENTS :Q_DBRO :OFF))
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_CONTENTS :Q_SDRO :OFF))
) ;ende_if
( if (OLI::sd-inq-obj-instance-read-only-p object_struct)
(setq instance_merker "an")
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_INSTANCE :Q_DBRO :OFF))
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_INSTANCE :Q_SDRO :OFF))
) ;ende_if
(save_package A_ASSEM
:FILENAME (FORMAT NIL "C:/temp/~A.pkg" (SD-INQ-OBJ-CONTENTS-NAME A_ASSEM )) :OVERWRITE
)
(if (string/= content_merker "an")
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_CONTENTS :Q_DBRO :ON))

( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_CONTENTS :Q_SDRO :ON))
) ;ende_if
(if (string/= instance_merker "an")
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_INSTANCE :Q_DBRO :ON))
( OLI::sd-call-cmds ( OLI::OBJFLAGS A_ASSEM :Q_INSTANCE :Q_SDRO :ON))
) ;ende_if
)

------------------
Viele Grüsse aus dem Schwabenländle

Massimo Castell

------------------
DIE inoffizielle Hilfeseite zum OneSpace Designer
http://osd.cad.de

[Diese Nachricht wurde von Castell am 12. Jan. 2005 editiert.]

[Diese Nachricht wurde von Castell am 12. Jan. 2005 editiert.]

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

---

Hallo Claus,

vielen Dank für die schnelle Lösung, es funktioniert. 

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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

---

Hallo Castell,

vielen Dank für Deine Antwort.

Da haben wir jetzt wohl alle gleichzeitig geschrieben.

Die Lösung von Claus funktioniert, schon.

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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