使之独立（关联工程图）

caizhengguan 发表于 2023-8-3 16:03:42

你好楼主，使用宏出现出现错误，如：隐藏的模块中的编译错误:使之独立，怎么解决呢

liuxingao 发表于 2023-8-4 09:09:09

直接
感谢楼主分享，很不错！

zl2087 发表于 2023-8-5 08:39:33

linlx 发表于 2023-5-15 21:55
换了一种思路，用VBA改名，然后通过替换指令，将SW里的模型替换，从而解决问题。

朋友怎么解决的，请指点

yun6yun7 发表于 2023-8-6 20:45:35

SolidWorks机械工程师网，顶一下。

jqrihc 发表于 2023-8-10 15:25:56

试了一下，2022可以，以前有一个2020可以用，但2022不能用了，感谢楼主

linlx 发表于 2023-8-13 15:55:49

zl2087 发表于 2023-8-5 08:39
朋友怎么解决的，请指点

olddrawname = TextBox2.Text & Mid(Label3.Caption, 1, InStrRev(Label3.Caption, ".")) & "SLDDRW"
'newdrawname = Mid(newpartname, 1, InStr(newpartname, ".")) & "SLDDRW"'文件夹带点就会出问题
newdrawname = Mid(newpartname, 1, InStrRev(newpartname, ".")) & "SLDDRW"

If dir(newpartname) = "" Then
   'value = mymodel.MakeIndependent(newpartname) '这句执行有问题
   myfile.copyfile oldpartname, newpartname
   Shell ("attrib " & newpartname & " -r ") '去除只读属性
   Set swSelMgr = mymodel.SelectionManager
   Set swSelComp = swSelMgr.GetSelectedObjectsComponent4(1, -1)

   AllReplace = MsgBox("是否替换全部相同零件,是：替换所有；否：只替换选中", vbYesNo)
   If AllReplace = 6 Then
         bRet = mymodel.ReplaceComponents(newpartname, "", True, True) '两个True，全部替换
   Else
         bRet = mymodel.ReplaceComponents(newpartname, "", False, True) '两个True，全部替换
   End If

linlx 发表于 2023-8-13 16:08:39

感谢楼主提供的程序，在这个版本上做了些优化，
1、首先解决了低版本不能用“MakeIndependent”的问题，采用改名替换的方式实现。
2、处理路径名出现点，导致查找扩展名不对的问题。
附件为本人正在使用的程序，代码分享，没有加密，但需要收点小金币。
转载请标明出处。

jqrihc 发表于 2023-8-15 14:23:46

没法关联工程图了:(

jqrihc 发表于 2023-8-15 14:34:44

请问这是什么意思啊

jqrihc 发表于 2023-8-17 13:58:00

请问为什么只能独立零部件，不能独立工程图呢

rex2023 发表于 2023-10-8 18:16:58

楼主辛苦了！
感谢楼主分享，很不错！

rex2023 发表于 2023-10-8 19:15:22

活到老学到老！

随遇而安9528 发表于 2023-10-14 13:43:59

金币不够啊

txy611 发表于 2023-11-9 12:34:40

哇，10个金币，只有回帖获取了

longe2 发表于 2023-11-9 14:27:22

多谢分享，使之独立很好用

samsun288 发表于 2023-11-11 20:26:02

楼主太有才了，……

longe2 发表于 2023-12-21 20:09:05

很好，但是金币太贵了，先收藏以后在下载

加一秒 发表于 2023-12-23 14:22:52

SolidWorks机械工程师网，顶一下。

hjr123 发表于 2023-12-23 17:17:41

好好学习，天天向上！

大风吹 发表于 2023-12-27 14:53:04

感谢楼主分享，很不错！

页: 1 2 3 4 5 6 [7] 8 9

SolidWorks机械工程师网——最大的SolidWorks学习平台《快捷浏览页面》