[讨论]：为什么用entmod改变不了尺寸中的文字位置(组码11)

lzy9788

为什么用entmod改变不了尺寸中的文字位置(组码11)

ll_j

标注的更改不是那么简单，使用Entmod改变标注文字位置是可以的，但需要这种标注样式的系统变量Dimtmove（dimstyle组码279）设置为2才可以。

lzy9788

多谢长老指点。

我试了下，好像不行哦

ll_j

再试试将标注的组码70值加上128。

aidraft

;;应该entmod块定义
;;Author: Mayfarth, Herman. Modified by AIdraft 6/9/04
(defun C:test (/ ename newpoint dimfirst ent elist etype)
  (setq        ename         (car (entsel "\n选择尺寸: "))
        newpoint (getpoint "\n文字新位置:")
        )
  ;;if ename is the entity name of the DIMENSION entity
  (setq dimfirst (tblsearch "BLOCK" (cdr (assoc 2 (entget ename)))))
;block table entry
  (setq ent (cdr (assoc -2 dimfirst)))
;extract first entity name in block
  (while (setq ent (entnext ent)) ;step through block definition
    (setq
      elist (entget ent)
      etype (cdr (assoc 0 elist))
      )
    (if        (= etype "MTEXT") ;find the first MTEXT
      ;;change the insertion point of MTEXT
      (entmod (subst (cons 10 newpoint) (assoc 10 elist) elist))
      )
    ) ;end while
  (entupd ename) ;update the MTEXT entity in the block definition
  )

ll_j

