跪求SOLEDWORKS转DWG的宏文件

wxm · 发表于 2009-11-25 22:52:22

我复制的宏代码运行错误！！！跪求个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中错误，？？？？

wzm_132 · 发表于 2009-11-25 22:57:32

大伙的用的是这个代码吗？我的怎么不行哦，高手来帮帮我呀。

童彤5437 · 发表于 2009-11-25 22:57:36

说明一个，就是新建个宏，一键转换SW工程图文件为DWG文件格式，因为客户要CAD的啊，郁闷死了。每次都要另存为，所以就试着复制了这段代码，但是不行，？？？？？？？

?抱抱猫猫♀ · 发表于 2009-11-25 22:57:53

我上传个错误的地方，让大伙好看明白，我搞什么。

雪原狼 · 发表于 2009-11-25 22:58:13

经典案例图书

在补充一下，我是在SW中2010的运用的哦，是不是在SW2010中不行呀，大伙在其他版本中运用怎么样。

tien · 发表于 2009-11-25 22:59:13

没用过这个红

herozj · 发表于 2009-11-25 23:00:52

经典案例图书

期待叫程！！

v9yc76c23a · 发表于 2009-11-25 23:05:53

经过本人反复试验，已经解决掉了，原来要保存了工程图才可以调用的哦，这玩意，不会调试，真是郁闷。

仰腾 · 发表于 2009-11-25 23:10:14

在请高手帮我下，我不想保存工程图，直接保存为DWG，那这段宏代码应该怎么样修改呢？

玲玲7717 · 发表于 2009-11-25 23:11:09

附件为一个转换 DWG 格式的宏（大侠出品，感谢！） 2007中间可用 2010的没有试过你看看0...

只捣一剑.rar (23.96 KB, 下载次数: 10)

hhhjjj · 发表于 2009-11-25 23:11:23

没用过这个红

lyc2000lyc · 发表于 2009-11-25 23:12:49

好的，谢谢，我来看看可以用不？

11111141111122 · 发表于 2009-11-25 23:14:45

下了，没有搞明白，怎么还多了个22.

yhjdjdh60 · 发表于 2009-11-25 23:19:57

你这个宏命令不好，还是我上面的那段好使，你这个不能关联文件名称的。

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