请教各位老师，怎样用lisp得到图块的属性呢？

raohuan · 发表于 2003-5-12 19:45:00

Taoyimaier · 发表于 2003-5-12 20:59:00

(defun c:getatt       (/ blk ent totalstr)
  (while (setq blk (car (entsel "\n选择块参照")))
(setq totalstr "")
(if       (/= (cdr (assoc '0 (entget blk))) "INSERT")
   (alert "你选的不是块参照，重新选择")
   (progn
      (if (not (setq ent (entnext blk)))
      (alert
         "你选的块参照不包含属性参照，重新选择"
      )
      (progn
         (while (/= (cdr (assoc '0 (entget ent))) "SEQEND")
            (setq totalstr (strcat totalstr
                                 "\n"
                                 (cdr (assoc '1 (entget ent)))
                           )
            )
            (setq ent (entnext ent))
         )
         (alert totalstr)
      )
      )
   )
)
  )
)
我也是在这个网站上学到的这个东西，只是把程序写了下来