初始化标注样式

lohas1118

(defun c:bz () ; 初始化标注样式 (setvar 'cmdecho 0) (szbz1) (setvar 'cmdecho 1) ) (defun szbz1 () ; 设置标注样式 (setvar 'dimadec 0) ; 角度小数位数 (setvar 'dimalt 0) ; 选定的换算单位 (setvar 'dimaltd 2) ; 换算单位小数位数 (setvar 'dimaltf 0.0394) ; 换算单位比例因子 (setvar 'dimaltrnd 10) ; 换算单位舍入值 (setvar 'dimalttd 3) ; 换算公差小数位数 (setvar 'dimalttz 0) ; 换算公差消零 (setvar 'dimaltu 2) ; 换算单位 (setvar 'dimaltz 0) ; 换算单位消零 (setvar 'dimapost "") ; 替换文字的前缀和后缀 (setvar 'dimarcsym 0) ; 弧长符号 (setvar 'dimasz 0) ; 箭头大小 (setvar 'dimatfit 3) ; 箭头和文字调整 (setvar 'dimaunit 0) ; 角度单位格式 (setvar 'dimazin 2) ; 角度消零 (setvar 'dimblk "") ; 箭头块名 (setvar 'dimblk1 "") ; 第一个箭头块名 (setvar 'dimblk2 "") ; 第二个箭头块名 (setvar 'dimcen 3) ; 圆心标记大小 (setvar 'dimclrd 0) ; 尺寸线和引线颜色 (setvar 'dimclre 0) ; 尺寸界线颜色 (setvar 'dimclrt 0) ; 标注文字颜色 (setvar 'dimdec 2) ; 小数位数 (setvar 'dimdle 0) ; 尺寸线 (setvar 'dimdli 3.75) ; 尺寸线间距 (setvar 'dimdsep ".") ; 小数分隔符 (setvar 'dimexe 1.25) ; 尺寸界线在尺寸线上 (setvar 'dimexo 0) ; 尺寸界线原点偏移 (setvar 'dimfrac 0) ; 分数格式 (setvar 'dimfxl 1) ; 固定的尺寸界线 (setvar 'dimfxlon 0) ; 启用固定的尺寸界线 (setvar 'dimgap 0.625) ; 尺寸线和文字的间距 ; (setvar 'dimjogang 46) ; 半径标注折弯角度 (setvar 'dimjust 0) ; 尺寸线上的文字对正 (setvar 'dimldrblk "") ; 引线块名 (setvar 'dimlim 0) ; 生成标注界限 (setvar 'dimltex1 ".") ; 线型尺寸界线 1 (setvar 'dimltex2 ".") ; 线型尺寸界线 2 (setvar 'dimltype ".") ; 标注线型 (setvar 'dimlunit 2) ; 线性单位格式 (setvar 'dimlwd -2) ; 尺寸线和引线线宽 (setvar 'dimlwe -2) ; 尺寸界线线宽 (setvar 'dimpost "") ; 标注文字的前缀和后缀 (setvar 'dimrnd 0) ; 舍入值 (setvar 'dimsah 0) ; 独立的箭头块 (setvar 'dimscale 1) ; 全局比例因子 (setvar 'dimsd1 1) ; 隐藏第一条尺寸线 (setvar 'dimsd2 1) ; 隐藏第二条尺寸线 (setvar 'dimse1 1) ; 隐藏第一条尺寸界线 (setvar 'dimse2 1) ; 隐藏第二条尺寸界线 (setvar 'dimsoxd 1) ; 隐藏外侧尺寸线 (setvar 'dimtad 1) ; 文字位于尺寸线上方 (setvar 'dimtdec 2) ; 公差小数位数 (setvar 'dimtfac 1) ; 公差文字高度比例因子 (setvar 'dimtfill 0) ; 文字背景已启用 (setvar 'dimtfillclr 0) ; 文字背景颜色 (setvar 'dimtih 1) ; 尺寸界线内侧的文字水平放置 (setvar 'dimtix 0) ; 将文字放置于尺寸界线内侧 (setvar 'dimtm 0) ; 下偏差 (setvar 'dimtmove 0) ; 文字移动 (setvar 'dimtofl 1) ; 强制在尺寸界线内侧画尺寸线 (setvar 'dimtoh 1) ; 外侧文字水平放置 (setvar 'dimtol 0) ; 公差标注 (setvar 'dimtolj 0) ; 公差垂直对齐 (setvar 'dimtp 0) ; 上偏差 (setvar 'dimtsz 0) ; 标记大小 (setvar 'dimtvp 0) ; 文字垂直位置 (setvar 'dimtxt 3.5) ; 文字高度 (setvar 'dimtzin 8) ; 公差消零 (setvar 'dimupt 0) ; 用户定位的文字 (setvar 'dimzin 8) ; 消零 (command "-style" "1 长仿宋体" "gbeitc.shx,gbcbig.shx" "" "0.7" "" "" "" ) (setvar 'dimtxsty "1 长仿宋体") ; 标注文字样式 (setq n (getreal "\n尺寸比例?<1>")) (if (= n nil) (setvar 'dimlfac 1) (setvar 'dimlfac n) ) ; 线性单位比例因子 (command "-dimstyle" "s" "1 长仿宋体标注") (princ) )

lohas1118

