找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 20997|回复: 11
打印 上一主题 下一主题

[原创] 跪求SOLEDWORKS转DWG的宏文件

[复制链接]
跳转到指定楼层
1
发表于 2009-11-25 22:46:01 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
我复制的宏代码运行错误!!!跪求个SOLEDWORKS转DWG的宏文件,
错误的地方在下面红色地方,所以我求个SOLEDWORKS转DWG的宏文件,不要代码了,呵呵。有的传个给我,谢谢!
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 & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 DWG 文件 ", 0)
End Sub

红色的地方在SW中错误,????
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2009-11-25 23:22:31 | 只看该作者
我是在SW2010中调用的这段宏,大伙传个有用的上来,不要上传个跟这个一样的,拜托了,谢谢!
3
发表于 2009-11-26 08:29:32 | 只看该作者
这个坛子里面有没有研究宏的吗?怎么没有来帮我看看啊
4
发表于 2009-11-26 12:04:35 | 只看该作者
好了,我已经解决了这个问题,原来要先保存工程图,才可以调用这个宏的呀。
看来宏命令有点难度的哦
5
发表于 2009-11-26 12:05:31 | 只看该作者
请高手帮忙下,我现在不想保存工程图,而是直接保存为DWG文件,应该怎么样修改这段宏命令呀。
6
发表于 2009-11-28 18:34:56 | 只看该作者
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
Part.SaveAs2 "C:\Documents and Settings\Administrator\桌面\工程图1" & ".DWG", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
MsgBox " 已保存为 DWG 文件 ", 0
End Sub
7
发表于 2009-11-28 18:37:53 | 只看该作者
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)  no-7 更是不能达到你想要的文件名
Part.SaveAs2 Filename & ".DWG", 0, True, False   保存需要有全路径,而不是文件名
Title = Part.GetTitle
Set Part = Nothing
swApp.CloseDoc Title
X = MsgBox(" 已保存为 DWG 文件 ", 0)
End Sub


正确的方法我在上楼已经给出
8
发表于 2009-12-2 12:44:38 | 只看该作者
我建立的solidworks 二次开发的群,欢迎大家加入交流
42754723
9
发表于 2010-2-11 14:21:44 | 只看该作者
[local]1[/local]这个是批量转换的,呵呵
10
发表于 2010-2-11 14:28:29 | 只看该作者
这个是批量转换的,呵呵
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-20 00:53 , Processed in 0.022967 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表