[LISP程序]：尺寸变量设置

li_seashore

(defun c:ii (/ )
  (command "units" "2" "1" "1" "1" "0" "n")      ;设置坐标和角度的显示格式和精度
  (setvar "AttDia" 0)                                 ;不使用属性对话框
  (setvar "FileDia" 1)                                 ;显示文件对话框
  (setvar "CmdDia" 1)                                 ;显示打印和外部命令对话框
  (setvar "highlight" 1)                         ;对象被选定时，突出显示
  (setvar "MenuCtl" 0)                                 ;屏幕菜单将响应键盘输入命令，不进行页切换
  (setvar "PickStyle" 0)                         ;不使用编组选择和关联填充选择
  (setvar "MirrText" 0)                          ;保持文字方向
  (setvar "LimCheck" 0)                          ;可以在图形界限外创建对象
  (setvar "AttMode" 1)                           ;使全部属性可见
  (command "DRAGMODE"    "a"       )             ;本系统变量控制被拖动对象的显示
  (command "DIMADEC"     ""        )             ;角度小数位数
  (command "DIMALT"      "Off"     )             ;选定的换算单位
  (command "DIMALTD"     "4"       )             ;换算单位小数位数
  (command "DIMALTF"     "25.4000" )             ;换算单位比例因子
  (command "DIMALTRND"   "0.0000"  )             ;换算单位舍入值
  (command "DIMALTTD"    "4"       )             ;换算公差小数位数
  (command "DIMALTTZ"    "0"       )             ;换算公差消零
  (command "DIMALTU"     "8"       )             ;换算单位
  (command "DIMALTZ"     "0"       )             ;换算单位消零
  (command "DIMAPOST"    ""        )             ;替换文字的前缀和后缀
  (command "DIMASZ"      "1.5000"  )             ;箭头大小
  (command "DIMATFIT"    "0"       )             ;箭头和文字调整
  (command "DIMAUNIT"    "0"       )             ;角度单位格式
  (command "DIMAZIN"     "0"       )             ;角度消零
  (command "DIMBLK"      "ArchTick")             ;箭头块名
  (command "DIMBLK1"     "ArchTick")             ;第一个箭头块名
  (command "DIMBLK2"     "ArchTick")             ;第二个箭头块名
  (command "DIMCEN"      "0.0900"  )             ;圆心标记大小
  (command "DIMCLRD"     "0"       )             ;尺寸线和引线颜色
  (command "DIMCLRE"     "0"       )             ;尺寸界线颜色
  (command "DIMCLRT"     "3"       )             ;标注文字颜色
  (command "DIMDEC"      ""       )              ;小数位数
  (command "DIMDLE"      "1.0000"  )             ;尺寸线
  (command "DIMDLI"      "5.5000"  )             ;尺寸线间距
  (command "DIMDSEP"     "."       )             ;小数分隔符
  (command "DIMEXE"      "1.0000"  )             ;尺寸界线在尺寸线上
  (command "DIMEXO"      "1.0000"  )             ;尺寸界线原点偏移
  (command "DIMFRAC"     "0"       )             ;分数格式
  (command "DIMGAP"      "1.0000"  )             ;尺寸线和文字的间距
  (command "DIMJUST"     "0"       )             ;尺寸线上的文字对正
  (command "DIMLDRBLK"   "ArchTick")             ;引线块名
  (command "DIMLFAC"     "1.0000"  )             ;线性单位比例因子
  (command "DIMLIM"      "Off"     )             ;生成标注界限
  (command "DIMLUNIT"    "2"       )             ;线性单位格式
  (command "DIMLWD"      "-2"      )             ;尺寸线和引线线宽
  (command "DIMLWE"      "-2"      )             ;尺寸界线线宽
  (command "DIMPOST"     ""        )             ;标注文字的前缀和后缀
  (command "DIMRND"      "0.0000"  )             ;舍入值
  (command "DIMSAH"      "off"     )             ;独立的箭头块
  (command "DIMSD1"      "Off"     )             ;隐藏第一条尺寸线
  (command "DIMSD2"      "Off"     )             ;隐藏第二条尺寸线
  (command "DIMSE1"      "Off"     )             ;隐藏第一条尺寸界线
  (command "DIMSE2"      "Off"     )             ;隐藏第二条尺寸界线
  (command "DIMSOXD"     "Off"     )             ;隐藏外侧尺寸线
  (command "DIMTAD"      "1"       )             ;文字位于尺寸线上方
  (command "DIMTDEC"     "0"       )             ;公差小数位数
  (command "DIMTFAC"     "1.0000"  )             ;公差文字高度比例因子
  (command "DIMTIH"      "Off"     )             ;尺寸界线内侧的文字水平放置
  (command "DIMTIX"      "On"      )             ;将文字放置于尺寸界线侧
  (command "DIMTM"       "0.0000"  )             ;下偏差
  (command "DIMTMOVE"    "2"       )             ;文字移动  
  (command "DIMTOFL"     "On"      )             ;强制在尺寸界线内侧画尺寸线
  (command "DIMTOH"      "Off"     )             ;外侧文字水平放置
  (command "DIMTOL"      "Off"     )             ;公差注
  (command "DIMTOLJ"     "1"       )             ;公差垂直对齐
  (command "DIMTP"       "0.0000"  )             ;上偏差
  (command "DIMTSZ"      "0.0000"  )             ;标记大小
  (command "DIMTVP"      "0.0000"  )             ;文字垂直位置
  (command "DIMTXSTY"    "hz"      )             ;文字样式
  (command "DIMTXT"      "3.0000"  )             ;文字高度
  (command "DIMTZIN"     "8"       )             ;公差消零
  (command "DIMUPT"      "Off"     )             ;用户定位的文字
  (command "DIMZIN"      "8"       )             ;消除十进制标注中的后续零
  (princ "\n标注样式已恢复到默认状态!!!")
  (princ)
);defun

leonjoy

楼主能否详细说明一下啊？不是每个人都可以读懂那些东西的呀！
谢谢楼主了！
我刚才加载了一下，结果提示说：
“命令: ii
DIMTXSTY 无法设置为该值。
*无效*”

li_seashore

DIMTXSTY 是设置当前字体，如果你的样板图形中没有HZ字体，会中断，
把(command "DIMTXSTY" "hz" )    这一行删掉就好了！！！

leonjoy

我是做结构的，尺寸变量设置好象跟你的完全不一样啊！比如尺寸线间距我们通常是800或1000，你设的那么小，怎么用啊？难道是单位不一致？那单位到底在哪设置啊？还有就是我可不可以直接改那上面的数据啊？我改了一个，但加载以后还是原来的那个值，改不过来啊！

alex.pon

学习学习