焊件轮廓批量属性写入宏

SW初学00

   经典图书

请大神们修改下焊件轮廓属性宏，增加代号和名称属性，多选文件时能不能改为浏览文件夹位置，调试有的时候能用没有问题，但是就是不起作用，不知道问题出在哪，请帮忙修改下。

kinyon

这个怎么用，没给个截图呀，谢谢分享

SW初学00

   经典图书

kinyon 发表于 2022-11-12 07:53
这个怎么用，没给个截图呀，谢谢分享

这个是改焊件轮廓库的属性的，只是现在是半成品

SW初学00

请大神们帮忙看看，修改下

沉默的人

   经典案例图书

感谢楼主分享，很不错！

SW初学00

现在把代码贴出来，本人小白有几个问题，请各位大神帮忙解决下：
1.此宏点确定执行不了，点关闭 “X” 可以运行  
2.名称那栏的属性能不能改为自动获取路径中焊件轮廓文件所在的文件夹的名称
3.写入属性时能不能不打开文档

'~~~~~~~~~~~~~~~~~~~~~~
Dim swApp        As SldWorks.SldWorks
Dim swModel      As SldWorks.ModelDoc
Dim Part         As Object
Dim sFileName    As String
Dim nFileName    As String
Dim path         As String
Dim nPath        As String
Dim nErrors      As Long
Dim nWarnings    As Long
Dim Code_Vaule    As String
   
Sub main()
  
    Set swApp = Application.SldWorks
    path = InputBox("输入含有焊件轮廓模板的文件夹路径 (For example '' D:\sw\GB焊件轮廓库\ '' )", "输入文件夹路径") '键入存档路径
    sFileName = Dir(path & "*.SLDLFP") '取出档名 *.SLDLFP
Do Until sFileName = ""
  
    Set swModel = swApp.OpenDoc6(path + sFileName, swDocPART, swOpenDocOptions_Silent, "", nErrors, nWarnings) '开档 SLDLFP
    Set Part = swApp.ActiveDoc
   
   '~~~ 在自定义属性 ~~~

        Code_Vaule = Left(sFileName, Len(sFileName) - 7) '用原文件名称
        
        blnretval = swModel.DeleteCustomInfo("Description") '删除说明
        blnretval = swModel.DeleteCustomInfo("代号") '删除代号
        blnretval = swModel.DeleteCustomInfo("名称") '删除名称
         
        blnretval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, Code_Vaule)    '代号写入自定义属性
        blnretval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, "矩形管")      '名称写入自定义属性?
   
   
    Set swModel = swApp.ActiveDoc
        swModel.Save '存档
   swApp.CloseDoc swModel.GetTitle '关档
   Set swModel = Nothing
   sFileName = Dir '取出档名
      
       Loop
        
        MsgBox ("属性写入完成")
         
         End Sub

沉默的人

   经典案例图书

楼主太有才了，膜拜中……

lianfugany

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

qwexsw

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

yun6yun7

   经典图书

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

zl2087

感谢楼主分享，很不错！

Ayinyue

感谢楼主分享，很不错！

huangkaiyao502

感谢楼主分享，很不错！

huangkaiyao502

感谢楼主分享，很不错！

1215956038

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

1215956038

   经典案例图书

感谢楼主分享，很不错！

葛特曼

加入QQ群
参与讨论和学习

或扫描二维码加入

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

weifengmu

   经典案例图书

感谢楼主分享，很不错！

雪中行

这贴？不回都不行啊

zou272294738

感谢楼主分享，很不错！