命令: (setq aa (entget(tblobjname "style" "standard")))
((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 .
"AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
(70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 .
"romans.shx") (4 . "hzf.shx"))
命令: (setq bb (subst '(4 . "hz1.shx") (assoc 4 aa) aa))
((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 .
"AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
(70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 .
"romans.shx") (4 . "hz1.shx"))
命令: (entmod bb)
((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 .
"AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
(70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 .
"romans.shx") (4 . "hz1.shx"))
命令: (entget(tblobjname "style" "standard"))
((-1 . <图元名: 7ee7ac88>) (0 . "STYLE") (330 . <图元名: 7ee7ac18>) (5 . "11") (100 .
"AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "Standard")
(70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 2.5) (3 .
"romans.shx") (4 . "hz1.shx"))
(if (tblobjname "STYLE" "standard")
(progn
(setq txte1 (entget (tblobjname "STYLE" "standard")))
(setq txte1 (subst (cons 40 0.0) (assoc 40 txte1) txte1))
(setq txte1 (subst (cons 41 0.7) (assoc 41 txte1) txte1))
(setq txte1 (subst (cons 3 "gbenor.shx") (assoc 3 txte1) txte1))
(setq txte1 (subst (cons 4 "gbcbig.shx") (assoc 4 txte1) txte1))
(entmod txte1)
(setvar "TEXTSTYLE" "standard")
)
(progn
(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")))
(setvar "TEXTSTYLE" "standard")
)
)
上一篇:创建 宋体 字体样式
下一篇:新建和设置字体样式 V1.2