[编程交流] 从属性中提取数据

(cdr (assoc 2 (entget (car (entsel))))

(defun vanilla_getatts ( e / enx L )
 (cond 
   ( (not (eq 'ENAME (type e))) (prompt "\nNo ename selected.") )
   ( (not (member '(0 . "INSERT") (setq enx (entget e)))) (prompt "\nNo block selected.") )
   ( (/= 1 (logand 1 (cdr (assoc 66 enx)))) (prompt "\nBlock is not attributed.") )
   ( (setq e (entnext e)) (setq enx (entget e))
     (while (= "ATTRIB" (cdr (assoc 0 enx)))
       (setq L (cons (cons (cdr (assoc 2 enx)) (cdr (assoc 1 enx))) L))
       (setq e (entnext e)) (setq enx (entget e))
     )
     L
   )
 )
); defun vanilla_getatts

(vanilla_getatts (car (entsel "\nPick attributed block: ")))

(("DUMMY_103" . "2") ("cutnam" . "Szoba") ("pbn" . "lam.park.") ("ROOM_AREA" . "10,90 m") ("ROOM_NUMBER" . "A.203"))

(defun c:test ( / lst ans)
(setq lst (vanilla_getatts (car (entsel "\nPick attributed block: ")))))
(setq tagname (getstring "Please enter tag name"))
(setq x 0)
(repeat (length lst)
(if (= (nth 0 (nth x lst)) tagname)(setq ans (cdr (assoc tagname lst))))
(setq x (+ x 1))
)
(alert (strcat "Value is = " ans))
)