用宏半自动输出 DXF 时，文件名的变量是什么呢

windowsxp11123

   经典图书

小弟在工作中经常需要把工程图转成DXF 方便线切割用
于是自己录制了一个宏
---------------------------------------------
' ******************************************************************************
' C:TEMswx3212Macro1.swb - macro recorded on 04/14/15 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
longstatus = Part.SaveAs3("C:UsersYZ01DesktopTX.DXF", 0, 0)
End Sub
-----------------------------------------
并且设置了宏按钮

这样可以自动在桌面保存一个TX.DXF的文件
现在想做个升级版
每次保存的文件名是SW的文件名+图纸名称
类似于
PunchID&SW-图纸名称(Sheet Name)
因为小弟不懂二次开发，请高手帮忙修改下
谢谢了

王南北

试下以下代码

Option Explicit
Dim swApp As Object
Dim Part As Object
Dim FilePathName As String
Dim FilePath As String
Dim FileName As String
Dim SheetName As String
Dim DXFPathName As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
FilePathName = Part.GetPathName()
FilePath = Left(FilePathName, InStrRev(FilePathName, "") - 1)
FileName = Right(FilePathName, Len(FilePathName) - Len(FilePath) - 1)
FileName = Left(FileName, Len(FileName) - 7)
SheetName = Part.GetCurrentSheet.GetName
DXFPathName = "C:UsersYZ01Desktop" & FileName & " " & SheetName & ".DXF"    '文件名 + 图纸名
'DXFPathName = "C:UsersYZ01Desktop" & FileName & ".DXF"     '文件名
Part.SaveAs2 DXFPathName, 0, True, False
End Sub

复制代码

qq2873350281

   经典图书

在代码：Set Part = swApp.ActiveDoc下一段插入：
Dim swModelName As String
Dim FileName As String
Dim i As Integer
swModelName = Part.GetPathName      '读取当前SW模型文档名(含路径)
i = InStrRev(swModelName, "")'取""字符位置
FileName = Mid(swModelName, i + 1, Len(swModelName) - i)'取出文件名包含后缀
FileName = Left(FilePath, Len(FilePath) - 7)'取文件名，去后缀
...
在保存文件代码适当位置加入"" & FileName & ""
附件为txt文本文件，方便复制
取文件名.rar (408 Bytes, 下载次数: 181)

2017-6-19 07:55 上传

点击文件名下载附件
下载积分: 金币 -1

cbl16888

修改后不能自动输出了， 逐语句调试到这里 报错，菜鸟不懂是什么问题，高手能指正下吗？

fegnyue

   经典案例图书

在代码：Set Part = swApp.ActiveDoc下一段插入
Set Part = swApp.ActiveDoc
你的这句代码没有了
下面这段提示错误，也改一下，FileName = Left(FilePath, Len(FilePath) - 7)'取文件名，去后缀
改后：
FileName = Left(FileName, Len(FileName) - 7)   '取文件名，去后缀

qf_ansing

现在不报错了
但是还是不能输出，目标目录没有生成文件
' ******************************************************************************
' C:TEMswx3212Macro1.swb - macro recorded on 04/14/15 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim swModelName As String
Dim FileName As String
Dim i As Integer
swModelName = Part.GetPathName      '读取当前SW模型文档名(含路径)
i = InStrRev(swModelName, "") '取""字符位置
FileName = Mid(swModelName, i + 1, Len(swModelName) - i) '取出文件名包含后缀
FileName = Left(FileName, Len(FileName) - 7)   '取文件名，去后缀
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
Part.ViewZoomTo2 0, 0, 0, 0.1, 0.1, 0.1
longstatus = Part.SaveAs3("C:UsersYZ01Desktop"" & FileName & "".DXF", 0, 0)
End Sub
逐句调试不会报错
大神再帮我看看  哪里还有问题啊  谢谢

mzz007

   经典案例图书

声明一下：我真不是大神，代码拼凑的，不要追问我太深了，怕解释不好误了您。一起学习研究。
下面附件内代码我测试了，应该没问题，你试试。
附件压缩包内为txt记事本文件
用宏半自动输出 DXF.rar (626 Bytes, 下载次数: 168)

2017-6-19 07:55 上传

点击文件名下载附件
下载积分: 金币 -1

liugeiguoqu

在我的机器上还是运行了没反应，楼下有大师做出来了，你看看

King_Chaos

谢谢大师了，完全正确

lbh86ww

   经典图书

请问下大师，要会这些东西需要学习什么呢？

eyuzoar

谢谢大师了，完全正确