创建文本/标注样式源码

zhengxiansz

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))

edata

设置默认保存格式2004

1. (setenv "DefaultFormatForSave" "24")

(setenv "DefaultFormatForSave" "24")

zhengxiansz

edata 发表于 2014-4-27 14:52
设置默认保存格式2004

谢谢！我按照你的方法设置成功了。

趣意人生

好东西！收藏学习了

999999

顶起顶起，谢谢大神的分享:D