请教大家如何将标注标准设定“文字位置设置为置中”非常感谢。

;;;**************************** ACAD标注标准设定.LSP *****************************

(progn

(entmake (list (cons 0 "style")

(cons 100 "AcDbSymbolTableRecord")

(cons 100 "AcDbTextStyleTableRecord")

(cons 2 "william")

(cons 70 0)

(cons 40 0.0)

(cons 41 0.8)

(cons 50 0.0)

(cons 71  0)

(cons 42 1.0)

(cons 3  "william")

(cons 4  "")

)

)

(entget (tblobjname "style" "william"))

)

(command"-dimstyle" "s" "iso"

"dimclrd" "12" ;尺寸线色

"dimclre" "12" ;尺寸界线色

"dimblk1" "" ;箭头形状

"dimblk2" "" ;箭头形状

"dimasz" "0.8";箭头大小

"dimtxsty" "william" ;文字样式

"dimclrt" "11";文字色

"dimtxt" "1";文字高度

"dimlunit" "2";单位格式

"dimdec" "3";精度

"dimdsep" ".";小数分格符

"dimzin" "4";消零

)

(command"-dimstyle" "s" "零件"

"dimclrd" "12" ;尺寸线色

"dimclre" "12" ;尺寸界线色

"dimblk1" "" ;箭头形状

"dimblk2" "" ;箭头形状

"dimasz" "1";箭头大小

"dimtxsty" "william" ;文字样式

"dimclrt" "11";文字色

"dimtxt" "1.2";文字高度

"dimlunit" "2";单位格式

"dimdec" "3";精度

"dimdsep" ".";小数分格符

"dimzin" "4";消零

)

(command"-dimstyle" "s" "模板"

"dimclrd" "12" ;尺寸线色

"dimclre" "12" ;尺寸界线色

"dimblk1" "" ;箭头形状

"dimblk2" "" ;箭头形状

"dimasz" "1";箭头大小

"dimtxsty" "william" ;文字样式

"dimclrt" "11";文字色

"dimtxt" "2";文字高度

"dimlunit" "2";单位格式

"dimdec" "3";精度

"dimdsep" ".";小数分格符

"dimzin" "4";消零

)

(command"-dimstyle" "s" "模座"

"dimclrd" "12" ;尺寸线色

"dimclre" "12" ;尺寸界线色

"dimblk1" "" ;箭头形状

"dimblk2" "" ;箭头形状

"dimasz" "1";箭头大小

"dimtxsty" "william" ;文字样式

"dimclrt" "11";文字色

"dimtxt" "2";文字高度

"dimlunit" "2";单位格式

"dimdec" "2";精度

"dimdsep" ".";小数分格符

"dimzin" "4";消零

)

(princ "\n标准标注已设定!")(princ))