求助！工程图转PDF档的时候增加，PDF文件名增加版本属性。

KEMIRWU

    工程图转PDF档的时候增加，PDF文件名增加版本属性。   例如    ABCDE--A001.PDF   变更为  ABCDE-A001-REV01.PDF    REV01是属性值， 属性名称为“版本”
   我现在图纸变更需要转成PDF档，但是之前的PDF档案还存在，所以需要文件名增加版本号，这样就能区别了。现在SW自带的批量转PDF，应该是改不了，我论坛下载的手动单个转PDF档的宏，我想加上点代码就可以了。但是我这人代码看不懂，想问下大家能否可以帮我更改一下代码。

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Dim boolstatus As Boolean
   
4. Dim longstatus As Long
   
5. Dim Filespath As String
   
6. Dim swAA As String, swBB As String
   
7. 
   
8. Sub main()
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Filespath = swApp.ActiveDoc.GetPathName()
    
12. swAA = Left(Filespath, Len(Filespath) - 6)
    
13. swBB = "pdf"
    
14. longstatus = Part.SaveAs3(swAA & swBB, 0, 0)
    
15. End Sub
    

复制代码

Allate

我来献个丑，不知道行不行，先试试吧。
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim Filepath, NewFilepath  As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Filepath = swModel.GetPathName()
    NewFilepath = Left(Filepath, Len(Filepath) - 7) + "-" + swModel.CustomInfo("版本") + ".pdf"
    swModel.SaveAs3 NewFilepath, 0, 0
End Sub

KEMIRWU

不胜感激！

刘茂机械

感谢楼主分享，很不错！

KEMIRWU

   经典案例图书

Allate 发表于 2020-11-27 11:07
我来献个丑，不知道行不行，先试试吧。
Option Explicit
Dim swApp As SldWorks.SldWorks

非常成功！  可以达到效果，论坛里面人才辈出！

tommewang

很不错，顶一下！

冷月梧桐

   经典案例图书

这个真不错，如果有个批量的话就更好了

SMH1907

好好学习，天天向上！

fz8889

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

KEMIRWU

有新的要求了。我现在想添加工程图里面3D的一个属性，不知道怎么写入为好

KEMIRWU

Allate 发表于 2020-11-27 11:07
我来献个丑，不知道行不行，先试试吧。
Option Explicit
Dim swApp As SldWorks.SldWorks

怎么样才能读到3D的属性，如何加入到输出名称呢

冷月梧桐

KEMIRWU 发表于 2021-8-6 10:01
怎么样才能读到3D的属性，如何加入到输出名称呢

链接做好，进去就好了

tg000057

试试这个！

KEMIRWU

tg000057 发表于 2021-8-6 11:28
试试这个！

KEMIRWU

加入QQ群
参与讨论和学习

或扫描二维码加入

PathName = Left(Filepath, Len(Filepath) - 6)       '文件路径去后缀   

运行此处报错。。

KEMIRWU

   经典案例图书

PathName = Left(Filepath, Len(Filepath) - 6)       '文件路径去后缀  

卡在此节点了。

KEMIRWU

加入QQ群
参与讨论和学习

或扫描二维码加入

转出来后是3D模型的PDF ,要的是2D工程图的PDF档

KEMIRWU

   经典案例图书

属性是自定义属性，还是配置特定属性，
   我现在能成功转出PDF，但是属性没有链接上。是空值。

tg000057

KEMIRWU 发表于 2021-8-9 18:59
属性是自定义属性，还是配置特定属性，
   我现在能成功转出PDF，但是属性没有链接上。是空值。

额，那天没检查，漏了好几句，我重新传一个吧，那个获取配置如图！

KEMIRWU

  卡到这个步骤了。