使之独立（关联工程图）

caizhengguan

   经典图书

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

liuxingao

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

zl2087

   经典图书

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

朋友怎么解决的，请指点

yun6yun7

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

jqrihc

   经典案例图书

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

linlx

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

   经典案例图书

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

jqrihc

没法关联工程图了

jqrihc

请问这是什么意思啊

jqrihc

   经典图书

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

rex2023

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

rex2023

活到老学到老！

随遇而安9528

金币不够啊

txy611

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

longe2

加入QQ群
参与讨论和学习

或扫描二维码加入

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

samsun288

   经典案例图书

楼主太有才了，……

longe2

加入QQ群
参与讨论和学习

或扫描二维码加入

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

加一秒

   经典案例图书

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

hjr123

好好学习，天天向上！

大风吹

感谢楼主分享，很不错！