|
|
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
始终不能生成实体~~~~~ |
|
置顶卡
