本帖最后由 zhengxiansz 于 2014-4-27 11:27 编辑
GU_xl你好!
请帮我看一下这个创建文本/标注样式源码。第一次输入IT1命令时没有报错的提示。如果重复输入IT1命令时就会提示该名称已被使用,是否重新定义?请问有什么方法可以解决吗?
还有这个程序我增加控制保存为2004版本的环境变量值,研究了好久也没有找到是哪个变量值。
(defun c:IT1()
(prinC "标注样式")
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "OSMODE" 183)
(command "LTSCALE" "6")
(command "-style" "TP_Standard" "isocp.shx,gbcbig.shx" "" "1.0" "" "" "")
(command "-style" "TsaiPress" "isocp.shx,gbcbig.shx" "" "0.9" "" "" "")
(command "dimtxt" "0.18" "dimasz" "0.1" ;文字高度 ;箭头大小
"dimexe" "0.05" "dimexo" "0.05" ;尺寸界限超出长度 ;尺寸界限起点距离:0.5
"dimgap" "0.05" "dimtoh" "off" ;标注文字周围的距离 ;文字在尺寸界线外的位置:关
"dimtih" "OFF" "blipmode" "0" ;标注文字在尺寸界线内的位置: ;关,点标记模式:关
"DIMDLI" "0.05" "DIMATFIT" "3" ;控制基线标注中尺寸线的间距: ;当尺寸界线不足放下标注文字和箭头时,函数DIMATFIT确定位置
"DIMTAD" "0" "DIMDEC" "2" ;控制文字相对尺寸线的垂直位置, ;小数位数:2
"DIMJUST" "0" "DIMDSEP" "." ;控制标注文字的水平位置:0, ;小数分隔符为 .
"DIMTOFL" "0" "dimtmove" "0" ;控制标注文字在尺寸界线外的位置:;关对齐,设置标注文字的移动规则:0 水平
"dimcen" &#