Dobrý den. Nevíte prosím jak v Lispu získat hodnoty atributů bloku pro další zpracování? Pro běžné entity používám příkaz (entget) a dále mohu pracovat s daty entity. U bloků získám pouze základní data, ale hodnoty atributu jsem nenašel ani v rozšířených datech. Kde jsou ve výkresu uloženy?

Dostal jsem tyti dve funkce a s uspechem je pouzivam. Predavam dal.

Roman Pavlacka

;---Vrati hodnotu atributu
(defun RetValAtt (EName AttTag / EData rr)
  (setq EData (entget EName))  ;Get initial info
     ;loop through all attributes in block
  (while
    (= "ATTRIB"
       (cdr
  (assoc '0
  (setq EData (entget (entnext (cdr (assoc '-1 EData)))))
  )
       )
    )
     (if (WCMatch (cdr (assoc '2 EData)) AttTag)
       (setq rr (cdr (assoc '1 EData)))
     )
  )
  (eval rr)
)

;---Routine to replace a attribute in a block with a new value
(defun RepAtt (EName AttTag AttVal / EData return)
  (setq EData (entget EName))  ;Get initial info
  (setq return nil)   ;loop through all attributes in block
 
  (while
    (= "ATTRIB"
       (cdr
  (assoc '0
  (setq EData (entget (entnext (cdr (assoc '-1 EData)))))
  )
       )
    )
    (if (WCMatch (cdr (assoc '2 EData)) AttTag)
    (progn
          (entmod (subst (cons '1 AttVal) (assoc '1 EData) Edata))
   (setq return 1) 
    )
    )
  )
 ;return nil
 (eval return)
)