---

Hallo,

gibt es ne Möglichkeit aus dem Annotation des OSD eine einzelne Ansicht als mi oder gleich als dxf zu speichern.
So muss ich das immer ins Drafting ziehen und dann das Teil speichern. Aber geht vielleicht auch schneller.

------------------
Gruß Peter

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

---

@Peter

... nateurlich geht alles schneller 

Versuch es mal damit:

Code:

---

(in-package  :examples)
(use-package  :oli)

(sd-defdialog 'am-ansicht-speichern
  :dialog-title "Ansicht speichern"
  :toolbox-button t
  :variables
  '((ansicht
      :selection  (*sd-anno-view-seltype*)
      :title "Ansicht"
      :prompt-text "Zu speichernde Ansicht angeben."
      :initial-value nil
    )
    (mi-dateiname
      :value-type :filename
      :fileType :mi
      :add-suffix nil
      :if-exists :confirm-overwrite
      :initialPattern (format nil "~a_~a.mi" (sd-am-inq-drawing-no) (sd-am-inq-name ansicht))
      :title "MI-Datei:"
      :prompt-text "Dateiname der zu speichernden Ansicht angeben."
      :initial-optional t
      :after-input
      (ansicht-speichern-mi)
    )
    (dxf-dateiname
      :value-type :filename
      :fileType :dxf
      :add-suffix nil
      :if-exists :confirm-overwrite
      :initialPattern (format nil "~a_~a.dxf" (sd-am-inq-drawing-no) (sd-am-inq-name ansicht))
      :title "DXF-Datei:"
      :prompt-text "Dateiname der zu speichernden Ansicht angeben."
      :initial-optional t
      :after-input
      (ansicht-speichern-dxf)
    )   
  )
  :local-functions
  '((ansicht-speichern-mi ()
      (progn
        (oli::sd-execute-annotator-command :cmd (format nil "STORE MI  SELECT '~a' CONFIRM DEL_OLD '~a' END" (sd-am-inq-unique-name ansicht) (nth 0 mi-dateiname)))
      )
    )
    (ansicht-speichern-dxf ()
      (progn
        (oli::sd-execute-annotator-command :cmd (format nil "STORE DXF SELECT '~a' CONFIRM DEL_OLD '~a' END" (sd-am-inq-unique-name ansicht) (nth 0 dxf-dateiname)))
      )
    )   
  )
)

---

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 07. Jun. 2006 editiert.]

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

---

Hallo Rainer,

das nenn ich mal prompte bedienung.
klappt wunderbar. hoffe die 10 units sind ausreichend....

------------------
Gruß Peter

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

---

Hallo Rainer,

... können auch wir sehr gut gebrauchen!

Leider schlägt die Geschichte mit folgender Meldung fehl:

Kein Schreibzugriff für die Datei C:/temp/10061712_Ansicht allgemein1.mi.

Schreiben kann ich aber in das Verzeichnis ?!

Hast Du eine Idee?

Danke, Gruss Stephan

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