[求助]：VBA中，按路径拉伸的问题。

Springclock

上面的代码运行到Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(circleObj(0), polyObj)时出错，可以画出用来拉伸的的圆和拉伸的路径。其实我也知道上面的代码会有些错误，因为我删掉了一些我看不懂的代码。我想请教一下大家，把上面的代码补完整。谢谢啦！

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_AddExtrudedSolidAlongPath()
   
5.      di = Val(TextBox4.Text)
   
6.      d0 = Val(TextBox5.Text)
   
7.      W = Val(TextBox6.Text)
   
8.      D = Val(TextBox7.Text)
   
9.      H = Val(TextBox8.Text)
   
10.      N = Val(TextBox9.Text)
    
11.      L = Val(TextBox10.Text)
    
12.      I = Val(TextBox11.Text)
    
13.     ' This example extrudes a solid from a region
    
14.     ' along a path defined by a spline.
    
15.     ' The region is created from an arc and a line.
    
16.    
    
17.    
    
18.    
    
19.      ' This example creates a circle in model space.
    
20.     Dim circleObj As AcadCircle
    
21.     Dim centerPoint(0 To 2) As Double
    
22.     Dim radius As Double
    
23.    
    
24.     ' Define the circle
    
25.     centerPoint(0) = 500 * W - 1200 * D / (N + 1): centerPoint(1) = 500 * H + 500 * d0: centerPoint(2) = 500 * D - 1000 * D / (N + 1)
    
26.     radius = 500 * d0
    
27.    
    
28.     ' Create the Circle object in model space
    
29.     Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    
30. 
    
31.     ' Define the rotation axis with two points
    
32.     Dim rotatePt1(0 To 2) As Double
    
33.     Dim rotatePt2(0 To 2) As Double
    
34.     Dim rotateAngle As Double
    
35.    
    
36.     rotatePt1(0) = 500 * W - 1200 * D / (N + 1): rotatePt1(1) = 500 * H + 500 * d0: rotatePt1(2) = 500 * D - 1000 * D / (N + 1)
    
37.     rotatePt2(0) = 500 * W - 1200 * D / (N + 1): rotatePt2(1) = 0: rotatePt2(2) = 500 * D - 1000 * D / (N + 1)
    
38.     rotateAngle = 90
    
39.     rotateAngle = rotateAngle * 3.141592 / 180
    
40.    
    
41.       
    
42.     ' Rotate the Circle
    
43.     circleObj.Rotate3D rotatePt1, rotatePt2, rotateAngle
    
44.    
    
45.    
    
46.     ' Define the extrusion path (3DPolyline object)
    
47.      Dim polyObj As Acad3DPolyline
    
48.      Dim points(0 To 14) As Double
    
49. 
    
50.     ' Define the 3D polyline points
    
51.     points(0) = 500 * W - 1200 * D / (N + 1): points(1) = 500 * H + 500 * d0: points(2) = 500 * D - 1000 * D / (N + 1)
    
52.     points(3) = -500 * W - 500 * d0: points(4) = 500 * H + 500 * d0: points(5) = 500 * D - 1000 * D / (N + 1)
    
53.     points(6) = -500 * W - 500 * d0: points(7) = -500 * H - 500 * d0: points(8) = 500 * D - 1000 * D / (N + 1)
    
54.     points(9) = 500 * W + 500 * d0: points(10) = -500 * H - 500 * d0: points(11) = 500 * D - 1000 * D / (N + 1)
    
55.     points(12) = 500 * W + 500 * d0: points(13) = 500 * H - 1200 * D / (N + 1): points(14) = 500 * D - 1000 * D / (N + 1)
    
56.    
    
57.     ' Create a 3DPolyline in model space
    
58.     Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)
    
59.     ' Create the solid
    
60.    
    
61.     Dim solidObj As Acad3DSolid
    
62.     Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(circleObj(0), polyObj)
    
63.     ZoomAll
    
64.    
    
65. End Sub
    
66.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_AddExtrudedSolidAlongPath()<br />      di = Val(TextBox4.Text)<br />      d0 = Val(TextBox5.Text)<br />      W = Val(TextBox6.Text)<br />      D = Val(TextBox7.Text)<br />      H = Val(TextBox8.Text)<br />      N = Val(TextBox9.Text)<br />      L = Val(TextBox10.Text)<br />      I = Val(TextBox11.Text)<br />     ' This example extrudes a solid from a region<br />     ' along a path defined by a spline.<br />     ' The region is created from an arc and a line.<br />     <br />     <br />     <br />      ' This example creates a circle in model space.<br />     Dim circleObj As AcadCircle<br />     Dim centerPoint(0 To 2) As Double<br />     Dim radius As Double<br />     <br />     ' Define the circle<br />     centerPoint(0) = 500 * W - 1200 * D / (N + 1): centerPoint(1) = 500 * H + 500 * d0: centerPoint(2) = 500 * D - 1000 * D / (N + 1)<br />     radius = 500 * d0<br />     <br />     ' Create the Circle object in model space<br />     Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)<br /> <br />     ' Define the rotation axis with two points<br />     Dim rotatePt1(0 To 2) As Double<br />     Dim rotatePt2(0 To 2) As Double<br />     Dim rotateAngle As Double<br />     <br />     rotatePt1(0) = 500 * W - 1200 * D / (N + 1): rotatePt1(1) = 500 * H + 500 * d0: rotatePt1(2) = 500 * D - 1000 * D / (N + 1)<br />     rotatePt2(0) = 500 * W - 1200 * D / (N + 1): rotatePt2(1) = 0: rotatePt2(2) = 500 * D - 1000 * D / (N + 1)<br />     rotateAngle = 90<br />     rotateAngle = rotateAngle * 3.141592 / 180<br />     <br />       <br />     ' Rotate the Circle<br />     circleObj.Rotate3D rotatePt1, rotatePt2, rotateAngle<br />     <br />     <br />     ' Define the extrusion path (3DPolyline object)<br />      Dim polyObj As Acad3DPolyline<br />      Dim points(0 To 14) As Double<br /> <br />     ' Define the 3D polyline points<br />     points(0) = 500 * W - 1200 * D / (N + 1): points(1) = 500 * H + 500 * d0: points(2) = 500 * D - 1000 * D / (N + 1)<br />     points(3) = -500 * W - 500 * d0: points(4) = 500 * H + 500 * d0: points(5) = 500 * D - 1000 * D / (N + 1)<br />     points(6) = -500 * W - 500 * d0: points(7) = -500 * H - 500 * d0: points(8) = 500 * D - 1000 * D / (N + 1)<br />     points(9) = 500 * W + 500 * d0: points(10) = -500 * H - 500 * d0: points(11) = 500 * D - 1000 * D / (N + 1)<br />     points(12) = 500 * W + 500 * d0: points(13) = 500 * H - 1200 * D / (N + 1): points(14) = 500 * D - 1000 * D / (N + 1)<br />     <br />     ' Create a 3DPolyline in model space<br />     Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)<br />     ' Create the solid<br />     <br />     Dim solidObj As Acad3DSolid<br />     Set solidObj = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(circleObj(0), polyObj)<br />     ZoomAll<br />     <br /> End Sub<br />   [/FONT]<br />

注：绘图时参考数据
蒸发器冷却排管围数：4
蒸发管外径：0.0065
冷冻室宽度：0.421
冷冻室深度：0.411
冷冻室高度：0.314
其他不用填