[求助]：请问这样的公差标注当如何实现？

yinwh

请问这样的公差标注当如何实现？
公差值和公差代号都是随手写的

yinwh

00001，你把困绕我两年的问题解决了。。。感谢。。。。热泪盈眶。。。



45H7\H0.7x\S+0.123^-0.456

请问\H0.7x\S  表示什么意思？0.7x我猜是高度,可后面的S是什么意思？

00001

to yinwh

H0.7x表示高度没错，即后面的公差字高为前面基本尺寸字高的0.7倍，字号小一号。
S后跟上下偏差，并以^符号分隔。

yinwh

最初由 fjzdl 发布
[B]用多行文本编辑更方便。 [/B]

原来是这样，我又学到了一招！！哈哈

可是这样，如果标好了以后想改，能不能通过多行文字来改呢？

不知道可不可以写一个lisp程序来简化标注公差
我正在写，如果成功了我就发上来

fjzdl

不要打散的，和0001兄的方法是一个道理的两个方法，我想会更方便些！

yinwh

如果标好了以后想改，能不能通过多行文字来改呢

fjzdl

可以在特性匹配里改的。

yinwh

程序写好了

2. 
   
3. (defun c:gongcha()
   
4.   (setvar "cmdecho" 0)           ;命令执行过程不响应
   
5.   (setq tt 1)
   
6.   (while (= tt 1)                  
   
7.     (setq en (entsel "\n请选取一个标注："))         ;拾取一个标注
   
8.       (if (/= en nil)
   
9.        (progn
   
10.         (setq en_data (entget (car en)))             ;取得对象属性列表
    
11.         (setq qname (cdr (assoc 0 en_data)))        
    
12.         (if (= qname "DIMENSION")  (setq tt nil))     ;如果选取的是标注，退出while判断
    
13.        )
    
14.       )
    
15.   )
    
16. 
    
17.   (setq old_text (assoc 1 en_data))              ;取得旧标注文本子列表
    
18.   (initget 1)
    
19.   (setq chicun (getreal "\n请输入新尺寸值："))          ;输入新基本尺寸
    
20.   (setq chicun1 (rtos chicun))                          ;将尺寸转化为字符串
    
21.   (initget 1)
    
22.   (setq daihao (getstring "\n请输入公差代号及公差等级："))    ;输入公差代号及公差等级
    
23.   (initget 1)
    
24.   (setq shangpc (getreal "\n请输入上偏差："))              ;输入上偏差值
    
25.   (cond ((> shangpc 0) (setq shangpc1 (strcat "+" (rtos shangpc))) )      ;以下先将上偏差值转化为字符串，上偏差若为正，则在前面加上一个"+"，若为0，则空出2格以对齐
    
26.         ((= shangpc 0) (setq shangpc1 (strcat "  " (rtos shangpc))) )
    
27.         (t             (setq shangpc1 (rtos shangpc))              )
    
28.   )
    
29.   (initget 1)
    
30.   (setq xiapc (getreal "\n请输入下偏差："))
    
31.   (cond ((> xiapc 0) (setq xiapc1 (strcat "+" (rtos xiapc)))     )      ;以下先将下偏差值转化为字符串，下偏差若为正，则在前面加上一个"+"，若为0，则空出2格以对齐
    
32.         ((= xiapc 0) (setq xiapc1 (strcat "  " (rtos xiapc)))     )
    
33.         (t             (setq xiapc1 (rtos xiapc))                )
    
34.   )
    
35. 
    
36.   (setq new_text0 (strcat chicun1 daihao "\\H0.5x\\S" shangpc1 "^" xiapc1))   ;合并出新的标注文本
    
37.   (setq new_text (cons 1 new_text0))                   ;产生新的标注文本子列表
    
38.   (setq en_data (subst new_text old_text en_data))     ;替换文本子列表
    
39.   (entmod en_data)    ;立即更新文本子列表
    
40.   (prin1)
    
41. )
    

