[求助]：修改尺寸标注的对象数据表

marcoyuwen

各位高人，怎么修改尺寸标注对象数据表中的第11项的值。期待中。。。

zml84

1.  首先要得到实体的组码表。可以使用entget函数。
下面这是一个查看组码的工具：

2. 
   
3. ;;;列表显示实体的DXF群组码。
   
4. (DEFUN C:yyy (/ ss ent )
   
5.   (while
   
6.     (= (setq ss (entsel "\n请点选实体：")) nil)
   
7.   )
   
8.   (setq ent (entget (car ss ) '("*")))
   
9.   (princ "\n实体DXF群组码如下:")
   
10.   (foreach n ent
    
11.     (print n)
    
12.   )
    
13.   (princ)
    
14. )
    

<br /> ;;;列表显示实体的DXF群组码。<br /> (DEFUN C:yyy (/ ss ent )<br />   (while<br />     (= (setq ss (entsel "\n请点选实体：")) nil)<br />   )<br />   (setq ent (entget (car ss ) '("*")))<br />   (princ "\n实体DXF群组码如下:")<br />   (foreach n ent<br />     (print n) <br />   )<br />   (princ)<br /> )<br />

2.  要修改其中内容，可以使用 subst 函数；
3.  然后 使用 entmod 函数更新即可。

marcoyuwen

尺寸标注对象数据表中的第11项的值就是尺寸文本的中心坐标。
2楼楼主提供的信息是一般通用的做法，使用entget  subst  entmod三个函数，但事实上操作完以后发现，并不能更新此值。请2楼楼主查证。

zml84

兄弟，万变不离其宗。

2. 
   
3. (defun C:DD (/ ENT PT SS0 TMP)
   
4.     (princ "\n请点取标注对象: ")
   
5.     (if        (and (setq SS0 (ssget ":s" (list (cons 0 "dimension"))))
   
6.              (setq ENT (entget (ssname SS0 0) '("ACAD")))
   
7.              (setq TMP (cdr (assoc -3 ENT)))
   
8.              (setq PT (getpoint "\n文字新位置: "))
   
9.         )
   
10.         (progn
    
11.             (setq TMP '(-3
    
12.                         ("ACAD"
    
13.                          (1000 . "DSTYLE")
    
14.                          (1002 . "{")
    
15.                          (1070 . 279)
    
16.                          (1070 . 2)
    
17.                          (1002 . "}")
    
18.                         )
    
19.                        )
    
20.                   ENT (subst TMP (assoc -3 ENT) ENT)
    
21.             )
    
22.             (setq ENT (subst (cons 70 161) (assoc 70 ENT) ENT))
    
23.             (setq ENT (subst (cons 11 PT) (assoc 11 ENT) ENT))
    
24.             (entmod ENT)
    
25.         )
    
26.     )
    
27.     (princ)
    
28. )
    

<br /> (defun C:DD (/ ENT PT SS0 TMP)<br />     (princ "\n请点取标注对象: ")<br />     (if        (and (setq SS0 (ssget ":s" (list (cons 0 "dimension"))))<br />              (setq ENT (entget (ssname SS0 0) '("ACAD")))<br />              (setq TMP (cdr (assoc -3 ENT)))<br />              (setq PT (getpoint "\n文字新位置: "))<br />         )<br />         (progn<br />             (setq TMP '(-3<br />                         ("ACAD"<br />                          (1000 . "DSTYLE")<br />                          (1002 . "{")<br />                          (1070 . 279)<br />                          (1070 . 2)<br />                          (1002 . "}")<br />                         )<br />                        )<br />                   ENT (subst TMP (assoc -3 ENT) ENT)<br />             )<br />             (setq ENT (subst (cons 70 161) (assoc 70 ENT) ENT))<br />             (setq ENT (subst (cons 11 PT) (assoc 11 ENT) ENT))<br />             (entmod ENT)<br />         )<br />     )<br />     (princ)<br /> )<br />

jxdiy

只能多支持啊

攒钱下载

marcoyuwen

请问二楼楼主，怎么修改尺寸标注对象数据表中的第10项的值呢。请不吝赐教。

cy956

最初由 marcoyuwen 发布
[B]尺寸标注对象数据表中的第11项的值就是尺寸文本的中心坐标。
2楼楼主提供的信息是一般通用的做法，使用entget  subst  entmod三个函数，但事实上操作完以后发现，并不能更新此值。请2楼楼主查证。 [/B]

字串位置不在缺省位置时，还要改dxf70才可，你看看帮助就明白。
zm184的程序中就有这项。

enixing

我倒是想知道具体的对象数据表里面具体的每意向内容在哪里能查询呢

zml84

ACAD对象群组码表（pdf文档）   下载：
http://www.acad.net.cn/viewthread.php?tid=159&extra=page%3D1

marcoyuwen

七楼楼主果然是高手，那请问七楼楼主，如何更新第10项的值呢？

我欲成魔

新手，看不懂，谁有修改尺寸标注的源程序能不能发一个305756351@qq.com,谢谢