这是一个为标注文字添加偏差值的代码
运行 E1 选取需要添加偏差值的标注尺寸
空格 会出现偏差值
 - (defun C:E1()
- (setvar "cmdecho" 0)
- (setq tol (getvar "dimtol"))
- (setq tp (getvar "dimtp"))
- (setq tm (getvar "dimtm"))
- (setq tdec (getvar "dimtdec"))
- (setq tfac (getvar "dimtfac"))
- (setq tzin (getvar "dimtzin"))
- (Prin1"砞竚夹猔そ畉,0,-0.005")
- (ssget)
- (command "dimoverride" "dimtol" "on" "dimtp" "0.01" "dimtm" "0" "dimtdec" "2" "dimtfac" "0.5" "dimtzin" "8" "" "P" "")
- (setvar "dimtol" tol)
- (setvar "dimtp" tp)
- (setvar "dimtm" tm)
- (setvar "dimtfac" tfac)
- (setvar "dimtdec" tdec)
- (setvar "dimtzin" tzin)
- (princ)
- )
标注后的样式 当更改标注样式时 +0.01 0 会去掉
有什么办法能让添加的+0.01 0 保存 在更改 标注样式后 自动添加在原有的地方？
原标注样式为 ISO-25 当样式更改为 副本 ISO-25时 +0.01 0 会消掉
有什么办法 能够让添加的 +0.01 0 得以保存 在样式更改成 《副本ISO-25》后 自动把 +0.01 0 添加 上去
肯求各位版主的帮助
| 
发表于 2013-1-14 10:13:52
置顶卡
变色卡
显身卡