文字统计列表

fulaixyz

我是做石材幕墙的，经常要下料单或做统计，因为数量和规格都很多，我想把每种规格放数量都查出来，用表格的形式统计出来，就像列门窗表一样，也就是查“1200x600”或“1300x600“个数然后列表出来,请问有什么方法吗？

我的E-mail：fulaixyz@126.com      QQ:329986230 加入时请注明“天正”二字。

xyp1964

[php]
;;-----------------------------------------------------------------------------
;;;文字数量统计
(defun c:test (/ ss i num mc_txt s1 txt nums)
  (setq        ss        (ssget '((0 . "TEXT")))
        i        -1
        num1        0
        num2        0
        mc_txt1        "1200x600"
        mc_txt2        "1300x600"
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq txt (strcase (dxf 1 (entget s1))))
    (if        (= mc_txt1 txt)
      (setq num1 (1+ num1))
    )
    (if        (= mc_txt2 txt)
      (setq num2 (1+ num2))
    )
  )
  (setq        nums1 (strcat "1200x600 的数量为 " (rtos num1 2 0) " 。")
        nums2 (strcat "1300x600 的数量为 " (rtos num2 2 0) " 。")
  )
  (princ "\n")
  (princ nums1)
  (princ "\n")
  (princ nums2)
  (princ)
)[/php]

f5612140

数量和规格都很多

(defun c:txtnum ()
  (setq ss (ssget '((0 . "TEXT"))))
  (setq i 0)
  (setq tsort '())
  (repeat (sslength ss)
    (setq ename (ssname ss i))
    (setq endate (entget ename))
    (setq txt (cdr (assoc 1 endate)))
    (setq tsort (cons txt tsort))
    (setq i (+ i 1))
  )

  (setq tsort (vl-sort tsort '<))

  (setq j 0)
  (setq k 1)
  (repeat (length tsort)
    (setq trtj (nth j tsort))
    (if (/= j (length tsort))(setq trtn (nth (+ j 1) tsort)))
    (if (= trtj trtn)
        (setq k (+ k 1))
        (progn
          (print (strcat trtj "=" (rtos k 2 0)))
          (setq k 1)
        )
    )
   (setq j (+ j 1))
  )
)

狂刀

不用这么麻烦
[php]
(defun c:tt (/ ss n)
  (setq ss (ssget '((0 . "TEXT") (1 . "1200x600,1300x600"))))
  (mapcar 'princ
          (list
            "\n 1200x600 的数量 = "
            (setq n (sslength (ssget "p" '((1 . "1200x600")))))
            "\n 1300x600 的数量 = "
            (- (sslength ss) n)
          )
  )(princ)
)[/php]

xyp1964

楼上的关键：
(setq ss (ssget '((0 . "TEXT") (1 . "1200x600,1300x600"))))
减少了搜索和累计的步骤，速度极大提高。
妙！

更直接、不设变量的程序：
[php](defun c:test ()
  (princ "\n 1200x600 的数量 = ")
  (princ (sslength (ssget "x" '((0 . "TEXT") (1 . "1200x600")))))
  (princ "\n 1300x600 的数量 = ")
  (princ (sslength (ssget "x" '((0 . "TEXT") (1 . "1300x600")))))
  (princ)
)[/php]
或
[php](defun c:test ()
  (mapcar 'princ
  (list "\n1200x600 的数量 = " (sslength (ssget "x" '((0 . "TEXT") (1 . "1200x600"))))
"\n1300x600 的数量 = " (sslength (ssget "x" '((0 . "TEXT") (1 . "1300x600"))))))
  (princ))
[/php]

f5612140

石材分割只有兩種規格?

sjj

数量为0时出错
错误: 参数类型错误: lselsetp nil

zqw_zhang

有没有能够列表的功能的呢？？