[求助]如何在遍历单层块时要取得”ATTRIB”的表值

龙龙仔

当块中含有属性时，在遍历块时只能取得”ATTDEF”的表值，
请问在遍历块时要如何取得”ATTRIB”的表值。

用下列程序在单层块中遍历块时取得的是”ATTDEF”的表值,在巢状块(多层块)中遍历块时却能得到”ATTRIB”的表值。
但要如何在遍历单层块时要取得”ATTRIB”的表值。

(defun C:BLK_ENT (/ A BLK E)
  (defun DIMLIST (E / BLK)
;;;(print (cdr (assoc 2 (entget E))))
    (setq BLK (tblsearch "block" (cdr (assoc 2 (entget E)))))
    (setq E (cdr (assoc -2 BLK)))
    (while E
      (if (or (= "INSERT" (cdr (assoc 0 (entget E))))
              (= "DIMENSION" (cdr (assoc 0 (entget E))))
          )
        (DIMLIST E)
        (print (entget E))
      )
      (setq E (entnext E))
    )
    (princ)
  )
  (setq A (entsel "\n请选图块: "))
  (if (or (= "INSERT" (cdr (assoc 0 (entget (car A)))))
          (= "DIMENSION" (cdr (assoc 0 (entget (car A)))))
      )
    (progn
   ;;;(print (cdr (assoc 2 (entget (car A)))))
      (setq BLK (tblsearch "block" (cdr (assoc 2 (entget (car A))))))
      (setq E (cdr (assoc -2 BLK)))
      (while E
        (if (or        (= "INSERT" (cdr (assoc 0 (entget E))))
                (= "DIMENSION" (cdr (assoc 0 (entget E))))
            )
          (DIMLIST E)
          (print (entget E))
        )
        (setq E (entnext E))
      )
    )
  )
  (princ)
)

e2002

我在xd的论坛上已经贴出了代码

jingsabing

下面是我取块的属性值并再写给块的代码:
(if (ssget "x" (list (cons 0 "INSERT") (cons 2 "B_DRAWING_DATA")))
    (progn
      (setq B_drawing_block_sset (ssget "x" (list (cons 0 "INSERT") (cons 2 "B_DRAWING_DATA"))))
      (setq B_drawing_attrib_ent (entnext (ssname B_drawing_block_sset 0)))
      (while (/= (cdr (assoc 0 (entget B_drawing_attrib_ent))) "SEQEND")
        (setq B_drawing_attrib_data (cdr (assoc 1 (entget B_drawing_attrib_ent))))
        (setq B_drawing_attrib_list (append B_drawing_attrib_list (list B_drawing_attrib_data)))
        (setq B_drawing_attrib_ent (entnext B_drawing_attrib_ent))
      );end-while取B_DRAWING_DATA块的属性值
      (setq B_drawing_dwgset (ssget "x" (list (cons 8 "_TEMPLATE"))))
      (if B_drawing_dwgset
        (command "erase" B_drawing_dwgset B_drawing_block_sset "")
        (command "erase" B_drawing_block_sset "")
      );end-if
      (setvar "OSMODE"        0)
      (command "insert" B_drawing_name "0,0,0" B_drawing_scale "0")
      (command "zoom" "e")
      (setvar "attdia" 0)
      (setq B_drawing_date_layer (getvar "CLAYER"))
      (if (tblsearch "layer" "_TEMPLATE")
        (setvar "CLAYER" "_TEMPLATE")
      );end-if