国产日韩欧美久久久精品图片|国产综合有码无码中文字幕|国产一区二区综合视频|国产亚洲精品电影网站在线观看|国产精品一区在线

機械社區

標題: 圖號分離 [打印本頁]
作者: 吶，你要怎樣    時間: 2019-4-22 14:18
標題: 圖號分離
軟件小白一枚，因為公司需要統一零件模板，并且和我們搭建的PDM關聯，需要將文件屬性寫入配置待定里面。之前用圖號分離宏只能把屬性寫入自定義信息中，配置待定中只有空的標題，分離后的內容不能讀取。" _' _* n8 w/ ~
下面是我在網上找的說是可以將圖號分離后屬性寫到配置待定的代碼，實際調試有錯誤，見紅色代碼。
9 b3 q; s' D$ ~4 y---" e# o' g3 }: Q1 I6 w
Dim a As Integer- g: H4 o( t6 T; a; E

- A' t5 Q  x5 X* j$ n9 ~( lDim b As String
9 _; a( _0 M/ L* _7 ?; s+ s; N4 e% B* G/ h2 c1 ?
Dim m As String
; X& |5 w3 l/ _& {2 c
: N5 D3 _  I5 j- ^' ]Dim e As String
5 F1 x- e* J7 z2 `3 i
# e; S' v4 M9 o% v( FDim k As String
' p8 A& L, S. q8 ?% z9 P: R" P( w) c: o2 W9 Y
Dim t As String
5 g9 o, R  Z- q& r" p5 m7 {# E; s5 ?  I5 k; k; s1 b5 j/ `5 w3 z& Y
Dim c As String
5 R5 y7 u) O, k  e* {
/ N+ p. x1 B. }, |1 E8 CDim j As Integer
2 _' W) C7 T: w3 ?5 L4 o& I  a8 n$ D% `1 h! {! L* l. U) Z: o+ J4 p5 b
Dim strmat As String
$ t* [0 p1 ?0 y% B/ B7 |5 C5 o# n. N* a7 y. z
Dim tempvalue As String# V: ]) s7 w8 V3 Y8 L( l: R& W7 N
: M! l. G, ~. r% t2 ~
Dim Part As Object
2 j/ R- F3 w$ \5 j! O) a! c/ c% B$ z. H  ]0 d: d' J( x$ U6 O
Dim swApp As SldWorks.SldWorks
& F; `1 N- ^0 P# q9 Y0 C, O" q7 t2 r7 `6 Q
Dim swModelDoc As SldWorks.ModelDoc2
; o5 f1 \  O: D  ?2 b* y: w  t# x
! e& H8 o; g5 G; Z5 E) C- p6 DDim swConfig As SldWorks.Configuration
" A# U# z5 M+ |  S' b& [% Z
  Y; N. L+ S' A" E% f9 v/ N& WDim swModel As SldWorks.ModelDoc2
: n% _2 _2 G* Z8 S! T! H; A: N/ H& j4 ]2 s/ T! b" X6 t. ^
Sub main()
) f% w: P5 E! R! Z2 k& k
. l3 O* l- w- T9 g5 p+ t4 BSet swApp = Application.SldWorks
! _6 t0 u% l# y" a( G: w  b3 H: |* O% p- f3 O) e6 a
Set swModelDoc = swApp.ActiveDoc6 m5 \2 w! y7 e
8 n8 U5 l. O/ d4 f3 s9 r
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration9 G- T5 s' n9 v
+ Z; n; y! v5 r
Set swModel = swApp.ActiveDoc% v. |: o' _* f$ w% D" w" H2 F
* C0 M' y8 j  U. J! z& E
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸; O9 ~! d. C8 r# B+ u( p2 z
$ R+ l9 k; n( I7 d
'設定變量7 T: i' r; b/ z" b* y$ `  z

  I( g, M# V, q! Hc = swApp.ActiveDoc.GetTitle() '零件名+ G% R6 }, _' ]( _: b$ k. N

7 T8 M0 B  M& @* Cstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
- m2 `6 r) H1 ]# P( r* @8 D: w
/ t' G# g: O: G! k! p6 o& D3 la = InStr(c, " ") - 1 '重點:分隔標識符,這里是一個空格,也可換成其他符號! H' S0 j7 |3 F+ k$ s

) N7 ]( l7 K' ^+ BIf a > 0 Then
1 ^/ d( U, ?' g7 X$ j$ o
! Y4 \" m$ _5 t% |$ }# h5 x0 t2 t  qk = Left(c, a)
% J( J. _4 v  H, X0 Y* R8 y. `- z2 ^
2 h" t6 l& O, f) T, w; L, V" ]t = Left(LTrim(e), 3)/ v9 j1 T2 j" q# J5 W

: Q) A/ [! g) w* R; C) e- SIf t = "GBT" Then
  a' D4 P1 {* u% q# N
