[求助]：柔柔姐姐请进？不知道是不是07的bug？

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun df_err (s)
   
5.   (setvar "cmdecho" cm)
   
6.   (setvar "dimtfill" df)
   
7.   (command "undo" "e")
   
8. )
   
9. 
   
10. 
    
11. 
    
12. (defun c:bbn()
    
13.   (princ "\n** 打开被选择标注的文字背景 **")
    
14.   (setq cm (getvar "cmdecho"))
    
15.   (setq df (getvar "dimtfill"))
    
16.   (setq *error* df_err)
    
17.   (setvar "cmdecho" 1)
    
18.   (setq s1 (car (entsel "\n拾取要→|置为当前标注样式的标注|:")))
    
19.   (command "dimstyle" "r" "" s1)
    
20.   (setvar "dimtfill" 1)
    
21.   (princ "\n选择要更新样式的标注:")
    
22.   (setq s2 (ssget))
    
23.   (command "dimstyle" "apply" s2 "")
    
24.   (while (/= 0 (getvar "cmdactive"))(command pause))
    
25.   (setvar "cmdecho" cm)
    
26.   (setvar "dimtfill" df)
    
27.   (princ)
    
28. )
    
29. 
    
30. 
    
31. (defun c:bbf()
    
32.   (princ "\n** 关闭被选择标注的文字背景 **")
    
33.   (setq cm (getvar "cmdecho"))
    
34.   (setq df (getvar "dimtfill"))
    
35.   (setq *error* df_err)
    
36.   (setvar "cmdecho" 1)
    
37.   (setq s1 (car (entsel "\n拾取要→|置为当前标注样式的标注|:")))
    
38.   (command "dimstyle" "r" "" s1)
    
39.   (setvar "dimtfill" 0)
    
40.   (princ "\n选择要更新样式的标注:")
    
41.   (setq s2 (ssget))
    
42.   (command "dimstyle" "apply" s2 "")
    
43.   (while (/= 0 (getvar "cmdactive"))(command pause))
    
44.   (setvar "cmdecho" cm)
    
45.   (setvar "dimtfill" df)
    
46.   (princ)
    
47. )
    
48.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun df_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "dimtfill" df)<br />   (command "undo" "e")<br /> )<br /> <br /> <br /> <br /> (defun c:bbn()<br />   (princ "\n** 打开被选择标注的文字背景 **")<br />   (setq cm (getvar "cmdecho"))<br />   (setq df (getvar "dimtfill"))<br />   (setq *error* df_err)<br />   (setvar "cmdecho" 1)<br />   (setq s1 (car (entsel "\n拾取要→|置为当前标注样式的标注|:")))<br />   (command "dimstyle" "r" "" s1)<br />   (setvar "dimtfill" 1)<br />   (princ "\n选择要更新样式的标注:")<br />   (setq s2 (ssget))<br />   (command "dimstyle" "apply" s2 "")<br />   (while (/= 0 (getvar "cmdactive"))(command pause))<br />   (setvar "cmdecho" cm)<br />   (setvar "dimtfill" df)<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:bbf()<br />   (princ "\n** 关闭被选择标注的文字背景 **")<br />   (setq cm (getvar "cmdecho"))<br />   (setq df (getvar "dimtfill"))<br />   (setq *error* df_err)<br />   (setvar "cmdecho" 1)<br />   (setq s1 (car (entsel "\n拾取要→|置为当前标注样式的标注|:")))<br />   (command "dimstyle" "r" "" s1)<br />   (setvar "dimtfill" 0)<br />   (princ "\n选择要更新样式的标注:")<br />   (setq s2 (ssget))<br />   (command "dimstyle" "apply" s2 "")<br />   (while (/= 0 (getvar "cmdactive"))(command pause))<br />   (setvar "cmdecho" cm)<br />   (setvar "dimtfill" df)<br />   (princ)<br /> )<br />   [/FONT]<br />

上面的代码，当标注样式中的dimtfill为0时，两个代码都可以用！
但是如果手动的到标注样式中去改dimtfill的值为1的话，则bbf不能达到关闭文字背景的效果？
就算手动新建个dimtfill为0的标注替代，并将其置为当前样式也不能更新标注关闭文字背景呀，何解？
谢谢！

柔柔

我来个答非所问吧，

为什么要编这个程序？这个程序对我来说没有一点实用意义嘛。

dimtfill＝0和dimtfill＝1，外观完全一样，不同的是dimtfill＝1时遇到与其他对象交叉时尺寸文字可以遮盖掉其他对象，而没有与其他对象交叉时与dimtfill＝0根本就没有区别（外观看不出区别），

那好，
第一，尺寸标注本来就应该尽量避开其他对象的，避不开那是绝少的个别的罕见的无奈的，
第二，实在避不开，设置dimtfill＝1，有对象起作用，没对象跟dimtfill＝0一样，那就设置dimtfill＝1不就足够了？
第三，我使用图纸空间绘图，尺寸标注样式就只有一个，不需要“置为当前标注样式”