[求助]公差标注?(已解决)

totoro

在标上下限公差时,如果数据为零时,要如何把前面的符号拿掉~

ZZXXQQ

我一般都用前后缀标公差，想标什么样的就写成什么样。
例如：用下面字串做后缀就可以标直径和公差。
(command ".DIMOVERRIDE" "DIMPOST" "%%c<>H7( {\H0.7X;\S+0.083^  0;} )" "")

totoro

版大"DIMPOST"是可以在标注文本前后加字符没错~
可是好像不能实现我的问题! 小弟不才~

我的程序如下~版大帮我看看~

在一个问题? 我设了一个恢复默认值按钮~当我按了就会恢复成0值~
那我要按确定时,把有公差标注恢复成没有公差标注的状态要如何作~

(defun c:toleranc ()
  (princ "\nTOLERANC 尺寸公差标注")
  (princ "\n初始化.....")
  (setq e1 (entsel "\n选定尺寸标注:"))
  (setq dcl_id (load_dialog "toleranc.dcl"))
  (new_dialog "toleranc" dcl_id)
  (if (< dcl_id 0) (exit))
  (set_tile "dimtp" "0")
  (set_tile "dimtm" "0")
  (action_tile "comeback" "(u)");恢复默认值
  (action_tile "accept" "(ok)")
  (action_tile "cancel" "(done_dialog 0)")
  (defun u()
    (set_tile "dimtp" "0")
    (set_tile "dimtm" "0")
  )
  (defun ok()
    (setq tp (atof (get_tile "dimtp")))
    (setq tm (atof (get_tile "dimtm")))
    (done_dialog 1)
  )
  (setq act (start_dialog))
  (unload_dialog dcl_id)
  (if (= act 1) (cond
    ((= tp tm) (command "dimoverride" "dimtol" "on" "dimtdec" "3" "dimtzin" "8"
          "dimtolj" "0" "dimtfac" "1" "dimtp" tp "dimtm" tm "" e1 ""))
    ((= tp 0) (command "dimoverride" "dimtol" "on" "dimtdec" "3" "dimtzin" "8"
          "dimtolj" "0" "dimtfac" "0.6" "dimtp" "+0.00001" "dimtm" tm "" e1 ""))
    ((= tm 0) (command "dimoverride" "dimtol" "on" "dimtdec" "3" "dimtzin" "8"
          "dimtolj" "0" "dimtfac" "0.6" "dimtp" tp "dimtm" "-0.00001" "" e1 ""))
    ((/= tp 0) (command "dimoverride" "dimtol" "on" "dimtdec" "3" "dimtzin" "8"
          "dimtolj" "0" "dimtfac" "0.6" "dimtp" tp "dimtm" tm "" e1 ""))
    ((/= tm 0) (command "dimoverride" "dimtol" "on" "dimtdec" "3" "dimtzin" "8"
          "dimtolj" "0" "dimtfac" "0.6" "dimtp" tp "dimtm" tm "" e1 "")))
  )
  (princ)
)

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

totoro

版大我试不出来~下面是我的对话框程序~
能帮我试试吗?? 我cad版本是2008有差吗??
还有{\H0.7x;\S  0^" ttm ";}这类写法是什么意思?

2. toleranc : dialog {
3.            label = "编辑尺寸公差";
4.            : boxed_column {
5.              label = "公差值";
6.                : edit_box {
7.                  label = "上偏差";
8.                  key   = "dimtp";
9.                  edit_width = 8;
10.                }
11.                : edit_box {
12.                  label = "下偏差";
13.                  key   = "dimtm";
14.                  edit_width = 8;
15.                }
16.                spacer_1;
17.            }
18.            : button {
19.              label = "恢复默认值";
20.              key   = "comeback";
21.            }
22.     spacer;
23.     ok_cancel;
24. }

toleranc : dialog {            label = "编辑尺寸公差";            : boxed_column {              label = "公差值";                : edit_box {                  label = "上偏差";                  key   = "dimtp";                  edit_width = 8;                }                : edit_box {                  label = "下偏差";                  key   = "dimtm";                  edit_width = 8;                }                spacer_1;            }            : button {              label = "恢复默认值";              key   = "comeback";            }     spacer;     ok_cancel; }

ZZXXQQ

4楼已改。再试试。

totoro

版大可以了~谢谢~

sxwjz

看看，学习

sxwjz

水一个，帖子不够

zhaozwf

TOLERANC 尺寸公差标注
初始化.....
选定尺寸标注:Error: quit / exit abort

四楼的程序，运行出现这样的情况，请问版主是怎么回事