求程序：设置块的属性值

jsj_306

下面这个程序我实在看不懂，求大侠给改成能直接加载运行的那种（就是带defun C：的那种）
1、希望修改的块名为A4（该块为图框），属性标记为“粗糙度”，属性值为“6.3”；希望能将属性值设置为“3.2”
2、还是块A4，属性标记为“图号”，属性值为“456789-01”，希望将属性值中的前半部分“456789”替换为“asd123",其余部分不变
3、希望该程序只改模型空间中的块实例，不改块定义，程序运行过程无须输入什么参数
因为最近时间紧张，实在没时间研究程序，只能求这的大侠帮帮忙，谢谢！
--------------------------------------------------------------------------
功  能: 设置块中属性
参数 [类型]:
    Obj = Object [VLA-OBJECT]
    Lst = 点表 '(("Tag1" . "Val1")...) [LIST]
返回值[类型]: nil
|;
(defun VxSetAtts (Obj Lst / AttVal)
  (mapcar
    '(lambda (Att)
       (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst)))
(vla-put-TextString Att AttVal)
       )
     )
    (vlax-invoke Obj "GetAttributes")
  )
  (vla-update Obj)
  (princ)
)
----------------------------------------------------------------

杨婷1234

，，，