读取块属性出错VxGetAtts 获取块中所有属性

hln_zqy

我用本社区的vlisp函数中介绍的“VxGetAtts 获取块中所有属性”执行时，出错提示如下： “Error: 参数类型错误: VLA-OBJECT <图元名: 7ef6d6f8>”,我的源程序是：

(defun c:sx()
  (setq aa (car (entsel)));;;选择块(带有属性的)
  (setq a (vxgetatts aa))
)
(defun VxGetAtts (Obj)
  (mapcar
    '(lambda (Att)
       (cons (vla-get-TagString Att)
     (vla-get-TextString Att)
       )
     )
    (vlax-invoke Obj "GetAttributes")
  )
)

请老师解决！！！zqy@ntup.com

cadyh

版主，我想通过图档中的块名以及块属性的名称而不是选取块来提取块的属性，该用什么函数呀？

caoyin

 (setq aa (car (entsel)))   

->

 (setq aa (vlax-ename->vla-object (car (entsel))))

caoyin

;;获得属性标签

(defun TEST (BLKNAME / LST)
  (vlax-for X
    (vla-item (vla-get-blocks
                (vla-get-activedocument (vlax-get-acad-object))
              )
              BlkName
    )
    (if (= (vla-get-ObjectName X) "AcDbAttributeDefinition")
      (setq LST (cons (vla-get-TagString X) LST));;把vla-get-TagString 改为vla-get-textString可得到标签值
    )
  )
  LST
)

cadyh

谢谢，我马上结合我自己的需要试试。

litung

動態圖塊可以讀的到嗎？

cadyh

版主，我又有问题了：我做了一个块，定义块名为“矩形”，增加属性标签："TOP"  "BOTTOM" "CENTER" "LEFT" "RIGHT"

标签值分别为：上方 下方 中--心 左方 右方

如下图

程序依你的如下：(defun test (/ lst)
  (vlax-for X
     (vla-item (vla-get-blocks
   (vla-get-activedocument (vlax-get-acad-object))
        )
        "矩形"
     )
    (if (= (vla-get-ObjectName X) "AcDbAttributeDefinition")
      (setq LST (cons (list (vla-get-TagString X)
       (vla-get-textstring x)
        )
        LST
  )
      )
    )
  )
  LST

)

但是返回的结果是("TOP" "") ("BOTTOM" "") ("CENTER" "") ("LEFT" "") ("RIGHT" ""))

怎么都不能把标签值提出来，哪里不行，请指点呀。标签值总是nil.为什么呀？

谢谢了!!!

caoyin

你要分清块定义(BLOCK)和块实例(INSERT)的区别，对已经插入的块实例需要你1楼的代码

cadyh

哦，那有办法通过tbl类函数或别的办法，而不是通过entsel来提取图档中所有块实例(INSERT),并取得属性吗？我用tblobjname/tblsearch只能找到一个（且一直是同一个，是不是tbl也是只能找块定义，而不是块实例），如果有多个该怎么找到提取呢?谢谢版主的热心帮助!!!

cadyh

已找到相关帖子，谢谢版主的热心帮忙，我先试试，有问题再来请教。谢谢了。

http://www.mjtd.com/BBS/dispbbs.asp?boardid=3&replyid=117737&id=72487&page=1&skin=0&landlord=0&Star=1