CAD中WBLOCK 块存文件--有无批量处理的方法和软件？

jaminth

[求助]：CAD中WBLOCK 块存文件--有无批量处理的方法和软件？

经常遇到包含许多块的文件，想要把里面的块都存成文件，得用WBLOCK 命令一个一个制作，很麻烦，有没有批量解决的方法，请各位老大帮忙解决，谢谢！！

ZZXXQQ

2. (DEFUN C:WBLK ( / SS I BL)
3. (IF (SETQ SS (SSGET "X" '((0 . "INSERT")))) (PROGN
4.   (COMMAND ".UNDO" "BE")
5.   (SETQ I -1)
6.   (REPEAT (SSLENGTH SS)
7.    (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
8.          BN (CDR (ASSOC 2 ENT)))
9.    (IF BL
10.     (IF (SETQ POS (ASSOC BN BL))
11.      (SETQ BL (SUBST (CONS BN (1+ (CDR POS))) POS BL))
12.      (SETQ BL (CONS (CONS BN 1) BL))
13.     )
14.     (SETQ BL (LIST (CONS BN 1)))
15.    )
16.   )
17.   (SETQ I -1)
18.   (REPEAT (LENGTH BL)
19.    (SETQ BN (CAR (NTH (SETQ I (1+ I)) BL)))
20.    (COMMAND "-WBLOCK" BN BN)
21.   )
22.   (COMMAND ".UNDO" "E")
23. ))
24. (PRINC)
25. )

复制代码

jaminth

谢谢ZZXXQQ,不过WBLOCK出去的图块,能不能指定一个存储路径,而不是存储在CAD的安装文件夹里!?

hdlyt11

我也知道怎么解决这个问题！求楼主完善，呵呵

panliang9

这就是你需要的！

sz_9527

panliang提供的这个是把所有的块变成文件。有没有可以只选某个块变成文件的？因为有时候需要不改变插入点，以便于改变写出来的DWG文件后再重新插入原图----因为原图在位编辑时可能会遇到“工作集中的对象参照了工作集外的对象”导致在位编辑不能存盘。

hotson

有没一种跟批量打印一样的，先把要写块的范围先选择好，再批量写块，名字可以按选择顺序从1开始编下去

wosiguwozai0830

panliang9 发表于 2012-5-3 22:18
这就是你需要的！

感谢，刚好用到