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

157787698

RT，请帮我看一下下面代码有没有问题，为什么总是在代码“hatchObj.AppendInnerLoop (innerLoop)”跳出？
% f. ?+ ]0 {; B- S* p5 @- M2 b
% J( E7 F% l6 y  E. C! P% k$ f' C

1. Sub Example_AppendInnerLoop()
   0 P. b0 H  k+ P* q! {0 I; o5 B
2. ' This example creates an associative hatch in model space, and then appends an outer loop to the hatch.
   . g+ G1 |1 \, _/ i
3. 
   ) {$ ]/ ~) e) o* _8 E" t- p8 _
4. Dim hatchObj As AcadHatch
   
5. Dim patternName As String
   
6. Dim PatternType As Long
   
7. Dim bAssociativity As Boolean
   5 a$ M* G& @* a" w. r( h8 ?$ T
8. Dim innerLoop(0 To 1) As AcadEntity
   ' p9 }1 {" z% q. D
9. 
   
10. ' Define the hatch
    9 l$ D+ N7 o3 ]+ ?1 d: ~7 M! P" |
11. patternName = "ANSI31"
    $ z$ V( i7 x1 q0 m, {. K- X
12. PatternType = 0
    
13. bAssociativity = True
    
14. 
    
15. ' Create the associative Hatch object
    
16. Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    
17. 
    
18. ' Create the outer loop for the hatch.
    6 q5 J* i2 x- P- }
19. ' An arc and a line are used to create a closed loop.
    ) k, v9 i% u4 {$ x; ]
20. 
    4 b3 q* B. t! N; [* F- `
21. Dim outerLoop(0 To 1) As AcadEntity
    ; W  @* e6 |% n
22. Dim center(0 To 2) As Double
    $ E# d. i: I; h6 z+ P: Q- R2 C! K" e
23. Dim radius As Double
    
24. Dim startAngle As Double
    5 k, \& V1 X8 @- o- u8 |
25. Dim endAngle As Double
    
26. center(0) = 50: center(1) = 30: center(2) = 0
    5 q. w$ C7 J: A) E
27. radius = 30
    
28. startAngle = 0
    1 P, c3 H+ V( L, g8 N
29. endAngle = 3.141592
    0 [- p2 d, Q* y. F% y' p
30. Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
    . y1 g; Y1 `- _8 \8 H# E
31. Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).startPoint, outerLoop(0).endPoint)
    $ `& f+ \8 o- B( T5 z
32. 
    / O( C( G: n$ J6 o# v
33. 
    . W/ _: b: s7 M! p
34. center(0) = 35: center(1) = 40: center(2) = 0
    4 F. E% ?9 X( S) T7 p* M) [4 G9 _
35. radius = 5
    
36. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
37. center(0) = 55: center(1) = 40: center(2) = 0
    
38. radius = 5
    + R# b0 `7 a$ L
39. Set innerLoop(1) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
40. 
    9 r* J6 b9 g: z8 d
41. ' Append the outer loop to the hatch object
    % j! {& c3 p; J* C8 z$ o
42. hatchObj.AppendOuterLoop (outerLoop)
    4 h9 P$ D! f+ G8 y, A) w) L
43. 
    / V8 s/ l/ y( G) z. T- Q
44. ' Append a circle as the inner loop for the hatch.
    
45. hatchObj.AppendInnerLoop (innerLoop)
    
46. 
    
47. ' Evaluate and display the hatch
    
48. hatchObj.Evaluate
      R- y& b, g5 }
49. hatchObj.PatternScale = 0.01
    - Z  x6 W" Y. Y! R: g
50. ThisDrawing.Regen True
    2 t7 R1 C8 U  _
51. 
    9 s7 d+ m3 D9 P) H$ Y6 ^7 c4 Q+ ^
52. End Sub
    ' T2 p! P& b1 V2 c
53. 
    + @8 Z, w) i( D! M* o3 W. Y

复制代码

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.
   
3. 
   7 ?# a) C. P- u9 j
4. Dim hatchObj As AcadHatch
   ' Y( @& F* V) H% E! Q5 ]
5. Dim patternName As String
   1 T$ }1 e8 k$ V, o# A% ^% l
6. Dim PatternType As Long
   + s7 v' x2 [' h# u2 F
7. Dim bAssociativity As Boolean
   
8. 'Dim innerLoop(0 To 1) As AcadEntity
   % y6 v. T1 `  d% c
9. Dim innerLoop(0) As AcadEntity
   : T- a/ S: @$ b
10. 
    8 [) Q! e9 y4 A5 ^$ F3 }' f
11. ' Define the hatch
    ' x; z9 F6 u2 b$ X, F8 U
12. patternName = "ANSI31"
    0 @' G$ v$ u- m9 l0 O6 Z- D
13. PatternType = 0
    . M" k, g$ Y0 L, c  b1 F# \
14. bAssociativity = True
    ; }& [: D1 ^$ d4 }; |9 E- F' A
15. 
    
16. ' Create the associative Hatch object
    + W9 A" U, ^" V' k8 Z: {6 k9 Z
17. Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
    
18. 
    3 H  \4 p3 w! R- I/ S
19. ' Create the outer loop for the hatch.
    0 ]. e( o$ L* W
20. ' An arc and a line are used to create a closed loop.
    
21. 
    . n2 d4 o. o" a9 k  J
22. Dim outerLoop(0 To 1) As AcadEntity
    ' T/ p/ G4 r- X0 H
23. Dim center(0 To 2) As Double
    ! n' H( k6 ]2 ^! N& C
24. Dim radius As Double
    % b: Z/ R+ @9 a5 h7 B3 _# t7 B& I% }
25. Dim startAngle As Double
    
26. Dim endAngle As Double
    2 F# e  H+ S: G2 H% v' L
27. center(0) = 50: center(1) = 30: center(2) = 0
    
28. radius = 30
    0 W+ e) n/ S( z; k& r, X
29. startAngle = 0
    
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)
    ! E% p' O4 B; o1 x
36. 
    1 Y% B* I5 c! b* t/ G& c
37. center(0) = 35: center(1) = 40: center(2) = 0
    
38. radius = 5
    $ P1 p# B$ ^# ?8 _0 e
39. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
      x+ T& h8 g( I# ?
40. 
    6 Q) P& Q- I' l4 H% ]
41. ' Append a circle as the inner loop for the hatch.
    
42. hatchObj.AppendInnerLoop (innerLoop)
    
43. 
    
44. center(0) = 55: center(1) = 40: center(2) = 0
    7 t' i5 m: \9 n' f6 W5 V
45. radius = 5
    
46. Set innerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
47. 
    ; s- ]& J! ^. j
48. ' Append a circle as the inner loop for the hatch.
    
49. hatchObj.AppendInnerLoop (innerLoop)
    2 B& x) k5 R6 c; Y& y3 @
50. 
    
51. ' Evaluate and display the hatch
    
52. hatchObj.Evaluate
    
53. hatchObj.PatternScale = 0.01
    & `2 o7 C  `) }3 q8 u) R) W$ u
54. ThisDrawing.Regen True
    - `- p# j2 m; @; t) P' {) o
55. 
    
56. End Sub
    5 }9 X7 K  T; Z  C. D

复制代码

157787698

多谢woaishuijia