利用宏转图求助！

a4778006

之前参照别人的宏，弄了一个一键转图的宏，可以一键转成PDF和CAD两种格式。现在公司要求把图纸内的图号加在转出图纸的前面。

请教一下，怎么利用宏提取属性的图号，然后转图的名称前面加上这个图号呢？有知道的大佬帮一下忙！


感谢！！！

a4778006

如果能搞定的红包感谢！

suzhanpeng

1. Set swApp =Application.SldWorks
   
2. Set swModel = swApp.ActiveDoc
   
3. ChildConfString = swFeature.ReferencedConfiguration
   
4. SwID= swModel .CustomInfo2(ChildConfString, "图号")   '这是获取特定义配置的图号值
   
5. 'SwID= swModel .CustomInfo2("", "图号")      '这是获取自定义的图号值
   

复制代码

a4778006

suzhanpeng 发表于 2019-3-24 09:37

那怎么自动添加到名称前面呢？  下面的是我的转图代码

1. Dim swApp As Object '让程序以相同的文件名把PDF/DXF文件保存在SolidWorks工程图相同的文件夹内
   
2.     Dim Part As Object
   
3.     Dim Filename As String
   
4.     Dim No As Integer
   
5.     Dim Title As String
   
6. 
   
7.   Sub main()
   
8.     Set swApp = Application.SldWorks
   
9.     Set Part = swApp.ActiveDoc
   
10.     Filename = Part.GetPathName()
    
11.     No = Len(Filename)
    
12.     Filename = Left(Filename, No - 7)
    
13.    
    
14.     Const Path As String = "D:\工程图\机加件\CAD\"
    
15.     Const Path2 As String = "D:\工程图\机加件\PDF\"
    
16.    
    
17.     Title = Right(Filename, Len(Filename) - InStrRev(Filename, "\"))
    
18.    
    
19.     Part.SaveAs2 Path + Title & ".DXF", 0, True, False
    
20.     Part.SaveAs2 Path2 + Title & ".PDF", 0, True, False
    
21.    
    
22.     'Title = Part.GetTitle '转换完成后关闭SolidWorks工程图
    
23.     ' Set Part = Nothing
    
24.     'swApp.CloseDoc Title
    
25.     'X = MsgBox(" 已保存为 PDF/DXF 文件 ", 0) '转换后出现一个信息框
    
26.      X = MsgBox("               机加件 " & vbCrLf & " 已保存为 PDF/DXF 文件 ", 0)
    
27. 
    
28.     End Sub
    
29. 
    

复制代码

a4778006

   经典案例图书

suzhanpeng 发表于 2019-3-24 09:37

我想提取的的编号加到转出图纸名称的前面。   例如之前转出的图纸为  底板.PDF    改为   编号-底板.PDF（编号从模型属性中提取），谢谢了！

qw005q

很不错，顶一下！

xiaocake

   经典案例图书

a4778006 发表于 2019-3-23 17:21
如果能搞定的红包感谢！

给多少红包啊？不是给人画饼吧
有诚意的话，我给你写好，一步到位，不忽悠。

a4778006

xiaocake 发表于 2019-4-29 13:11
给多少红包啊？不是给人画饼吧
有诚意的话，我给你写好，一步到位，不忽悠。

不画饼，但是饼已经被别人提前吃了

wxf58888

比较复杂一点了

li568172326

兄弟怎么实现的，请教一下

zhangcan0515

既然解决了 就说说如何修改解决好的

zhangcan0515

不用了 自己已经解决了

onboy9

属性分离宏，网站有的，然后使用自定义属性标签使用就行了

Holaliu

楼主可以做成批量导出吗，例如就是我打开10张图纸，运行一次将10张图纸全部导出成pdf

eyuzoar

加入QQ群
参与讨论和学习

或扫描二维码加入

工程图另存的学习看看