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

lucas_3333 · 发表于 2014-2-26 17:13

edata 发表于 2014-2-26 12:45
没注意看代码；

E大，很不错，谢谢了！还有一点点问题，改变标注文字大小时，箭头大小没有改变。

edata · 发表于 2014-2-27 10:25

lucas_3333 发表于 2014-2-26 17:13
E大，很不错，谢谢了！还有一点点问题，改变标注文字大小时，箭头大小没有改变。

(defun c:tt (/ hi ss)
(fy:begin)
(if (setq hi (getdist (strcat "\nTextSize<"
(vl-princ-to-string (getvar "textsize"))
">: "
)
)
)
(progn
(setvar "textsize" hi)
(setvar "dimtxt" hi)
(setvar "dimasz" 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)
)

lucas_3333 · 发表于 2014-2-27 10:39

edata 发表于 2014-2-27 10:25

E大，谢谢你，我刚才试了，箭头大小还是没变化

848818376 · 发表于 2014-2-27 13:06

这个问我也很需要解答

edata · 发表于 2014-2-28 13:32

lucas_3333 发表于 2014-2-27 10:39
E大，谢谢你，我刚才试了，箭头大小还是没变化

(defun c:tt (/ hi ss)
(fy:begin)
(if (setq hi (getdist (strcat "\nTextSize<"
(vl-princ-to-string (getvar "textsize"))
">: "
)
)
)
(progn
(setvar "textsize" hi)
(setvar "dimtxt" hi)
(if (zerop (getvar "dimtsz"))(setvar "dimasz" hi)
(setvar "dimtsz" (/ hi (getvar "DIMSCALE"))))
)
(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)
)

lucas_3333 · 发表于 2014-2-28 14:26

edata 发表于 2014-2-28 13:32

E大，谢谢您的再次修改，我刚才测试发现被修改字高的标注箭头大小没有改变，但修改字高后，重新运行标注命令标注，这时标注出来的箭头同字高都对了，希望E大能解决这个问题，谢谢！谢谢！

edata · 发表于 2014-2-28 17:09

对于改了dimtsz变量替换小箭头无效

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

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

ivde · 发表于 2014-2-28 18:34

试试直接改 DIMSCALE

lucas_3333 · 发表于 2014-2-28 23:05

edata 发表于 2014-2-28 17:09
对于改了dimtsz变量替换小箭头无效

谢谢E大，现在可以了！

lucas_3333 · 发表于 2014-2-28 23:12

本帖最后由 lucas_3333 于 2014-5-19 15:59 编辑

谢谢各位！谢谢E大

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

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