批量转cad和pdf宏错误，请高手指导

cx0527 · 发表于 2016-1-11 22:21:16

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

批量转cad和pdf宏错误，请高手指导，字体加粗的位置就不对了
代码如下
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathStr As String
Dim FName(500) As String, FNum As Long
Sub main()
Dim i As Long
Dim PathStr0 As String, PathStr1 As String
Dim PathStr2 As String, PathStr3 As String, PathStr4 As String, PahtStr5 As String
Dim L As Long, L1 As Long
PathStr = InputBox("请输入需要转的工程图所在位置")
Call Showfilelist(PathStr)
Set swApp = Application.SldWorks
For i = 0 To FNum - 1
PathStr0 = PathStr & "\" & FName(i)
Set Part = swApp.OpenDoc6(PathStr0, 3, 0, "", longstatus, longwarnings)
L = Len(PathStr0)
PathStr1 = Left(PathStr0, L - 7) & ".DWG"
PathStr2 = Left(PathStr0, L - 7) & ".PDF"
longstatus = Part.SaveAs3(PathStr1, 0, 0)1 i" k, E, v) D1 B8 @( K6 J% }
longstatus = Part.SaveAs3(PathStr2, 0, 0)

Set Part = Nothing

L1 = Len(FName(i))
PathStr3 = Left(FName(i), L1 - 7) & " - 图纸1"
PathStr4 = Left(FName(i), L1 - 7) & " - 图纸2"
PathStr5 = Left(FName(i), L1 - 7) & " - 图纸3"

swApp.CloseDoc PathStr3
swApp.CloseDoc PathStr4
swApp.CloseDoc PathStr5
Next i
End Sub
Private Sub Showfilelist(folderspec As String)
   Dim fs, f, f1, fc, s
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFolder(folderspec)
   Set fc = f.Files
   FNum = 0 '清零
   For Each f1 In fc
      If InStr(f1.Name, "SLDDRW") > 0 Then
         FName(FNum) = f1.Name
         FNum = FNum + 1
      End If
   Next
End Sub

13993359550 · 发表于 2016-1-12 08:12:37

试试，谢谢楼主

bash · 发表于 2016-1-12 10:47:16

理论上用saveas3 是没问题的。
楼主调试一下试试，看看

bash · 发表于 2016-1-12 13:16:20

本帖最后由 linuxbyte 于 2016-1-12 16:32 编辑

WIN7 x64 + SW2011 上述附件无错通过。

cx0527 · 发表于 2016-1-12 20:50:54

可是2016不行

bash · 发表于 2016-1-14 13:13:31

2016 x64 SP0.1 + WIN7 通过

		自动登录	找回密码
密码			注册

通知

[求助] 批量转cad和pdf宏错误，请高手指导

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块