---

Hallo Alle,

Ich bin keine Lisper...wie komme ich an der werkstoff attribute was durch techsoft SD Power zugeorden war?

Meine Lisp program muss der teilebaum mit werkstoff attributen schrieben:

(in-package :my-special-bom-attr);define my own package
(use-package  li);include the package oli in my new package

(defun cvs-print-tree (node name)
  (declare (ignore name))

  (let* (
; ---------------------------------VARIABLE DECLARATION----------------------------------------
        (objname (BrowserNode-objPname node));assign BrowserNode-objPname to objname
        (path (BrowserNode-objPath node));assign path of BrowserNode-objPath to path
        (obj (oli:sd-pathname-to-obj path));define obj = of sd object with pathname path
        (Material (bomattr-get-material obj))
        ;(Material (ts-werkstoff-abfragen obj)) ;techsoft's ts --- how do I get to it?
             
        )
; ---------------------------------VARIABLE DECLARATION END---------------------------------------
   
; ---------------------------------DO SOMETHING USING ABOVE VARIABLES-----------------------------   
    (if (not (eq Material nil)) ;get the Bill of Materials material attribute of object obj and assign it to Material ;;anything not evaluating to NILL is automatically TRUE therefore if Material returns not nill then it is true
        (progn
        (setq CommaMaterial (concatenate 'string "," Material))
        (setq NewString (concatenate 'string objname CommaMaterial))
        )
       
        ;;else
        (setq NewString (concatenate 'string objname ",keine"))
    );;end if
   
    (if (sd-string=(BrowserNode-objPath node) (BrowserNode-objPath node))
     
      NewString
     
      ) ;; end if         
    )
  )
 
(sd-browser-add-interrogator "parcel-gbrowser"
                            :interrogator-type :tree-print-name
                            :interrogator-func 'cvs-print-tree)
                           
;;-----------------------------------------------------------------------------
;; function to inquire attached BOM information of an SD part or assembly
;;-----------------------------------------------------------------------------
(defun bomattr-get-material (object)
  (let ((attr (sd-inq-item-attribute object "MY_SPECIAL_BOM_ATTR"
                                    :values :attachment :contents)))
    (if attr (getf attr :material) nil)
  )
)
;;-----------------------------------------------------------------------------                           

Gruß,

Jean

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

---

Guckst du hier

------------------
meine LISP-Makros sind auf osd.cad.de
Disclaimer
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

der package war doch TS-SD-STL:

Dass heiß:

(in-package :my-special-bom-attr);define my own package
(use-package  li);include the package oli in my new package

(defun cvs-print-tree (node name)
  (declare (ignore name))

  (let* (
; ---------------------------------VARIABLE DECLARATION----------------------------------------
        (objname (BrowserNode-objPname node));assign BrowserNode-objPname to objname
        (path (BrowserNode-objPath node));assign path of BrowserNode-objPath to path
        (obj (oli:sd-pathname-to-obj path));define obj = of sd object with pathname path
        ;(Material (bomattr-get-material obj))
        (Material (TS-SD-STL::ts-am-stl-get-info-sel-item (sd-pathname-to-obj path) "WERKSTOFF")) ;techsoft's ts --- how do I get to it?
             
        )
; ---------------------------------VARIABLE DECLARATION END---------------------------------------
   
; ---------------------------------DO SOMETHING USING ABOVE VARIABLES-----------------------------   
    (if (not (eq Material nil)) ;get the Bill of Materials material attribute of object obj and assign it to Material ;;anything not evaluating to NILL is automatically TRUE therefore if Material returns not nill then it is true
        (progn
        (setq CommaMaterial (concatenate 'string "," Material))
        (setq NewString (concatenate 'string objname CommaMaterial))
        )
       
        ;;else
        (setq NewString (concatenate 'string objname ",keine"))
    );;end if
   
    (if (sd-string=(BrowserNode-objPath node) (BrowserNode-objPath node))
     
      NewString
     
      ) ;; end if         
  )
)
 
(sd-browser-add-interrogator "parcel-gbrowser"
                            :interrogator-type :tree-print-name
                            :interrogator-func 'cvs-print-tree)
                           
;;-----------------------------------------------------------------------------
;; function to inquire attached BOM information of an SD part or assembly
;;-----------------------------------------------------------------------------
(defun bomattr-get-material (object)
  (let ((attr (sd-inq-item-attribute object "MY_SPECIAL_BOM_ATTR"
                                    :values :attachment :contents)))
    (if attr (getf attr :material) nil)
  )
)
;;-----------------------------------------------------------------------------                           
HAT FUNKSIONIERT!!!

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

---

Tipps:

(if (not (eq Material nil)) ...) kann man viel einfacher schreiben als (if Material ...).

(if foo (do-this) nil) ist äquivalent mit (when foo (do-this))

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

Danke Alle!

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

---

tree_print.txt

Hier sind der sauber Lisp...

Was fehlt --> falsche text codierung richtig machen:bzw. "ß"-->"ß"

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

---

printBOM.lsp.txt RAW10mitLisp.xls.txt

Hallo Alle,

Ich habe eine excel-macro zusammen gebastert was der geschriebene baum schön zusammen fassen. Leider habe ich es nur auf MS Office 2007 getesten und es sieht so aus das es nicht gut by 98 funktioniert.

1) peudo ordners in OSD ausmachen
2) printBOM.lsp in OSD in schleppen
3) RAW10mitLisp.xls öffen
4) Sicherheid in Excel anpassen für macros
5) Gererate BOM knopf drucken

Cheers,

Jean.

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