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

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
2 d- x# y8 {: _0 {Sub main()2 t4 Q; }! c0 f9 W
Set swApp = Application.SldWorks- K# p6 y! j7 c8 N* f! d8 X
Set Part = swApp.ActiveDoc

感谢分享啊~~~~

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

介绍以你这个是怎莫用的

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

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

''' ******************************************************************************7 v* l7 i5 ~/ ]% \
''Edit by votasee @ 090909 update 0910103 o1 U6 j( E) D3 x# j+ \9 z; f: U
'' ******************************************************************************" {& y5 {% p" s U, ~
Dim swApp As Object# @- n6 h+ O8 c9 z! P
Dim Part As Object$ S/ ^8 |2 y9 H" I6 j9 y
Dim Filename$, dwgFileName$% r5 E9 i) F2 |% }; d
Dim No%, Title$, sTime$, sUserDir$0 M" M9 ]7 i( C6 @
Sub main()
s5 q7 ]" ^- E4 i. @
Set swApp = Application.SldWorks
9 ]8 V" W- }6 `2 j e
Set Part = swApp.ActiveDoc
. Q, }& K3 |/ t7 {0 G* F
On Error Resume Next2 [& M/ ]7 `& A, j) S1 I
Filename = Part.GetPathName()5 }5 y2 d1 T3 D$ I" U
sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)
) H: i9 f# k8 M# @* b0 a8 @6 v# _
sTime = Format(Time, "YYMMDD_hhmmss")
3 L2 @9 |* r, F6 W3 O5 ~" x
8 l2 a" a* u3 M9 X" T) N
Randomize
* J! o2 [) Q9 o% W! B, S
If Filename = "" Then Filename = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"% Z+ g( ^( ^ R1 B+ e
' Part.SaveAs2 Filename, 0, 0, 0 ''''if need SLDDRW FILE,THEN DELETE MARK!; D- \) i9 i" _; u. o+ v/ C/ J
No = Len(Filename)- @+ O7 y" K% s
outFileName = Left(Filename, No - 7) & "_" & sTime & ".PDF"
3 _; T5 @( f. f+ |
Part.SaveAs2 outFileName, 0, 1, 01 ^! h6 a3 g4 l2 ?7 }' R; [6 X
Title = Part.GetTitle
) L, @9 Y, e* L- Y) F# O
Set Part = Nothing" I+ @0 N4 r/ c) Z4 V. Q7 Q' h
' swApp.CloseDoc Title
( B( T+ b3 K9 R4 @3 [
swApp.Frame.SetStatusBarText Filename & "is SAVED!"
/ [& e3 J5 X3 l
End Sub- j$ Y3 _4 F2 c. {& |2 |
; [3 ]( z A! u) x3 Y1 r

复制代码

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

通知

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

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

浏览过的版块