关于autoCAD块自定义属性的提取

adison

请教各位大侠，定义好AutoCAD块并给块定义属性(ATTRIBUTE)，自定义属性为“TEXT"，请问如何在LSP或VBA程序中提取autoCAD块属性，并修改。

gz-yzy

我也想知道？有谁能提示一下呀！

meflying

命令：sblock——
(Defun c:SBlock (/ slist sname etbll)
  (setq slist (entget (ssname (ssget) 0)))
  (SetQ sname (Cdr (Assoc 2 slist))
        slist (TblSearch "BLOCK" sname)
  )
  (SetQ sname (Cdr (Assoc -2 slist))
  )
  (While sname
    (setq slist (entget sname))
    (if (/= (cdr (assoc 3 slist)) nil)
    (princ (cdr (assoc 1 slist)))
      )
    (setq sname (EntNext sname))
  )
  (princ)
)