anywn1980 发表于 2018-1-16 19:28:39

如何把图纸中的块分别另存为DWG文件？

一张图里有几百个块，如何把块分别另存为DWG文件？

Kye 发表于 2018-1-16 21:03:39

板凳 masterlong 2010-5-27 00:04 输出所有块 (defun c:wab()(setq bk_list '())(setq aa (tblnext "block" T))(if aa (setq aa (cdr (assoc 2 aa))))(if aa (setq bk_list (cons aa bk_list)))(while (setq aa (tblnext "block"))   (setq aa (cdr (assoc 2 aa)))   (setq bk_list (cons aa bk_list)))(prin1 bk_list)(foreach x bk_list   (if (findfile (strcat "d:\\eeeeeeeeee\\" x ".dwg"))    (command "wblock" (strcat "d:\\eeeeeeeeee\\" x) "y" "=")    (command "wblock" (strcat "d:\\eeeeeeeeee\\" x) "=")   ))(princ "\n+++") (princ) )

Gu_xl 发表于 2018-1-19 08:53:11

本帖最后由 Gu_xl 于 2018-1-19 08:59 编辑

加载XLRX_API函数库
(defun c:blk2dwg (/ d r b)
(if (setq path (XLRX-File-GetFolder))
    (while (setq d (tblnext "block" (null d)))
      (xlrx-doc-wblock
(setq b (cdr (assoc 2 d)))
(strcat path b ".dwg")
      )
    )
)
(princ)
)

king、 发表于 2018-1-22 17:02:55

Gu_xl 发表于 2018-1-19 08:53
加载XLRX_API函数库

G版大神，这种带表格的，固定位置的图纸呢

Andyhon 发表于 2018-1-16 20:30:57

通常是调用 Wblock 命令

panliang9 发表于 2018-1-17 10:35:16

批量写块命令，一开始的需要指定文件夹。

anywn1980 发表于 2018-1-21 19:48:24

十分感谢大家的回复。

anywn1980 发表于 2018-1-21 19:49:54

Gu_xl 发表于 2018-1-19 08:53
加载XLRX_API函数库

我的 XLRX_API 函数库 过期了:(

Gu_xl 发表于 2018-1-22 11:22:36

anywn1980 发表于 2018-1-21 19:49
我的 XLRX_API 函数库 过期了

论坛重新下载！

血司 发表于 2018-1-22 11:34:25

Gu_xl 发表于 2018-1-22 11:22
论坛重新下载！

近距离遇G版，马一个;P
页: [1] 2
查看完整版本: 如何把图纸中的块分别另存为DWG文件？