[编程申请]：一个初步材料表统计程序，还需高手完善

coolzhb

[PHP]

;|材料表统计程序初步，需完善以下几个方面

  1.材料表的按序号的排序，即按照1，2，3由小到大排序；
  2.将图块C2的数量加到与C1同名的数量中去。
  3.实际附图中的8号构件是4件，但有2两件是简化标注，统计出这有2件，
    不知道能不能通过与其四分点相连的直线判断一下实际的数量。

此程序的目的在于画详图时，截面已经在图纸中画好了，再做材料表时不需要再抄一遍，
而自动生成材料表的文本文件，而由材料表文件绘图的程序已经做好了。
最好能用R14的lisp完成，谢谢！如果不可以的，用V函数也可以！

|;
(defun c:att ()
  (princ "\n请选择需统计的材料表:")
  (setq clb (ssget '((-4 . "<AND") (0 . "INSERT")
                    (-4 . "<OR")
                    (2 . "C2")
                    (2 . "C1")
                    (-4 . "OR>")
                    (-4 . "AND>")
                   )
            )   ;仅选择C1和C2图块
        nn (sslength clb)
        file (open "clb.txt" "w")
        index 0
        attlist nil
  )
  (repeat nn
    (setq blk (ssname clb index)
          index (+ index 1)
          ename (entnext blk)
          loop t
          aa ""
    )
    (while (and
             ename
             loop
           )
      (setq elist (entget ename))
      (if (= (cdr (assoc 0 elist)) "ATTRIB")
        (progn
          (setq attstr (cdr (assoc 1 elist)))
          (setq attlist (cons attstr attlist)) ; 排序用的表
          (setq aa (strcat aa "  " (cdr (assoc 1 elist))))
        )
        (setq loop nil)
      )
      (setq ename (entnext ename))
    )
    (princ (strcat aa "\n") file);文件输出
  )
  (close file)
  (princ)
)
[/PHP]

yjtdkj

请问长老是搞什么专业的？我是做钢结构的，不过现在还是个菜鸟，目前还帮不上什么忙，请大侠多多指教！！！

Alick

楼主应该告知专业，这样才可以让感兴趣的朋友与你共同研究。

coolzhb

最初由 Alick 发布
[B]楼主应该告知专业，这样才可以让感兴趣的朋友与你共同研究。 [/B]

结构专业，做钢结构等详图时统计材料表时需要用！

cy956

先说明你的材料库的规则，或者是没规则纯粹是text而已。

coolzhb

最初由 cy956 发布
[B]先说明你的材料库的规则，或者是没规则纯粹是text而已。 [/B]

     也许大家没有明白我的意图，我只是想将附件中图的材料，统计生成材料明细表文件（具体要求附件中都有），而如何将此文件最好生成工程可以用的表格，比如每米的单重、总重则由另外的程序模块实现。

   因为此程序还没完成，目前我们的做法就是将图中的材料（图纸的表达发式是属性块，含编号、截面、长度三种属性），人工统计成材料明细表文件，再由程序实现通过截面查或算出单重，最后算出总重，自动绘表格！

zhbbo

我用了，怎么是错误呢