[求助]：如何从标注样式里取得DIMADEC的值？

fish710605

下面是某标注样式的数据，为何找不到关于角度尺寸精度控制变量DIMADEC的值（应该是组码179），明明在帮助文件里写有此变量啊！

fish710605

对话框　如下所示：

YueFeng

可能是直接由当前的系统变量DIMADEC控制。

fish710605

我试过的，系统变量DIMADEC只是控制当前标注样式的角度标注精度，可我需要的是某标注尺寸所属标注样式的DIMADEC变量（179组码）的值，可能它不是当前的标注样式。在帮助文件里找到关于变量DIMADEC的说明如下：
类型:  整数
保存位置:  图形
初始值:  0

控制角度标注中显示精度的小数位数。

-1　　角度标注显示由 DIMDEC 指定的小数位数。
0-8　　指定角度标注中显示的小数位数（与 DIMDEC 无关）

在关于DXF文件说明的TABLE（表节）里可以找到以下内容：

179　　DIMADEC

根据我的理解如果标注样式里设定了角度标注的精度，文件数据库里应该有关于此变量的记录。根据以上资料我找不到所需内容，这几天好郁闷。有知还有别的资料吗？或是我的理解不够透彻。高手们帮下忙吧！非常感谢~~~~~~~~

xyp1964

1. [FONT=courier new];;;获取标注的精度
   
2. (vla-get-PrimaryUnitsPrecision (vlax-ename->vla-object (car(entsel))))
   
3. ;;;修改标注的精度
   
4. (vla-put-PrimaryUnitsPrecision (vlax-ename->vla-object (car(entsel))) 3)
   
5. [/FONT]

复制代码

狂刀

dxf１７９ 可能在扩展数据里面
试试(entget (car(entsel)) '("*"))
不过，还是ｖｌａ方法方便

xyp1964

批量修改标注的精度：

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
7. 1.在acad.lsp中增加(load"xyp_lib")
   
8. 2.在每个程序内增加(load"xyp_lib")
   
9. 3.在command下，输入(load"xyp_lib")
   
10. 4.在菜单.mnl中增加(load"xyp_lib")
    
11. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
13. 
    
14. ;;;修改标注的精度
    
15. (defun c:test155 (/ ss i)
    
16.   (CMDLA0)
    
17.   (setq        no1 (UINT 5 "" "\n标注精度" no1)
    
18.         ss  (ssget '((0 . "DIMENSION")))
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (vla-put-PrimaryUnitsPrecision
    
23.       (vlax-ename->vla-object s1)
    
24.       no1
    
25.     )
    
26.   )
    
27.   (CMDLA1)
    
28. )[/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|; <br /> <br /> ;;;修改标注的精度<br /> (defun c:test155 (/ ss i)<br />   (CMDLA0)<br />   (setq        no1 (UINT 5 "" "\n标注精度" no1)<br />         ss  (ssget '((0 . "DIMENSION")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (vla-put-PrimaryUnitsPrecision<br />       (vlax-ename->vla-object s1)<br />       no1<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]