求可记忆的修改文字与标注文字高度的代码

lucas3 · 发表于 2014-2-24 19:00:01

求助一个支持框选改文字高度同标注文字高度的代码，修改字高后能记忆，下次输入文字和标注时自动沿用上次记忆的高度，但不要将没有选中的文字高度同标注文字高度改变！非常感谢！

Free-Lancer · 发表于 2014-2-24 19:00:02

用这个试试

(defun c:tt (/ hi ss)
(fy:begin)
(if (setq hi (getdist (strcat "\nTextSize<"
(vl-princ-to-string (getvar "textsize"))
">: "
)
)
)
(setvar "textsize" hi)
(setq hi (getvar "textsize"))
)
(if (ssget '((0 . "*Text,Dim*")))
(mapcar
'(lambda (x / typ)
(if (wcmatch (strcase (vla-get-objectname x))
"*DIM*"
)
(vlax-put x "TextHeight" hi)
(vlax-put x "Height" hi)
)
)
(fy:cset->objs)
)
)
(fy:end)
(princ)
)

天青色 · 发表于 2014-2-24 21:00:01

方法应该有，可以把上次文字高度写入到外部文件，下次输入文字时调入外部文件，设置文字高度

lucas3 · 发表于 2014-2-25 00:04:00

据说可以用“字典” ，还请元老st788796出手帮忙解决，万分感谢！

st788796 · 发表于 2014-2-25 00:20:46

