[求助]：标注文字改为代替值

cq_qg

因为某些长度较大，而受绘图比例的限制，比如想将水平距离或竖向距离部分改变，而其它还是按比例标注，想将欲改变部分将其标注值改成代替值，这样拉伸时标注值就不会变了。总是先按实际比例绘图并标注，再根据其值手动一个个改，遇到好多个的时候很是麻烦，能不能编个程序选择某些欲改变的标注，将其改为代替值，这样就可以拉伸了。
expresstools里面有一个恢复原值，而这个相当于反相功能。

yi.gao

全选这些标注对象然后在特性中更改为替换值。

cq_qg

不是这样的，这样只能改为一个值。
我的目的是原来标注的值是多少就改成多少。

carrot1983

不早说.....
[PHP](princ "\n>>>请输入tt,将标注实际值转替代值<<<")
(defun c:tt (/ DATA I NA SLEN SS V42)
  (setq dimz (getvar "dimzin"))
  (setvar "dimzin" 0);_此处是为了消零
  (if (and (setq ss (ssget '((0 . "DIMENSION"))))
           (setq dec (getint "\n>>>请输入标注小数位数:"))
      )
    (progn
      (setq slen (- (sslength ss) 1))
      (setq i 0)
      (while (<= i slen)
        (setq na (ssname ss i))
        (setq data (entget na))
        (setq v42 (rtos (cdr (assoc 42 data)) 2 dec))
        (setq data (subst (cons 1 v42) (assoc 1 data) data))
        (entmod data)
        (setq i (+ i 1))
      )
    )
  )
  (setvar "dimzin" dimz)
  (princ)
)

[/PHP]

aeo

(defun c:dt (/ ww w)
  (setq ww (ssget))
  (setq w (getstring "new"))
  (command "dim1" "_newtext" w ww "")
)

xieyanghui123

(defun c:EQ (/ zx)
  (setq zx (getstring "\n Enter new text:"))
  (command "dim1" "newtext" zx)
)

carrot1983

最初由 aeo 发布
[B](defun c:dt (/ ww w)
  (setq ww (ssget))
  (setq w (getstring "new"))
  (command "dim1" "_newtext" w ww "")
) [/B]

版主厉害．
dim1命令都没用过．．

pig2

我2004年就注册了嘛。。。。。。omgd

and2008

dim1＝dim？？

Free-Lancer

访问标注模式

命令条目:dim 或 dim1
标注: 输入标注模式命令

“标注”提示表示正处于标注模式，在此模式下可以使用一组特殊的标注命令。（仅为与早期版本兼容而提供了 DIM 和 DIM1 。）

使用 DIM 命令可在使用标注命令后仍停留在标注模式中。使用 DIM1 命令可在执行标注命令后立即返回命令提示。要退出标注模式，请输入 e 或 exit，或按 ESC 键。


or


Dimedit -> N

zml84

学习了。。

enixing

有难度。。。慢慢消化

asdttkjn

好

leeyuan

版主这段代码简洁明了，赞一个[php](defun c:dt (/ ww w)
(setq ww (ssget))
(setq w (getstring "new"))
(command "dim1" "_newtext" w ww "")
) [/php]

wangggll1234

真是太方便的工具。感謝分享