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

龙龙仔 · 发表于 2002-3-21 10:34:00

当块中含有属性时，在遍历块时只能取得”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 · 发表于 2002-3-21 20:12:00

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

jingsabing · 发表于 2002-6-7 12:55:00

下面是我取块的属性值并再写给块的代码:
(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 &quot_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" &quot_TEMPLATE")
      (setvar "CLAYER" &quot_TEMPLATE")
   );end-if

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

发表回复

精选推荐

浏览过的版块