---

Hallo zusammen!

Ich möchte in Annotation mit der Stücklisten Funktionalität den Namen des Ansichtssatzes (ggf. können mehrere daran hängen), der an dem (STL-)Teil hängt, in der STL ausgeben.

Im Integration Kit habe ich bereits den Befehl "sd-inq-part-layouts" gefunden, der die Layouts in einer Liste mit Selitems zurückgibt. An dieser Stelle komme ich jedoch nicht weiter, da ich mit dem Inhalt der Liste nichts anfangen kann.

Die Idee ist, diese Liste auszuwerten und dann im Startup vom OSM ein entsprechendes Attribut per docu-register-bom-attr für die STL zu erzeugen.

Hat da jemand vielleicht eine Idee?

Mit freundlichem Gruß,
C. Sandmann

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

---

@Christian

Schau mal da: http://ww3.cad.de/foren/ubb/Forum29/HTML/000926.shtml

Im Prinzip siehst du an diesem Beispiel, wie man den Besitzer des
Ansichtssatzes am aktuellen Blatt abfragen kann.

HTH

Gruss
RainerH.

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

---

ganz grob:

Code:

---

;; Ansichtssatz
(defun bom-attribute-as-1st (selitem)
  (let ((as (sd-inq-part-layouts selitem)))
  (when as
    (oli::sd-inq-obj-basename (first as)))
    )
  )

---

oder wenn es alle sein sollen:

Code:

---

(defun bom-attribute-as-all (selitem)
  (oli::sd-string-trim (format nil "~{~A ~}"
    (mapcar #'oli::sd-inq-obj-pathname (oli::sd-inq-part-layouts selitem))))
  )

---

------------------
Seamonkey Firefox Thunderbird  Seamonkey auf deutsch

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

---

Hallo Wolfgang, Hallo RainerH!

Vielen Dank für Eure Antworten!

@Wolfgang: Das ist genau das, was ich möchte! Super!
In Deinem zweiten Code muss man wohl das sd-inq-obj-pathname mit sd-inq-obj-basename  ersetzen, dann funktioniert es!

In meiner Konfiguration steht nun folgendes:

Code:

---

;; Ansichtsatzname
(defun vo-bom-attribute-as-all (selitem)
(let ((bom-attribute-as-all (sd-inq-part-layouts selitem)))
  (if bom-attribute-as-all
      (sd-string-replace  
        (oli::sd-string-trim (format nil "~{~A ~}"
            (mapcar #'oli::sd-inq-obj-basename (oli::sd-inq-part-layouts selitem))))
        " " ";")
      (setf bom-attribute-as-all " " )
    ) ;if
  ) ;let
); defun

;; Ansichtsatzname
(docu-unregister-bom-attr "bom-attribute-as-all")
(docu-register-bom-attr
  :attr-type      "bom-attribute-as-all"
  :attr-title    "AS-Namen"
  :attr-display  t
  :attr-value-fnc #'vo-bom-attribute-as-all)

---

Vielen Dank!
C. Sandmann

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

---

Hallo Christian,

>> @Wolfgang: Das ist genau das, was ich möchte! Super!
fein.
>> In Deinem zweiten Code muss man wohl das sd-inq-obj-pathname mit
>> sd-inq-obj-basename  ersetzen, dann funktioniert es!

Code:

---

(string-right-trim  ":" (format nil "~{~A:~}"  '(a b c)))

---

oder eben

Code:

---

(defun bom-attribute-as-all (selitem)
  (string-right-trim ";" (format nil "~{~A;~}"
    (mapcar #'oli::sd-inq-obj-pathname (oli::sd-inq-part-layouts selitem))))
  )

---

sd-string-trim kann man keine abzuschneidene Zeichen mit geben. Allerdings: string-right-trim stolpert evtl in aelteren Versionen uebr japanisch oder ÄÖÜäöü. Ab 15.xx sollte das kein Problem sein (falls es vorher eins war!)

Es funktioniert auch mit pathname!  Deine Spezifikation war unspezifiert.   

Wolfgang

------------------
Seamonkey Firefox Thunderbird  Seamonkey auf deutsch

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