|
|
马上注册，结交更多同行朋友，交流，分享，学习。
您需要 登录 才可以下载或查看，没有帐号？注册
x
我现在有个另存宏的代码
Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim No As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".IGS", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
'X = MsgBox("输出IGS文件在SW工程图同一文件夹", 0)
End Sub
将零件另存为IGS文件，另为我们公司外发的IGS文件要附加材质，能否通过宏，在另存的时候，在原有文件 上加上 -“材质”，将零件的材质提取出来附加到文件名中
|
|
发表于 2016-12-15 09:35:22
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
赞一下！