最初由 aidraft 发布
[B];;应该entmod块定义
;;Author: Mayfarth, Herman. Modified by AIdraft 6/9/04
(defun C:test (/ ename newpoint dimfirst ent elist etype)
  (setq        ename         (car (entsel "\n选择尺寸: "))
        newpoint (getpoint... [/B]

好主意，我竟然忘了，Acad的这个“影子”功能太强大了，不仅仅是标注，在其他地方也有类似的踪迹。
使用下面的几句代码可以将层“0”的颜色改为红色，这是不使用command函数的方法，也是使用的“影子”（tblobjname）。

2. (setq aa (entget (tblobjname "layer" "0")))
   
3. (setq aa (subst '(62 . 1) (assoc 62 aa) aa))
   
4. (entmod aa)

(setq aa (entget (tblobjname "layer" "0")))<br /> (setq aa (subst '(62 . 1) (assoc 62 aa) aa))<br /> (entmod aa)

urljit

ll_j长老：你好，可以将你的思路用到修改style上么？看看这里吧http://www.xdcad.net/forum/showthread.php?s=&threadid=259197

ll_j

修改定义字体是可以的，我前几天试过，但对现在的TTF字体好像有问题，将“宋体”“仿宋_GB2312”等改变为shx文件可以，但改回来就不行了，替换的组码3为“simsun.ttf”（实际文件是“simsun.ttc”）、“simfang.ttf”，系统就不认了。好像在什么地方记忆“宋体＝simsun.ttf”，而没有记忆“simsun.ttf＝宋体”。

oyxx_1023

我遇到和楼上同样的问题。
而且在R14下面，如果文字样式中的字体为“仿宋_GB2312"（我只试过这一种字体）的时候，发现样式的组码3的值竟然为空。

它山之石

我是这样来修改标注文字位置的。
提供源程序如下：
顺便请哪位高手帮我把的那个小错误改进。

2. 
   
3. ;;;       =============================================
   
4. ;;;       |         尺寸标注数字位置修改软件          |
   
5. ;;;       |           Update: 2003.10.28              |
   
6. ;;;       =============================================
   
7. 
   
8. (defun chgterr (s)
   
9.   (if (/= s "命令被取消")                ; If an error (such as CTRL-C) occurs
   
10.     (princ (strcat "\n错误: " s))        ; while this command is active...
    
11.   )
    
12.   (setvar "CMDECHO" 0)
    
13.   (command "undo" "e")
    
14.   (setq p nil)                                ; Free selection set
    
15.   (setq *error* olderr)                        ; Restore old *error* handler
    
16.   (princ)
    
17. )
    
18. 
    
19. (defun c:bx (/ xzsx ss xzs n stm)
    
20. 
    
21.   (princ (strcat "\n***尺寸标注数字位置修改软件V031028  葛磊***"))
    
22.   (princ (strcat "\n        [共享软件，版权所有]"))
    
23.   (princ)
    
24. 
    
25.   (command "undo" "be")
    
26.   (setq        olderr        *error*                        ; Initialize variables
    
27.         *error*        chgterr
    
28.   )
    
29. 
    
30.   (setvar "cmdecho" 0)
    
31. 
    
32.   (initget "Z C S X")
    
33.   (setq XZSX (getkword "\n上移S / 下移X / 左移Z / 右移C / <居中>"))
    
34. 
    
35. 
    
36.   (setq ss (ssget '((0 . "DIMENSION"))))
    
37.   (if ss                                ; 如果选取到了实体
    
38.     (progn
    
39.       (setq xzs (sslength ss))                ;xzs---选择实体的个数
    
40.       (setq n 1)                        ;n---实体数
    
41.       (while (<= n xzs)                        ;对选取的字符串逐个进行处理
    
42.         (setq stm (ssname ss (1- n)))        ;stm---实体名称
    
43. ;;;dimoverride 指定临时标注系统变量设置来替代当前标注设置
    
44. ;;;dimtad 控制文字相对尺寸线的垂直位置
    
45.         (cond
    
46.           ((OR (= XZSX "s") (= XZSX "S"))
    
47.            (command "_.dimoverride" "_dimtad" 1 "" stm "")
    
48.            (command "_.dimoverride" "_dimGAP" 400 "" stm "")
    
49.           )
    
50.           ((OR (= XZSX "X") (= XZSX "x"))
    
51.            (command "_.dimoverride" "_dimGAP" 100 "" stm "")
    
52.            (command "_.dimoverride" "_dimtad" 2 "" stm "")
    
53.           )
    
54.           ((equal XZSX nil)
    
55.            (command "_.dimoverride" "_dimtad" 1 "" stm "")
    
56.            (command "_.dimoverride" "_dimGAP" 100 "" stm "")
    
57.            (command "_.dimoverride" "_dimjust" 0 "" stm "" "_.dimtedit" stm "_h")
    
58.           )
    
59.         )
    
60.         (setq n (+ 1 n))                ;下一个实体
    
61.       )                                        ;while
    
62.     )                                        ;progn
    
63.   )                                        ;if
    
64. 
    
65.   (setq *error* olderr)                        ; Restore old *error* handler
    
66.   (command "undo" "e")
    
67. 
    
68.   (princ (strcat "\n***尺寸标注数字位置修改软件V031028  葛磊***"))
    
69.   (princ (strcat "\n        [共享软件，版权所有]"))
    
70.   (princ)
    
71. )
    
72. 
    
73. 
    
74. ;;;V030724新增功能
    
75. ;;;   1、新建程序，受XDSOFT的启发，最初是为了使尺寸标注中数字的位置改变后能自动归位。
    
76. ;;;      事实上是参考了CAD菜单中该功能的程序基础上加以改进。并实现了使数字高出，以
    
77. ;;;      避开重叠在一起的标注。TSSD中该功能是使数字向两侧偏。
    
78. ;;;   2、数字下降程序有点小问题，也许只能通过计算坐标来实现。
    
79. 
    

<br /> ;;;       =============================================<br /> ;;;       |         尺寸标注数字位置修改软件          |<br /> ;;;       |           Update: 2003.10.28              |<br /> ;;;       =============================================<br /> <br /> (defun chgterr (s)<br />   (if (/= s "命令被取消")                ; If an error (such as CTRL-C) occurs<br />     (princ (strcat "\n错误: " s))        ; while this command is active...<br />   )<br />   (setvar "CMDECHO" 0)<br />   (command "undo" "e")<br />   (setq p nil)                                ; Free selection set<br />   (setq *error* olderr)                        ; Restore old *error* handler<br />   (princ)<br /> )<br /> <br /> (defun c:bx (/ xzsx ss xzs n stm)<br /> <br />   (princ (strcat "\n***尺寸标注数字位置修改软件V031028  葛磊***"))<br />   (princ (strcat "\n        [共享软件，版权所有]"))<br />   (princ)<br /> <br />   (command "undo" "be")<br />   (setq        olderr        *error*                        ; Initialize variables<br />         *error*        chgterr<br />   )<br /> <br />   (setvar "cmdecho" 0)<br /> <br />   (initget "Z C S X")<br />   (setq XZSX (getkword "\n上移S / 下移X / 左移Z / 右移C / <居中>"))<br /> <br /> <br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />   (if ss                                ; 如果选取到了实体<br />     (progn<br />       (setq xzs (sslength ss))                ;xzs---选择实体的个数<br />       (setq n 1)                        ;n---实体数<br />       (while (<= n xzs)                        ;对选取的字符串逐个进行处理<br />         (setq stm (ssname ss (1- n)))        ;stm---实体名称<br /> ;;;dimoverride 指定临时标注系统变量设置来替代当前标注设置<br /> ;;;dimtad 控制文字相对尺寸线的垂直位置<br />         (cond<br />           ((OR (= XZSX "s") (= XZSX "S"))<br />            (command "_.dimoverride" "_dimtad" 1 "" stm "")<br />            (command "_.dimoverride" "_dimGAP" 400 "" stm "")<br />           )<br />           ((OR (= XZSX "X") (= XZSX "x"))<br />            (command "_.dimoverride" "_dimGAP" 100 "" stm "")<br />            (command "_.dimoverride" "_dimtad" 2 "" stm "")<br />           )<br />           ((equal XZSX nil)<br />            (command "_.dimoverride" "_dimtad" 1 "" stm "")<br />            (command "_.dimoverride" "_dimGAP" 100 "" stm "")<br />            (command "_.dimoverride" "_dimjust" 0 "" stm "" "_.dimtedit" stm "_h")<br />           )<br />         )<br />         (setq n (+ 1 n))                ;下一个实体<br />       )                                        ;while<br />     )                                        ;progn<br />   )                                        ;if<br /> <br />   (setq *error* olderr)                        ; Restore old *error* handler<br />   (command "undo" "e")<br /> <br />   (princ (strcat "\n***尺寸标注数字位置修改软件V031028  葛磊***"))<br />   (princ (strcat "\n        [共享软件，版权所有]"))<br />   (princ)<br /> )<br /> <br /> <br /> ;;;V030724新增功能<br /> ;;;   1、新建程序，受XDSOFT的启发，最初是为了使尺寸标注中数字的位置改变后能自动归位。<br /> ;;;      事实上是参考了CAD菜单中该功能的程序基础上加以改进。并实现了使数字高出，以<br /> ;;;      避开重叠在一起的标注。TSSD中该功能是使数字向两侧偏。<br /> ;;;   2、数字下降程序有点小问题，也许只能通过计算坐标来实现。<br /> <br />

urljit

楼上的朋友：经过我的试验，你的程序在下移的时候没问题呀。（见图）
可是，你的程序有问题的是你不应该用具体的数值来决定移动的距离，这样有可能会造成某些过大、过小的尺寸线出现问题。

它山之石

　　1、程序下移数字时的问题出现在标注起始点在下方时（针对上图而言），它保持不动。
　　2、关于使用了具体数值的问题，是这样的：原来写这个程序只是自己用，没考虑那么多关于通用性的问题。回头我就将它改正。
　　3、关于左右方向移动的问题，暂时还没时间考虑。

urljit

他山之石：如果你要完成你的如此功能，按照我的思路不应该用系统变量的形式，而是用（cons 1x newpt） 然后entmod，等等，至于那些需要改变，就应该研究试验一下了（即所谓程序的核心）。

它山之石

最初由 lzy9788 发布
[B]为什么用entmod改变不了尺寸中的文字位置(组码11) [/B]

　　URLJIT：正是因为楼主提出了这个问题。所以我贴了我的程序进来。你的建议我会考虑的，也许可以利用ENTMOD的，以前我没试过，是参考了晓东的程序思路编的。

urljit

可能是dimstyle的问题，我也发现了，有时候是可以的，有时候却不可以。