2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里
arter_2006 发表于 2018-11-28 16:45
2014试过了，和2018一样。但3个宏各自单独执行是没问题的。不知道问题在哪里
2012版本 "引用項目" 作參考,看是否有打勾!
ryouss 发表于 2018-11-28 17:11
2012版本 "引用項目" 作參考,看是否有打勾!
打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
arter_2006 发表于 2018-11-28 18:54
打勾了，只是没有solidworks 2012的选项，我从上到下都看过了
因是2018版沒2012是正常的.
另試 "逐步執行" 看程式如何執行!(一搬在抓程式臭蟲就要用到"逐步執行")
本帖最后由 arter_2006 于 2018-11-29 08:49 编辑
2018没有侦错按钮，但有“逐语句”按钮，点了后没发现任何问题。
下面是截屏。
又用solidworks 2014试了下，发现问题：
对于solidworks 2014,我试了两个宏，一个是昨天的宏，及宏的名字为中文名，如”删除当前配置属性.swp“，但
"CurCFGname = Part.GetConfigurationNames"
这一句没有改，
我进行了逐句检查，没有发现问题。
后来我把宏的名字改为英文名，但上面的语句改为了
CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '补加零件文件的路径及名称
，执行逐句检查，没有再发现问题。
上面的两个版本在solidworks 2018，及在sw2014里发现问题的宏，都没有发现任何问题。
补充一点，我刚刚发现，这几个宏，无论是在sw2014还是2018里，都能够执行”partitionTM.swp“宏里的内容，但另外两个宏里的内容都不能起到任何作用，即不能删除自定义属性、及所有配置属性里的内容。
@ryouss,谢谢，让您费心了。:)
可使用RunMacro2函数执行外部宏，如下参考Option Explicit
Dim swApp As SldWorks.SldWorks
Dim runMacroError As Long
Sub main()
Set swApp = Application.SldWorks
swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除所有配置属性.swp", "配置1", "main", 0, runMacroError
swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\删除自定义属性.swp", "配置1", "main", 0, runMacroError
swApp.RunMacro2 "C:\Users\Administrator\Desktop\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
End Sub
DaveChan 发表于 2018-11-30 11:11
可使用RunMacro2函数执行外部宏，如下参考
非常感谢您，成功了:victory: