本帖最后由 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" "0" "dimclrd" "0" ;标注圆心：不标， ;为尺寸线、箭头和标注引线指定颜色：3
"dimclre" "0" "DIMCLRT" "11" ;为尺寸界线指定颜色 ;为标注文字指定颜色
"DIMBLK" "_open30" "DIMLDRBLK" "_open30" ;箭头打开30 ;箭头引线打开30
"DIMSCALE" "10" "DIMTXSTY" "TP_Standard" ;全局比例 ;文字样式
"DIMSTYLE" "S" "TP_STANDARDx10"
)
(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" "0" "dimclrd" "0" ;标注圆心：不标， ;为尺寸线、箭头和标注引线指定颜色：3
"dimclre" "0" "DIMCLRT" "11" ;为尺寸界线指定颜色 ;为标注文字指定颜色
"DIMBLK" "_open30" "DIMLDRBLK" "_open30" ;箭头打开30 ;箭头引线打开30
"DIMSCALE" "15" "DIMTXSTY" "TP_Standard" ;全局比例 ;文字样式
"DIMSTYLE" "S" "TP_STANDARDx15"
)
(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" "0" "dimclrd" "0" ;标注圆心：不标， ;为尺寸线、箭头和标注引线指定颜色：3
"dimclre" "0" "DIMCLRT" "11" ;为尺寸界线指定颜色 ;为标注文字指定颜色
"DIMBLK" "_open30" "DIMLDRBLK" "_open30" ;箭头打开30 ;箭头引线打开30
"DIMSCALE" "20" "DIMTXSTY" "TP_Standard" ;全局比例 ;文字样式
"DIMSTYLE" "S" "TP_STANDARDx20"
)
(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" "0" "dimclrd" "0" ;标注圆心：不标， ;为尺寸线、箭头和标注引线指定颜色：3
"dimclre" "0" "DIMCLRT" "11" ;为尺寸界线指定颜色 ;为标注文字指定颜色
"DIMBLK" "_open30" "DIMLDRBLK" "_open30" ;箭头打开30 ;箭头引线打开30
"DIMSCALE" "25" "DIMTXSTY" "TP_Standard" ;全局比例 ;文字样式
"DIMSTYLE" "S" "TP_STANDARDx25"
)
(setvar "CURSORSIZE" 100) ;将屏幕十字光标的大小设为100%
(setvar "ACADLSPASDOC" 1) ;将 acad.lsp 载入到每一个打开的图形中
(setvar "ANGDIR" 1) ;设置正角度的方向为顺时针
(setvar "AUNITS" 0) ;设置角度单位为十进位度数
(setvar "CMLSCALE" 20.0000) ;设线宽为公制
(COMMAND "dimdec" "2" ) ;设尺寸小数为二位
(setvar "DIMADEC" 2) ;设角度标注的精度为2位小数
(setvar "GRIDMODE" 0) ;关闭栅格
(setvar "LTSCALE" 1.0000) ;设置全局线型比例为1.0000
(setvar "LUNITS" 2) ;设置线性单位为小数
(setvar "LWDISPLAY" 1) ;显示线宽
(setvar "LWDEFAULT" 25) ;设置默认线宽的值为25
(setvar "LWUNITS" 1) ;设线宽单位以毫米显示
(setvar "MEASUREINIT" 1) ;设置初始图形单位为公制
(setvar "PSLTSCALE" 1) ;设图纸空间的线型比例为1：1
(setvar "SNAPMODE" 0) ;关闭"捕捉"方式
(setvar "TOOLTIPS" 1) ;显示工具栏提示
(setvar "TRACEWID" 0.3) ;设置宽线的默认宽度为0.3MM
(setvar "TRAYICONS" 1) ;控制是否在状态栏上显示系统托盘
(setvar "TRAYNOTIFY" 1) ;控制是否在状态栏系统托盘上显示服务通知
(setvar "ISAVEBAK" 0) ;控制备份文件 (BAK) 的创建。 1，创建 0，不创建
(setvar "APERTURE" 25) ;以像素为单位设置靶框显示尺寸。靶框是绘图命令中使用的选择工具。初始值：10
(setvar "PICKBOX" 15) ;控制拾取框大小
(setvar "savetime" 0) ;控制自动保存。
(setvar "ACISOUT" 16) ;控制保存的版本
(setvar "qaflags" 0) ;取消选择先后顺序
(COMMAND "OSMODE" "439" ) ;常用捕捉打开
(COMMAND "dimtol" "0") ;去掉“±0.00”符号
(princ))
)
)
)
)
