關(guān)于SW宏程序

shengyz

昨天略微涉略SW宏程序，今天想整個(gè)一鍵出CAD及PDF的宏，奈何，不會(huì)設(shè)置宏讀取圖紙名稱，再把紅圈那設(shè)置成對應(yīng)圖紙名，以致出的CAD及PDF都是固定名稱，有沒有大佬知道咋先讀取圖紙名。感謝。

fiyu1314

描述一下你的需求，

冷月梧桐

工程圖下導(dǎo)出PDF+DWF，部分宏
8 q7 |  L: b" a0 l; m% t5 N8 ]Dim swApp           As SldWorks.SldWorks
! [" [& _( t6 @3 g6 p" U% _Dim swModel         As SldWorks.ModelDoc2

Sub main()

; L/ a, S: b4 ^Set swApp = Application.SldWorks
/ V- K: P$ N' t! \! c$ ZSet swModel = swApp.ActiveDoc
4 M( k  w+ @- Z4 M  K
2 R9 T6 b. D- z1 C- z' Check to see if a drawing is loaded.
8 n% T" x1 J2 ~6 X" o( e; uIf (swModel Is Nothing) Or (swModel.GetType <> swDocDRAWING) Then
. B+ T* J" s3 B" q) F
swApp.SendMsgToUser ("To be used for drawings only, Open a drawing first and then TRY!")

7 r1 [: b' i& c0 B' If no model currently loaded, then exit
0 k8 F& Q% E) q- ^6 `Exit Sub

: D* J9 O! O, R3 TEnd If
* k9 g2 G& c5 l- S6 F. j) I2 g$ `" D
3 Y7 {  O7 J& `. @: g# RSet swDraw = swModel
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
8 V2 G4 P+ Q5 ~4 O; n6 C9 s( t
2 `! p9 t5 c4 g# s: n7 E0 jIf Dir(Filepath & "導(dǎo)出圖紙", vbDirectory) = "" Then ' Change Sub folder Name here
MkDir Filepath + "導(dǎo)出圖紙" ' Change Sub folder Name here
End If
0 Q. Q) F$ _0 B  ~$ V- z. ~) O$ FFilepath = Filepath + "導(dǎo)出圖紙\" ' Change Sub folder Name here

Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"
0 O1 E9 d1 p7 v4 G, V, B- R7 o
FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
" [* u" `8 q, d2 HFileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".pdf"
8 b( b* j2 P, FswDraw.SaveAs3 Filepath & FileName & "", 0, 0

'-------------------------------------------------- SAVE DXF
" c- [3 Q* W/ f* O( ]
Set swDraw = swModel
Filepath = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\"))
If Dir(Filepath & "導(dǎo)出圖紙", vbDirectory) = "" Then ' Change Sub folder Name here
0 C; _# A2 I! [3 Q$ q, [' T0 N' F( NMkDir Filepath + "導(dǎo)出圖紙" ' Change Sub folder Name here
End If
* {8 Y$ T6 L: n. @4 |Filepath = Filepath + "導(dǎo)出圖紙\" ' Change Sub folder Name here
& e. I8 E5 `  A  q2 ?9 e
Set swCustPrpMgr = swModel.Extension.CustomPropertyManager("")
6 m# E& V# s; h& @' P" H2 x1 a   swCustPrpMgr.Get3 "", False, "", Value 'Change here the var revision "Rev"

FileName = Mid(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\") + 1)
$ x. e0 C0 H- K  {! G- AFileName = Left(FileName, Len(FileName) - 7) & "" & Value & ".DXF"

swDraw.SaveAs3 Filepath & FileName & "", 0, 0
$ z+ n8 b" Z. ^! C, r
swDraw.Save

'swApp.ExitApp '關(guān)閉SW軟件
) N3 t: ~3 K$ K- fEnd Sub
' A- o' o& z' O( Y+ L9 f
' `. x0 A; F. k6 w& t- u) S

大兄弟aa

宏怎么用都不知道

shengyz

大兄弟aa 發(fā)表于 2024-3-21 15:42
宏怎么用都不知道

- ^' [' w6 D! M5 B" ^( Q# Z很強(qiáng)大，可以了解了解

steve_suich

+ E( P: I4 s0 f! r6 K
6 P) O$ K2 \9 M4 M& p3 @Dim swApp As Object
8 F0 {5 [6 e. M6 `7 N
Sub main()
  M7 Z/ d: U5 ^# v4 I
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc

If part.GetType = 3 Then

  `$ l5 N- \' ~. G* s( u6 u# e4 @part.SaveAs (Left(part.GetPathName, InStrRev(part.GetPathName, "\")) & Left(part.GetTitle, Len(part.GetTitle) - 6) & ".PDF")
  
swApp.CloseDoc (part.GetTitle)
5 g  X/ s; i' o/ @
End If
) R4 p; D2 J7 {+ w* x! s  
End Sub