哪位高手可以帮忙修改一下宏

liuxinwei · 发表于 2012-4-27 13:42:23

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

哪位高手可以帮忙修改一下宏，我需要转换工程图保存时自动保存到桌面上，工程图名称也是自动复制零件的名称，我改了几天了，搞不定了。只有请教高手了，先谢谢了
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
No = Len(Filename)
Filename = Left(Filename, No - 7)
Part.SaveAs2 Filename & ".pdf", 0, True, False
X = MsgBox(" 已保存为 pdf 文件 ", 0)
End Sub

飞天鸟 · 发表于 2012-4-27 15:23:24

1、这个No名字不好，而且在宏中没有使用啊~~~
2、应当指定对象数据类型 dim Part as ModelDoc2
3、试一试另一个保存函数 Part.SaveAs3(BackupFullName, 0, 0)

飞天鸟 · 发表于 2012-4-27 15:25:35

另外，这个插件包含一个自动另存功能，只要在工程图保存时，就会同时另存一个dwg或pdf在指定的路径下。
http://www.3dportal.cn/discuz/thread-788198-1-1.html

yjyeming · 发表于 2012-4-27 16:29:37

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
FileName = Part.GetPathName()
n = Len(FileName)
no = InStrRev(FileName, "\")
FileName = Mid(FileName, no + 1, n - no - 7)
Part.SaveAs3 "C:\Documents and Settings\Administrator\桌面\" & FileName & ".PDF", 0, 0
X = MsgBox(" 已保存为 pdf 文件 ", 0)
End Sub

远征龙 · 发表于 2013-12-9 14:26:31

yjyeming 发表于 2012-4-27 16:29 static/image/common/back.gif
5 W: J9 s/ o; H. `8 jSub main()2 b3 z; V9 ^, Q: T) @$ {
Set swApp = Application.SldWorks& ^8 _1 Z$ c# X9 c
Set Part = swApp.ActiveDoc

感谢分享啊~~~~

txz1314 · 发表于 2013-12-11 19:56:08

介绍以你这个是怎莫用的

votasee · 发表于 2013-12-13 11:16:42

大家在使用代码的时候应该学习使用_工具栏上的代码按钮...
否则别人不好复制...应该像下面这样使用..这是个PDF输出的例子
如果工程图文件已经保存,则输出PDF在相应目录下,如果没有保存,则保存在桌面..

''' ****************************************************************************** |: H/ y+ l/ z( j. b
''Edit by votasee @ 090909 update 091010' f, ? u! K0 ~3 O& u1 W
'' ******************************************************************************$ [2 v- z7 i7 }% ?& p% ]6 y
Dim swApp As Object, l0 U& V0 n( c$ v
Dim Part As Object
, ?- g5 q# }) q
Dim Filename$, dwgFileName$- S, p7 O/ T1 m# B7 S) ^9 U
Dim No%, Title$, sTime$, sUserDir$
8 M/ w+ ?& O/ d4 l: H" g U
Sub main()6 n- v" \: O4 U* o# ?# b% R
Set swApp = Application.SldWorks
" `5 U H6 O" o6 s- x
Set Part = swApp.ActiveDoc3 ?. V( p q, e) Q
On Error Resume Next
( I/ D7 s& z' e) n- U
Filename = Part.GetPathName()4 h1 \8 ]% U! j7 Z4 h
sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)
$ Y0 H# x' i8 ^
sTime = Format(Time, "YYMMDD_hhmmss") [9 r6 s" v6 {
' U, u) C# j; g! X4 }
Randomize! n, u/ g5 T& f
If Filename = "" Then Filename = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"( E: m+ q- n3 d' s/ D2 _; u) `
' Part.SaveAs2 Filename, 0, 0, 0 ''''if need SLDDRW FILE,THEN DELETE MARK!
8 S( B4 I) j; G% t8 t0 }2 u
No = Len(Filename)( f- o6 D5 V8 ]) X" x
outFileName = Left(Filename, No - 7) & "_" & sTime & ".PDF"( b, m! \! r u# X: h% K0 a) C5 Y+ \
Part.SaveAs2 outFileName, 0, 1, 0( h1 l" n/ v# w D \
Title = Part.GetTitle7 @1 N! E5 W( [. H3 r0 U; ]
Set Part = Nothing
7 k/ O, c1 q& ]/ a# `& ]
' swApp.CloseDoc Title* ?9 E5 g" q) c* \. ~
swApp.Frame.SetStatusBarText Filename & "is SAVED!"4 j+ T" k* Z, E' _1 H; |
End Sub9 U4 V% S( I% F, ?
* a! Z' b' O8 T: j; N D- l# g

复制代码

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

通知

[求助] 哪位高手可以帮忙修改一下宏

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块