求助 面域布尔运算 赋值时报错 ——类型不匹配

xueliang123

2. Public Sub createcage()
   
3. Dim dbpoint As Variant
   
4. Dim halfwidth As Double
   
5. 
   
6. Dim Hlength As Double
   
7. Hlength = 110
   
8. Dim outframpoint(0 To 7) As Double
   
9. Dim inframpoint(0 To 7) As Double
   
10. Dim cagecenter(0 To 2) As Double
    
11. Dim cageradius As Double
    
12. halfwidth = 255
    
13. cageradius = 350
    
14. 
    
15. Dim incircle(0 To 0) As AcadCircle
    
16. Dim outcircle(0 To 0) As AcadCircle
    
17. 
    
18. Dim outfram(0 To 0) As AcadEntity
    
19. Dim infram(0 To 0) As AcadEntity
    
20. '用户获取点并赋值以方便以后使用
    
21. dbpoint = ThisDrawing.Utility.GetPoint(, "Select a point")
    
22. cagecenter(0) = dbpoint(0) + 355: cagecenter(1) = dbpoint(1): cagecenter(2) = dbpoint(2)
    
23. 
    
24. With ThisDrawing.ModelSpace
    
25. Set incircle(0) = .AddCircle(cagecenter, cageradius)
    
26. Set outcircle(0) = .AddCircle(cagecenter, cageradius + 5)
    
27.    
    
28. '画外框
    
29. outframpoint(0) = dbpoint(0): outframpoint(1) = dbpoint(1) + halfwidth
    
30. outframpoint(2) = dbpoint(0) + Hlength: outframpoint(3) = dbpoint(1) + halfwidth
    
31. outframpoint(4) = dbpoint(0) + Hlength: outframpoint(5) = dbpoint(1) - halfwidth
    
32. outframpoint(6) = dbpoint(0): outframpoint(7) = dbpoint(1) - halfwidth
    
33. Set outfram(0) = .AddLightWeightPolyline(outframpoint)
    
34. outfram(0).Closed = True
    
35. '画内框
    
36. inframpoint(0) = dbpoint(0): inframpoint(1) = dbpoint(1) + halfwidth - 5
    
37. inframpoint(2) = dbpoint(0) + Hlength: inframpoint(3) = dbpoint(1) + halfwidth - 5
    
38. inframpoint(4) = dbpoint(0) + Hlength: inframpoint(5) = dbpoint(1) - halfwidth + 5
    
39. inframpoint(6) = dbpoint(0): inframpoint(7) = dbpoint(1) - halfwidth + 5
    
40. Set infram(0) = .AddLightWeightPolyline(inframpoint)
    
41. infram(0).Closed = True
    
42. '面域图形到
    
43. Dim regions(0 To 3) As Variant
    
44. regions(0) = .AddRegion(outcircle):  regions(1) = .AddRegion(incircle)
    
45. regions(2) = .AddRegion(outfram):  regions(3) = .AddRegion(infram)
    
46. 
    
47. '将面域复制
    
48. Dim A, B, C, D As AcadRegion
    
49. 
    
50. 
    
51. Set A = regions(0): Set B = regions(1): Set C = regions(2): Set D = regions(3)
    
52. A.Boolean acSubtraction, B: C.Boolean acSubtraction, D
    
53. 
    
54. 
    
55. End With
    
56. 
    
57. 
    
58. End Sub
    
59. 
    
60. 
    

