一个批量图纸目录程序求完善！！

spp_wall · 发表于 2014-10-6 19:28:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 spp_wall 于 2014-10-18 18:50 编辑

如题！因为图纸很多都是外部参照所以图名和图号页码都用图层来识别！

现在程序只能对一张图纸有效！
1:希望能进行一个文件夹处理!
2:目录里能添加总页码
3：能输出成exl格式最好！

zhbzhbzhb · 发表于 2014-10-7 08:41:27

我也编了一个，看一下你的。

zhbzhbzhb · 发表于 2014-10-7 08:53:06

你这个好编，只要把“cxb图框“图层作成PL线，选PL线用SSGET “F”对图排序，再用序号对应的外框图元名一张一张处理就好了。

spp_wall · 发表于 2014-10-7 11:00:26

zhbzhbzhb 发表于 2014-10-7 08:53
你这个好编，只要把“cxb图框“图层作成PL线，选PL线用SSGET “F”对图排序，再用序号对应的外框图元名一张 ...

太复杂了目前还只会command之类的程序！

不过我其他图元都是用外部参照的形式！整个图框应该都是外部参照只有图号图层和页码是手该！主要是怕图名改了！

用属性块可以用数据提取目录但有时候改图名就比较麻烦！

spp_wall · 发表于 2014-10-7 11:49:31

好像外部参照也能做成属性块然后用数据提取解决了！！！:lol

st788796 · 发表于 2014-10-8 07:12:26

没有搞明白，你说的图名图号页码在图中还是参照中，另外一个dwg中有几个图框，页码编排规则（本图和目录文件的编排顺序），写程序没有这些规则是无从下手的

spp_wall · 发表于 2014-10-8 08:53:17

st788796 发表于 2014-10-8 07:12
没有搞明白，你说的图名图号页码在图中还是参照中，另外一个dwg中有几个图框，页码编排规则（本图和目录 ...

都在参照中一个dwg 也就10个左右的参照图号一般是 XX-01至 XX-100 这样的形式所以目录以图号后面的数字排序就可以

每张dwg 一般就是1-2个图号的图图号序号小的在序号大的上面
有的dwg的图纸是在布局里的块！这样的情况不多！

st788796 · 发表于 2014-10-8 09:01:25

spp_wall 发表于 2014-10-8 08:53
都在参照中一个dwg 也就10个左右的参照图号一般是 XX-01至 XX-100 这样的形式所以目录以图号后面 ...

越听越糊涂了，本图中的序号都在参照中？那直接从参照图的 dwg 读取不可以？还要本图干什么

截图说明吧

lucas3 · 发表于 2014-10-8 12:42:16

st788796 发表于 2014-10-8 09:01
越听越糊涂了，本图中的序号都在参照中？那直接从参照图的 dwg 读取不可以？还要本图干什么

截图说明 ...

5楼不是说明问题解决了么？

spp_wall · 发表于 2014-10-8 15:44:48

st788796 发表于 2014-10-8 09:01
越听越糊涂了，本图中的序号都在参照中？那直接从参照图的 dwg 读取不可以？还要本图干什么

截图说明 ...

重新上传了测试的图和结果！有空看看！
08以后的属性提取可以完成这个不过设置起来麻烦点

08以前的版本好像没有数据提取这个功能！

st788796 · 发表于 2014-10-8 18:19:34

spp_wall 发表于 2014-10-8 15:44
重新上传了测试的图和结果！有空看看！
08以后的属性提取可以完成这个不过设置起来麻烦点

不要附带acad.fas病毒

newer · 发表于 2014-10-8 19:52:32

spp_wall 发表于 2014-10-8 15:44
重新上传了测试的图和结果！有空看看！
08以后的属性提取可以完成这个不过设置起来麻烦点

把图直接截图，贴到论坛来吧，不是谁都有时间下载附件帮你看图的。把你想的，都画出来，包括结果。

eachy · 发表于 2014-10-8 20:09:37

用 ReadDwg 这样, 没有写出文件部分，不过读都读出来，剩下的也简单

