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

liuxinwei

哪位高手可以帮忙修改一下宏，我需要转换工程图保存时自动保存到桌面上，工程图名称也是自动复制零件的名称，我改了几天了，搞不定了。只有请教高手了，先谢谢了
  z5 \1 a( ?% C+ l- U3 x( r6 o9 |Sub main()
9 C" m3 `6 D1 Y* Y; n" H  Q# J4 jSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
* d  N- R5 D& [% E' n/ j3 QFilename = Part.GetPathName()
No = Len(Filename)
2 N& l/ `9 y6 ^: nFilename = Left(Filename, No - 7)
9 G5 H" h0 {# J; qPart.SaveAs2 Filename & ".pdf", 0, True, False
X = MsgBox(" 已保存为 pdf 文件 ", 0)
' X" \! i1 B. f5 ^; ^) OEnd Sub

飞天鸟

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

飞天鸟

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

yjyeming

Sub main()
Set swApp = Application.SldWorks
" G2 F* _* L  bSet Part = swApp.ActiveDoc
  F$ Z5 ]7 N, v$ C9 h/ }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

远征龙

yjyeming 发表于 2012-4-27 16:29 static/image/common/back.gif
Sub main()
) z- q" E- k4 L+ r9 {Set swApp = Application.SldWorks
/ X  ?/ |4 m( E. Z; oSet Part = swApp.ActiveDoc

1 G6 K* X- E8 k2 R; M# E/ k& c/ |. @感谢分享啊~~~~

txz1314

介绍以你这个是怎莫用的

votasee

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

1. ''' ******************************************************************************
   
2. ''Edit by votasee @ 090909 update 091010
   ! ~0 B# I: C+ w# g; F0 J4 J
3. '' ******************************************************************************
   . P! C' V* j1 E/ C) _; |( X3 Z
4. Dim swApp As Object
   % y2 a& @4 c8 E5 w% j; \, J% X) m
5.     Dim Part As Object
   
6.     Dim Filename$, dwgFileName$
   
7.     Dim No%, Title$, sTime$, sUserDir$
   
8. Sub main()
   5 S. Q- w' h: u8 g; l/ D
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    3 V3 [! R' o3 y7 B; S
11. On Error Resume Next
    
12.     Filename = Part.GetPathName()
    
13.     sUserDir = VBA.Environ("USERPROFILE") & Chr(92) & Chr(-10304) & Chr(-15386) & Chr(92)
    
14.     sTime = Format(Time, "YYMMDD_hhmmss")
    
15.    
    * |4 ?# r! {; \# A0 H) v
16.     Randomize
    ' u' t1 l  V5 y/ Y
17.     If Filename = "" Then Filename = sUserDir & "Part" & Int(Rnd * 1000) & ".SLDDRW"
    ) ?5 x: b2 J$ c, X- j$ J
18. '    Part.SaveAs2 Filename, 0, 0, 0 ''''if need SLDDRW FILE,THEN DELETE MARK!
    - f- L0 u9 Q2 ?& C9 m+ k' V
19.     No = Len(Filename)
    8 V8 |. D4 T# k: {. o
20.     outFileName = Left(Filename, No - 7) & "_" & sTime & ".PDF"
    , h! B4 f8 j. N0 f* [
21.     Part.SaveAs2 outFileName, 0, 1, 0
    . B" B% ]* h& V' u
22.     Title = Part.GetTitle
    
23.     Set Part = Nothing
    
24. '        swApp.CloseDoc Title
    
25.         swApp.Frame.SetStatusBarText Filename & "is SAVED!"
    
26. End Sub
    8 _: N' J# {9 y7 J
27. 
    ' R/ h! d: e+ f4 u8 l7 x3 ]

复制代码