求修改，vba旋转生成实体

brianxian

Public Sub createsping()
  On Error Resume Next
  Dim pt(0 To 2) As Double
  pt(0) = 0: pt(1) = 0: pt(2) = 0
  If Err Then
    Err.Clear
    Exit Sub
 End If
  Dim cir1 As AcadCircle
  Dim cir2 As AcadCircle
  Dim pnts As Variant
  Set cir1 = ThisDrawing.ModelSpace.AddCircle(pt, 5)
  Dim p(0 To 2) As Double
  Dim t(0 To 2) As Double
   p(0) = 10: p(1) = 0: p(2) = 0
   t(0) = 10: t(1) = 10: t(2) = 0
 

 
  cc = ThisDrawing.ModelSpace.AddRegion(cir1)
 
 
  Dim re As Acad3DSolid
  Set re = ThisDrawing.ModelSpace.AddRevolvedSolid(cc, p, t, 6.28)

End Sub

始终不能生成实体~~~~~