(defun c:tt (/ fd lst tlst)
(if (and (setq fd (xdrx_system_selectfolder "select Folder"))
(setq lst (vl-directory-files fd "*.dwg" 1))
)
(progn
(mapcar
'(lambda (fl / ob ents)
(if
(and (xdrx_database_readdwg fl)
(xdrx_database_seldb 1)
(setq ob (xdrx_object_get "block" "*model_space"))
(setq ents (xdrx_getpropertyvalue ob "AllEntities"))
(setq tl
(vl-remove-if-not
'(lambda (x)
(wcmatch (car (xdrx_getpropertyvalue x "layer"))
"图纸*"
)
)
ents
)
)
)
(progn
(setq tlst
(cons
(mapcar '(lambda (x / l)
(setq l (xdrx_getpropertyvalue
x
"layer"
"textstring"
"Position"
)
)
(cons (caar l) (cdr l))
)
tl
)
tlst
)
)
(xdrx_database_seldb 1)
(xdrx_database_Close) ;_
)
)
)
(mapcar '(lambda (a) (strcat fd "\\" a)) lst)
)
(mapcar '(lambda (x)
(princ "\n********************")
(mapcar '(lambda (a)
(princ "\n")
(princ a)
)
x
)
)
tlst
)
)
)
(princ)
)

(defun c:tt (/ fd lst tlst) 
  (if (and (setq fd (xdrx_system_selectfolder "select Folder")) 
           (setq lst (vl-directory-files fd "*.dwg" 1)) 
      ) 
    (progn 
      (mapcar 
        '(lambda (fl / ob ents) 
           (if 
             (and (xdrx_database_readdwg fl) 
                  (xdrx_database_seldb 1) 
                  (setq ob (xdrx_object_get "block" "*model_space")) 
                  (setq ents (xdrx_getpropertyvalue ob "AllEntities")) 
                  (setq        tl 
                         (vl-remove-if-not 
                           '(lambda (x) 
                              (wcmatch (car (xdrx_getpropertyvalue x "layer")) 
                                       "图纸*" 
                              ) 
                            ) 
                           ents 
                         ) 
                  ) 
             ) 
              (progn 
                (setq tlst 
                       (cons 
                         (mapcar '(lambda (x / l) 
                                    (setq l (xdrx_getpropertyvalue 
                                              x 
                                              "layer" 
                                              "textstring" 
                                              "Position" 
                                            ) 
                                    ) 
                                    (cons (caar l) (cdr l)) 
                                  ) 
                                 tl 
                         ) 
                         tlst 
                       ) 
                ) 
                (xdrx_database_seldb 1) 
                (xdrx_database_Close) ;_ 
              ) 
           ) 
         ) 
        (mapcar '(lambda (a) (strcat fd "\\" a)) lst) 
      ) 
      (mapcar '(lambda (x) 
                 (princ "\n********************") 
                 (mapcar '(lambda (a) 
                            (princ "\n") 
                            (princ a) 
                          ) 
                         x 
                 ) 
               ) 
              tlst 
      ) 
    ) 
  ) 
  (princ) 
)

运行结果
命令: tt
********************
(图纸名称横断面 (-2581.84 -2563.61 0.0))
(图纸名称横断面 (-2110.13 -2561.83 0.0))
(图纸编号 DL-3 (-2411.88 -2563.33 0.0))
(图纸编号 DL-3 (-1940.09 -2562.92 0.0))
(图纸名称坡面图 (-2597.75 -3419.32 0.0))
(图纸名称坡面图 (-2126.05 -3417.54 0.0))
(图纸编号 DL-4 (-2427.85 -3419.04 0.0))
(图纸编号 DL-4 (-1956.07 -3418.63 0.0))
********************
(图纸名称平面图 (-2581.84 -2563.61 0.0))
(图纸名称平面图 (-2110.13 -2561.83 0.0))
(图纸编号 DL-1 (-2411.5 -2563.33 0.0))
(图纸编号 DL-1 (-1939.72 -2562.92 0.0))
(图纸名称纵断面 (-2597.84 -3419.32 0.0))
(图纸名称纵断面 (-2126.13 -3417.54 0.0))
(图纸编号 DL-2 (-2427.79 -3419.04 0.0))
(图纸编号 DL-2 (-1956.01 -3418.63 0.0))

liuchong1988 · 发表于 2014-10-18 18:38:33

不要附带acad.fas病毒
-

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

[求助] 一个批量图纸目录程序求完善！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

[求助] 一个批量图纸目录程序 求完善！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

[求助] 一个批量图纸目录程序求完善！！