VBA：使用AppendOuterLoop填充时，AppendInnerLoop不能使用非连续对象组吗？

157787698

RT，请帮我看一下下面代码有没有问题，为什么总是在代码“hatchObj.AppendInnerLoop (innerLoop)”跳出？

1. Sub Example_AppendInnerLoop()
   
2. ' This example creates an associative hatch in model space, and then appends an outer loop to the hatch.
   - M: L- F5 X8 a# B4 N
3. 
   8 ^+ B4 R6 E+ P( G: o
4. Dim hatchObj As AcadHatch
   # j7 Q8 \" B' n# j
5. Dim patternName As String
   
6. Dim PatternType As Long
   # e4 j4 I& t+ l% |% w% A
7. Dim bAssociativity As Boolean
   
8. Dim innerLoop(0 To 1) As AcadEntity
   4 i/ F& B) g+ T
9. 
   : d! g5 `1 O6 K3 e1 Y6 {6 ]
10. ' Define the hatch
    : B: `- E+ F$ S6 R+ P' ^/ k
11. patternName = "ANSI31"
    
12. PatternType = 0
    
13. bAssociativity = True
    . E. T: P5 z: \) E
14. 
    ) N4 K9 j8 ?+ y" U
15. ' Create the associative Hatch object
    
16. Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    
17. 
    8 t1 n/ C  f8 W( X1 g
18. ' Create the outer loop for the hatch.
    % f) P* p4 y0 q$ f9 V8 J
19. ' An arc and a line are used to create a closed loop.
    
20. 
    
21. Dim outerLoop(0 To 1) As AcadEntity
    
22. Dim center(0 To 2) As Double
    
23. Dim radius As Double
    / @5 E. L8 P- r& [( A4 d$ o
24. Dim startAngle As Double
    
25. Dim endAngle As Double
    " T2 r8 w/ a2 r, A7 M1 s0 D
26. center(0) = 50: center(1) = 30: center(2) = 0
    
27. radius = 30
    5 b7 v# ?  d- \5 ?2 c) B% q2 y
28. startAngle = 0
    % I- A( y! q8 _, v% c2 p* y
29. endAngle = 3.141592
    
30. Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
      g6 j) O6 N9 W( M- @4 R# H
31. Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).startPoint, outerLoop(0).endPoint)
    
32. 
    , o7 ?. ]  z9 L, D( i+ x, m7 c
33. 
    . K  q* q3 {2 }, c! ^- J
34. center(0) = 35: center(1) = 40: center(2) = 0
    $ P6 R! b. k8 I% p
35. radius = 5
    ' ]* a  R' ^( `% l
36. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    : y* x+ k' U& X
37. center(0) = 55: center(1) = 40: center(2) = 0
    ( f6 G3 f8 Z. L
38. radius = 5
    
39. Set innerLoop(1) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    9 s6 g- T0 \0 [, u" a0 R
40. 
    
41. ' Append the outer loop to the hatch object
    7 z1 @8 c7 S8 S, o3 ?4 \
42. hatchObj.AppendOuterLoop (outerLoop)
    ( n  i5 X/ i  Z6 c3 ~2 Z! ]
43. 
    8 n4 x9 v/ V2 I
44. ' Append a circle as the inner loop for the hatch.
    ; f7 z( j# o! C: ^
45. hatchObj.AppendInnerLoop (innerLoop)
    , X+ K* E" m' {" Y  f* k
46. 
    
47. ' Evaluate and display the hatch
    6 p  M9 D% N+ g; |0 e/ {  r
48. hatchObj.Evaluate
    
49. hatchObj.PatternScale = 0.01
    
50. ThisDrawing.Regen True
    ! W( ^# D' M3 q  |- E$ a
51. 
    5 R; y- M3 W8 u
52. End Sub
    ' b) r* u# e! |) G$ I
53. 
    

复制代码

woaishuijia

边界必须是一个"环".两个圆应该是构成两个内边界.应该用两次"AppendInnerLoop"方法,每次添加一个"圆"内边界.

1. Sub Example_AppendInnerLoop()
   
2. ' This example creates an associative hatch in model space, and then appends an outer loop to the hatch.
     w; T& _' {/ i4 P9 ?) y
3. 
   
4. Dim hatchObj As AcadHatch
   
5. Dim patternName As String
   : L% P. c9 _8 F' V6 h
6. Dim PatternType As Long
   
7. Dim bAssociativity As Boolean
   # p) m' S  e: ]& _
8. 'Dim innerLoop(0 To 1) As AcadEntity
   ; l  G- w6 L5 R* t8 o
9. Dim innerLoop(0) As AcadEntity
   # B; P) r1 c3 V- _' W" |
10. 
    
11. ' Define the hatch
    
12. patternName = "ANSI31"
    
13. PatternType = 0
    ' ~' _  g' E& S
14. bAssociativity = True
    + u' w$ _% z! o, @0 E! l, ]
15. 
    
16. ' Create the associative Hatch object
    3 w5 \+ z9 U3 @0 ^6 C" \
17. Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    
18. 
    
19. ' Create the outer loop for the hatch.
    
20. ' An arc and a line are used to create a closed loop.
    
21. 
    ( L- Z9 f& T7 r
22. Dim outerLoop(0 To 1) As AcadEntity
    
23. Dim center(0 To 2) As Double
    
24. Dim radius As Double
    
25. Dim startAngle As Double
    
26. Dim endAngle As Double
    - z9 D: Q. k: D. k; v  M; ~4 j, f
27. center(0) = 50: center(1) = 30: center(2) = 0
    $ s/ Y4 g  ~  ^5 g& [5 T$ a% D, O
28. radius = 30
    
29. startAngle = 0
    3 M8 @3 R+ J6 P( \' K: |8 u
30. endAngle = 3.141592
    
31. Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
    
32. Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).StartPoint, outerLoop(0).EndPoint)
    
33. 
    
34. ' Append the outer loop to the hatch object
    
35. hatchObj.AppendOuterLoop (outerLoop)
    1 f9 a! |9 A" I' O
36. 
    
37. center(0) = 35: center(1) = 40: center(2) = 0
    ' q0 \! Q& f' M+ @) v
38. radius = 5
    * j4 m& }' I. R8 \
39. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
40. 
    
41. ' Append a circle as the inner loop for the hatch.
    5 D# l6 E/ w% ~5 Z/ a
42. hatchObj.AppendInnerLoop (innerLoop)
    
43. 
    
44. center(0) = 55: center(1) = 40: center(2) = 0
    
45. radius = 5
    ! i2 y  R- i, t2 w+ C% l
46. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    4 `* B. D4 s6 S4 c6 N& n" f9 D
47. 
    " q# t/ A9 s# U
48. ' Append a circle as the inner loop for the hatch.
    
49. hatchObj.AppendInnerLoop (innerLoop)
    / l" d6 q( U/ L2 v) {, {
50. 
    
51. ' Evaluate and display the hatch
    ! _4 N- {0 `$ W  }
52. hatchObj.Evaluate
    - W- C4 ?3 ?: w2 v9 Q. ?' Q
53. hatchObj.PatternScale = 0.01
    . n. a) {# S" r3 M5 `
54. ThisDrawing.Regen True
    
55. 
    
56. End Sub
    # \" e$ V% j, h1 {

复制代码

157787698

多谢woaishuijia