【分享】选择批量cad文件合并为一个的vb.net程序！

鲁东秀才

   经典图书

向楼主学习学习

z460515477

楼主很专业，写得很好！

氕氘氚

   经典图书

感谢楼主分享，很不错！

a785997392

感谢楼主，希望好用，万分感谢

a785997392

   经典案例图书

楼主你好，我怎么不能运行呢，也合并不了，请帮忙看下是啥问题呢，谢谢

tg000057

a785997392 发表于 2023-5-23 11:08
楼主你好，我怎么不能运行呢，也合并不了，请帮忙看下是啥问题呢，谢谢

可能是文件目录没有写入的权限，后续我再看看怎么修复这个报错。

huzhen_whu

   经典案例图书

感觉不错，下载来看看

dengchenghui

我CAD合并了4到5张图纸就合并不下去了

dengchenghui

我 合并4到5张就合并不了，就报错了[img][/img]

SW初学00

   经典图书

还不错，合并3个图档成功，如果不自动打开图档在后台运行就好了，这样打开图形如果图档多的话会很卡，运行不快

Jiajun_16888

孔标注时尺寸会变   由4变到了8   估计只能打散后再合并

Jiajun_16888

孔标注大小会变  手工复制到dwg文件里也是会变

jdb

SW机械工程师网，找到组织了！

jdb

感谢楼主分享，很不错！

18934302678

加入QQ群
参与讨论和学习

或扫描二维码加入

大神您好，您之前回贴的这段：
把代码改成以下提取文件夹名：
Part.Extension.CustomPropertyManager("").Set("项目",Mid(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), 1 + InStrRev(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), "\")))

如果路径是：G:\aaaa\项目\GEGG52 员扣.SLDPRT得到的是路径

18934302678

   经典案例图书

大神您好，您之前回贴的这段：
把代码改成以下提取文件夹名：
Part.Extension.CustomPropertyManager("").Set("项目",Mid(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), 1 + InStrRev(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), "\")))

如果路径是：G:\aaaa\项目\GEGG52 员扣.SLDPRT
大神您好，您之前回贴的这段：
把代码改成以下提取文件夹名：
Part.Extension.CustomPropertyManager("").Set("项目",Mid(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), 1 + InStrRev(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), "\")))

如果路径是：G:\aaaa\项目\GEGG52 员扣.SLDPRT得到的是路径得到的是路径

18934302678

加入QQ群
参与讨论和学习

或扫描二维码加入

大神您好，您之前回贴的这段：
把代码改成以下提取文件夹名：
Part.Extension.CustomPropertyManager("").Set("项目",Mid(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), 1 + InStrRev(Left(Part.GetPathName, Len(Part.GetPathName) - (Len(Part.GetTitle) + 1)), "\")))

如果路径是：G:\aaaa\项目\GEGG52 员扣.SLDPRT         得到的是最后一个\右边的 GEGG52         怎么才能得到最后一个\左边的“项目”？

shxshx

   经典案例图书

学习一下这个程序使用

zxt0824

感谢楼主分享，很不错！

陈无声

感谢楼主