怎么才可以得到属性值的同时得到它的标记

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

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

佩服!

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

提示: 作者被禁止或删除内容自动屏蔽

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

这个厉害了

账号		自动登录	找回密码
密码			注册

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-20 18:04:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-7-21 18:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