Public Sub createcage()<br /> Dim dbpoint As Variant<br /> Dim halfwidth As Double<br /> <br /> Dim Hlength As Double<br /> Hlength = 110<br /> Dim outframpoint(0 To 7) As Double<br /> Dim inframpoint(0 To 7) As Double<br /> Dim cagecenter(0 To 2) As Double<br /> Dim cageradius As Double<br /> halfwidth = 255<br /> cageradius = 350<br /> <br /> Dim incircle(0 To 0) As AcadCircle<br /> Dim outcircle(0 To 0) As AcadCircle<br /> <br /> Dim outfram(0 To 0) As AcadEntity<br /> Dim infram(0 To 0) As AcadEntity<br /> '用户获取点并赋值以方便以后使用<br /> dbpoint = ThisDrawing.Utility.GetPoint(, "Select a point")<br /> cagecenter(0) = dbpoint(0) + 355: cagecenter(1) = dbpoint(1): cagecenter(2) = dbpoint(2)<br /> <br /> With ThisDrawing.ModelSpace<br /> Set incircle(0) = .AddCircle(cagecenter, cageradius)<br /> Set outcircle(0) = .AddCircle(cagecenter, cageradius + 5)<br />     <br /> '画外框<br /> outframpoint(0) = dbpoint(0): outframpoint(1) = dbpoint(1) + halfwidth<br /> outframpoint(2) = dbpoint(0) + Hlength: outframpoint(3) = dbpoint(1) + halfwidth<br /> outframpoint(4) = dbpoint(0) + Hlength: outframpoint(5) = dbpoint(1) - halfwidth<br /> outframpoint(6) = dbpoint(0): outframpoint(7) = dbpoint(1) - halfwidth<br /> Set outfram(0) = .AddLightWeightPolyline(outframpoint)<br /> outfram(0).Closed = True<br /> '画内框<br /> inframpoint(0) = dbpoint(0): inframpoint(1) = dbpoint(1) + halfwidth - 5<br /> inframpoint(2) = dbpoint(0) + Hlength: inframpoint(3) = dbpoint(1) + halfwidth - 5<br /> inframpoint(4) = dbpoint(0) + Hlength: inframpoint(5) = dbpoint(1) - halfwidth + 5<br /> inframpoint(6) = dbpoint(0): inframpoint(7) = dbpoint(1) - halfwidth + 5<br /> Set infram(0) = .AddLightWeightPolyline(inframpoint)<br /> infram(0).Closed = True<br /> '面域图形到<br /> Dim regions(0 To 3) As Variant<br /> regions(0) = .AddRegion(outcircle):  regions(1) = .AddRegion(incircle)<br /> regions(2) = .AddRegion(outfram):  regions(3) = .AddRegion(infram)<br /> <br /> '将面域复制<br /> Dim A, B, C, D As AcadRegion<br /> <br /> <br /> Set A = regions(0): Set B = regions(1): Set C = regions(2): Set D = regions(3)<br /> A.Boolean acSubtraction, B: C.Boolean acSubtraction, D<br /> <br /> <br /> End With<br /> <br /> <br /> End Sub<br /> <br /> <br />

xueliang123

将47，50 ，51 加引号注释就运行很好 ，求高手帮忙看看

xueliang123

这个却运行的很好，不知道上面那个程序是哪里错了

2. Sub Ch4_CreateCompositeRegions()
   
3. ' 创建两个圆，一个代表房间，
   
4. ' 另外一个为房间中心的柱子
   
5. 
   
6. Dim RoomObjects(0 To 1) As AcadCircle
   
7. 
   
8. Dim center(0 To 2) As Double
   
9. 
   
10. Dim radius As Double
    
11. 
    
12. center(0) = 4
    
13. 
    
14. center(1) = 4
    
15. 
    
16. center(2) = 0
    
17. 
    
18. radius = 2#
    
19. 
    
20. Set RoomObjects(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
21. 
    
22. radius = 1#
    
23. 
    
24. Set RoomObjects(1) = ThisDrawing.ModelSpace.AddCircle(center, radius)
    
25. 
    
26.   
    
27. ' 用两个圆创建面域
    
28. 
    
29. Dim regions As Variant
    
30. 
    
31. regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)
    
32. ' 将面域复制到面域变体中以方便使用
    
33. 
    
34. Dim RoundRoomObj As AcadRegion
    
