像这样改变当前标注文字高度

lucas3 · 发表于 2014-11-19 14:42:09

本帖最后由 lucas3 于 2014-11-19 15:05 编辑

复制代码

例1：选择A4图框作为A4纸打印时

->请输入1:1的标注文字高度 <2>: 2.5
->请指定要打印窗口的第一角点或 <退出>:
->请指定打印窗口的对角点或 <退出>:
->是否设置当前标注文字高度为[A4(4)/A3(3)/A2(2)/A1(1)/A0(0)/No(N)] <A4>:
->打印区域最佳文字高度为: A4=2.5 A3=1.8 A2=1.3 A1=0.9 A0=0.6
->当前标注文字高度已经设置为2.5!

复制代码

例2：选择A3图框作为A4纸打印时
->建议1:1的标注文字高度最佳为1.8-2.2
->请输入1:1的标注文字高度 <2.5>: 3
->请指定要打印窗口的第一角点或 <退出>:
->请指定打印窗口的对角点或 <退出>:
->打印区域最佳文字高度为: A4=4.2 A3=3 A2=2.1 A1=1.5 A0=1.1
->是否设置当前标注文字高度为[A4(4)/A3(3)/A2(2)/A1(1)/A0(0)/No(N)] <A3>: 4
->打印区域最佳文字高度为: A4=4.2 A3=3 A2=2.1 A1=1.5 A0=1.1
->当前标注文字高度已经设置为4.2!

例3：选择A4图框作为A3纸打印时

->建议1:1的标注文字高度最佳为1.8-2.2
->请输入1:1的标注文字高度 <3>:
->请指定要打印窗口的第一角点或 <退出>:
->请指定打印窗口的对角点或 <退出>:
->打印区域最佳文字高度为: A4=3 A3=2.1 A2=1.5 A1=1.1 A0=0.7
->是否设置当前标注文字高度为[A4(4)/A3(3)/A2(2)/A1(1)/A0(0)/No(N)] <A4>: 3
->打印区域最佳文字高度为: A4=3 A3=2.1 A2=1.5 A1=1.1 A0=0.7
->当前标注文字高度已经设置为2.1!

上面所示黄色的是需要用户输入或指定的
不知有朋友做过类似的程序吗？首先输入1:1标注的文字高度　，指定打印区域，指定打印的纸张大小，计算出最合适的标注文字高度……
……
……

csharp 大师提到的，这个改变当前标注文字高度不合理，这个可以去掉，只需要计算出来值，我可以根据这个值来设定标注样式
另外像这样
->请指定要打印窗口的第一角点或 <退出>:
->请指定打印窗口的对角点或 <退出>:
拾取图框范围这一步，可以简化，因为图框是属性块，所以只需拾取块即可

Free-Lancer · 发表于 2014-11-20 00:26:36

lucas3 发表于 2014-11-19 23:53
我们都是图框往图上放，要缩放图框的，如果缩放图形和尺寸，可能会出现一些可怕的问题！， ...

不是不可解决，既然用 AutoCAD 还是养成好的画图习惯

