[求助]属性块？？？

yaoyk79

我在插入属性块后，属性值根据提示输入后
发现对象数据序列中有(1 . "")，而不是输入值
真疑惑？请指教！

meflying

你看的是哪个对象？又是如何查看的？
估计你是查看了BLOCK对象中的属性，而你应该查看的是INSERT对象中的属性

yaoyk79

我是按照以下程序查看的
(Defun ex(/ 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)
)

meflying

果然是我说的错误，，，，看看下面这个程序，希望能看出什么来，从而明白BLOCK对象和INSERT对象的不同
(defun Readatt( / ent)
  (setq ent (car (entsel)))
  (while (= (cdr (assoc 0 (entget (setq ent (entnext ent))))) "ATTRIB")
    (princ "\n")
    (princ (cdr (assoc 1 (entget ent))))
  )
  (princ)
)

yaoyk79

非常感谢！还让我更了解了（entnet）函数！！！