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

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

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

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

板凳 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

本帖最后由 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

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

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

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

通常是调用 Wblock 命令

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

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

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

十分感谢大家的回复。

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

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

我的 XLRX_API 函数库过期了

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

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

论坛重新下载！

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

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

近距离遇G版，马一个

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

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

本帖子中包含更多资源

本帖子中包含更多资源