[编程申请]：统计门窗表程序

huiling6868

谁有统计门窗表数量的程序.

xyp1964

不知门窗的画法“块”或“属性块”，没有统一的程序。
有个“统计图块数量并绘制表格”的程序：
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;统计图块数量并绘制表格
(defun c:test ()
  (cmdla0)
  (setq        pt1 (getpoint "\n左上角: ")
        ww  (udist 1 "" "\n宽度" ww pt1)
  )
  (setq hh (udist 1 "" "\n每格高度" hh pt1))
  (setq        pt2 (polar pt1 0 ww)
        pt3 (polar pt2 (* pi 1.5) hh)
        pt4 (polar pt1 (* pi 1.5) hh)
  )
  (command "pline" pt1 pt2 pt3 pt4 "c")
  (setq        pt5 (polar pt1 0 (/ ww 2))
        pt6 (polar pt5 (* pi 1.5) hh)
  )
  (command "line" pt5 pt6 "")
  (command "text"
           "m"
           (inters pt1 pt6 pt4 pt5)
           (/ hh 2)
           0
           "图块名称"
  )
  (command "text"
           "m"
           (inters pt5 pt3 pt2 pt6)
           (/ hh 2)
           0
           "数量"
  )
  (setq blk (tblnext "block" t))
  (while blk
    (setq blkn (assoc 2 blk)
     blk_key (substr (cdr blkn) 1 1))
    (if        (/= blk_key "*")
      (progn
        (setq ss (ssget "X" (list blkn)))
        (if (null ss)
          (setq ssn 0)
          (setq ssn (sslength ss))
        )
        (setq blknn (cdr blkn)
              pt1   pt4
              pt5   pt6
              pt2   pt3
              pt4   (polar pt1 (* pi 1.5) hh)
              pt6   (polar pt5 (* pi 1.5) hh)
              pt3   (polar pt2 (* pi 1.5) hh)
        )
        (command "pline" pt2 pt3 pt4 pt1 "")
        (command "line" pt5 pt6 "")
        (command "text"
                 "m"
                 (inters pt1 pt6 pt4 pt5)
                 (/ hh 2)
                 0
                 blknn
        )
        (command "text"
                 "m"
                 (inters pt5 pt3 pt2 pt6)
                 (/ hh 2)
                 0
                 (itoa ssn)
        )
      )
    )
    (setq blk (tblnext "block"))
  )
  (cmdla1)
)
[/php]

huiling6868

我说的是文字,如C-1,C-2的统计,还有我没有装晓东工具及别的画门窗工具,我想要个LISP程序.

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;统计门窗数量（特定文本数量）
(defun c:test (/ ss leng)
  (setq        txt1 (ustr 1 "\n输入要统计的门窗编号" txt1 nil)
        SS   (ssget "X" (list (cons 0 "TEXT") (cons 1 txt1)))
  )
  (if ss
    (progn
      (setq leng (sslength ss))
      (princ "\n共有门窗 ")
      (princ txt1)
      (princ " ")
      (princ leng)
      (princ " 个!")
    )
    (alert"\n不存在这种编号的门窗!")
  )
  (princ)
)
[/php]

huiling6868

我第一次安装通用函数, 通用函数和你的程序安装在什么目录下和怎么安装.

xyp1964

安装在CAD搜索路径下

huiling6868

我装好了,谢谢白银长老.

f5612140

真幸福,只需統計一種型號,如果一次只"統計"一種,用qselect也可以

yh1998

统计程序，能自动列表并排序就好了

timnis@21cn.com

最好能分层，然后合并统计，就像做门窗表一样。