[求助]属性块？？？

yaoyk79 · 发表于 2003-12-2 09:21:00

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

meflying · 发表于 2003-12-2 10:11:00

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

yaoyk79 · 发表于 2003-12-2 10:18:00

我是按照以下程序查看的
(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 · 发表于 2003-12-2 10:32:00

果然是我说的错误，，，，看看下面这个程序，希望能看出什么来，从而明白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 · 发表于 2003-12-2 16:05:00

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

[求助]属性块？？？

发表回复

精选推荐