adison 发表于 2003-7-11 17:35:00

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

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

gz-yzy 发表于 2003-7-17 08:35:00

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

meflying 发表于 2003-7-17 09:05:00

命令：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)
)
页: [1]
查看完整版本: 关于autoCAD块自定义属性的提取