设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1932|回复: 44

[统计] 带数字文字算量、分类统计插件

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-7-31 14:19:43 | 显示全部楼层 |阅读模式
  • 插件名称 : 数字算量
  • 作  者 : newer
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2018-07-31
  • 命令名称 :xdtb_tjtxtprefix
  • 插件介绍 :带数字文字算量、分类统计插件
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
搜狗截图20180731133733.png

统计前缀总数量-1.gif

  1. (defun c:xdtb_tjtxtprefix (/ prefix ss lst txt str x i pt)
  2.   (if (and (/= "" (setq prefix (getstring "\n请输入前缀<退出>:")) "")
  3.            (xdrx_initssget
  4.              (xdrx_prompt
  5.                "\n请选择要统计的带前缀("
  6.                prefix
  7.                ")的文字<退出>:"
  8.                t
  9.              )
  10.            )
  11.            (setq ss
  12.                   (xdrx_ssget
  13.                     (list
  14.                       (cons 1 (strcat (XD::STRING:Escapewildcards prefix) "*"))
  15.                     )
  16.                   )
  17.            )
  18.       )
  19.     (progn (if (not #xd-tongji-textheight)
  20.              (setq #xd-tongji-textheight 4.0)
  21.            )
  22.            (if (setq val
  23.                       (getreal
  24.                         (xdrx_prompt "\n输入字高<" #xd-tongji-textheight ">:" t)
  25.                       )
  26.                )
  27.              (setq #xd-tongji-textheight val)
  28.            )
  29.            (setq lst nil)
  30.            (mapcar '(lambda (x)
  31.                       (setq txt (xdrx_getpropertyvalue x "textstring"))
  32.                       (if (setq        str (xdrx_string_regexps
  33.                                       (strcat "(?<="
  34.                                               (XD::String:EscapeCha prefix)
  35.                                               ".*[ ]+)[0-9.]+(?=.*$)"
  36.                                       )
  37.                                       txt
  38.                                     )
  39.                           )
  40.                         (progn (setq lst
  41.                                       (cons
  42.                                         (list (car (xdrx_string_regexps
  43.                                                      (strcat (XD::String:EscapeCha prefix)
  44.                                                              ".*(?=[ ]+.*$)"
  45.                                                      )
  46.                                                      txt
  47.                                                    )
  48.                                               )
  49.                                               (atof (car str))
  50.                                         )
  51.                                         lst
  52.                                       )
  53.                                )
  54.                         )
  55.                       )
  56.                     )
  57.                    (xdrx_pickset->ents ss)
  58.            )
  59.            (setq lst (xd::list:groupbyindex lst 0.1))
  60.            (setq lst (vl-sort lst '(lambda (x y) (< (car x) (car y)))))
  61.            (setq i 0)
  62.            (setq lst (mapcar '(lambda (x)
  63.                                 (list (itoa (setq i (1+ i)))
  64.                                       (car x)
  65.                                       (length (cdr x))
  66.                                       (apply '+ (cdr x))
  67.                                 )
  68.                               )
  69.                              lst
  70.                      )
  71.            )
  72.            (setq lst (append lst
  73.                              (list (list "合 计"
  74.                                          ""
  75.                                          (apply '+ (mapcar 'caddr lst))
  76.                                          (apply '+ (mapcar 'cadddr lst))
  77.                                    )
  78.                              )
  79.                      )
  80.            )
  81.            (setq lst (cons (list "序 号" "型 号" "数 量" "总 长") lst))
  82.            (setq lst (cons (list "统计表" nil nil nil) lst))
  83.            (if (setq pt (getpoint "\n表格插入点<退出>:"))
  84.              (progn (xd::text:init 1)
  85.                     (xd::table:makefromlist
  86.                       lst
  87.                       pt
  88.                       #xd-tongji-textheight
  89.                       (/ #xd-tongji-textheight 2.0)
  90.                     )
  91.              )
  92.            )
  93.     )
  94.   )
  95.   (princ)
  96. )
  97. (defun c:xdtb_tjtxtprefix
  98.        (/ prefix ss lst txt str x i pt strs strs1 val num)
  99.   (if (and (/= "" (setq prefix (getstring "\n请输入前缀<退出>:")) "")
  100.            (xdrx_initssget
  101.              (xdrx_prompt
  102.                "\n请选择要统计的带前缀("
  103.                prefix
  104.                ")的文字<退出>:"
  105.                t
  106.              )
  107.            )
  108.            (setq
  109.              ss        (xdrx_ssget
  110.                   (list        (cons 1
  111.                               (strcat (XD::STRING:Escapewildcards prefix)
  112.                                       "*"
  113.                                       ",#"
  114.                                       (XD::STRING:Escapewildcards prefix)
  115.                                       "*"
  116.                                       ",##"
  117.                                       (XD::STRING:Escapewildcards prefix)
  118.                                       "*"
  119.                                       ",###"
  120.                                       (XD::STRING:Escapewildcards prefix)
  121.                                       "*"
  122.                                       ",####"
  123.                                       (XD::STRING:Escapewildcards prefix)
  124.                                       "*"
  125.                                       ",#####"
  126.                                       (XD::STRING:Escapewildcards prefix)
  127.                                       "*"
  128.                                       ",######"
  129.                                       (XD::STRING:Escapewildcards prefix)
  130.                                       "*"
  131.                                       ",#######"
  132.                                       (XD::STRING:Escapewildcards prefix)
  133.                                       "*"
  134.                                       ",########"
  135.                                       (XD::STRING:Escapewildcards prefix)
  136.                                       "*"
  137.                                       ",#########"
  138.                                       (XD::STRING:Escapewildcards prefix)
  139.                                       "*"
  140.                               )
  141.                         )
  142.                   )
  143.                 )
  144.            )
  145.       )
  146.     (progn
  147.       (if (not #xd-tongji-textheight)
  148.         (setq #xd-tongji-textheight 4.0)
  149.       )
  150.       (if (setq        val
  151.                  (getreal
  152.                    (xdrx_prompt "\n输入字高<" #xd-tongji-textheight ">:" t)
  153.                  )
  154.           )
  155.         (setq #xd-tongji-textheight val)
  156.       )
  157.       (if (not #xd_var_global_bits)
  158.         (setq #xd_var_global_bits 1)
  159.       )
  160.       (if (setq
  161.             val        (getreal
  162.                   (xdrx_prompt "\n小数位数<" #xd_var_global_bits ">:" t)
  163.                 )
  164.           )
  165.         (setq #xd_var_global_bits val)
  166.       )
  167.       (setq lst        nil
  168.             str-nums nil
  169.       )
  170.       (mapcar '(lambda (x)
  171.                  (setq txt (xdrx_getpropertyvalue x "textstring"))
  172.                  (setq num 1)
  173.                  (if (setq str (xdrx_string_regexps
  174.                                  (strcat "^[0-9.]+(?="
  175.                                          (XD::String:EscapeCha prefix)
  176.                                          ".*$)"
  177.                                  )
  178.                                  txt
  179.                                )
  180.                      )
  181.                    (setq num (atoi (car str)))
  182.                  )
  183.                  (if (setq str (xdrx_string_regexps
  184.                                  (strcat "(?<="
  185.                                          (XD::String:EscapeCha prefix)
  186.                                          ".*[ ]+)[0-9.]+(?=.*$)"
  187.                                  )
  188.                                  txt
  189.                                )
  190.                      )
  191.                    (progn (setq        lst         (cons
  192.                                            (cons
  193.                                              (car (xdrx_string_regexps
  194.                                                     (strcat (XD::String:EscapeCha prefix)
  195.                                                             "(?<=[0-9.]+)?.*?(?=[ ]+|$)"
  196.                                                     )
  197.                                                     txt
  198.                                                   )
  199.                                              )
  200.                                              (cons
  201.                                                num
  202.                                                (mapcar '(lambda (y) (* num (atof y))) str)
  203.                                              )
  204.                                            )
  205.                                            lst
  206.                                          )
  207.                                 str-nums (cons (length str) str-nums)
  208.                           )
  209.                    )
  210.                    (progn (setq        lst         (cons
  211.                                            (cons (car (xdrx_string_regexps
  212.                                                         (strcat        (XD::String:EscapeCha prefix)
  213.                                                                 "(?<=[0-9.]+)?.*?(?=[ ]+|$)"
  214.                                                         )
  215.                                                         txt
  216.                                                       )
  217.                                                  )
  218.                                                  (list (list num 0.0))
  219.                                            )
  220.                                            lst
  221.                                          )
  222.                                 str-nums (cons 0 str-nums)
  223.                           )
  224.                    )
  225.                  )
  226.                )
  227.               (xdrx_pickset->ents ss)
  228.       )
  229.       (setq lst (xd::list:groupbyindex lst 0.1))
  230.       (setq lst (vl-sort lst '(lambda (x y) (< (car x) (car y)))))
  231.       (setq i 0)
  232.       (setq
  233.         lst (mapcar '(lambda (x)
  234.                        (cons (car x) (xd::table:fillgap (cdr x) 0.0))
  235.                      )
  236.                     lst
  237.             )
  238.       )
  239.       (setq lst
  240.              (mapcar
  241.                '(lambda        (x)
  242.                   (cons
  243.                     (itoa (setq i (1+ i)))
  244.                     (cons
  245.                       (car x)
  246.                       (mapcar '(lambda (x) (apply '+ (vl-remove nil x)))
  247.                               (xd::table:compose (cdr x))
  248.                       )
  249.                     )
  250.                   )
  251.                 )
  252.                lst
  253.              )
  254.       )
  255.       (if (= (apply 'max str-nums) 0)
  256.         (setq lst (mapcar '(lambda (x) (xd::list:removetail x)) lst))
  257.       )
  258.       (setq lst (xd::table:fillgap lst 0.0))
  259.       (setq strs1 (mapcar '(lambda (x) (apply '+ (vl-remove nil x)))
  260.                           (xd::table:compose (mapcar 'cddr lst))
  261.                   )
  262.       )
  263.       (setq lst (append lst (list (append (list "合 计" "") strs1))))
  264.       (setq i         0
  265.             strs nil
  266.       )
  267.       (repeat (apply 'max str-nums)
  268.         (setq strs (cons (strcat "总量" (itoa (setq i (1+ i)))) strs))
  269.       )
  270.       (setq strs (reverse strs))
  271.       (setq lst (cons (append (list "序 号" "类 别" "数 量") strs) lst))
  272.       (setq strs nil)
  273.       (repeat (apply 'max str-nums) (setq strs (cons nil strs)))
  274.       (setq lst (cons (append (list "统计表" nil nil) strs) lst))
  275.       (if (setq pt (getpoint "\n表格插入点<退出>:"))
  276.         (progn (xd::text:init 1)
  277.                (xd::table:makefromlist
  278.                  lst
  279.                  pt
  280.                  #xd-tongji-textheight
  281.                  (/ #xd-tongji-textheight 2.0)
  282.                )
  283.         )
  284.       )
  285.     )
  286.   )
  287.   (princ)
  288. )


评分

参与人数 1D豆 +10 收起 理由
lw5297590 + 10 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1824个

财富等级: 堆金积玉

发表于 2018-7-31 15:29:19 | 显示全部楼层
本帖最后由 lw5297590 于 2018-8-1 20:40 编辑

我试了一下“分类统计指定文字前缀的最后数字的总和并制表”,在我的图上有这样的问题:执行过程,没有报错,就是没有成功输出表格(表格插入点确认后没有输出表格)。我重新写了一个单行文字,程序就可以输出表格。我的图全部是多行文字,可不可以以把多行文字中的数据按照要求的顺序,提取出来生成表格。附测试图,麻烦版主看一下,谢谢!!!

点评

你这个,执行命令 tt [attachimg]79232[/attachimg]  详情 回复 发表于 2018-7-31 17:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 62个

财富等级: 招财进宝

发表于 2018-7-31 15:40:55 | 显示全部楼层
哇塞,这个太牛逼了,谢谢N版!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

 楼主| 发表于 2018-7-31 17:07:30 | 显示全部楼层
lw5297590 发表于 2018-7-31 15:29
我试了一下“分类统计指定文字前缀的最后数字的总和并制表”,在我的图上有这样的问题:执行过程,没有报错 ...

你这个,执行命令 tt

搜狗截图20180731170702.png

  1. (defun c:tt ()
  2.   (if (and (xdrx_initssget "\n选择统计的文字<退出>:")
  3.            (setq ss (xdrx_ssget '((0 . "mtext"))))
  4.       )
  5.     (progn
  6.       (xdrx_begin)
  7.       (setq titles nil
  8.             lst nil
  9.             ths nil
  10.       )
  11.       (if (not #xd_var_global_textheight)
  12.         (setq #xd_var_global_textheight 4.0)
  13.       )
  14.       (if (setq val (getreal
  15.                       (xdrx_prompt "\n输入字高<" #xd_var_global_textheight ">:" t)
  16.                     )
  17.           )
  18.         (setq #xd_var_global_textheight val)
  19.       )
  20.       (setq num 1
  21.             i 0
  22.             nums nil
  23.       )
  24.       (mapcar '(lambda (x)
  25.                  (setq txt (xdrx_getpropertyvalue x "textstring")
  26.                        txt (xdrx_string_replace txt "\n" "")
  27.                        txt (xdrx_string_split txt "\r")
  28.                  )
  29.                  (mapcar '(lambda (y)
  30.                             (if (and (setq str (xdrx_string_regexps "[^=]+" y))
  31.                                      (= (length str) 2)
  32.                                 )
  33.                               (progn
  34.                                 (cond ((= (car str) "数量") (setq num (atoi (cadr str))
  35.                                                                   nums (cons num nums)))
  36.                                       ((= (car str) "图号")
  37.                                        (setq th (cadr str))
  38.                                        (if (= i 0)
  39.                                          (setq i      (1+ i)
  40.                                                titles (cons "图 号" titles)
  41.                                          )
  42.                                        )
  43.                                        (setq ths (cons th ths))
  44.                                       )
  45.                                 )
  46.                               )
  47.                             )
  48.                           )
  49.                          txt
  50.                  )
  51.                )
  52.               (setq ents (xdrx_pickset->ents ss))
  53.       )
  54.       (setq i 0
  55.             j 0
  56.             nums (reverse nums)
  57.       )
  58.             (princ "\n111")
  59.       (mapcar
  60.         '(lambda (x)
  61.            (setq txt  (xdrx_getpropertyvalue x "textstring")
  62.                  txt  (xdrx_string_replace txt "\n" "")
  63.                  txt  (xdrx_string_split txt "\r")
  64.                  lst1 nil
  65.            )
  66.            (mapcar '(lambda (y)
  67.                       (if (and (setq str (xdrx_string_regexps "[^(:|:)]+" y))
  68.                                (= (length str) 2)
  69.                           )
  70.                         (progn
  71.                           (if (xdrx_string_regexps "合计" (car str))
  72.                             (progn (setq titles (cons "数量" titles)
  73.                                          titles (cons "合计" titles)
  74.                                    )
  75.                               (princ "\n4444")
  76.                                    (setq n (car (xdrx_string_regexps "[0-9.]+" (cadr str)))
  77.                                          n (rtos (* (nth j nums) (atof n)) 2 1)
  78.                                          j (1+ j)
  79.                                    )
  80.                                    (setq lst1 (cons (xdrx_string_regexpr "([0-9.]+)" (cadr str) n) lst1))
  81.                             )
  82.                             (progn (if (= i 0)
  83.                                      (setq titles (cons (car str) titles))
  84.                                    )
  85.                                    (setq lst1 (cons (cadr str) lst1))
  86.                             )
  87.                           )
  88.                         )
  89.                       )
  90.                     )
  91.                    txt
  92.            )
  93.            (princ "\n222")
  94.            (setq i   (1+ i)
  95.                  lst (cons lst1 lst)
  96.            )
  97.          )
  98.         ents
  99.       )
  100.       (princ "\n111")
  101.       (setq lst (mapcar '(lambda (x y) (cons x (reverse y))) ths lst))
  102.       (setq lxd lst)
  103.       (setq lst (mapcar '(lambda (x y)
  104.                            (list (nth 0 x)
  105.                                  (nth 1 x)
  106.                                  (nth 2 x)
  107.                                  (nth 3 x)
  108.                                  (nth 4 x)
  109.                                  (nth 5 x)
  110.                                  y
  111.                                  (nth 6 x)
  112.                            )
  113.                          )
  114.                         lst
  115.                         (reverse nums)
  116.                 )
  117.       )
  118.       (setq lst (cons (reverse titles) lst))
  119.       (setq lst (cons (list "统计表" nil nil nil nil nil nil nil) lst))
  120.       (if (setq pt (getpoint "\n表格插入点<退出>:"))
  121.         (progn (xd::text:init 1)
  122.                (xd::table:makefromlist
  123.                  lst
  124.                  pt
  125.                  #xd_var_global_textheight
  126.                  (/ #xd_var_global_textheight 2.0)
  127.                )
  128.         )
  129.       )
  130.     )
  131.   )
  132.   (princ)
  133. )


点评

版主,用了这个插件几天,发现一个小问题,如果,图号,数量 这两项有漏输或者有空格的情况,程序会报错。能否改为漏输在表格内直接留空,数据有空格自动把空格去掉,谢谢。数量和合计的最下方分别有一个总数就最好  详情 回复 发表于 2018-8-10 08:33
支持楼主分享。  详情 回复 发表于 2018-7-31 22:14
谢谢,试了一下,折腾了半天才发现在CAD2007里运行不了,生成不了表格,2012里可以用,谢谢!!!如果可以,麻烦你帮我看看是什么原因,谢谢您了,给你添麻烦了  详情 回复 发表于 2018-7-31 17:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1824个

财富等级: 堆金积玉

发表于 2018-7-31 17:51:12 | 显示全部楼层
本帖最后由 lw5297590 于 2018-7-31 18:17 编辑
newer 发表于 2018-7-31 17:07
你这个,执行命令 tt

谢谢,试了一下,折腾了半天才发现在CAD2007里运行不了,生成不了表格,2012里可以用,谢谢!!!如果可以,麻烦你帮我看看是什么原因,谢谢您了,给你添麻烦了。还有生成的表格里的那个“合计”实际上应该是“总计”才对。多行文字里的“合计费用”实际上就是“单价”,能不能把它放到表格的“合计”(总计=合计费用*数量)前面,万分感谢!!!
0001.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-7-31 18:55:39 | 显示全部楼层
lw5297590 发表于 2018-7-31 17:51
谢谢,试了一下,折腾了半天才发现在CAD2007里运行不了,生成不了表格,2012里可以用,谢谢!!!如果可 ...

表格可以任意编辑的,你双击,想改什么,你就改什么。

点评

我说的意思是数据提取少了一项“合计费用”,实际上是“单价”,能不能添加上去,自动生成表格,有这一项,表格就一目了然了。最后面那个实际就是各项的总价格,缺了单价容易看糊涂。谢谢,麻烦您  详情 回复 发表于 2018-7-31 19:12
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1824个

财富等级: 堆金积玉

发表于 2018-7-31 19:12:47 | 显示全部楼层
Lisphk 发表于 2018-7-31 18:55
表格可以任意编辑的,你双击,想改什么,你就改什么。

我说的意思是数据提取少了一项“合计费用”,实际上是“单价”,能不能添加上去,自动生成表格,有这一项,表格就一目了然了。最后面那个实际就是各项的总价格,缺了单价容易看糊涂。谢谢,麻烦您

点评

你就把单价放到 合计后面,就行了,程序是自动提取合计后面的价格*数量  详情 回复 发表于 2018-7-31 20:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 145个

财富等级: 日进斗金

发表于 2018-7-31 20:57:19 | 显示全部楼层
lw5297590 发表于 2018-7-31 19:12
我说的意思是数据提取少了一项“合计费用”,实际上是“单价”,能不能添加上去,自动生成表格,有这一项 ...

你就把单价放到 合计后面,就行了,程序是自动提取合计后面的价格*数量

点评

试了一下,表格中没有生成“单价”这一项,我的意思是:多行文字里,合计后面的价格就是单价,能不能在表格中单独显示出来,合计后面的价格*数量的数据显示在最后为“总计”。谢谢您  详情 回复 发表于 2018-7-31 21:32
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 62个

财富等级: 招财进宝

发表于 2018-7-31 21:19:36 | 显示全部楼层
QQ截图20180731211853.png

点评

看你数据2153个,如果加上明细,那表就要老长了。  详情 回复 发表于 2018-7-31 21:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 145个

财富等级: 日进斗金

发表于 2018-7-31 21:26:39 | 显示全部楼层

看你数据2153个,如果加上明细,那表就要老长了。

点评

不会很长啊,这是您昨天的发的公式,我只不过将5φ110改为φ110×5了,也就是将φ前面的数字放到了后面加了一个×号。 [attachimg]79241[/attachimg]  详情 回复 发表于 2018-7-31 21:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1824个

财富等级: 堆金积玉

发表于 2018-7-31 21:32:57 | 显示全部楼层
XDSoft 发表于 2018-7-31 20:57
你就把单价放到 合计后面,就行了,程序是自动提取合计后面的价格*数量

试了一下,表格中没有生成“单价”这一项,我的意思是:多行文字里,合计后面的价格就是单价,能不能在表格中单独显示出来,合计后面的价格*数量的数据显示在最后为“总计”。谢谢您
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 62个

财富等级: 招财进宝

发表于 2018-7-31 21:50:53 | 显示全部楼层
XDSoft 发表于 2018-7-31 21:26
看你数据2153个,如果加上明细,那表就要老长了。

不会很长啊,这是您昨天的发的公式,我只不过将5φ110改为φ110×5了,也就是将φ前面的数字放到了后面加了一个×号。
QQ截图20180731214725.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 62个

财富等级: 招财进宝

发表于 2018-7-31 22:01:29 | 显示全部楼层
昨天那个公式就是分类统计表,今天这个公式就是汇总统计表!

QQ截图20180731214725.png

QQ截图20180731220045.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1491个

财富等级: 财源广进

发表于 2018-7-31 22:14:30 | 显示全部楼层
newer 发表于 2018-7-31 17:07
你这个,执行命令 tt

支持楼主分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 62个

财富等级: 招财进宝

发表于 2018-7-31 22:31:37 | 显示全部楼层
在反馈下,我将PVC管子的数量,分别放到φ的前面和后面,奇迹竟然出现了,两个截然不同的表格,一个是分类表,一个是汇总表。问题来了,能否不调整管子数量的顺序,无论是放在φ前面或者后面,都可以得到这两张表格呢!

QQ截图20180731223122.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-7-5 14:16 , Processed in 0.267823 second(s), 94 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表