xchrimp 发表于 2009-7-20 18:04:00

xshrimp 发表于 2009-7-20 22:06:00

(setq lst '())
(if (and (/= ena NIL)
(setq TMP (vlax-ename->vla-object ena))
(= (vla-get-objectname TMP) "AcDbBlockReference")
(= (vla-get-hasattributes TMP) :vlax-true)
    )
(foreach M2 (vlax-safearray->list (vlax-variant-value (vla-getattributes TMP)))
      (setq lst (append lst (list (cons (vla-get-TagString M2)(vla-get-textstring M2)))))
)
(alert "选中的不是属性块")
)

luowy 发表于 2009-7-20 23:44:00

你都已经可以获得textstring了，获得tagstring还难么？

wuxuloveguo 发表于 2009-7-21 11:54:00

<p>换个马甲人家都不知道你了!还是老样子,喜欢吃现成的,"高手"中的"高手"!</p><p>佩服!</p>

xchrimp 发表于 2009-7-21 18:00:00

guankuiwu 发表于 2022-9-29 15:00:44

这个厉害了
页: [1]
查看完整版本: 怎么才可以得到属性值的同时得到它的标记