|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 jujue 于 2017-2-8 17:49 编辑
小弟在工作中经常需要把工程图转成DXF 方便线切割用
于是自己录制了一个宏
---------------------------------------------
' ******************************************************************************
' C:\TEM\swx3212\Macro1.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:\Users\YZ01\Desktop\TX.DXF", 0, 0)
End Sub
-----------------------------------------
并且设置了宏按钮
这样可以自动在桌面保存一个TX.DXF的文件
现在想做个升级版
每次保存的文件名是SW的文件名+图纸名称
类似于
PunchID&SW-图纸名称(Sheet Name)
因为小弟不懂二次开发,请高手帮忙修改下
谢谢了
|
|