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

lucas3

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

见你每次都拿手机上论坛，为什么呢？ 你应该很会写代码吧！ 不知是做哪一行的？

Free-Lancer

以下例子会根据你输入的出图比例自动建立一个标注样式，同时将选择的标注实体修改到该样式

1. (defun c:tt (/ scl height str)
   
2.   (defun _string:decimal (val / str)
   
3.     (setvar "dimzin" 0)
   
4.     (setq str (rtos val 2 24)
   
5.           str (vl-string-right-trim "0" str)
   
6.           str (vl-string-right-trim "." str)
   
7.     )
   
8.   )
   
9.   (fy:begin)
   
10.   (if (and (setq scl (getreal "\n出图比例: "))
    
11.            (setq height (getdist "\n文字高度: "))
    
12.            (ssget '((0 . "dimension")))
    
13.       )
    
14.     (progn
    
15.       (setq str (vl-string-translate "." "-" (_string:decimal scl)))
    
16.       (if (tblsearch "dimstyle" (strcat "FY-" str))
    
17.         (vlax-for obj (fy:cset)
    
18.           (vlax-put obj 'stylename (strcat "FY-" str))
    
19.         )
    
20.         (progn
    
21.           (setq ds (vla-add (fy:acdimstyles) (strcat "FY-" str)))
    
22.           (mapcar '(lambda (x)
    
23.                      (apply 'setvar x)
    
24.                    )
    
25.                   (cons        (list "dimtxt" height)
    
26.                         (cons (list "dimscale" scl)
    
27.                               '(("dimdli" 1.0)
    
28.                                 ("dimexe" 1.5)
    
29.                                 ("dimexo" 1.0)
    
30.                                 ("dimasz" 1.5)
    
31.                                 ("dimtad" 1)
    
32.                                 ("dimtix" 1)
    
33.                                 ("dimtofl" 1)
    
34.                                 ("dimgap" 1.0)
    
35.                                 ("dimtih" 0)
    
36.                                 ("dimdsep" ".")
    
37.                                 ("dimlunit" 2) ;_单位
    
38.                                 ("dimdec" 2) ;_精度
    
39.                                )
    
40.                         )
    
41.                   )
    
42.           )
    
43.           (vla-copyfrom ds (fy:acdoc))
    
44.           (vla-put-activedimstyle (fy:acdoc) ds)
    
45.           (vlax-for obj        (fy:cset)
    
46.             (vlax-put obj 'stylename (strcat "FY-" str))
    
47.           )
    
48.         )
    
49.       )
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )
    

(defun c:tt (/ scl height str)<br />   (defun _string:decimal (val / str)<br />     (setvar "dimzin" 0)<br />     (setq str (rtos val 2 24)<br />           str (vl-string-right-trim "0" str)<br />           str (vl-string-right-trim "." str)<br />     )<br />   )<br />   (fy:begin)<br />   (if (and (setq scl (getreal "\n出图比例: "))<br />            (setq height (getdist "\n文字高度: "))<br />            (ssget '((0 . "dimension")))<br />       )<br />     (progn<br />       (setq str (vl-string-translate "." "-" (_string:decimal scl)))<br />       (if (tblsearch "dimstyle" (strcat "FY-" str))<br />         (vlax-for obj (fy:cset)<br />           (vlax-put obj 'stylename (strcat "FY-" str))<br />         )<br />         (progn<br />           (setq ds (vla-add (fy:acdimstyles) (strcat "FY-" str)))<br />           (mapcar '(lambda (x)<br />                      (apply 'setvar x)<br />                    )<br />                   (cons        (list "dimtxt" height)<br />                         (cons (list "dimscale" scl)<br />                               '(("dimdli" 1.0)<br />                                 ("dimexe" 1.5)<br />                                 ("dimexo" 1.0)<br />                                 ("dimasz" 1.5)<br />                                 ("dimtad" 1)<br />                                 ("dimtix" 1)<br />                                 ("dimtofl" 1)<br />                                 ("dimgap" 1.0)<br />                                 ("dimtih" 0)<br />                                 ("dimdsep" ".")<br />                                 ("dimlunit" 2) ;_单位<br />                                 ("dimdec" 2) ;_精度<br />                                )<br />                         )<br />                   )<br />           )<br />           (vla-copyfrom ds (fy:acdoc))<br />           (vla-put-activedimstyle (fy:acdoc) ds)<br />           (vlax-for obj        (fy:cset)<br />             (vlax-put obj 'stylename (strcat "FY-" str))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

iLisp

lucas3 发表于 2014-11-19 19:10
见你每次都拿手机上论坛，为什么呢？ 你应该很会写代码吧！ 不知是做哪一行的？

也是设计行业，只会看不会写

lucas3

Free-Lancer 发表于 2014-11-19 20:43
以下例子会根据你输入的出图比例自动建立一个标注样式，同时将选择的标注实体修改到该样式

谢谢大师的源码！！！
这个想法有创意，但是有一些不足
首先之前讨论过的，标注文字大小，比例这些在标注前都要确定好，而不是所有标注后，再去修改
另外，本主题的重点是： 就是因为不知道标注文字大小，才要计算，而程序运行后还要输入标注高度，我也不知道高度啊 ，该输入多少合适呢？

也许是我的作图方法不科学 ，一般我们是缩放图框套图纸上比如A4标准图框是按A4纸大小做的 最大尺寸就是297*210 ，假如套图框时，图框无缩放，而A4纸图纸，字高一般设为3
按燕秀的方法来就是：
->建议1:1的标注文字高度最佳为1.8-2.2
->请输入1:1的标注文字高度 <3>: 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>:4 ,这里表示是用A4纸打印
->打印区域最佳文字高度为: A4=3  A3=2.1  A2=1.5  A1=1.1  A0=0.7 这里就是计算出来的字高
->当前标注文字高度已经设置为3
因为图框无缩放，而选择的打印纸张也是A4，所以字高还是3
再来一个例子， 套图框时 XY比例缩小，比例为0.5 ，而打印仍然选择A4纸，那么再计算
->建议1:1的标注文字高度最佳为1.8-2.2
->请输入1:1的标注文字高度 <3>:3
->请指定要打印窗口的第一角点或 <退出>:在这里指定图框一个角
->请指定打印窗口的对角点或 <退出>:在这里指定对角
->打印区域最佳文字高度为: A4=1.5  A3=1.1  A2=0.8  A1=0.5  A0=0.4
->是否设置当前标注文字高度为[A4(4)/A3(3)/A2(2)/A1(1)/A0(0)/No(N)] <A4>:4 ,这里表示是用A4纸打印
->打印区域最佳文字高度为: A4=1.5  A3=1.1  A2=0.8  A1=0.5  A0=0.4  这里就是计算出来的字高
->当前标注文字高度已经设置为1.5!

图框缩小了0.5倍，所以字高也缩小了0.5倍，这里就是1.5

这里打印时的设置，选择窗口打印，也是先要指定图框一个角，再指定对角


所以您的程序中是不是去掉 “出图比例” ，增加选择图框（两点确定图框）和 打印纸大小的功能？ 图框是算面积的吧？

iLisp

lucas3 发表于 2014-11-19 22:14
谢谢大师的源码！！！
这个想法有创意，但是有一些不足
首先之前讨论过的，标注文字大小，比例这些在标 ...

受误导比较深，A4图框可以是1:100的图，也可能是1:10的图，也可能是1:1的图，不管你的图是什么比例，从打印机出来后文字高度符合《制图标准》，Fy的程序和你的图框大小无关，你打印时输入多大比例就输多少，字高是打印机打出来后你要多高的字就输多多少

lucas3

iLisp 发表于 2014-11-19 22:34
受误导比较深，A4图框可以是1:100的图，也可能是1:10的图，也可能是1:1的图，不管你的图是什么比例，从打 ...

转来转去转晕了呀，但似乎是有道理
问题出在我这里，有时套图框时 图框的缩放倍数，搞不清了，出图时还要属性查看图框的缩放比例，所以程序中能不能增加拾取图框和选择打纸的的大小，来确定这个比例？

iLisp

你们都是把"打印比例"设置为"布满”？

iLisp

lucas3 发表于 2014-11-19 23:02
转来转去转晕了呀，但似乎是有道理
问题出在我这里，有时套图框时 图框的缩放倍数，搞不清了，出图时还 ...

缩放倍数？这个叫法太误人！
统一叫“打图比例”或“比图比例”什么都明了了

lucas3

iLisp 发表于 2014-11-19 23:04
你们都是把"打印比例"设置为"布满”？

我没有设布满，但我一些同事设的布满，设布满省事啊，如设比例打印就需要确定图框缩放比例
当然设布满打印时不合国家标准，但像我们这样的公司不管这些，只要尺寸没问题就行

lucas3

iLisp 发表于 2014-11-19 23:10
缩放倍数？这个叫法太误人！
统一叫“打图比例”或“比图比例”什么都明了了

好吧，这个打图比例 从何而来？ 怎样才知道 ？

st788796

lucas3 发表于 2014-11-19 23:17
我没有设布满，但我一些同事设的布满，设布满省事啊，如设比例打印就需要确定图框缩放比例
当然设布满 ...

你指定的任何区域，既可以打印到 A4 上，也可以打印到 A3 上，还可以打印到其他规格纸上，Plot 的时候必须要选择 “打印比例”，“布满”只不过Autocad 给你计算而已

st788796

lucas3 发表于 2014-11-19 23:20
好吧，这个打图比例 从何而来？ 怎样才知道 ？

建筑制图中，每类图的比例规范做了推荐比例，一般都遵守的，这样严格来做，字高、图框、标注都和 "打印比例“ 关联，计算容易，写程序也有标准
        
图名                                                                比例  
建筑物或构筑物的平面图、立面图、剖面图          1:50、1:100、1:150、1:200、1:300
建筑物或构筑物的局部放大图                        1:10、1:20、1:25、1:30、1:50  
配件及构造详图                                                1:1、1:2、1:5、1:10、1:15、1:20、1:25、1:30、1:50

lucas3

st788796 发表于 2014-11-19 23:27
你指定的任何区域，既可以打印到 A4 上，也可以打印到 A3 上，还可以打印到其他规格纸上，Plot 的时候必 ...

是的，可以先 选择“布满” 会看到1mm=多少个单位了，这样就能用来确定比例，比如选择“布满”后，下面会灰显，1毫米＝1.031 ，这样应可以确定打印比例为1：1了，

st788796

lucas3 发表于 2014-11-19 23:38
是的，可以先 选择“布满” 会看到1mm=多少个单位了，这样就能用来确定比例，比如选择“布满”后，下面会 ...

没见过你们这样反算的！
自己画的零件尺寸多大，比例多大才能放到多大的图框上，这个在画图前要有个估计，无规矩不成方圆

lucas3

st788796 发表于 2014-11-19 23:42
没见过你们这样反算的！
自己画的零件尺寸多大，比例多大才能放到多大的图框上，这个在画图前要有个估计 ...

我们都是图框往图上放，要缩放图框的，如果缩放图形和尺寸，可能会出现一些可怕的问题！{:soso_e113:} ，又不是绘一张图，打一张图，都是绘完后，一起打印的，哪还记住多大比例