社区 › AutoLISP/Visual LISP 编程技术 › 求可记忆的修改文字与标注文字高度的代码

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

edata 发表于 2014-2-26 12:45 static/image/common/back.gif
没注意看代码；

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

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

lucas_3333 发表于 2014-2-26 17:13 static/image/common/back.gif
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:36

edata 发表于 2014-2-27 10:25 static/image/common/back.gif


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

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

这个问我也很需要解答

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

lucas_3333 发表于 2014-2-27 10:39 static/image/common/back.gif
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:06

edata 发表于 2014-2-28 13:32 static/image/common/back.gif


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

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

对于改了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)
)

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

试试直接改 DIMSCALE

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

edata 发表于 2014-2-28 17:09 static/image/common/back.gif
对于改了dimtsz变量替换小箭头无效

谢谢E大，现在可以了！

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

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

谢谢各位！谢谢E大

查看完整版本: 求可记忆的修改文字与标注文字高度的代码