[求助]请教高手，我选中了一个属性块，如何获取属性块里文字的属性呢?

userzhl

获得的值是这样的呢？

("%%P0.000" "*U1" "%%P0.000")

userzhl

命令: (setq en     (entget name))
((-1 . <图元名: 7ef5fdf8>) (0 . "ATTRIB") (330 . <图元名: 7ef5fde8>) (5 . "3F")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "TXT【文字】") (100 .
"AcDbText") (10 218.072 150.377 0.0) (40 . 2.5) (1 . "%%P0.000") (50 . 0.0) (41
. 0.75) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 2) (11 226.197 149.544 0.0)
(210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "%%P0.000") (70 . 0) (73 . 1)
(74 . 1))

炸开后获取文字才看得到(3 . "海龙工具_1:1")：

(-1 . <图元名: 7ef5fe28>)
(0 . "ATTDEF")
(330 . <图元名: 7ef5fd08>)
(5 . "45")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "TXT【文字】")
(100 . "AcDbText")
(10 218.072 150.377 0.0)
(40 . 2.5)
(1 . "%%P0.000")
(50 . 0.0)
(41 . 0.75)
(51 . 0.0)
(7 . "Standard")
(71 . 0)
(72 . 2)
(11 226.197 149.544 0.0)
(210 0.0 0.0 1.0)
(100 . "AcDbAttributeDefinition")
(3 . "海龙工具_1:1")
(2 . "%%P0.000")
(70 . 8)
(73 . 1)
(74 . 1)

是不是需要Vlisp才能获得(3 . "海龙工具_1:1")吗?

tengte

可以用这个语句：

(setq mBlocks (vla-get-Blocks
  (vla-get-ActiveDocument (vlax-get-acad-object))
       )
      en      (entget (car (entsel "\n请选择属性块:")))
      obj     (vla-item mBlocks (cdr (assoc 2 en)))
      str     (vla-get-promptstring (vla-item obj 2))
)

userzhl

谢谢tengte

tengte

还可以这么写：

(progn
  (setq ename (car (entsel "\n请选择属性块:"))
 bname (cdr (assoc 2 (entget ename)))
 ename (tblobjname "BLOCK" bname)
  )
  (while (and ename (setq en (entget ename)))
    (if (= "ATTDEF" (cdr (assoc 0 en)))
      (progn (setq tag  (cdr (assoc 2 en))
     promptstring (cdr (assoc 3 en))
      )
      (foreach el (list "\n标记:" tag "\t提示:" promptstring)
        (princ el)
      )
      )
    )
    (setq ename (entnext ename))
  )
  (princ)
)

userzhl

可不可以把"提示"作为过滤条件对图块进行选择呢？

userzhl

哪位高手知道吗？

luowy

先转换为vla对象

然后使用vla-get-attributes，此时返回一个variant，对此variant转换为list，之后就好办了

可以使用vla-get-textstring获取，vla-put-textstring赋值

userzhl

我已经(vl-load-com)

但还是出现：

错误: no function definition: VLA-GET-ATTRIBUTES