如何向已有块添加属性，并使属性文字的旋转角度为某一固定值？

(defun addattrib (ename str ang / ell ename1 ell1 ell2)
    (setq ell   (entget ename)
              pt    (cdr (assoc 10 ell)); 属性的插入点定为块插入点
                  ename1 ename
                  ell2  nil
        )
        (if (assoc 66 ell)
            ;如果块有属性
            (progn
                    (while (/= "SEQEND" (cdr(assoc 0 (entget(setq ename1 (entnext ename1))))))
                            (setq ell1 (entget ename1)
                                      ell2 (append ell2 (list ell1))
                                )
                        )
                        (entdel ename)
                        (entmake ell)
                        (foreach x ell2 (entmake x))
                )
                ;;如果块以前没有属性
            (progn
                    (entdel ename)
                    (setq ell (append ell (list (cons 66 1))))
                    (entmake ell)
                )
        )
        ;;以下为添加的属性
        (entmake
                (list
                        (cons 0 "ATTRIB")
                        (cons 100 "AcDbEntity")
                        (cons 100 "AcDbText")
                        (cons 11  pt)
                        (cons 40  1.0)
                        (cons 1   str)
                        (cons 50  ang)
                        (cons 41  0.7)
                        (cons 51  0.0)
                        (cons 7   "STANDARD")
                        (cons 71 0)
                        (cons 72 1)
                        (cons 100 "AcDbAttribute")
                        (cons 2   "11")
                        (cons 70  0)
                        (cons 73  0)
                        (cons 74  2)
                );list
        );entmake
        (entmake (list (cons 0  "SEQEND")))
)

感谢00nan
分享源码程序
学习了!