1. 命令: (setq aa (entget(tblobjname "style" "standard")))
    2. ((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 . 
    3. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard") 
    4. (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . 
    5. "romans.shx") (4 . "hzf.shx"))
    7. 命令: (setq bb (subst '(4 . "hz1.shx") (assoc 4 aa) aa))
    8. ((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 . 
    9. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard") 
    10. (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . 
    11. "romans.shx") (4 . "hz1.shx"))
    13. 命令: (entmod bb)
    14. ((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 . 
    15. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard") 
    16. (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . 
    17. "romans.shx") (4 . "hz1.shx"))
    19. 命令: (entget(tblobjname "style" "standard"))
    20. ((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 . 
    21. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard") 
    22. (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . 
    23. "romans.shx") (4 . "hz1.shx"))
    25. (if (tblobjname "STYLE" "standard")
    26.     (progn
    27.         (setq txte1 (entget (tblobjname "STYLE" "standard")))
    28.         (setq txte1 (subst (cons 40 0.0) (assoc 40 txte1) txte1))
    29.         (setq txte1 (subst (cons 41 0.7) (assoc 41 txte1) txte1))
    30.         (setq txte1 (subst (cons 3 "gbenor.shx") (assoc 3 txte1) txte1))
    31.         (setq txte1 (subst (cons 4 "gbcbig.shx") (assoc 4 txte1) txte1))
    32.         (entmod txte1)
    33.         (setvar "TEXTSTYLE" "standard")
    34.     )
    35.     (progn
    36.         (entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 "standard") '(70 . 0) (cons 40 0.0) (cons 41 0.7) '(3 . "gbenor.shx") '(4 . "gbcbig.shx")))
    37.         (setvar "TEXTSTYLE" "standard")
    38.     )
    39. )