关于SW宏程序

shengyz

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

fiyu1314

描述一下你的需求，

冷月梧桐

工程图下导出PDF+DWF，部分宏
3 f! ?" \, j+ W8 @5 k2 JDim swApp           As SldWorks.SldWorks
Dim swModel         As SldWorks.ModelDoc2

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

! [( H' B. \& C6 u' Check to see if a drawing is loaded.
If (swModel Is Nothing) Or (swModel.GetType <> swDocDRAWING) Then
& y( i4 X- G+ o* l
6 l+ ]& Z$ j5 X/ ~+ QswApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")

' If no model currently loaded, then exit
Exit Sub

* ]' e% L. w* |- z7 L* `' w# nEnd If
0 e7 S# B  B7 j; i2 W. I
9 d7 L7 X5 ^# A: H9 m; eSet swDraw = swModel
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
  H; `: A4 x3 |$ e! t
, d* Q( v) b4 \5 \If Dir(Filepath & "导出图纸", vbDirectory) = "" Then ' Change Sub folder Name here
4 N% q$ h+ N0 ?  {MkDir Filepath + "导出图纸" ' Change Sub folder Name here
End If
Filepath = Filepath + "导出图纸\" ' Change Sub folder Name here
4 n  H% d3 \. L1 ?+ L
, D/ t: Y& t8 USet swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
3 n6 k. k' B8 ^- ~2 m4 f5 m   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"

FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
' f! q  s. _2 J" y# wFileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".pdf"
% G) S$ q  G: W. J9 B6 O/ A: QswDraw.SaveAs3 Filepath & FileName & "", 0, 0

2 [; M# M0 j9 w, a) A4 e'-------------------------------------------------- SAVE DXF
9 H, S, Y' D$ X4 _1 C
* F. P3 a: _& h% n' p3 sSet swDraw = swModel
6 W+ C8 t( P2 q( O& P/ @! J; `Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
If Dir(Filepath & "导出图纸", vbDirectory) = "" Then ' Change Sub folder Name here
+ t# K! S2 {  I7 g) p8 _' QMkDir Filepath + "导出图纸" ' Change Sub folder Name here
7 l' z: [2 h3 J: X& g- AEnd If
( e: q5 z! g& h) sFilepath = Filepath + "导出图纸\" ' Change Sub folder Name here

. ]. O( ?' e) }5 T3 oSet swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"

FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
' [9 z2 _+ p8 t. M% D6 L& J0 EFileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".DXF"

: o" w6 L8 h1 ?( r  Y2 ]swDraw.SaveAs3 Filepath & FileName & "", 0, 0

' \# e* w8 P  `; L/ O0 Z  wswDraw.Save

* D; A1 _7 f% Y3 N$ }$ v% u" M6 y'swApp.ExitApp '关闭SW软件
End Sub

% `$ N' D3 f) x0 }( \# l

大兄弟aa

宏怎么用都不知道

shengyz

大兄弟aa 发表于 2024-3-21 15:42
, G. j3 s% |9 _宏怎么用都不知道

4 l. |9 u9 r9 v很强大，可以了解了解
4 {& T/ Z/ j/ e$ j8 i8 e

steve_suich

  s. X8 \8 z6 `' |' A
; u& m( }% U/ e8 M, a3 m% a0 u2 L  FDim swApp As Object
$ F6 b! d6 I+ K) H* m% |: \5 p
Sub main()
% L% ^* a/ ^9 f
0 F5 J% S, N9 u6 I2 u9 VSet swApp = Application.SldWorks
Set part = swApp.ActiveDoc
( u- I( T3 e1 x1 @# P
If part.GetType = 3 Then

- E6 y5 c$ ?  q4 \part.SaveAs (Left(part.GetPathName, InStrRev(part.GetPathName, "\")) & Left(part.GetTitle, Len(part.GetTitle) - 6) & ".PDF")
# T/ E' F6 E8 ?( Y7 p- e; x  
; t( p7 T7 [% v4 {swApp.CloseDoc (part.GetTitle)

End If
' L, Y: x. P3 s; t& J& d* E  
End Sub