[原创]CAD中收集图纸中存在的BOM信息

革天明

谢谢楼主分享，高质量的代码

xiaxiang

原来楼主是敏敏工具箱的作者？可否把最新版共享一下呢？

zctao1966

xiaxiang 发表于 2011-12-29 11:16
原来楼主是敏敏工具箱的作者？可否把最新版共享一下呢？

敏敏工具箱是我在机械设计中常用的一些命令，明经中都有的。
本人觉得好的原创程序，在明经中，都有提供源码，谢谢关注！
适合自己才是最重要！

ZHENYOUDNG

呵呵！楼主！真好人呀！

ZHENYOUDNG

alwtyp 发表于 2011-8-16 23:04
第一，你的信息要做成属性块里的属性。
第二，如果你的CAD版本是０４及上应该就有EATTEXT.０４以下很久没 ...

这个块属性提取很有用！

机械工程师

看着比较复杂,应该可以简化下.
一堆变量看着头晕.

zctao1966

机械工程师 发表于 2014-3-11 22:59
看着比较复杂,应该可以简化下.
一堆变量看着头晕.

现在看来的确是可以简化，只不过，以前的话，只能这样写，没那么高的水平！你有时间可以写个来分享下呗！先给你加个币，写不写随你哟！

机械工程师

谢谢，贴个类似的实现。
参考了猫的批量执行脚本

(defun c:newgetatti(/ qxpath qxname files data ff )
    (setq ff (open "c:\\tempfiles\\bom.txt" "w"))
    (princ "" ff)
    (close ff)
    (setvar "filedia" 0)
(setvar "sdi" 1)
(setvar "lispinit" 0)
    (setq qxpath "C:\\tempfiles\\")
    (setq qxname "*.dwg")
    (setq files (vl-directory-files qxpath qxname 1))
    ;(setq files (FileNameSort files))
    (setq data (car files))
    (while data
                (command "open" )
                (command (strcat "c:\\tempfiles\\" data))
                (getatti)
                (command "qsave")
                (setq files (cdr files))
                (setq data (car files))
    )
        (setvar "sdi" 0)
        (setvar "lispinit" 1)
        (command "close")
)

(defun getatti(/ ss i ent elist tymc tydh js loop ename ff)
    (setq ss (ssget "all" (list '(0 . "INSERT") (cons 2 "A4,A4横,A3,A2,A1,A0"))))
    (if ss
        (progn
            (setq i (sslength ss))
            (setq ent (ssname ss (setq i (1- i)))
                ename (entnext ent)
                loop t
            )
            (while (and ename loop)
                (setq elist (entget ename))
                (if (= (cdr (assoc 0 elist)) "ATTRIB")
                    (progn
                        (if (= (cdr (assoc 2 elist)) "图样名称")
                            (progn
                                (setq tymc (cdr (assoc 1 elist)))
                            )
                        )
                        (if (= (cdr (assoc 2 elist)) "图样代号")
                            (progn
                                (setq tydh (cdr (assoc 1 elist)))
                            )
                        )
                        (if (= (cdr (assoc 2 elist)) "件数")
                            (progn
                                (setq js (cdr (assoc 1 elist)))
                            )
                        )
                    )
                    (setq loop nil)
                )
                (setq ename (entnext ename))
            )
        )
    )
    (setq ff (open "c:\\tempfiles\\bom.txt" "a"))
    (princ (strcat tymc "\t\t" tydh "\t" js "\n") ff)
    (close ff)
    (princ)
)

raulyazhai

学习一下，感谢楼主的分享