35. 
    
36. Dim PillarObj As AcadRegion
    
37. 
    
38.   
    
39. 
    
40. If regions(0).Area > regions(1).Area Then
    
41. 
    
42. ' 第一个面域为房间
    
43. 
    
44. Set RoundRoomObj = regions(0)
    
45. 
    
46. Set PillarObj = regions(1)
    
47. 
    
48. Else
    
49. 
    
50. ' 第一个面域为柱子
    
51. 
    
52. Set PillarObj = regions(0)
    
53. 
    
54. Set RoundRoomObj = regions(1)
    
55. End If
    
56. 
    
57.   
    
58. 
    
59. ' 将房间颜色设为红色，柱子颜色设为青色
    
60. 
    
61. RoundRoomObj.color = acRed
    
62. 
    
63. PillarObj.color = acCyan
    
64. 
    
65. ZoomAll
    
66. 
    
67.   
    
68. 
    
69. ' 从地板空间中减去柱子的空间
    
70. 
    
71. ' 以得到代表总的地毯面积的面域。
    
72. 
    
73. RoundRoomObj.Boolean acSubtraction, PillarObj
    
74. 
    
75.   
    
76. 
    
77. ' 使用Area属性以确定总的地毯面积
    
78. 
    
79. MsgBox "地毯面积为: " & RoundRoomObj.Area
    
80. 
    
81. End Sub

Sub Ch4_CreateCompositeRegions()<br /> ' 创建两个圆，一个代表房间，<br /> ' 另外一个为房间中心的柱子<br /> <br /> Dim RoomObjects(0 To 1) As AcadCircle<br /> <br /> Dim center(0 To 2) As Double<br /> <br /> Dim radius As Double<br /> <br /> center(0) = 4<br /> <br /> center(1) = 4<br /> <br /> center(2) = 0<br /> <br /> radius = 2#<br /> <br /> Set RoomObjects(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)<br /> <br /> radius = 1#<br /> <br /> Set RoomObjects(1) = ThisDrawing.ModelSpace.AddCircle(center, radius)<br /> <br />   <br /> ' 用两个圆创建面域<br /> <br /> Dim regions As Variant<br /> <br /> regions = ThisDrawing.ModelSpace.AddRegion(RoomObjects)<br /> ' 将面域复制到面域变体中以方便使用<br /> <br /> Dim RoundRoomObj As AcadRegion<br /> <br /> Dim PillarObj As AcadRegion<br /> <br />   <br /> <br /> If regions(0).Area > regions(1).Area Then<br /> <br /> ' 第一个面域为房间<br /> <br /> Set RoundRoomObj = regions(0)<br /> <br /> Set PillarObj = regions(1)<br /> <br /> Else<br /> <br /> ' 第一个面域为柱子<br /> <br /> Set PillarObj = regions(0)<br /> <br /> Set RoundRoomObj = regions(1)<br /> End If<br /> <br />   <br /> <br /> ' 将房间颜色设为红色，柱子颜色设为青色<br /> <br /> RoundRoomObj.color = acRed<br /> <br /> PillarObj.color = acCyan<br /> <br /> ZoomAll<br /> <br />   <br /> <br /> ' 从地板空间中减去柱子的空间<br /> <br /> ' 以得到代表总的地毯面积的面域。<br /> <br /> RoundRoomObj.Boolean acSubtraction, PillarObj<br /> <br />   <br /> <br /> ' 使用Area属性以确定总的地毯面积<br /> <br /> MsgBox "地毯面积为: " & RoundRoomObj.Area<br /> <br /> End Sub

xueliang123

D:\Capture.JPG

xueliang123

程序运行附图

zzyong00

AddRegion返回的是数组/variant
不是数组的成员！！！！
regions(0) = .AddRegion(outcircle) 这当然不对了！
还有Dim A, B, C, D As AcadRegion，把ABC也定义成AcadRegion,而不应该是variant