(defun c:tt (/ hi ss)
(if (setq
hi (getdist (if **XDTextSize**
(strcat "\nTextSize<"
(vl-princ-to-string **XDTextSize**)
">: "
)
"\nTextSize: "
)
)
)
(setq **XDTextSize** hi)
(setq hi **XDTextSize**)
)
(if (and **XDTextSize**
(setq ss (ssget '((0 . "*Text,Dim*"))))
)
(mapcar
'(lambda (x / typ)
(setq typ (strcase (xdrx_getpropertyvalue x "IsA")))
(cond
((wcmatch typ "*MTEXT")
(xdrx_setpropertyvalue
x
"TextHeight"
hi
)
)
((wcmatch typ "*TEXT")
(xdrx_setpropertyvalue x "Height" hi)
)
(t
(xdrx_setpropertyvalue
x
"Dimtxt"
(/ hi (xdrx_getpropertyvalue x "Dimscale"))
)
)
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ hi ss) 
  (if (setq 
        hi (getdist (if        **XDTextSize** 
                      (strcat "\nTextSize<" 
                              (vl-princ-to-string **XDTextSize**) 
                              ">: " 
                      ) 
                      "\nTextSize: " 
                    ) 
           ) 
      ) 
    (setq **XDTextSize** hi) 
    (setq hi **XDTextSize**) 
  ) 
  (if (and **XDTextSize** 
           (setq ss (ssget '((0 . "*Text,Dim*")))) 
      ) 
    (mapcar 
      '(lambda (x / typ) 
         (setq typ (strcase (xdrx_getpropertyvalue x "IsA"))) 
         (cond 
           ((wcmatch typ "*MTEXT") 
            (xdrx_setpropertyvalue 
              x 
              "TextHeight" 
              hi 
            ) 
           ) 
           ((wcmatch typ "*TEXT") 
            (xdrx_setpropertyvalue x "Height" hi) 
           ) 
           (t 
            (xdrx_setpropertyvalue 
              x 
              "Dimtxt" 
              (/ hi (xdrx_getpropertyvalue x "Dimscale")) 
            ) 
           ) 
         ) 
       ) 
      (xdrx_pickset->ents ss) 
    ) 
  ) 
  (princ) 
)

lucas3 · 发表于 2014-2-25 08:52:52

st788796 发表于 2014-2-25 00:20

谢谢元老出手相助！关于记忆可能我解释的不清楚，我的意思是假如我将一个标注的文本高度由2.5改为5之后，我再次使用标注命令时，文字默认高度就是5，或者我将一单行文本高度由5改为3之后，当我再次运行text命令时，不用键入字高，默认就应该是3，不知道这样能不能做到？

st788796 · 发表于 2014-2-25 08:59:41

本帖最后由 st788796 于 2014-2-25 09:04 编辑

改成设置 textsize 系统变量

(defun c:tt (/ hi ss)
(if (setq hi (getdist (strcat "\nTextSize<"
(vl-princ-to-string (getvar "textsize"))
">: ")
)
)
(setvar "textsize" hi)
(setq hi (getvar "textsize"))
)
(if (setq ss (ssget '((0 . "*Text,Dim*"))))
(mapcar
'(lambda (x / typ)
(setq typ (strcase (xdrx_getpropertyvalue x "IsA")))
(cond
((wcmatch typ "*MTEXT")
(xdrx_setpropertyvalue
x
"TextHeight"
hi
)
)
((wcmatch typ "*TEXT")
(xdrx_setpropertyvalue x "Height" hi)
)
(t
(xdrx_setpropertyvalue
x
"Dimtxt"
(/ hi (xdrx_getpropertyvalue x "Dimscale"))
)
)
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun c:tt (/ hi ss) 
  (if (setq hi (getdist        (strcat        "\nTextSize<" 
                                (vl-princ-to-string (getvar "textsize")) 
                                ">: ") 
               ) 
      ) 
    (setvar "textsize" hi) 
    (setq hi (getvar "textsize")) 
  ) 
  (if (setq ss (ssget '((0 . "*Text,Dim*")))) 
    (mapcar 
      '(lambda (x / typ) 
         (setq typ (strcase (xdrx_getpropertyvalue x "IsA"))) 
         (cond 
           ((wcmatch typ "*MTEXT") 
            (xdrx_setpropertyvalue 
              x 
              "TextHeight" 
              hi 
            ) 
           ) 
           ((wcmatch typ "*TEXT") 
            (xdrx_setpropertyvalue x "Height" hi) 
           ) 
           (t 
            (xdrx_setpropertyvalue 
              x 
              "Dimtxt" 
              (/ hi (xdrx_getpropertyvalue x "Dimscale")) 
            ) 
           ) 
         ) 
       ) 
      (xdrx_pickset->ents ss) 
    ) 
  ) 
  (princ) 
)

lucas3 · 发表于 2014-2-25 12:57:30

st788796 发表于 2014-2-25 08:59
改成设置 textsize 系统变量

谢谢大师，文字的可以了，可是标注的不行

st788796 · 发表于 2014-2-25 14:11:56

lucas3 发表于 2014-2-25 12:57
谢谢大师，文字的可以了，可是标注的不行

2014测试通过

lucas3 · 发表于 2014-2-25 14:19:40

本帖最后由 lucas3 于 2014-2-25 14:25 编辑

st788796 发表于 2014-2-25 14:11
2014测试通过

我这儿用的2010,刚刚又测试过，还是不行，这是什么原因呢？

lucas3 · 发表于 2014-2-25 19:11:53

Free-Lancer 发表于 2014-2-25 14:39
用这个试试

Free-Lancer ,谢谢你的代码，我用2010同2007测试过，对于文字可以，对于标注还是不行，默认标注时字高都是2.5，运行程序将标注文字高度改到1后，再次标注，还是2.5的字高

st788796 · 发表于 2014-2-25 20:34:25

lucas3 发表于 2014-2-25 19:11
Free-Lancer ,谢谢你的代码，我用2010同2007测试过，对于文字可以，对于标注还是不行，默认标注时字高都 ...

标注要用标注样式，改字高不是一个规范制图

lucas3 · 发表于 2014-2-25 20:38:22

st788796 发表于 2014-2-25 20:34
标注要用标注样式，改字高不是一个规范制图

如果改标注样式，那不是所有基与此标注样式的字高都改变呢？

st788796 · 发表于 2014-2-25 20:43:49

本帖最后由 st788796 于 2014-2-25 22:05 编辑

lucas3 发表于 2014-2-25 20:38
如果改标注样式，那不是所有基与此标注样式的字高都改变呢？

设dimtxt系统变量试试看，标注都是基于样式的，这样就会出现"替代样式"
标注文字高度受字高及标注比例影响，变换样式后会有不同表现，除非你的标注只用一种，随时改字高

lucas3 · 发表于 2014-2-26 13:19:07

st788796 发表于 2014-2-25 20:43
设dimtxt系统变量试试看，标注都是基于样式的，这样就会出现"替代样式"
标注文字高度受字高及标注比例 ...

谢谢大侠，我将FL的代码转到明经，edata帮我改好了，用的是“样式替代”的方式

账号		自动登录	找回密码
密码			立即注册

[已解决] 求可记忆的修改文字与标注文字高度的代码

最佳答案

相关帖子

点评

点评

点评

点评

点评

点评

点评