: ]) u  b0 L6 h1 |# d9 C/ {e = "GB/T" + Mid(k, 4)
4 }% ~  @( w& R  h, ?& m' a! z9 R  A1 Y' ~( }  U0 U' H- s
Else
- _) J. [0 g' G$ B
$ D8 b8 k2 i2 Y3 S2 w, Se = k: l' U8 o$ L0 }& k

$ g; T" Y1 Q$ l0 h$ P* QEnd If  [7 Z+ ^/ s4 U) F6 a
# p8 f9 I9 e$ H
b = Mid(c, a + 2)
! e* N, [7 m! Z2 a. D
* K8 U4 i, \: {0 ut = Right(c, 7)
8 }; l4 H2 k  ~
3 \7 M+ }- f5 I. H7 KIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then8 ^) ^% S  p5 ^! H

+ V4 i( W( R; s' n, Lj = Len(b) - 7 '消除后綴(區分大小寫,即含4種)
( F1 V- o( a$ {7 J1 O; V% ?4 I6 M3 |  L8 h( l, f; A9 U" ^
Else9 T  ?! c) A* _/ l- e- C

- W# p; N/ Q0 a# o; A/ ?, K) P4 Ej = Len(b)
; n) C' [; l) L0 ?8 z* ?0 f( y& H5 V  y
End If4 d7 _0 L+ a1 k, q. g, |" _1 l
& W' d4 V4 Y/ j  i
m = Left(b, j)) A3 E' |, X, ?: Z& d0 I% |
$ g# u# k$ ~& Y1 \3 _# b' n
End If7 W1 `* k, d& |# S
% h- W) z9 K8 X; H
'刪除欄/ Q1 Q8 J+ m  }: s2 u

! y$ U5 t! P% a6 s; w6 {CustPropMgr.Delete ("圖樣代號")
9 o  _" ]* d+ N- I. v( M; Y& x
7 N( L3 }% T( T# ^: y3 tCustPropMgr.Delete ("圖樣名稱")% O% u$ j: I, b, e( V+ @/ f  Q; Z8 Y! Z
# j7 k( H& V8 f
CustPropMgr.Delete ("材料")" X2 I" G  }6 ?% y  t5 w

% w" _( V9 ~& I'新增
( ]+ \, i& ~) x) _* i' C7 n( O) k2 \' x$ W* ~7 M, {, M
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
/ Q& o" m5 j6 ~6 i- R, c1 U- _: L: }$ ~$ q( q& R, \0 d
CustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m# `; O1 s6 e8 D6 B
# G( r- g1 g. w9 t  _' y% b
CustPropMgr.Add2 "數量", swCustomInfoText, ""8 f, U+ W& e3 ~, ~" n! M4 _( s

7 n) d. I/ ]6 a5 r" g* [CustPropMgr.Add2 "材料", swCustomInfoText, strmat
, g+ ]5 K0 H' {6 N. T. L1 J" h3 H& z0 G; O' I  W( }% R
CustPropMgr.Add2 "單重", swCustomInfoText, ""
2 V# g. u7 Z7 b- ^$ s; H7 E$ I
' |+ ?7 j8 }! H/ Y$ U6 p  NCustPropMgr.Add2 "總重", swCustomInfoText, ""+ Q! Q1 B8 g; h$ ~+ P% n
% I$ c( [) o) z5 ~$ ]
CustPropMgr.Add2 "備注", swCustomInfoText, ""8 o7 v9 ?7 U1 a8 G0 a
$ A$ e4 Y- R9 [2 e* S1 D
End Sub, i5 a. K& j/ i
---- J" a- O) a, p: _. I1 S6 Y5 O9 t! x
想請教下大拿們，這個代碼要怎么修改才能管用。之前的圖號分離宏，可以讓所有屬性出現在自定義里。或者有沒有辦法加一段自動復制自定義里面屬性到配置待定里去的代碼？
: ?9 T1 Y* u* c& J. P! p
! ^' g" L$ c/ g* D在線等大神解惑; S! U2 U! F/ f- b! x& F( D6 z
- R, a% ]% [; T/ W# [; [

) W" C8 M  G; n+ ~9 B7 F& ]
作者: 吶，你要怎樣    時間: 2019-4-22 14:32
可以用宏來實現自動復制嗎，嘗試錄制宏，沒有用
作者: Wukui*    時間: 2019-4-22 16:58
叫我大哥，我可以分享現貨給你。。。哈哈哈哈哈
作者: 吶，你要怎樣    時間: 2019-4-22 17:10
Wukui* 發表于 2019-4-22 16:580 W* o+ n& n4 e( y# k3 o& X5 X; B
叫我大哥，我可以分享現貨給你。。。哈哈哈哈哈

, H! x& Q3 }( n* e) @大哥好
( a9 B" @8 g) _: y: x) L* `! A5 G2 l
作者: 金卯刀-劉    時間: 2019-4-22 20:15

. s) {1 X3 c  f+ V( h3 ?'定義sw
( ~. i! |- `  _* f7 {( I
& R- b+ G: t1 C
. o5 U$ ]5 X  G/ F( M! V$ Z
- g4 Z$ C, Y3 i& [/ r7 V- A+ G9 i5 rDim a As Integer
$ }/ A7 {" R( H- B9 u% w8 i; S; n+ S2 ]. L& O/ U: |
Dim b As String  C; l( m( b1 E" @, a- f
) Y5 g7 v+ z$ U8 A% o
Dim m As String
3 }  m5 y  Z! F
9 ~5 {6 p3 O2 t2 m4 A/ B% f/ uDim e As String
& S" B$ K5 U5 g  M( o; U. T$ S# t( [
Dim k As String: ~" T3 u; b- l$ [% U3 H" t5 j
( s: F8 u5 t2 P& l3 {
Dim t As String
4 G8 P  S( b2 l9 n% X# l
; }# F9 D* t* DDim c As String
. z8 F# @! l  z' y2 i. ]* x4 k; O6 s7 o4 }
Dim j As Integer
! [( ~8 N$ x* H; `, o$ V8 O0 ]7 `) f& |; t7 i
Dim strmat As String
7 r; f$ B! o  T5 g! O. @
0 \9 E2 t# u" tDim tempvalue As String
. Z* s( k/ w! Q$ ]4 G0 ?! a! a* L  H8 U* _3 T
Dim Part As Object
5 \" r, x) n7 D
, {6 B- M3 h1 Y7 aDim swApp As SldWorks.SldWorks
- A0 F8 J3 e6 g2 b  X3 J# k
8 ?# e+ N2 L/ T: J- \Dim swModelDoc As SldWorks.ModelDoc2
) G  V* \. F5 k+ M# D7 E6 R$ n1 O3 F( X
Dim swConfig As SldWorks.Configuration7 ^! K% t- d( @- h/ e
; Y4 _! n9 Q9 i# p* A
Dim CustPropMgr As SldWorks.CustomPropertyManager
  Z& I9 P- N+ X1 q7 ?3 O3 f6 z6 Z# ?2 z3 x) V( \8 D( G! v: S
Dim swModel As SldWorks.ModelDoc2
, {& K: P& o  \& o, t+ l1 r" n0 k  o' Y. J( g

7 S( W  W1 @+ P9 M4 r( e( I9 d* ~3 m5 C+ v  s4 J8 ?" h8 t
Sub main()
7 W% {6 B% Q; N0 ]
0 N: c7 j7 N/ S' ESet swApp = Application.SldWorks9 }  S4 F' O2 j; {9 Y* ]0 G

+ L8 t( n) Q1 v  d- P, Q2 ?Set swModelDoc = swApp.ActiveDoc
7 K) f- s6 L- \+ F5 q( U  e3 M" W
# [0 Y+ E% k) U5 tSet swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration( i. |, F# I1 @5 L+ C( y
6 a5 H, \4 N: Y
Set swModel = swApp.ActiveDoc% N2 b  _, b, p0 s6 n7 j) ]
# ~  _( e4 r! ?  ^5 J0 A! V
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸
8 k/ r7 M( K- ?+ O' p, V5 e  O6 l% P7 v+ t" O

$ w8 V4 v, d. `: [1 [( I
" S! G* p. r9 |7 j4 J$ _! I'設定變量5 ^( _. ?$ q% Y+ Q" ?2 q6 p/ z
- o6 a* g5 }# L, E( p6 F
c = swApp.ActiveDoc.GetTitle() '零件名; ?' w; t* ]' h" |8 N/ E
3 a5 F+ M8 D, D; [! Z/ _9 ]
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)2 e9 s; v7 X+ c

( ~+ @6 i. Y4 z; F' Za = InStr(c, " ") - 1 '重點：分隔標識符，這里是一個空格，也可換成其他符號
3 b7 R3 M3 K7 \
7 B5 T, C$ W8 a7 k2 KIf a > 0 Then
, i$ |1 b) j2 L2 o; g
, L; W2 n, q) D  B! Q3 Gk = Left(c, a)
, w( |, ]: v# W$ `: E6 B# H, B9 v: E0 h1 W" G4 F% X+ r
t = Left(LTrim(e), 3)
: w( ]/ k, r  H/ m3 _7 e0 U* S! }! Y5 K! l' J0 ]' R  _/ P3 C
If t = "GBT" Then. V  s% M6 r2 @0 {

6 k1 B2 `, E( x1 Q* [e = "GB/T" + Mid(k, 4)
, o, n2 I6 a' E
8 S! ~0 y8 i* C! G9 U# J9 H: zElse0 {  F% n  q: o" n# ^
% I4 l8 m# Q) b0 Q0 b. P5 j
e = k! O7 W  w5 H1 a% u: t

7 k# H# @# H( p4 @) T) ^End If$ y6 J4 t' M3 I" w

( _! r. }. M9 [5 O+ T3 O  b% I3 vb = Mid(c, a + 2)
; {* Q, Y) l' M3 o
: P8 X1 \! O  S$ v$ @+ ^" z" J, @: r9 Qt = Right(c, 7)0 @; _. q" D5 x  u4 u" N

; D' S$ _0 _6 ?5 zIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
: A6 C2 C* G4 [0 p" l8 U8 p, e: l
j = Len(b) - 7 '消除后綴（區分大小寫，即含4種）9 w. i5 B% x- U" v9 H, o3 Y3 B+ U* w

: J) u, {; L& Z: f, z8 O& @Else
& B9 \' M7 S5 M& u+ H2 s3 x7 m/ x4 x( H2 q) ~
j = Len(b)
, `8 C' i/ R& d8 _  @* W  ?: o/ L9 ~: [" M( H( Q% [
End If( W8 ^  W9 f- s

7 @/ x7 N* C3 K* b: p) c0 {m = Left(b, j)
. u! g4 |, `! T
. f) Z+ `- ]6 eEnd If
* b" ]3 Q% B: m% k* \" K0 U- a( n2 Z7 _3 m$ A. h; @
'刪除欄: u9 A+ m# G+ o9 c
! i) x- _& x! S' f, M- `: ~/ n9 b
CustPropMgr.Delete ("圖樣代號")6 S, ?2 k3 a* H; v% F/ r
$ e' j, N. U; _" D; k$ U, W7 X, J
CustPropMgr.Delete ("圖樣名稱")
1 \& Q4 M4 e0 U7 w
. _  U$ |0 `: L2 HCustPropMgr.Delete ("材料")
8 C- ?6 e6 O- o( {: x
2 d! N" I3 o" `" X' V( A0 ~" Y: z2 }

