关于SW宏程序

shengyz

昨天略微涉略SW宏程序，今天想整个一键出CAD及PDF的宏，奈何，不会设置宏读取图纸名称，再把红圈那设置成对应图纸名，以致出的CAD及PDF都是固定名称，有没有大佬知道咋先读取图纸名。感谢。

fiyu1314

描述一下你的需求，

冷月梧桐

工程图下导出PDF+DWF，部分宏
Dim swApp           As SldWorks.SldWorks
Dim swModel         As SldWorks.ModelDoc2

( A1 m+ ]9 m( ^/ s) p/ e/ A0 ?8 G8 h/ NSub main()
8 q' v  S+ Q6 v6 t0 M* z; G; D
Set swApp = Application.SldWorks
& [& D8 J4 T$ I/ `) J+ i5 h5 pSet swModel = swApp.ActiveDoc

- [: V" I4 M+ d% P$ H' ]& r' Check to see if a drawing is loaded.
If (swModel Is Nothing) Or (swModel.GetType <> swDocDRAWING) Then

# t; V$ W; l5 [swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")
% T; N5 e* m/ t* I
' If no model currently loaded, then exit
Exit Sub
6 r+ @0 w* w, b. S( D: z: ^; }
End If
/ K6 K; x+ G* w& n2 c- U
Set swDraw = swModel
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))

If Dir(Filepath & "导出图纸", vbDirectory) = "" Then ' Change Sub folder Name here
% \( I  P! q  q% [, c9 H! G. gMkDir Filepath + "导出图纸" ' Change Sub folder Name here
4 o' |6 S+ x8 ]End If
) x4 ~+ X. x" a7 eFilepath = Filepath + "导出图纸\" ' Change Sub folder Name here
0 @- a# K$ p9 W5 a. ~' p. G& j
4 @- Z, @  N" G3 e- Y! A. n; `( _Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"
; V/ T2 {: Z5 x8 M3 E+ z
FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
FileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".pdf"
( p* L/ g- H1 @7 U- T: k' aswDraw.SaveAs3 Filepath & FileName & "", 0, 0

'-------------------------------------------------- SAVE DXF

8 e: o2 ?- [; ~Set swDraw = swModel
& c% R& N- G5 A1 ^  _Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
: y6 {8 D1 X. B+ R8 ~$ NIf Dir(Filepath & "导出图纸", vbDirectory) = "" Then ' Change Sub folder Name here
* m/ Y9 \& P; @; \, V) l* Q1 ^MkDir Filepath + "导出图纸" ' Change Sub folder Name here
. T3 e4 D4 B0 m# z6 m; t- g/ D8 FEnd If
Filepath = Filepath + "导出图纸\" ' Change Sub folder Name here

2 Z$ G/ C% Z; o( A! j1 `Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
# D4 p6 c/ U+ K" e   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"
( l. s  o- |' j2 V
FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
FileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".DXF"

swDraw.SaveAs3 Filepath & FileName & "", 0, 0
9 g7 x, ^, G6 a8 `% i0 x4 [
swDraw.Save
7 R3 v2 g) U; I( L9 j* \
  q& j2 l0 c5 n6 z' H7 I! D'swApp.ExitApp '关闭SW软件
, d8 o* l' b& t; x  ?  EEnd Sub


4 M) F3 J8 I# {2 `! e

大兄弟aa

宏怎么用都不知道

shengyz

大兄弟aa 发表于 2024-3-21 15:42
宏怎么用都不知道

2 e- |3 m2 r9 t, n. I6 s* B8 e8 F很强大，可以了解了解

steve_suich

  n4 u! z: w8 [! xDim swApp As Object

Sub main()

2 m" D8 }1 S$ ]# @Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
: T( B# i: V4 D8 e* y8 T
If part.GetType = 3 Then

part.SaveAs (Left(part.GetPathName, InStrRev(part.GetPathName, "\")) & Left(part.GetTitle, Len(part.GetTitle) - 6) & ".PDF")
  
7 A7 _( u' `: @6 _6 G8 pswApp.CloseDoc (part.GetTitle)
# G+ K4 p, S) O0 M8 J) \
( F  i# n' p9 I/ c& \& M" dEnd If
# l( {+ r/ U7 N% L0 W1 x, V4 ?  
- F9 h8 ~$ ^$ N( T: z' ^7 Y4 `End Sub