合并目录中所有图纸到一个文件

lxx2014 · 发表于 2023-2-21 11:20:08

目前为止，愿意共享源码的大神中，最接近完美的代码！感谢鹏哥！

另外提出一点意见：

(while (setq ss (ssget "x" (list (cons 0 "INSERT"))))
                     (setq j -1)
                     (while (setq ent (ssname ss (setq j (1+ j))))
                              (command "explode" ent)
                              (while (= 1 (getvar "cmdactive")) (command ""))
                     )
            )
            (command "purge" "B" "*" "N")

这一段虽然避免了同名块冲突的问题；但是合并后，有个别标注大小混乱的问题。是不是考虑再来个标注样式重命名？

CQ467959301 · 发表于 2023-3-3 11:32:48

学习一下感谢分享

nlzq · 发表于 2023-3-13 09:29:01

谢谢分享！！！！！！

gaolei_gaolei · 发表于 2023-3-25 23:58:15

谢谢楼主分享！学习中！

gaolei_gaolei · 发表于 2023-3-26 19:13:28

王老师输入命令后乱码是怎么回事姣忚?鏂囦欢鏁伴噺]<1>:

snyn168 · 发表于 2023-3-31 12:01:27

支持下
支持下支持下

jevil · 发表于 2023-4-7 15:08:00

让江小白来看看帖子里藏了啥好东西~~~

7079977a · 发表于 2023-4-12 17:43:34

看看能不能用

jyyxf8 · 发表于 2023-4-14 11:00:59

学校

363358796 · 发表于 2023-4-14 22:58:56

好东西，下载、看看

ilovem · 发表于 2023-5-8 13:06:51

谢谢楼主分享

18825855502 · 发表于 2023-5-20 22:09:36

DDD下载学习

狗斯基 · 发表于 2023-5-29 21:34:07

这个就是需要的啊

lhmlhmlhm21 · 发表于 2023-5-30 09:49:48

非常实用哈

drshang · 发表于 2023-11-6 10:32:12

666666666666666

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

[工具] 合并目录中所有图纸到一个文件