---

Hallo miteinander!

ich versuche mich gerade an einem Stück Code das mir Informationen über den Rahmen des aktuellen Blattes in Annotation gib.
Mit

(am_sheet_resize :sheet (sd-am-inq-curr-sheet)
:manual-input :off :frame-type "A4H hoch")

kann ich den Rahmen des aktuellen Blattes durch "A4H hoch" ersetzen.

Wie kann ich jetzt abfragen welchen Rahmen das aktuelle Blatt jetzt hat? Ich hätte gerne als Ergebnis "A4H hoch". Mit "sd-am-sheet-struct-frame" komme ich nicht klar!

Kann mir bitte jemand einen Tipp geben.

Gruss

Stephan

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

---

Code:

---

  (setf shstruct (sd-am-inq-curr-sheet))
  (setf rahm (sd-am-sheet-struct-frame shstruct))
  (setf rahmname (sd-am-inq-name rahm))

---

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

@Stephan

als fertige Funktion so:

Code:

---

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

(defun rahmenabfrage ()
  (let (returnwert)
    (progn
      (setf returnwert nil)
      (setf returnwert (sd-am-inq-name (sd-am-sheet-struct-frame (sd-am-inq-sheet (sd-am-inq-curr-sheet)))))
      returnwert
    )
  )
)

(display (examples::rahmenabfrage)) => aktueller Rahmenname

---

HTH

Gruss
RainerH.

[Diese Nachricht wurde von RainerH am 24. Nov. 2005 editiert.]

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

---

Hallo zusammen!

Suuuuuper!! So komme ich weiter!

Danke schön!

Gruss
Stephan

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

---

Tipp: Vor lauter "let" und "setf" sieht man da ja den eigentlichen Code nicht mehr. In diesem Falle braucht man nicht eine einzige Variable. "progn" in einem "defun" braucht man auch nicht.

Code:

---

(defun rahmenabfrage ()
  (sd-am-inq-name
    (sd-am-sheet-struct-frame
      (sd-am-inq-sheet (sd-am-inq-curr-sheet))))
)

---

Claus

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

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

---

Hallo Claus!

... na so gefällt mir das!!

  Herzlichen Glückwunsch zum 1000. Beitrag!  

Auch Dir herzlichen Dank!

Stephan

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

---

@claus

Beim einen Suuuuuper!!
beim anderen wieder mal gleich eine auf die Birne !!

Bitte versteh es aber als Spass 

Auf jeden Fall wieder was dazugelernt - DANKE

Gruss
RainerH.

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

---

 

Zitat:

---

Original erstellt von RainerH:
beim anderen wieder mal gleich eine auf die Birne !!

---

Stimmt, das haette ich besser machen koennen. Zum Beispiel so:

Zuerst loben. Naemlich dafuer, dass Du ganz richtig angeregt hast, die Abfrage, wie sich das gehoert, in eine huebsche kleine Lisp-Funktion zu verpacken. Und dafuer, dass Du ganz ordentlich alles in ein eigenes Package gestopft hast. Vorbildlich!

Und erst DANN haette die Birnenattacke kommen sollen       

@Stephan: Danke fuer den Glueckwunsch! Ober, virtuelle Lokalrunde!

Claus

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

[Diese Nachricht wurde von clausb am 24. Nov. 2005 editiert.]

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