! j, S: f0 X8 V; s3 R8 o'新增% E# b$ x1 Z! G$ o6 e& D/ A

, {3 C( N; c( A& L7 M; f/ ]CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e, \9 }* H) \# i/ u! J: P

3 j$ C7 \+ c6 ?. q7 l+ MCustPropMgr.Add2 "圖樣名稱", swCustomInfoText, m/ z" x$ X& G# B' `5 [
2 Z% W% w, r, E$ s: M
CustPropMgr.Add2 "數量", swCustomInfoText, ""
/ [2 }/ C. h" b# F% O, M( ?3 _5 o" ?! ~
CustPropMgr.Add2 "材料", swCustomInfoText, strmat" e$ Q# W6 J. y/ a) C5 L5 c

/ Y# l) C1 N5 g0 s2 UCustPropMgr.Add2 "單重", swCustomInfoText, ""3 d# t& `5 X; u2 ~( m, D

* }' i5 b8 K; [2 }! V* h8 F% NCustPropMgr.Add2 "總重", swCustomInfoText, ""- r5 u2 S2 R0 n4 l2 e$ h

2 _3 d0 L  |% Q8 x' \4 ~CustPropMgr.Add2 "備注", swCustomInfoText, ""5 k9 p! K7 _. H' g) l. [

8 X2 _/ x3 \' u7 }
* K5 ^' _) H- z3 V8 u! A5 h' R2 _7 y
3 r/ c' ^) }* @& i# N( J1 M) jEnd Sub
) Q& x6 v- {: T" i: P+ V- W$ Q6 M+ l0 ~8 \2 F5 R0 g
親試管用，注意圖號與名稱中間間隔是“空格”
作者: 吶，你要怎樣    時間: 2019-4-23 09:24
金卯刀-劉 發表于 2019-4-22 20:15
1 H  q0 e- ~3 q. L' f'定義sw

2 [8 O, g4 O+ P- w  Z感謝大佬，實測有效。但是還是有點小遺憾，不能實現想要的功能。2 {: _' w: O4 `1 n+ K5 {& I  a
----
* s# V) ]3 n5 iCustPropMgr.Add2 "數量", swCustomInfoText, ""0 G" V; F3 x6 y* H; |% V
. y  i; F8 C4 w) F

4 k7 s( A+ }1 w/ @* jCustPropMgr.Add2 "材料", swCustomInfoText, strmat% h1 j+ i# w: ?
3 L: w. U) x7 _
----
1 X2 G6 V2 ?! |0 \& h如上面這兩段代碼，材料后面strmat，會直接連接零件的材質，而類似數量這樣后面是雙引號的，則不能鏈接屬性。
% J: d6 w0 q4 L4 k( E屬性編輯標簽在自定義和配置待定中只能選擇一個，這就很尷尬了。: Q. T4 P6 d& D, u; m  ]

6 x' s$ Z( \* ~! S+ Z- @不知道大佬有沒有辦法，可以將代碼中這些信息直接鏈接相關屬性？感謝大佬
/ T) v  U& W; ~2 r. z  x
作者: 金卯刀-劉    時間: 2019-4-23 15:40
吶，你要怎樣 發表于 2019-4-23 09:24
4 N# a! q  F7 D& F& P/ T感謝大佬，實測有效。但是還是有點小遺憾，不能實現想要的功能。
, Y7 A0 b4 X5 I' I1 d# E; @6 [----
# j% ?/ P6 S2 E& t( _CustPropMgr.Add2 "數量", swCus ...
4 e$ x7 ?. m; g5 x( L
1.有辦法在配置特定里增加數量，但那是另外一個宏，是統計整個裝配體里的零件自動寫數量到你指定是屬性名。并且是在配置特定里。& r1 B0 V* y9 R
2.材質是要自己選擇的，一個宏沒辦法寫不通用的東西。如果想通用只能是關聯零件材質屬性例如"SW-Material"& o. ~, [& [5 `0 P* g
3.不知道你用過屬性模板，你需要的這些是可以通過屬性模板實現的7 h; r) g2 g- P& _- e/ Y6 t4 m) Y% m2 I8 \
作者: 吶，你要怎樣    時間: 2019-4-23 16:49
金卯刀-劉 發表于 2019-4-23 15:40
0 h7 ~; g/ y0 m9 [6 {1 s1.有辦法在配置特定里增加數量，但那是另外一個宏，是統計整個裝配體里的零件自動寫數量到你指定是屬性名 ...

$ C( i& O  C) {& J8 m8 t- H屬性標簽是有用的，但是不能同時寫入自定義和配置待定，只能選一個。零件繪制完以后，材質、數量等信息就已經通過屬性標簽錄入了，現在其實就是想讓自定義里的信息同樣地出現在配置待定里。" P( k8 o! ~$ \% d  o4 U0 O
因為看到大佬貼的代碼里，最后Add的東西，如下：
- K- N  J- v- x5 e! U7 v: y----8 ]  L- x' d4 Z; n; N! {4 a
CustPropMgr.Add2 "圖樣代號", swCustomInfoText, e
5 o! E: c  R7 b9 b# ~2 M. l* `6 w9 G----, S  t! O5 }' i9 A9 t
這里的e和我之前的圖號分離宏里面定義的是一樣的，然后運行完前一個后，再運行你發的代碼，它會同樣的讀取e的信息，然后再配置待定里面就會出現和自定義里面一樣的圖樣代號。只是好像不知道可不可以把其他的信息都定義為某個字母，這樣是不是可以相互關聯上？# _0 \) X% v/ z" M8 |, j
作者: feelling    時間: 2021-7-30 10:28
看起來不錯
作者: 太一OS    時間: 2021-11-30 18:12
金卯刀-劉 發表于 2019-4-23 15:40; @3 C! w! ]; C3 ?4 C/ W' D# y
1.有辦法在配置特定里增加數量，但那是另外一個宏，是統計整個裝配體里的零件自動寫數量到你指定是屬性名 ...
- y8 \$ [* P1 V7 ~3 p6 P6 e# Y
你好，請問一下圖號分離能實現三段分離嗎？比如圖號 圖名 備注' I6 @5 D4 @% A4 X  C
作者: 東升西落自動化    時間: 2021-12-2 11:20
謝謝！我正好也在找這方面資料。
作者: qwmib7669    時間: 2023-11-21 14:41
C:\Users\Administrator\Desktop
作者: laotoule8    時間: 2023-11-23 22:18
本帖最后由 laotoule8 于 2023-11-23 22:20 編輯 . @. X0 W/ q' O8 L3 q& _
8 p+ }+ p" H1 O7 z, M
不錯啊。
作者: qwmib7669    時間: 2023-12-6 09:00
不能自動生成 “類型” 的那列的值，“數值/文字表達”這列都事空白的，
作者: 請填寫名稱    時間: 2023-12-6 13:49
插個眼，有時間再來研究
作者: mengfeit    時間: 2023-12-7 11:55
唉，看著就頭麻，還 是老老實實敲吧* ]* w- U, |; j6 J
作者: 大白123    時間: 2023-12-14 17:02
吶，你要怎樣 發表于 2019-4-22 17:10: C! V" G- _0 _5 a
大哥好

