请教大家如何将标注标准设定“文字位置设置为置中”
请教大家如何将标注标准设定“文字位置设置为置中”非常感谢。;;;**************************** 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 710)
(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))
请大家多多指教啊。 一起学习一下 有人会吗，望高人指点 vlisp get族有，找找看 crazylsp 发表于 2011-11-2 21:07 static/image/common/back.gif
vlisp get族有，找找看
vlisp get族，不好意思刚来还不知道再来。望见谅。 如果能用LISP加载自己想要的标注方式就太方便了，请大家多多指教。
页:
[1]