|
|
樓主想要的宏沒說清楚啊，“就是可以實現(xiàn) 直接把SW工程圖 保存 為 CAD和PDF 另外 命名 為 零件屬性里面的 圖號 名稱�！绷慵募趺疵こ虉D文件就要怎么命名，這是sw的一貫作風啊。零件文件名和工程文件不統(tǒng)一，后期工作不好做哦。
" \# j5 _* I/ u& b4 N3 n樓主的兩個宏我也有，可能有點不一樣，我有哇打草稿放出來，大家一起探討一下：7 Y0 I# x4 ~3 |0 c5 Y- J
工程圖轉(zhuǎn)格式的：- e) l# B$ _ }( t4 p
Dim swApp As Object
2 r( y0 d# t* _& h tDim Part As Object' D) m# r, B: b1 [
Dim Filename As String( I1 p9 q8 r) t Y; c
Dim No As Integer* G! E# h9 ]4 V) B8 f* g: d& L
Dim Title As String '以上設定變量
0 ]& x, i0 F3 T n( e! ASub main(). \7 ~" i; |! _
Set swApp = Application.SldWorks: A2 |1 g# U3 Z. F2 A; y
Set Part = swApp.ActiveDoc '以上交換數(shù)據(jù)4 _/ k& ?. r* C
Filename = Part.GetPathName() 'Filename為文件名5 X2 G5 t/ p0 A
No = Len(Filename) 'no為工程圖文件名字符串總數(shù)# W8 y* u) h# d9 I0 e& G$ i
If No > 0 Then '當NO大于0時（轉(zhuǎn)換格式名稱是工程圖名稱，故要先保存工程圖才可轉(zhuǎn)換，工程圖未保存無名稱，無字符串，不可進行一下步)
7 m2 D5 H4 w+ n5 F) D& v: d, G; LFilename = Left(Filename, No - 7) + "." + Right(Filename, 1) '字串符操作，no-7為去掉工程圖后綴名，"."+ right（filename,1）為增加后綴名最后一個字母作為識別，用于區(qū)別客戶來圖，可不要3 ], s5 t/ Y8 G: J! X
Part.SaveAs2 Filename & ".dwg", 0, True, False '輸出需要轉(zhuǎn)換的格式文件，已有文件則自動替換，不提示，（有些格式文件在打開狀態(tài)中不可替換，替換不成功也不提示)
6 W" F7 `- H, M3 }1 B, ^Part.SaveAs2 Filename & ".pdf", 0, True, False, ~( C3 }: y: ~9 ~3 u% S& s
End If
. S4 n7 } K5 }- ?9 E$ g2 cEnd Sub! g+ [. T) x4 @& v. o! j" `* d% `
3 e7 x* L5 _$ u
0 A1 g4 U# p& y- w9 u$ U' l, @! n
+ y2 C1 [. ]/ j3 o6 \8 |以下上屬性改寫的：
9 S9 O) {1 @. ~% P" G- L, w5 ?7 n& `8 D% F) O# \
- S' ]) s& x1 x |
" |, r; n2 y9 _Sub main()
7 X/ M' N% [( K% C3 t1 ]1 h) o$ o( O# g9 v
Dim swApp As SldWorks.SldWorks0 |" B0 k4 y, I! P, I' v; J i
Dim swModel2 As SldWorks.ModelDoc2
8 N. I/ ~/ v' i3 W4 ]1 P# _0 g4 IDim SelMgr As SldWorks.SelectionMgr
& j w9 }+ `! PDim vCustInfoNameArr2 As Variant
) l, j/ n9 U* J1 W' Z! X6 |1 EDim vCustInfoName2 As Variant+ h! |8 A+ d+ X# d" S9 X+ d) \
Dim CurCFGname As Variant7 e0 M, m7 @, S+ j C; v
Dim CurCFGnameCount As Integer. D8 B# g* [" w6 ^7 ]
Dim Vnamearr As Variant
1 ]4 V; p8 Z3 u; m9 @5 d5 DDim CusPropMgr As CustomPropertyManager3 n' O+ b- p9 z" R% _& A/ z
Dim bRet As Boolean6 q0 A5 h- F8 H1 @9 [; |
Dim Vnamearr2 As Variant
; Q$ K4 G @+ e& N
7 _( G) L5 F( M6 E! b' t1 fDim strmat As String+ I, J8 @4 K4 |5 L6 d
Dim tempvalue As String9 u& a. z; d; ~0 b/ O
* Q6 u& W G" R2 F2 X$ YSet swApp = Application.SldWorks# K: x4 M. m- n* ^% {( |
Set swModel2 = swApp.ActiveDoc2 U7 F/ `1 j1 B
Set SelMgr = swModel2.SelectionManager '
+ Y! P# {+ P6 [1 L( f; t- \* h V2 x: @ t3 f* ^3 M) t
Dim tg1 As String' U! X7 {, X' F; V( l
Dim tg2 As String
! B) [7 m+ N7 k! sDim tg3 As String n) d$ R+ C6 M( Y! O( j/ O
Dim tg4 As String
8 L" j+ ^) {, ?, x% q4 hDim tg5 As String0 J, a2 S; T- t7 b) L/ Z
Dim tg6 As String/ X! j8 X$ u4 d& A5 l$ }4 [
Dim tg7 As String
3 y) a4 ?- h9 g8 Y3 p% j) m6 b( CDim tg8 As String
- r) V& E& W" ADim tg9 As String# q" I1 ^" M7 t" ?7 w7 S2 ~
Dim tg10 As String
0 F/ k# f+ s% m) P- P4 E+ _Dim tg11 As String
5 k% |! k4 I4 X' Q3 w4 O# @, FDim wm As String
# r$ V* K; o. g0 `1 wDim wm1 As Integer
/ F6 Z3 B9 U N3 ?; M' SDim wm2 As String
4 Z E% H9 D, T) i# o$ M, }Dim wm3 As String! J3 D1 m( B& n: H
Dim wm4 As String0 p* c J& p4 R' i) ~$ q
Dim wm5 As String
0 Z8 t# v9 Z9 g) W/ l( ZDim wm6 As String
" X9 m7 N/ i1 SDim wm7 As Integer# T! P6 k. Z$ Z+ A: v) e
Dim wm8 As String+ x( }. N M( ^8 y8 T" n" l
Dim wm9 As Integer
9 P* U9 A# p7 D/ X( i4 \& FDim lz As String
! X5 v3 K1 {1 Z" pDim lz1 As Integer# O8 B. I. @9 U" c& I3 O+ P
Dim lz2 As String% `/ p% ]$ a. D& o2 h
Dim lz3 As String0 k0 {; I3 [( u- {7 d
Dim lz4 As Integer
$ k* P+ t7 H; m5 q# U$ I0 jDim lz5 As Integer. A7 ^5 q: R3 E2 K/ x" Y+ t9 O
Dim lz6 As String( [$ r! ^& w% E0 k% V* T- \
Dim lz7 As Integer '以上為設定變量
* s5 u* G: R& s5 S" n$ V0 z2 `7 Y }
0 e( r( E' i( \+ b$ i6 V
swApp.ActiveDoc.ActiveView.FrameState = 1
& C9 q! x; o& ]5 K8 c+ W4 r( uvCustInfoNameArr2 = swModel2.GetCustomInfoNames
' }+ o8 G1 `" r1 a1 P If Not IsEmpty(vCustInfoNameArr2) Then
1 L& S6 \0 M: r: Z. X For Each vCustInfoName2 In vCustInfoNameArr2. a/ k: R7 \5 m4 s4 f9 o! X. B
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
3 A" {# v( u7 G, H* V* Y5 [9 L Next
# b& k5 D& {* [ F End If '此段是刪除自定屬性中的所有項和其項值
T- J; v; j* R% R1 |
9 O, U) Y& V' X; t% n5 I( K+ S
; s# G/ a7 M* ?+ v' ?* D% rCurCFGname = swModel2.GetConfigurationNames" V6 m) U" h4 j
CurCFGnameCount = swModel2.GetConfigurationCount9 H% h# Z% x% q: p; i# P
For i = 0 To CurCFGnameCount - 1
/ G/ x& `* P, A8 V4 T0 v Set CusPropMgr = swModel2.Extension.CustomPropertyManager(CurCFGname(i))$ v1 _/ b: Y4 X p3 `! T% r' o
Vnamearr = CusPropMgr.GetNames o) C) H' d) T9 T# m( b8 f6 N
If Not IsEmpty(Vnamearr) Then
6 j+ j) b) Q% A3 d" P- M* Z For Each Vnamearr2 In Vnamearr
2 ~0 `% B$ v/ H bRet = swModel2.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)1 G3 g6 ^, h! }$ g9 p+ o
Next
4 q$ M: |6 G, L$ X3 ?8 C End If
, V) G* d& x. z9 s Next '此斷是刪除其他配置中的屬性所有項和其項值- U3 p% D6 P6 t. U
4 E( \3 V- g. `! t# R. K
, f1 W3 n$ k) y* O$ N
wm = swApp.ActiveDoc.GetTitle() '定義是文件名( i8 U$ `* a+ [) U4 N/ p& ^5 S2 q
lz = swApp.ActiveDoc.GetPathName() '定義為文件路徑" y2 j* ~- Y' @8 l
tg6 = Chr(34) + Trim("SW-Material" + "@") + wm + Chr(34) '定義材料屬性
, j' E3 e( \0 I& } R" Ktg7 = Chr(34) + Trim("厚度" + "@") + wm + Chr(34) '定義鈑金厚度屬性. g( ~2 V# ]2 W/ F. L6 C
tg8 = Chr(34) + Trim("SW-Mass" + "@") + wm + Chr(34) + "kg" '定義質(zhì)量屬性
' E ~# n( ]4 U Ztg9 = Chr(34) + Trim("SW-SurfaceArea" + "@") + wm + Chr(34) + "㎡" '定義表面積屬性
# E- L5 D. ~- f, {5 VbRet = swModel2.DeleteCustomInfo2("", "圖號")
: v; V5 M3 p$ v/ [7 EbRet = swModel2.DeleteCustomInfo2("", "Description")- D. }$ S$ r5 Q- n" [# {$ @
3 |4 X ~& _' g/ c, ^0 B3 b5 k
/ o3 e# p& u& G- L x
wm1 = InStrRev(wm, " ") - 1 '引號內(nèi)為空格，為圖名分離符號 '從右向左搜索到第一個" "符號為第幾個字串符
9 \2 @$ @: a' Q _$ w" z: WIf wm1 > 0 Then '當mw1大于0量時
. |2 ^0 F; n4 B) c wm2 = Left(wm, wm1) 'wm2等于從wm的左側(cè)開始提取mw1個字符+ V* Z; P: i: H5 `! s8 d) `
wm3 = Left(LTrim(wm), 3) 'wm等于wm去除左側(cè)無效字符的左前三個字符6 l! _+ H1 v2 W2 f' Q7 u: v
If wm3 = "GBT" Then '當wm3等于"GBT"時
( k: w: U* ~- R. V/ F wm4 = "GB/T" + Mid(wm2, 4) 'wm4等于"GB/T"和wm2的第4個和后面的所有字符 '當零件是國標時添加國標號，文件名中/是非法字符
0 r. U5 e8 ]. v3 v; n Else
( s, a- L3 ?8 r& ~9 V4 z wm4 = wm2 '否則wm4等wm2 '空格前面是圖號/ a$ A; k; }% n% g! X7 C. E
End If9 {! G. ? g4 a) Y+ Y* `2 W
" U3 h! S7 w6 j$ ]* Q) D; N wm5 = Mid(wm, wm1 + 2) 'wm5等于wm中的第wm1+2個后面的所有字符
' F: W3 t; O" a, ^3 V/ C% V7 m% { wm6 = Right(wm, 7) 'wm6等于wm最后面的7個字符
% O: @% U" A! S$ ~- n. P; F If wm6 = ".SLDPRT" Or wm6 = ".SLDASM" Or wm6 = ".sldprt" Or wm6 = ".sldasm" Then '當wm6等于這4個值時& }8 K2 c3 w+ i9 ]1 r
wm7 = Len(wm5) - 7 'wm7等于wm5的所有字符數(shù)-7* B g0 a, V1 ~$ U, Q: \ b
Else
_ T1 o, q O d wm7 = Len(wm5) '否則wm7等于wm5的所有字符數(shù)& m# e6 z A0 }2 q2 w5 h/ i
End If
; ]' p, f I+ I1 | F tg5 = Left(wm5, wm7) 'tg5等于wm5左側(cè)的wm7個字符 ,空格后面是名稱，有后綴名并去掉后綴名，無后綴后（文件未保存時)直接上檔9 \* c! E* h( X# o- \- R! J
5 b; |- e/ t! `% w
End If '此段為圖名分離定義
+ `* c4 s) S# x" K' P! \3 E/ Y) C
& I" ]2 g* ~. c6 h$ c( ]
% ]' M5 X# w3 E3 D8 K# ^1 Z m/ VIf wm1 > 0 Then '當wm1大于0時. u; ~% D* x; ?
tg4 = wm4 'tg4等于wm4 '文件名有空格時，圖號為分離出來圖號
2 w+ R7 Q) e& T' r0 a! IElse# u2 @: i' z1 @% ?' { m
wm8 = Right(wm, 7) 'wm8等于wm最后面的7個字符. U% h/ w( Z8 r+ K, s- C
If wm8 = ".SLDPRT" Or wm8 = ".SLDASM" Or wm8 = ".sldprt" Or wm8 = ".sldasm" Then '當wm8等于這4個值時
! `7 I% b" l4 T/ b0 h wm9 = Len(wm) - 7 'wm9等于wm的所有字符數(shù)-7
4 J k% u9 h, f Else
6 A, u: B F7 `9 H; n wm9 = Len(wm)
! U0 o5 P) F$ D( W End If '否則wm9等于wm所有字符數(shù)-72 }+ S- o5 O8 Z0 w; y( P6 f
tg4 = Left(wm, wm9) 'tg4等于wm左側(cè)的wm9個字符 '文件無空格時，文件名即是圖號，并去掉后綴名,無后綴名（文件未保存時)直接上檔
8 Y( S h- K; @! gEnd If '此段為非圖號名稱命名文件，將文件名加到圖號屬性# X* @" Z' }1 q3 w$ X! }: p6 F# Y
'例，fgq01-001 前門板：分離后圖號（fgq-001），名稱（前門板)
- A6 T% G5 f2 L4 |0 I" ^" X'例，fgq01-001 前 門板：分離后圖號（fgq-001 前），名稱（門板)/ ^0 R. y7 t6 l. n6 m8 w4 a% U7 V
'例，fgq01-001-前門板：分離后圖號（fgq-001-前門板），名稱為空 P( }( P" F3 b% l- }
'以最后一個空格為準分離7 b* T$ D: e, M. @8 C+ [7 H
% o+ y U% K. G4 v/ c. D: v$ Z
: P6 t4 ^; q5 l
lz1 = InStrRev(lz, "--") 'lz1為lz由后向前搜索到第一個"--"字符在第幾個4 u$ b7 z+ n( `( M- M1 S
If lz1 > 0 Then '當lz1大于0時
5 H# y7 J+ u" K& T; xlz2 = Mid(lz, lz1 - 8, 8) 'lz2等于lz的第lz1-8個和其后面8個字符8 O( Z" d. `' f0 T; V+ a
lz3 = Mid(lz, lz1 + 2) 'lz3等于lz的第lz2+2個后其后面所有字符3 S! e; e5 ]$ R4 m* E7 ^
lz4 = InStrRev(lz2, "\") 'lz4為lz2由后向前搜索到第一個"\"字符在第幾個: Z6 s' v) s3 w# n$ W3 e I. I
lz5 = InStr(lz3, "\") 'lz5為lz2由前向后搜索到第一個"\"字符在第幾個
! x/ n$ i% h! B0 Qtg1 = Mid(lz2, lz4 + 1) 'tg1等于lz2的第lz4+1個后面的所有字符
. z0 o I/ K& B& A# e7 ?'tg1 = Right(lz2, 8 - lz4) 'tg1等于lz2右側(cè)的8-lz4個字符(lz2總字符為8個)5 i4 z4 m+ x/ F7 e
tg2 = Left(lz3, lz5 - 1) 'tg2等于lz3左側(cè)的lz5-1個字符0 Y# w5 O" Y/ S# z" U/ c$ A1 n6 n
) S0 F7 |% `" B# ?( u0 Vlz6 = Mid(lz3, lz5 + 1) 'lz6等于lz3第lz5+1個后面的所有字符
2 p- O. R' Z' x6 l- y: blz7 = InStr(lz6, "\") 'lz7為lz6由左向右搜索出第一個"\"字符在第幾個* u `. S' S/ i6 N6 r. x
If lz7 > 0 Then '當lz7大于0時
9 |: Y) l* r+ R2 O: z |. s* dtg3 = Left(lz6, lz7 - 1) 'tg3等于lz6左側(cè)的lz7-1個字符
9 b8 { N. F q! }& |2 f4 ^End If
9 S8 |( \0 X4 F( B8 [End If '此段為文件路徑提取項目號1 m4 S0 c7 M3 |9 F t
'例，零件文件完整路徑為：E:\工作文檔\B-非標產(chǎn)品\非標--F類\FGQ--定制角架\2020版\前門板.SLDPRT
, L# t2 N7 J: I. w0 p+ x, F! H'由后向前搜索“--”,第一個“--”向前到“\”間為產(chǎn)品編號（FGQ），向后到“\”間為產(chǎn)品名稱（定制角架），向后的第一個“\”和第二個間“\”，為版本號(2020版)。 K4 j! P. M9 Q; V% y6 R/ B* Q- I
6 _/ _; C" Q0 ]# [7 e& K8 h6 X2 A
" B& C5 L& b$ v4 M
}4 J* d- ]0 y4 T! j: I
bRet = swModel2.AddCustomInfo3("", "產(chǎn)品編號", swCustomInfoText, tg1)/ z# Z+ H* v% M0 V; {/ ~$ p4 e
bRet = swModel2.AddCustomInfo3("", "產(chǎn)品名稱", swCustomInfoText, tg2); [/ Y8 {6 F3 I( W
bRet = swModel2.AddCustomInfo3("", "版本號", swCustomInfoText, tg3)
" j7 P; l( a3 V8 J+ Z1 \% lbRet = swModel2.AddCustomInfo3("", "圖號", swCustomInfoText, tg4)/ l% o. i+ K' O! ~# d! \1 k
bRet = swModel2.AddCustomInfo3("", "Description", swCustomInfoText, tg5)5 p2 H( U" l8 z# N: i
bRet = swModel2.AddCustomInfo3("", "數(shù)量", swCustomInfoText, "1")
9 w! A; B( ?% Y9 ?8 ubRet = swModel2.AddCustomInfo3("", "備注1", swCustomInfoText, " "). E+ ?; ~( o! f, m% }: R# e
bRet = swModel2.AddCustomInfo3("", "備注2", swCustomInfoText, " ")1 b* W }! A7 {! w+ {
bRet = swModel2.AddCustomInfo3("", "備注3", swCustomInfoText, " ")* M x2 z4 d, c) K
bRet = swModel2.AddCustomInfo3("", "Material", swCustomInfoText, tg6)
- g2 y( X8 D3 |8 C pbRet = swModel2.AddCustomInfo3("", "SH", swCustomInfoText, tg7); S2 j8 M2 K7 i, F9 Y& P
bRet = swModel2.AddCustomInfo3("", "重量", swCustomInfoText, tg8)
# n" H* B0 q2 M# I7 jbRet = swModel2.AddCustomInfo3("", "表面積", swCustomInfoText, tg9) '此段為填寫自定義屬性項與其值
) ? z0 N' Q( R* Z8 s9 u* O! M
. k. G5 K* {1 F9 bDim thisFeat As SldWorks.Feature '另外增加一段宏，取讀取切割清單數(shù)據(jù)，并添加到屬性項。
6 C4 Q2 J( i/ \3 FDim thisSubFeat As SldWorks.Feature/ G: N* p1 L4 p! ?3 P1 k) n% L
Dim cutFolder As Object9 s. s& \) O7 }6 E! v6 z8 W
Dim BodyCount As Integer$ `! `7 o9 m: O5 G4 `! w {0 f# `
Dim custPropMgr As SldWorks.CustomPropertyManager
! w9 |' l8 g5 |Dim propNames As Variant
, K7 w; `* ~5 V1 N* e- n9 VDim vName As Variant9 e7 c0 t; s; f1 m( l
Dim propName As String' e T( {) u/ k0 j z3 C9 c
Dim Value As String3 n( Z; Y; \/ n1 y0 R
Dim resolvedValue As String
' b$ h3 I$ W3 rDim bjkcd As Double
& j3 A9 K8 C9 ^% `+ ^Dim bjkkd As Double
5 f% T$ q2 a" ?! J5 a6 l( T4 g$ B'Sub main()
. M5 P' i7 A8 b' G0 T9 L( o'Set swApp = Application.SldWorks
6 E/ B8 @7 n. f. ESet Part = swApp.ActiveDoc- Z) c) g( z/ t3 @' T
Set thisFeat = Part.FirstFeature
3 V% y8 X$ {0 F4 J: X+ T' l# cDo While Not thisFeat Is Nothing '遍歷設計樹; S# w0 f" H; t
If thisFeat.GetTypeName = "SolidBodyFolder" Then
: {8 \+ v5 Z; \" y. CthisFeat.GetSpecificFeature2.UpdateCutList6 K3 W! m% Y* `6 J4 G
End If
. k0 C8 U" D; F0 ^+ O; B: K' LSet thisSubFeat = thisFeat.GetFirstSubFeature
. I: e5 m u' o5 {+ ~Do While Not thisSubFeat Is Nothing) O* q% L: a, Z; z$ |
If thisSubFeat.GetTypeName = "CutListFolder" Then '查找切割清單
# h6 c+ C7 P1 y; i. {+ ASet cutFolder = thisSubFeat.GetSpecificFeature26 P0 p1 k0 J* e. U' y
End If
; P2 S& t1 z- J/ gIf Not cutFolder Is Nothing Then& A5 d! [7 N9 q) U Q! ^
BodyCount = cutFolder.GetBodyCount
3 i! v( G/ ~2 y, Y q* f0 F( I: qIf BodyCount > 0 Then6 K0 y- v8 A5 R0 ~
Set custPropMgr = thisSubFeat.CustomPropertyManager
0 e+ T/ \0 F4 v! P' V8 DIf Not custPropMgr Is Nothing Then1 e, b% i o! M+ o- g
propNames = custPropMgr.GetNames '獲取切割清單屬性的數(shù)據(jù)全部名稱并放入數(shù)組2 b% I" j% a" P
If Not IsEmpty(propNames) Then
. D/ J% p; p/ I4 iFor Each vName In propNames' a: {. g5 ?- ~. g( d7 [, d
propName = vName
9 S- d7 T; S# K+ H( d3 [! _custPropMgr.Get2 propName, Value, resolvedValue '獲取全部屬性名稱 ，數(shù)值和評估的值
& w0 O0 F; y* a' u, gIf propName = "邊界框長度" Then bjkcd = resolvedValue '判斷是否是自己所需要的數(shù)據(jù)，如果是就獲取
4 D$ L5 ~5 O; b! S" {# TIf propName = "邊界框?qū)挾?quot; Then bjkkd = resolvedValue% m" v9 ^" A/ T- G! S
Next vName
% D6 `6 U3 y* u( }6 \' kEnd If- \& c+ _0 u/ ]5 A+ }( Z4 O
End If! Y t# k4 p! J0 Z0 r& O+ V
End If, l8 [, l: o# n% a
End If0 _' u/ D' G' Y6 Z M1 X9 r: v4 f
Set thisSubFeat = thisSubFeat.GetNextSubFeature
. B( _6 F r$ a0 dLoop6 D2 G! S$ P8 p R! m- Q, X0 Z& [
Set thisFeat = thisFeat.GetNextFeature$ c& e) J2 Q6 f5 c% l
Loop+ T6 c2 b$ O# Q# B' z& g
'blnretval = Part.DeleteCustomInfo2("", "邊界框長度") '刪除屬性欄上摘要信息的數(shù)據(jù): H/ i7 x. x, T6 V9 O; A# O
'blnretval = Part.DeleteCustomInfo2("", "邊界框?qū)挾?quot;): \9 Z5 b+ B. v6 \9 G: t" d
blnretval = Part.AddCustomInfo3("", "開料長度", swCustomInfoText, bjkcd) '添加數(shù)據(jù)到摘要信息
' a* k( o; ~( L! oblnretval = Part.AddCustomInfo3("", "開料寬度", swCustomInfoText, bjkkd)4 V/ n* `, Q/ y/ A8 s
& Y) e+ f+ @6 d
End Sub
! I6 z) ^+ |: q* I5 x+ w+ W# _. c% A
- c0 t' h6 @3 f5 S
|
|
樓主: fiyu1314
發(fā)表于 2021-1-13 13:51:19
