在用户坐标系中画圆柱问题？

大木头

请问，我用vba创建了用户坐标系ucs，但是为什么画出来的圆柱体还在世界坐标系里wcs，谢谢大家。代码如下：

2. '定义用户坐标系ucs
   
3.         Dim ucsObj1 As AcadUCS
   
4.         Dim origin1(0 To 2) As Double
   
5.         Dim xAxisPnt1(0 To 2) As Double
   
6.         Dim yAxisPnt1(0 To 2) As Double
   
7.         origin1(0) = X
   
8.         origin1(1) = Y
   
9.         origin1(2) = Z
   
10.         
    
11.         xAxisPnt1(0) = l1 + X
    
12.         xAxisPnt1(1) = m1 + Y
    
13.         xAxisPnt1(2) = n1 + Z
    
14.         
    
15.         yAxisPnt1(0) = l2 + X
    
16.         yAxisPnt1(1) = m2 + Y
    
17.         yAxisPnt1(2) = n2 + Z
    
18.         
    
19.         ' 添加UCS到 UserCoordinatesSystems 集合
    
20.         Set ucsObj1 = ThisDrawing.UserCoordinateSystems.Add(origin1, xAxisPnt1, yAxisPnt1, "New_UCS")
    
21.         ' 使新的UCS成为活动的UCS
    
22.         ThisDrawing.ActiveUCS = ucsObj1
    
23.         
    
24.         '绘制圆柱体
    
25.         Dim cylinderObj As Acad3DSolid
    
26.         Dim cylinderCenter(0 To 2) As Double
    
27.         Dim cylinderRadius As Double
    
28.         Dim cylinderHeight As Double
    
29.         cylinderCenter(0) = X
    
30.         cylinderCenter(1) = Y
    
31.         cylinderCenter(2) = Z
    
32.         cylinderRadius = excelSheet.Cells(j, 4).Value
    
33.         cylinderHeight = excelSheet.Cells(j, 7).Value
    
34.         Set cylinderObj = ThisDrawing.ModelSpace.AddCylinder(cylinderCenter, cylinderRadius, cylinderHeight)

'定义用户坐标系ucs<br />         Dim ucsObj1 As AcadUCS<br />         Dim origin1(0 To 2) As Double<br />         Dim xAxisPnt1(0 To 2) As Double<br />         Dim yAxisPnt1(0 To 2) As Double<br />         origin1(0) = X<br />         origin1(1) = Y<br />         origin1(2) = Z<br />         <br />         xAxisPnt1(0) = l1 + X<br />         xAxisPnt1(1) = m1 + Y<br />         xAxisPnt1(2) = n1 + Z<br />         <br />         yAxisPnt1(0) = l2 + X<br />         yAxisPnt1(1) = m2 + Y<br />         yAxisPnt1(2) = n2 + Z<br />         <br />         ' 添加UCS到 UserCoordinatesSystems 集合<br />         Set ucsObj1 = ThisDrawing.UserCoordinateSystems.Add(origin1, xAxisPnt1, yAxisPnt1, "New_UCS")<br />         ' 使新的UCS成为活动的UCS<br />         ThisDrawing.ActiveUCS = ucsObj1<br />         <br />         '绘制圆柱体<br />         Dim cylinderObj As Acad3DSolid<br />         Dim cylinderCenter(0 To 2) As Double<br />         Dim cylinderRadius As Double<br />         Dim cylinderHeight As Double<br />         cylinderCenter(0) = X<br />         cylinderCenter(1) = Y<br />         cylinderCenter(2) = Z<br />         cylinderRadius = excelSheet.Cells(j, 4).Value<br />         cylinderHeight = excelSheet.Cells(j, 7).Value<br />         Set cylinderObj = ThisDrawing.ModelSpace.AddCylinder(cylinderCenter, cylinderRadius, cylinderHeight)

请问各位大侠哪里出了问题？