(defun c:bz () ; 初始化标注样式
(setvar 'cmdecho 0)
(szbz1)
(setvar 'cmdecho 1)
)

(defun szbz1 () ; 设置标注样式
(setvar 'dimadec 0) ; 角度小数位数
(setvar 'dimalt 0) ; 选定的换算单位
(setvar 'dimaltd 2) ; 换算单位小数位数
(setvar 'dimaltf 0.0394) ; 换算单位比例因子
(setvar 'dimaltrnd 10) ; 换算单位舍入值
(setvar 'dimalttd 3) ; 换算公差小数位数
(setvar 'dimalttz 0) ; 换算公差消零
(setvar 'dimaltu 2) ; 换算单位
(setvar 'dimaltz 0) ; 换算单位消零
(setvar 'dimapost "") ; 替换文字的前缀和后缀
(setvar 'dimarcsym 0) ; 弧长符号
(setvar 'dimasz 0) ; 箭头大小
(setvar 'dimatfit 3) ; 箭头和文字调整
(setvar 'dimaunit 0) ; 角度单位格式
(setvar 'dimazin 2) ; 角度消零
(setvar 'dimblk "") ; 箭头块名
(setvar 'dimblk1 "") ; 第一个箭头块名
(setvar 'dimblk2 "") ; 第二个箭头块名
(setvar 'dimcen 3) ; 圆心标记大小
(setvar 'dimclrd 0) ; 尺寸线和引线颜色
(setvar 'dimclre 0) ; 尺寸界线颜色
(setvar 'dimclrt 0) ; 标注文字颜色
(setvar 'dimdec 2) ; 小数位数
(setvar 'dimdle 0) ; 尺寸线
(setvar 'dimdli 3.75) ; 尺寸线间距
(setvar 'dimdsep ".") ; 小数分隔符
(setvar 'dimexe 1.25) ; 尺寸界线在尺寸线上
(setvar 'dimexo 0) ; 尺寸界线原点偏移
(setvar 'dimfrac 0) ; 分数格式
(setvar 'dimfxl 1) ; 固定的尺寸界线
(setvar 'dimfxlon 0) ; 启用固定的尺寸界线
(setvar 'dimgap 0.625) ; 尺寸线和文字的间距
; (setvar 'dimjogang 46)
; 半径标注折弯角度
(setvar 'dimjust 0) ; 尺寸线上的文字对正
(setvar 'dimldrblk "") ; 引线块名
(setvar 'dimlim 0) ; 生成标注界限
(setvar 'dimltex1 ".") ; 线型尺寸界线 1
(setvar 'dimltex2 ".") ; 线型尺寸界线 2
(setvar 'dimltype ".") ; 标注线型
(setvar 'dimlunit 2) ; 线性单位格式
(setvar 'dimlwd -2) ; 尺寸线和引线线宽
(setvar 'dimlwe -2) ; 尺寸界线线宽
(setvar 'dimpost "") ; 标注文字的前缀和后缀
(setvar 'dimrnd 0) ; 舍入值
(setvar 'dimsah 0) ; 独立的箭头块
(setvar 'dimscale 1) ; 全局比例因子
(setvar 'dimsd1 1) ; 隐藏第一条尺寸线
(setvar 'dimsd2 1) ; 隐藏第二条尺寸线
(setvar 'dimse1 1) ; 隐藏第一条尺寸界线
(setvar 'dimse2 1) ; 隐藏第二条尺寸界线
(setvar 'dimsoxd 1) ; 隐藏外侧尺寸线
(setvar 'dimtad 1) ; 文字位于尺寸线上方
(setvar 'dimtdec 2) ; 公差小数位数
(setvar 'dimtfac 1) ; 公差文字高度比例因子
(setvar 'dimtfill 0) ; 文字背景已启用
(setvar 'dimtfillclr 0) ; 文字背景颜色
(setvar 'dimtih 1) ; 尺寸界线内侧的文字水平放置
(setvar 'dimtix 0) ; 将文字放置于尺寸界线内侧
(setvar 'dimtm 0) ; 下偏差
(setvar 'dimtmove 0) ; 文字移动
(setvar 'dimtofl 1) ; 强制在尺寸界线内侧画尺寸线
(setvar 'dimtoh 1) ; 外侧文字水平放置
(setvar 'dimtol 0) ; 公差标注
(setvar 'dimtolj 0) ; 公差垂直对齐
(setvar 'dimtp 0) ; 上偏差
(setvar 'dimtsz 0) ; 标记大小
(setvar 'dimtvp 0) ; 文字垂直位置
(setvar 'dimtxt 3.5) ; 文字高度
(setvar 'dimtzin 8) ; 公差消零
(setvar 'dimupt 0) ; 用户定位的文字
(setvar 'dimzin 8) ; 消零
(command "-style" "1 长仿宋体" "gbeitc.shx,gbcbig.shx"
"" "0.7" "" ""
""
)
(setvar 'dimtxsty "1 长仿宋体") ; 标注文字样式
(setq n (getreal "\n尺寸比例?<1>"))
(if (= n nil)
(setvar 'dimlfac 1)
(setvar 'dimlfac n)
) ; 线性单位比例因子
(command "-dimstyle" "s" "1 长仿宋体标注")
(princ)
)

lohas1118

lohas1118 发表于 2011-11-4 13:42
(defun c:bz () ; 初始化标注样式
(setvar 'cmdecho 0)
(szbz1)

请大家帮忙看下此程序该如何修改

hellox124

進來看看.~~

lohas1118

tranney

几年前的帖子现在看起来还是很有味道