统计相同矩形并汇总写字

newer

金鹅起飞 发表于 2013-10-25 13:59
newer大师：您好！我刚才按照您的指示去重新下载加载到电脑里，再试了试，不行，命令行出现：
文本插入 ...

1. ;;sty -- textstyle
   
2. ;;str -- string
   
3. ;;h   -- height
   
4. ;;scl -- 宽度比例
   
5. (defun XD::String:ActualWidth (sty str h scl)
   
6.   (and
   
7.     (or
   
8.       (not sty)
   
9.       (= sty "")
   
10.       (not (tblsearch "style" sty))
    
11.     )
    
12.     (setq sty (getvar "textstyle"))
    
13.   )
    
14.   (abs (car (apply
    
15.               'mapcar
    
16.               (cons '- (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h)
    
17.                                       (cons 41 scl)
    
18.                                 )
    
19.                        )
    
20.               )
    
21.             )
    
22.        )
    
23.   )
    
24. )
    
25. ;|
    
26. 字符串表里面最大的宽度
    
27. |;
    
28. (defun XD::String:ActualMaxWidth (strl sty h scl)
    
29.   (apply 'max
    
30.      (mapcar '(lambda (x)
    
31.             (XD::String:ActualWidth sty x h scl)
    
32.           )
    
33.          strl
    
34.      )
    
35.   )
    
36. )
    

;;sty -- textstyle<br /> ;;str -- string<br /> ;;h   -- height<br /> ;;scl -- 宽度比例<br /> (defun XD::String:ActualWidth (sty str h scl)<br />   (and<br />     (or<br />       (not sty)<br />       (= sty "")<br />       (not (tblsearch "style" sty))<br />     )<br />     (setq sty (getvar "textstyle"))<br />   )<br />   (abs (car (apply<br />               'mapcar<br />               (cons '- (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h)<br />                                       (cons 41 scl)<br />                                 )<br />                        )<br />               )<br />             )<br />        )<br />   )<br /> )<br /> ;|<br /> 字符串表里面最大的宽度<br /> |;<br /> (defun XD::String:ActualMaxWidth (strl sty h scl)<br />   (apply 'max<br />      (mapcar '(lambda (x)<br />             (XD::String:ActualWidth sty x h scl)<br />           )<br />          strl<br />      )<br />   )<br /> )<br />

把这个拷贝回去加载吧，先。

金鹅起飞

newer 发表于 2013-10-25 14:03
把这个拷贝回去加载吧，先。

好，谢谢！

金鹅起飞

newer 发表于 2013-10-25 14:03
把这个拷贝回去加载吧，先。

谢谢！newer大师！成功了！！！！{:soso_e113:}谢谢您！也谢谢ST788796大师！谢谢您们的无私帮助！向您们致敬!!!!
我把我的演示过程展示一下。谢谢所用帮助过我的朋友们！

金鹅起飞

newer 发表于 2013-10-25 14:03
把这个拷贝回去加载吧，先。

newer大师！怎么换个位置就不行了呢？在新打开的文件里也不行了呢？请指教，谢谢！具体情况见图片演示。

zhaoge

下载看看支持{:soso__6167965509841408364_1:}

Free-Lancer

金鹅起飞 发表于 2013-10-25 14:46
newer大师！怎么换个位置就不行了呢？在新打开的文件里也不行了呢？请指教，谢谢！具体情况见图片演示。

换图后没有了ABCDEF，需要统计的矩形内写上TEXT再试试

金鹅起飞

Free-Lancer 发表于 2013-10-25 22:32
换图后没有了ABCDEF，需要统计的矩形内写上TEXT再试试

谢谢您大师！就是这个问题，可以了，谢谢您了！

Free-Lancer

这个是用字判断是否进行统计汇总的，没字就出不来了，因为是WP选择，字要完全在矩形内

金鹅起飞

Free-Lancer 发表于 2013-10-26 10:34
这个是用字判断是否进行统计汇总的，没字就出不来了，因为是WP选择，字要完全在矩形内

Free-Lancer大师：谢谢您！告诉我这么多，我是个lsp的菜鸟，属于一问三不知型的，觉得LSP太神奇了，可以为我们省去好多时间，而且还不容易出错，有时间还得想大师们请教学习！谢谢！{:soso_e179:}

zhuo2013

来学学习习

h3161596

学习收藏了

hzj268

看看学习一下

hzj268

这个类似与老大发的统计文件！

friendship12c

感谢楼主提供这个！！...

大哥的未来

经典 找好久I了