" _& K* Y! B$ N我也有宏
6 ~4 A- C$ |! s# n  Y; |( ~
作者: 獨孤求劍A    時間: 2024-1-25 16:00
看著頭暈
& D& O# R+ p, s
作者: 劉生693    時間: 2024-1-25 16:37
高手如云
作者: 網中人000    時間: 2024-8-26 09:05
下來看看



歡迎光臨 機械社區 (http://www.odgf.cn/) Powered by Discuz! X3.4
主站蜘蛛池模板： 日本道色综合久久影院| 强伦人妻一区二区三区视频18 | 人妻洗澡被强公日日澡| 无码成人免费全部观看| 日韩欧美视频一区二区三区不卡| 亚洲人成自拍网站在线观看| 色五月丁香六月欧美综合| 国产一区二区三区播放| 国产精品一区二区中文免费视频| 午夜内射高潮视频| 亚洲国产一区二区三区四区电影网| 国产高清在线一区| 欧美一区二区三区导航| 国产成人精品无码免费看| 性色av闺蜜一区二区三区| 国产午夜福利视频在线观看| 日本一区二区播放| 综合自拍亚洲综合图区欧美| 亚洲国产成人爱av在线播放 | 亚洲午夜久久久久久久久电影网 | 欧美日本精品一区二区| 亚洲一区在线观看播放| 伊人精品无码av一区二区三区| 国产午夜不卡av免费| 国产精品果亚洲av无人一区| 亚洲深深色噜噜狠狠网站| 国产精品熟女人妻| 亚洲成aⅴ人在线视频| 国精产品999国精产| 国产午夜伦鲁鲁| 大伊香蕉在线精品视频75| 成人免费视频一区二区| 国产又粗又猛又爽又黄| 高清一区二区91| 美国av一区二区| 日韩av午夜在线观看| 亚洲aⅴ在线无码天堂777| 国产亚州欧美一区二区| 亚洲一区二区va在线观看 | 亚洲中文一区二区| 日韩无码免费高清视频一区二区|