[LISP程序]：请教高手!!SOS!

petertian

尊敬的版主：
  我是一个菜鸟，初用LISP在R14下编写程序，现遇到一个问题，是这样的，MAPFRIEND下的文字注记，在CAD中用list命令查看信息后信息如下：
Command: list
1 found
                  BLOCK REFERENCE  Layer: 9809
                            Space: Model space
                   Color: BYLAYER    Linetype: CONTINUOUS
                   Handle = EDA2
                  *U
                at point, X=499489.4032  Y=3654475.0748  Z=   0.0000
                 X scale factor    1.0000
                 Y scale factor    1.0000
          rotation angle      0
                 Z scale factor    1.0000

                  ATTRIBUTE  Layer: 9809
                            Space: Model space
                   Color: BYLAYER    Linetype: CONTINUOUS
                   Handle = EDA3
             Style = ANNOTEXT
             Font file = romand.shx
             start point, X=499489.4032  Y=3654475.0748  Z=   0.0000
            height    1.0000
             value 姜红|cshihd|cromand|7.19|0.08|0|0|0|3.00|3.00|0.00|1.00
               tag HZ:
          rotation angle      0
             width scale factor    1.0000
         obliquing angle      0
             flags invisible  constant
        generation normal

                  END SEQUENCE  Layer: 9809
                            Space: Model space
                   Color: BYLAYER    Linetype: CONTINUOUS
                   Handle = EDA4
而我的文字注记用list命令查看后信息如下：
Command: list
1 found
                  TEXT      Layer: 2009
                            Space: Model space
                   Color: 7 (white)    Linetype: CONTINUOUS
                   Handle = 100A
             Style = BIGFONT
             Font file = txt.shx hztxt.shx
          mid/left point, X=504323.8310  Y=3647489.8200  Z=   0.0000
            height    2.5000
              text 混
          rotation angle      0
             width scale factor    1.0000
         obliquing angle      0
        generation normal
我用LISP怎样写才能变成与他一样的东西！再有，我怎样才能将我的文字注记变成“块”，并且像他一样将TEXT的信息也加上去！！
不胜感激，我要在LISP下实现！！！！！！