（完成）[编程申请]：能不能帮我编个系统归并重入的程序

zhjy

晓东：
又来麻烦你们了
能不能帮我编个系统归并重入的程序
问题提出：现在图纸之间粘贴越来越多在同一图纸中存在许多字体和尺寸设定给设计带来许多不便有时甚至提高了设计工作量或使系统各种原始设置混乱。
1）acadr14 or acadr2000平台
2)根据字高范围统一设置字高（如字高250~400同一改350）但属性不变，后统一字高改统一字体
3）统一尺寸设置使各种标识归并为一种(最好归并后把其它设置删除)
4)系统重入由对话框设置如下问题尺寸（含尺寸样式、箭头、字高、延伸线）字体（含字高、字体、中西文比例关系）:9 :9

XDSoft

第四个问题，尺寸样式还是点选图中已经有的尺寸作为“刷子”吧。

因为我们现在基本上没有写带对话框的程序，因为我们还没有确定以后是用DCL还是OBJECTDCL。

你还是装2002作为2000＋平台吧。因为2000是个鸡肋了。

eachy

写了个文字高度格式刷，只改高度，包括Text，Mtext，其它属性不变，
选择的时候输入过虑的文字高度值或者指定个高度范围。
标注的刷子用CAD的格式刷就可以。(AutoCAD 2002)
注意：以下代码中为了显示，在<和and之间加了空格，请下载附件以正确使用!!![/COLOR]

2. 
   
3. ;|
   
4. 命令：match_txth
   
5. 功能：文字高度格式刷，用已有文字的高度匹配目标文字，其它属性不变
   
6. 说明：1、程序配合XDRX_API使用，对程序有建议请到：
   
7.          晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url]
   
8.          留言
   
9. |;
   
10. (defun c:match_txth
    
11.        (/ tf e ss #txth #mew_txth #filter_txth #filter #string)
    
12.   (if (or
    
13.          (setq e (xdrx_entsel "\n选择源文字确定匹配高度<退出>: "))
    
14.          (setq #txth (getreal "\n输入文字高度: "))
    
15.       )
    
16.     (progn
    
17.       (xdrx_begin)
    
18.       (if e (setq #txth (xdrx_getentdxf 40))
    
19.       (setq tf T)
    
20.       (while tf
    
21.         (if (or
    
22.               (wcmatch (setq #filter_txth
    
23.                               (getstring "\n输入字高或字高范围<用逗号隔开>: ")
    
24.                        )
    
25.                        "#',#"
    
26.               )
    
27.               (numberp (read #filter_txth))
    
28.             )
    
29.           (progn
    
30.             (setq #string (xdrx_string_tok #filter_txth ","))
    
31.             (setq #filter (if (numberp (read #filter_txth))
    
32.                             (progn
    
33.                               (list '(0 . "*text")
    
34.                                     (cons 40 (read #filter_txth))
    
35.                               )
    
36.                             )
    
37.                             (progn
    
38.                               (list '(-4 . "< AND")
    
39.                                     '(0 . "*text")
    
40.                                     '(-4 . ">=")
    
41.                                     (cons 40 (read (car #string)))
    
42.                                     '(-4 . "<=")
    
43.                                     (cons 40 (read (last #string)))
    
44.                                     '(-4 . "AND >")
    
45.                               )
    
46.                             )
    
47.                           )
    
48.             )
    
49.             (princ "\n选择目标文字<全选>....")
    
50.             (if        (not (setq ss (ssget #filter)))
    
51.               (setq ss (ssget "x" #filter))
    
52.             )
    
53.             (xdrx_setsstodb ss 0)
    
54.             (while (xdrx_getentdata 0)
    
55.               (xdrx_modent 40 #txth)
    
56.             )
    
57.             (setq tf nil)
    
58.           )
    
59.           (princ  "\n\t输入间隔符错误或非数字，重新输入!!!")
    
60.         )
    
61.       )
    
62.       (xdrx_end)
    
63.     )
    
64.     (setq tf nil)
    
65.   )
    
66.   (princ)
    
67. )
    

<br /> ;|<br /> 命令：match_txth<br /> 功能：文字高度格式刷，用已有文字的高度匹配目标文字，其它属性不变<br /> 说明：1、程序配合XDRX_API使用，对程序有建议请到：<br />          晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url]<br />          留言<br /> |;<br /> (defun c:match_txth<br />        (/ tf e ss #txth #mew_txth #filter_txth #filter #string)<br />   (if (or<br />          (setq e (xdrx_entsel "\n选择源文字确定匹配高度<退出>: "))<br />          (setq #txth (getreal "\n输入文字高度: "))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (if e (setq #txth (xdrx_getentdxf 40))<br />       (setq tf T)<br />       (while tf<br />         (if (or<br />               (wcmatch (setq #filter_txth<br />                               (getstring "\n输入字高或字高范围<用逗号隔开>: ")<br />                        )<br />                        "#',#"<br />               )<br />               (numberp (read #filter_txth))<br />             )<br />           (progn<br />             (setq #string (xdrx_string_tok #filter_txth ","))<br />             (setq #filter (if (numberp (read #filter_txth))<br />                             (progn<br />                               (list '(0 . "*text")<br />                                     (cons 40 (read #filter_txth))<br />                               )<br />                             )<br />                             (progn<br />                               (list '(-4 . "< AND")<br />                                     '(0 . "*text")<br />                                     '(-4 . ">=")<br />                                     (cons 40 (read (car #string)))<br />                                     '(-4 . "<=")<br />                                     (cons 40 (read (last #string)))<br />                                     '(-4 . "AND >")<br />                               )<br />                             )<br />                           )<br />             )<br />             (princ "\n选择目标文字<全选>....")<br />             (if        (not (setq ss (ssget #filter)))<br />               (setq ss (ssget "x" #filter))<br />             )<br />             (xdrx_setsstodb ss 0)<br />             (while (xdrx_getentdata 0)<br />               (xdrx_modent 40 #txth)<br />             )<br />             (setq tf nil)<br />           )<br />           (princ  "\n\t输入间隔符错误或非数字，重新输入!!!")<br />         )<br />       )<br />       (xdrx_end)<br />     )<br />     (setq tf nil)<br />   )<br />   (princ)<br /> )<br />

zhjy

我试了，不同字高间用分号不是逗号，且字高没有范围，能不能字高范围改为x~y一个区段，而非某几个字体高。另改完字高后应统一字体。

eachy

程序叫【统一字高】比较好，选择文字时可以输入高度范围呀，比如 300,600 就是选择高度在300和600之间的所有文字。改字体用输入的方法还是点取源的方式？

梦断江南

改字体（字体刷子）还是另外写一个程序，不要混在里面

zhjy

改字体（字体刷子）要一个一个改很麻烦对于大图来说简直就是琢磨人。

eachy

如果你用2002，可以用特性管理器，筛选出文字，就可以统一任意一个属性。