(defun c:tt (/ _string:decimal _changescale
_rectang:scale scl height
str ds
)
(defun _string:decimal (val / str)
(setvar "dimzin" 0)
(setq str (rtos val 2 24)
str (vl-string-right-trim "0" str)
str (vl-string-right-trim "." str)
)
)
(defun _changescale (h str)
(vlax-for obj (fy:cset)
(if (wcmatch (vla-get-objectname obj) "*Text")
(vlax-put obj 'height h)
(vlax-put obj 'stylename str)
)
)
)
(defun _rectang:scale (/ p1 p2 str lst v scl kw)
(if
(and (setq p1 (getpoint "\n基点: "))
(setq p2 (getcorner p1 "\n对角点: "))
(progn
(initget "1 2 3 4")
(setq kw (getkword "打印图框大小[A1(1)/A2(2)/A3(3)/A4(4)]: "))
)
(setq lst (assoc kw
'(("1" 841 594)
("2" 594 420)
("3" 420 297)
("4" 297 210)
)
)
)
)
(progn
(setq v (mapcar 'abs (mapcar '- p2 p1))
scl (mapcar '/ v (cdr lst))
)
(list (apply 'max scl) p1 p2)
)
)
)
(fy:begin)
(if (and (setq scl (_rectang:scale))
(progn
(princ "\nPlot Scale = ")
(princ (car scl))
t
)
(setq height (getdist "\n文字高度: "))
(ssget "_C"
(cadr scl)
(caddr scl)
'((0 . "dimension,text"))
)
)
(progn
(setq
str (vl-string-translate "." "-" (_string:decimal (car scl)))
)
(if (not (tblsearch "dimstyle" (strcat "FY-" str)))
(progn
(setq ds (vla-add (fy:acdimstyles) (strcat "FY-" str)))
(mapcar '(lambda (x)
(apply 'setvar x)
)
(cons (list "dimtxt" height)
(cons (list "dimscale" (car scl))
'(("dimdli" 1.0)
("dimexe" 1.5)
("dimexo" 1.0)
("dimasz" 1.5)
("dimtad" 1)
("dimtix" 1)
("dimtofl" 1)
("dimgap" 1.0)
("dimtih" 0)
("dimdsep" ".")
("dimlunit" 2) ;_单位
("dimdec" 2) ;_精度
)
)
)
)
(vla-copyfrom ds (fy:acdoc))
(vla-put-activedimstyle (fy:acdoc) ds)
)
)
(_changescale (* height (car scl)) (strcat "FY-" str))
)
)
(princ)
)

(defun c:tt (/                   _string:decimal               _changescale 
             _rectang:scale                 scl               height 
             str           ds 
            ) 
  (defun _string:decimal (val / str) 
    (setvar "dimzin" 0) 
    (setq str (rtos val 2 24) 
          str (vl-string-right-trim "0" str) 
          str (vl-string-right-trim "." str) 
    ) 
  ) 
  (defun _changescale (h str) 
    (vlax-for obj (fy:cset) 
      (if (wcmatch (vla-get-objectname obj) "*Text") 
        (vlax-put obj 'height h) 
        (vlax-put obj 'stylename str) 
      ) 
    ) 
  ) 
  (defun _rectang:scale        (/ p1 p2 str lst v scl kw) 
    (if 
      (and (setq p1 (getpoint "\n基  点: ")) 
           (setq p2 (getcorner p1 "\n对角点: ")) 
           (progn 
             (initget "1 2 3 4") 
             (setq kw (getkword "打印图框大小[A1(1)/A2(2)/A3(3)/A4(4)]: ")) 
           ) 
           (setq lst (assoc kw 
                            '(("1" 841 594) 
                              ("2" 594 420) 
                              ("3" 420 297) 
                              ("4" 297 210) 
                             ) 
                     ) 
           ) 
      ) 
       (progn 
         (setq v   (mapcar 'abs (mapcar '- p2 p1)) 
               scl (mapcar '/ v (cdr lst)) 
         ) 
         (list (apply 'max scl) p1 p2) 
       ) 
    ) 
  ) 
  (fy:begin) 
  (if (and (setq scl (_rectang:scale)) 
           (progn 
             (princ "\nPlot Scale = ") 
             (princ (car scl)) 
             t 
           ) 
           (setq height (getdist "\n文字高度: ")) 
           (ssget "_C" 
                  (cadr scl) 
                  (caddr scl) 
                  '((0 . "dimension,text")) 
           ) 
      ) 
    (progn 
      (setq 
        str (vl-string-translate "." "-" (_string:decimal (car scl))) 
      ) 
      (if (not (tblsearch "dimstyle" (strcat "FY-" str))) 
        (progn 
          (setq ds (vla-add (fy:acdimstyles) (strcat "FY-" str))) 
          (mapcar '(lambda (x) 
                     (apply 'setvar x) 
                   ) 
                  (cons        (list "dimtxt" height) 
                        (cons (list "dimscale" (car scl)) 
                              '(("dimdli" 1.0) 
                                ("dimexe" 1.5) 
                                ("dimexo" 1.0) 
                                ("dimasz" 1.5) 
                                ("dimtad" 1) 
                                ("dimtix" 1) 
                                ("dimtofl" 1) 
                                ("dimgap" 1.0) 
                                ("dimtih" 0) 
                                ("dimdsep" ".") 
                                ("dimlunit" 2) ;_单位 
                                ("dimdec" 2) ;_精度 
                               ) 
                        ) 
                  ) 
          ) 
          (vla-copyfrom ds (fy:acdoc)) 
          (vla-put-activedimstyle (fy:acdoc) ds) 
        ) 
      ) 
      (_changescale (* height (car scl)) (strcat "FY-" str)) 
    ) 
  ) 
  (princ) 
)

Free-Lancer · 发表于 2014-11-19 14:42:10

st788796 发表于 2014-11-24 10:56
1 (distof (rtos scl 2 1))
2 (fix (+ height 0.5))不要小于0.5的高度

(defun c:tt (/ _string:decimal _changescale
_rectang:scale scl height str
ds nscl kw bp up
blk
)
(defun _string:decimal (val / str)
(setvar "dimzin" 0)
(setq str (rtos val 2 2)
str (vl-string-right-trim "0" str)
str (vl-string-right-trim "." str)
)
)
(defun _changescale (h str)
(vlax-for obj (fy:cset)
(if (wcmatch (vla-get-objectname obj) "*Text")
(vlax-put obj 'height h)
(vlax-put obj 'stylename str)
)
)
)
(defun _rectang:scale (/ p1 p2 str lst v scl kw)
(if
(and
(setq p1 (getpoint "\n第一点: "))
(setq p2 (getcorner p1 "\n对角点: "))
(progn (initget "0 1 2 3 4")
(setq kw (getkword
"\n打印图框大小[A0(0)/A1(1)/A2(2)/A3(3)/A4(4)]: "
)
)
)
(setq lst (assoc kw
'(("0" 1089 841)
("1" 841 594)
("2" 594 420)
("3" 420 297)
("4" 297 210)
)
)
)
)
(progn (setq v (apply 'max (mapcar 'abs (mapcar '- p2 p1)))
scl (/ v (apply 'max (cdr lst)))
)
(list (distof (rtos scl 2 1)) p1 p2)
)
)
)
(fy:begin)
(if
(and
(if (progn (princ "\n选择图框<回车选取范围>...")
(setq blk (car (ssget ":S" '((0 . "insert")))))
)
(progn
(vla-getboundingbox
(vlax-ename->vla-object (ssname blk 0))
'bp
'up
)
(setq scl (list (safearray-value bp) (safearray-value up)))
)
(setq scl (_rectang:scale))
)
(progn (princ "\n打印比例 = ")
(if (car scl)
(progn (princ (car scl))
(initget 128 "Y N")
(setq kw (getkword "\n是否接受[是(Y)/否(N)]<Y>: "))
)
(setq kw "N")
)
(if (or (= kw "Y") (= kw ""))
t
(if (setq nscl (getreal "\n输入新比例: "))
(setq (distof (rtos scl 2 1)) (cons nscl (cdr scl)))
)
)
)
(setq height (getdist "\n文字高度: "))
(setq height (fix (+ height 0.5)))
)
(progn (setq
str (vl-string-translate "." "-" (_string:decimal (car scl)))
)
(xd::doc:createDimstyleFrom
nil
(strcat "FY-" str)
(cons (list "dimtxt" height)
(cons (list "dimscale" (car scl))
'(("dimdli" 1.0)
("dimexe" 1.5)
("dimexo" 1.0)
("dimasz" 1.5)
("dimtad" 1)
("dimtix" 1)
("dimtofl" 1)
("dimgap" 1.0)
("dimtih" 0)
("dimdsep" ".")
("dimlunit" 2) ;_单位
("dimdec" 2) ;_精度
)
)
)
)
(mapcar '(lambda (x)
(xd::doc:createSubDimstyle
(strcat "FY-" str)
(car x)
(cadr x)
)
)
'(("$2" nil)
("$3" nil)
("$4" (("DIMTOH" 1) ("DIMTIH" 0)))
("$6" nil)
)
)
(if (ssget "_C"
(cadr scl)
(caddr scl)
'((0 . "dimension,*text"))
)
(_changescale (* height (car scl)) (strcat "FY-" str))
)
)
)
(fy:end)
(princ)
)

(defun c:tt (/                _string:decimal              _changescale 
             _rectang:scale           scl              height         str 
             ds                nscl           kw              bp         up 
             blk 
            ) 
  (defun _string:decimal (val / str) 
    (setvar "dimzin" 0) 
    (setq str (rtos val 2 2) 
          str (vl-string-right-trim "0" str) 
          str (vl-string-right-trim "." str) 
    ) 
  ) 
  (defun _changescale (h str) 
    (vlax-for obj (fy:cset) 
      (if (wcmatch (vla-get-objectname obj) "*Text") 
        (vlax-put obj 'height h) 
        (vlax-put obj 'stylename str) 
      ) 
    ) 
  ) 
  (defun _rectang:scale        (/ p1 p2 str lst v scl kw) 
    (if 
      (and 
        (setq p1 (getpoint "\n第一点: ")) 
        (setq p2 (getcorner p1 "\n对角点: ")) 
        (progn (initget "0 1 2 3 4") 
               (setq kw        (getkword 
                          "\n打印图框大小[A0(0)/A1(1)/A2(2)/A3(3)/A4(4)]: " 
                        ) 
               ) 
        ) 
        (setq lst (assoc kw 
                         '(("0" 1089 841) 
                           ("1" 841 594) 
                           ("2" 594 420) 
                           ("3" 420 297) 
                           ("4" 297 210) 
                          ) 
                  ) 
        ) 
      ) 
       (progn (setq v        (apply 'max (mapcar 'abs (mapcar '- p2 p1))) 
                    scl        (/ v (apply 'max (cdr lst))) 
              ) 
              (list (distof (rtos scl 2 1)) p1 p2) 
       ) 
    ) 
  ) 
  (fy:begin) 
  (if 
    (and 
      (if (progn (princ "\n选择图框<回车选取范围>...") 
                 (setq blk (car (ssget ":S" '((0 . "insert"))))) 
          ) 
        (progn 
          (vla-getboundingbox 
            (vlax-ename->vla-object (ssname blk 0)) 
            'bp 
            'up 
          ) 
          (setq scl (list (safearray-value bp) (safearray-value up))) 
        ) 
        (setq scl (_rectang:scale)) 
      ) 
      (progn (princ "\n打印比例 = ") 
             (if (car scl) 
               (progn (princ (car scl)) 
                      (initget 128 "Y N") 
                      (setq kw (getkword "\n是否接受[是(Y)/否(N)]<Y>: ")) 
               ) 
               (setq kw "N") 
             ) 
             (if (or (= kw "Y") (= kw "")) 
               t 
               (if (setq nscl (getreal "\n输入新比例: ")) 
                 (setq (distof (rtos scl 2 1)) (cons nscl (cdr scl))) 
               ) 
             ) 
      ) 
      (setq height (getdist "\n文字高度: ")) 
      (setq height (fix (+ height 0.5))) 
    ) 
     (progn (setq 
              str (vl-string-translate "." "-" (_string:decimal (car scl))) 
            ) 
            (xd::doc:createDimstyleFrom 
              nil 
              (strcat "FY-" str) 
              (cons (list "dimtxt" height) 
                    (cons (list "dimscale" (car scl)) 
                          '(("dimdli" 1.0) 
                            ("dimexe" 1.5) 
                            ("dimexo" 1.0) 
                            ("dimasz" 1.5) 
                            ("dimtad" 1) 
                            ("dimtix" 1) 
                            ("dimtofl" 1) 
                            ("dimgap" 1.0) 
                            ("dimtih" 0) 
                            ("dimdsep" ".") 
                            ("dimlunit" 2) ;_单位 
                            ("dimdec" 2) ;_精度 
                           ) 
                    ) 
              ) 
            ) 
            (mapcar '(lambda (x) 
                       (xd::doc:createSubDimstyle 
                         (strcat "FY-" str) 
                         (car x) 
                         (cadr x) 
                       ) 
                     ) 
                    '(("$2" nil) 
                      ("$3" nil) 
                      ("$4" (("DIMTOH" 1) ("DIMTIH" 0))) 
                      ("$6" nil) 
                     ) 
            ) 
            (if        (ssget "_C" 
                       (cadr scl) 
                       (caddr scl) 
                       '((0 . "dimension,*text")) 
                ) 
              (_changescale (* height (car scl)) (strcat "FY-" str)) 
            ) 
     ) 
  ) 
  (fy:end) 
  (princ) 
)

csharp · 发表于 2014-11-19 14:53:00

这样改不是好习惯，画图时首先要确定出图比例，不管你出图比例多少，《制图标准》中规定了最终图纸文字的实际大小，根据出图比例、绘图单位及字高就确定了你在画图中需要的 text 图形单位高度，至于 Dim 就通过设定标注样式来控制

lucas3 · 发表于 2014-11-19 14:57:23

本帖最后由 lucas3 于 2014-11-19 15:01 编辑

csharp 发表于 2014-11-19 14:53
这样改不是好习惯，画图时首先要确定出图比例，不管你出图比例多少，《制图标准》中规定了最终图纸文字的实 ...

意思是还是需要用像eachy站长的这样的工具？可是我用过之后什么也没有发生！
sshot-5.png.thumb.jpg

我上面提到的这个方法应该类似，只是最后一步 ->当前标注文字高度已经设置为4.2! 改变当前文字高度这部分不合理，这没关系，去掉这一步，只要计算出来值，我然后根据这个值来设定标注样式

st788796 · 发表于 2014-11-19 15:26:55

lucas3 发表于 2014-11-19 14:57
意思是还是需要用像eachy站长的这样的工具？可是我用过之后什么也没有发生！

文字在画图过程中就应该根据出图比例及绘图单位确定高度值，不能最后去改，画图要养成好习惯

lucas3 · 发表于 2014-11-19 15:57:13

st788796 发表于 2014-11-19 15:26
文字在画图过程中就应该根据出图比例及绘图单位确定高度值，不能最后去改，画图要养成好习惯

是这样做的啊，之前都是随意确定的一个字高，差不多就行，现在我提这个问题就是想精确地算出字高
肯定是确定字高了才去标注的，不然后面去整理要累死啊，几百张图

st788796 · 发表于 2014-11-19 16:28:49

lucas3 发表于 2014-11-19 15:57
是这样做的啊，之前都是随意确定的一个字高，差不多就行，现在我提这个问题就是想精确地算出字高
肯定 ...

(defun c:tt (/ d h ss)
(if (and (setq d (getreal "\n出图比例: "))
(setq h (getdist "\n字高: "))
(progn
(princ "\n选择文字<回车全选>...")
t
)
(if (setq ss (ssget '((0 . "text"))))
ss
(setq ss (ssget "x" '((0 . "text"))))
)
)
(mapcar '(lambda (x)
(xdrx_text_setheight x (* d h))
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

lucas3 · 发表于 2014-11-19 16:54:38

本帖最后由 lucas3 于 2014-11-19 16:56 编辑

st788796 发表于 2014-11-19 16:28

这么简单吗？不用选择打印范围？我们画图都是一个dwg中几百张图纸，在模型空间中，打印时都是将“打印范围”选择的“窗口”
另外，能不能不用API啊 {:soso_e101:}

st788796 · 发表于 2014-11-19 17:00:08

lucas3 发表于 2014-11-19 16:54
这么简单吗？不用选择打印范围？我们画图都是一个dwg中几百张图纸，在模型空间中，打印时都是将“打 ...

你不会用 vlax-put fy:cset->objs 替换啊！

Free-Lancer · 发表于 2014-11-19 17:25:10

lucas3 发表于 2014-11-19 16:54
这么简单吗？不用选择打印范围？我们画图都是一个dwg中几百张图纸，在模型空间中，打印时都是将“打 ...

(defun c:tt (/ scl height)
(fy:begin)
(if (and (setq scl (getreal "\nPlot Scale: "))
(setq height (getdist "\nText Height: "))
(ssget '((0 . "text")))
)
(vlax-for obj (fy:cset)
(vlax-put obj 'height (* scl height))
)
)
(princ)
)

lucas3 · 发表于 2014-11-19 17:40:17

Free-Lancer 发表于 2014-11-19 17:25

感谢大师的回复感觉这个功能就是一个改字高的功能了

输入比例－－输入字高－－选择文字，然文字大小改成字高*比例这跟我的主题相差很远呀

iLisp · 发表于 2014-11-19 18:22:32

lucas3 发表于 2014-11-19 17:40
感谢大师的回复感觉这个功能就是一个改字高的功能了

输入比例－－输入字高－－选择文字，然文字大小改 ...

标注最好在dimstyle设定，随便改标注字高的程序论坛有

lucas3 · 发表于 2014-11-19 18:28:21

iLisp 发表于 2014-11-19 18:22
标注最好在dimstyle设定，随便改标注字高的程序论坛有

是的哈，改字高的论坛很多啊，可我要的不是改字高的了，而是 计算打印区域标注文字高度

iLisp · 发表于 2014-11-19 18:54:27

lucas3 发表于 2014-11-19 18:28
是的哈，改字高的论坛很多啊，可我要的不是改字高的了，而是计算打印区域标注文字高度

标注除了文字高度和打印比例有关，箭头大小和比例也有关，所以建议你看看dimstyle中的全局比例介绍，不是仅仅改字高

lucas3 · 发表于 2014-11-19 19:07:31

iLisp 发表于 2014-11-19 18:54
标注除了文字高度和打印比例有关，箭头大小和比例也有关，所以建议你看看dimstyle中的全局比例介绍，不是 ...

标注全局比例dimscale ，也有改dimscale 的示例，也了解一点

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

[已解决] 像这样改变当前标注文字高度

最佳答案

点评

点评

点评

点评

点评

点评

点评

点评

点评