<br /> (defun c:gongcha()<br />   (setvar "cmdecho" 0)           ;命令执行过程不响应<br />   (setq tt 1)<br />   (while (= tt 1)                   <br />     (setq en (entsel "\n请选取一个标注："))         ;拾取一个标注<br />       (if (/= en nil)<br />        (progn<br />         (setq en_data (entget (car en)))             ;取得对象属性列表<br />         (setq qname (cdr (assoc 0 en_data)))        <br />         (if (= qname "DIMENSION")  (setq tt nil))     ;如果选取的是标注，退出while判断<br />        )<br />       )<br />   )<br /> <br />   (setq old_text (assoc 1 en_data))              ;取得旧标注文本子列表<br />   (initget 1)<br />   (setq chicun (getreal "\n请输入新尺寸值："))          ;输入新基本尺寸<br />   (setq chicun1 (rtos chicun))                          ;将尺寸转化为字符串<br />   (initget 1) <br />   (setq daihao (getstring "\n请输入公差代号及公差等级："))    ;输入公差代号及公差等级<br />   (initget 1)<br />   (setq shangpc (getreal "\n请输入上偏差："))              ;输入上偏差值<br />   (cond ((> shangpc 0) (setq shangpc1 (strcat "+" (rtos shangpc))) )      ;以下先将上偏差值转化为字符串，上偏差若为正，则在前面加上一个"+"，若为0，则空出2格以对齐<br />         ((= shangpc 0) (setq shangpc1 (strcat "  " (rtos shangpc))) )<br />         (t             (setq shangpc1 (rtos shangpc))              )<br />   )<br />   (initget 1)<br />   (setq xiapc (getreal "\n请输入下偏差："))<br />   (cond ((> xiapc 0) (setq xiapc1 (strcat "+" (rtos xiapc)))     )      ;以下先将下偏差值转化为字符串，下偏差若为正，则在前面加上一个"+"，若为0，则空出2格以对齐<br />         ((= xiapc 0) (setq xiapc1 (strcat "  " (rtos xiapc)))     )<br />         (t             (setq xiapc1 (rtos xiapc))                )<br />   )<br /> <br />   (setq new_text0 (strcat chicun1 daihao "\\H0.5x\\S" shangpc1 "^" xiapc1))   ;合并出新的标注文本<br />   (setq new_text (cons 1 new_text0))                   ;产生新的标注文本子列表<br />   (setq en_data (subst new_text old_text en_data))     ;替换文本子列表<br />   (entmod en_data)    ;立即更新文本子列表<br />   (prin1)<br /> )<br />

我想这下会方便很多的
可以先随意标上，然后在命令行输入gongcha 回车就可以修改了
如果觉得好用，可以将这条命令添加到工具条中。

第一行应该是
(defun c:gongcha()

。。为什么总是有个图片挡着。。

clement

自以为标注已不是问题,哪知是坐井观天.真是感谢各位仁兄!

yxianfo

最初由 yinwh 发布
[B]如果标好了以后想改，能不能通过多行文字来改呢 [/B]

可在命令行中输入 ED （即DDEDIT命令）后按回车键，鼠标选择要修改的尺寸数字，再在多行文字编辑器中用 Deiete 键将 < > 符号删除，键入新的尺寸数字后点击多行文字编辑器上的“确认”按钮即可。若是公差，如本例，则键入 345H7+0.123^－0.456 后，按住鼠标选择 +0.123^－0.456 ，选中后多行文字编辑器上的堆叠按纽“a/b”会亮显，点击此按钮，再点击多行文字编辑器上的“确定”按钮即可完成。（若觉得公差+，－号离H7太近，可在H7后加一空格）
  注： 若只在原未改的尺寸数字前（或后）作数字（或字母）的添加，则多行文字编辑器上中的 < > 符号不须删除，只在此符号前（或后）添加数字（或字母）即可。可见，< > 符号是表示原未改的尺寸数字。
  熟悉后就会觉得此种方法很快捷。

Terrychf

谢谢了！但是我觉得如果只要求标注上去，可以把标注炸开后用文字写上去，估计这是山穷水尽后的一条路了。

ewppin

哇，我想问手动标注怎作，随意标注的那种。我用2002，默认是自动。

zhuizuzhe

哈哈……
又学会一招！多谢了！

wlp001

最初由 ewppin 发布
[B]哇，我想问手动标注怎作，随意标注的那种。我用2002，默认是自动。 [/B]

你说的是这样吗？

wxf200_0

五楼fjzdl  你的方法很好，但是我用这个方法怎么不行！~
请指教，谢谢！~    还请各位高手也帮小弟一个忙！~
（下面是我遇到的具体情况！~  有图片为正）