请大家帮帮忙啊！搜索多个文件中的块属性并统计

peng197806 · 发表于 2004-12-13 10:01:00

本帖最后由作者于 2004-12-13 10:37:48 编辑

在ＣＡＤ的材料单中的数据是用带属性的块插入的（带属性的块见bom.dwg），我现在需要统计多张图纸（这些图纸都在ＣＡＤ支持搜索路径里）中的某一项目数据的总量（具体的说是bom.dwg块中标记为ＳＨＩＰ＿ＭＡＲＫ和ＰＩＥＣＥ＿ＴＯＴＡＬ两项，若ＳＨＩＰ＿ＭＡＲＫ相同，ＰＩＥＣＥ＿ＴＯＴＡＬ中的值累加），并把这些数据写到当前图纸．该怎么编写一个ＬＩＳＰ程序啊？请版主跟热心人帮忙写一个程序好嘛？急啊！文件很多，现在传两个（图纸文件为Ｓ１．ＤＷＧＧ　和Ｓ２．ＤＷＧ）做测试谢谢大家了，万分感谢！不胜感激啊～～

龙龙仔 · 发表于 2004-12-13 16:28:00

;;参考看看

;;Source is a valid path & dwg name

;;提取dbx档中图块属性值(vlx档)

;;(DBX_ATT <Source> <blockname>)

;;(DBX_ATT (getfiled "选取图档" (getvar "dwgprefix") "dwg" 8) "标题")

;;(DBX_ATT (getfiled "选取图档" (getvar "dwgprefix") "dwg" 8) "BOM")

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29561

peng197806 · 发表于 2004-12-13 19:37:00

本帖最后由作者于 2004-12-13 22:27:43 编辑

龙版主,是vlx的啊,dbx档是什么文档啊?能给个源程序看看么?让俺学习学习,还有个问题,我将哪个VLX程序加载运行,然后运行下面的程序,选择要统计的文件后,出错,"no function definition: STARTAPP"怎么办啊?是不是我用的方法不对啊?那怎么用啊? (defun c:test()
(setq attbom (DBX_ATT (getfiled "选取图档" (getvar "dwgprefix") "dwg" 8) "bom")) )
还有,(DBX_ATT <Source> <blockname>)返回的是什么值?是块内属性的表么?请赐教!!万分感谢啊

龙龙仔 · 发表于 2004-12-14 08:05:00

;|
请大家帮帮忙啊！搜索多个档中的块属性并统计
在ＣＡＤ的材料单中的资料是用带属性的块插入的（带属性的块见bom.dwg），
我现在需要统计多张图纸（这些图纸都在ＣＡＤ支援搜索路径里）中的某一专
案资料的总量（具体的说是bom.dwg块中标记为ＳＨＩＰ＿ＭＡＲＫ和
ＰＩＥＣＥ＿ＴＯＴＡＬ两项，若ＳＨＩＰ＿ＭＡＲＫ相同，
ＰＩＥＣＥ＿ＴＯＴＡＬ中的值累加），并把这些资料写到当前图纸．
该怎么编写一个ＬＩＳＰ程式啊？请版主跟热心人帮忙写一个程式好嘛？
急啊！档很多，现在传两个（图纸档为Ｓ１．ＤＷＧＧ　和Ｓ２．ＤＷＧ）(DBX_ATT <Source> <blockname>)返回值是属性的表!
没有你说的错误!我在R2005测试通过!可能是你objectdbx没有通过註册
我不是贴了一个dbx架构吗?只要会ActiveX就能使用,不会ActiveX....... 8-(
|;
(defun C:TT (/ LST NAME ATT ENT ENTT TMP BOM)
(vl-load-com)
(setq LST '("C:\\LSP\\S1.DWG" "C:\\LSP\\S2.DWG"))
(foreach NAME LST
(setq ATT (DBX_ATT NAME "BOM"))
(if ATT
(foreach ENT ATT
(setq ENTT (list (car ENT) (atof (cadr ENT))))
(if (setq TMP (assoc (car ENT) BOM))
(setq BOM
(subst
(list (car ENTT) (+ (cadr ENTT) (cadr TMP)))
TMP
BOM
)
)
(setq BOM (append BOM (list ENTT)))
)
)
)
)
(vl-sort BOM
(function (lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
)

;|
请大家帮帮忙啊！搜索多个档中的块属性并统计
在ＣＡＤ的材料单中的资料是用带属性的块插入的（带属性的块见bom.dwg），
我现在需要统计多张图纸（这些图纸都在ＣＡＤ支援搜索路径里）中的某一专
案资料的总量（具体的说是bom.dwg块中标记为ＳＨＩＰ＿ＭＡＲＫ和
ＰＩＥＣＥ＿ＴＯＴＡＬ两项，若ＳＨＩＰ＿ＭＡＲＫ相同，
ＰＩＥＣＥ＿ＴＯＴＡＬ中的值累加），并把这些资料写到当前图纸．
该怎么编写一个ＬＩＳＰ程式啊？请版主跟热心人帮忙写一个程式好嘛？
急啊！档很多，现在传两个（图纸档为Ｓ１．ＤＷＧＧ　和Ｓ２．ＤＷＧ）(DBX_ATT <Source> <blockname>)返回值是属性的表!
没有你说的错误!我在R2005测试通过!可能是你objectdbx没有通过註册
我不是贴了一个dbx架构吗?只要会ActiveX就能使用,不会ActiveX....... 8-( 
|;
(defun C:TT (/ LST NAME ATT ENT ENTT TMP BOM)
   (vl-load-com)
   (setq LST '("C:\\LSP\\S1.DWG" "C:\\LSP\\S2.DWG"))
   (foreach NAME  LST
       (setq ATT (DBX_ATT NAME "BOM"))
       (if  ATT
           (foreach ENT ATT
  (setq ENTT (list (car ENT) (atof (cadr ENT))))
  (if (setq TMP (assoc (car ENT) BOM))
     (setq  BOM
     (subst
         (list (car ENTT) (+ (cadr ENTT) (cadr TMP)))
         TMP
         BOM
     )
     )
     (setq BOM (append BOM (list ENTT)))
  )
           )
       )
   )
   (vl-sort BOM
       (function (lambda (E1 E2)
                 (< (car E1) (car E2))
             )
       )
   )
)

peng197806 · 发表于 2004-12-14 10:09:00

不会就学!一定要搞会它!龙版主,我去找找你前面的贴子,如果还不行再回来,一定帮到底啊,谢谢!

peng197806 · 发表于 2004-12-15 16:27:00

问题解决了，感谢龙大侠！

账号		自动登录	找回密码
密码			注册

请大家帮帮忙啊！搜索多个文件中的块属性并统计

本帖子中包含更多资源