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

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

请教各位大侠，定义好块并给块定义属性(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)
)

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

发表回复

精选推荐