|
请大家帮我看看这多代码有什么问题,为什么说类型不匹配啊
Public Sub ext()
Dim pt(5) As Double
Dim objpline As Acad3DPolyline
pt(0) = 100
pt(1) = 200
pt(2) = 300
pt(3) = 100
pt(4) = 200
pt(5) = 800
Set objpline = ThisDrawing.ModelSpace.Add3DPoly(pt)
objpline.color = acGreen
Dim objlist(0) As AcadEntity
Dim ptcen(2) As Double
ptcen(0) = 100
ptcen(1) = 200
ptcen(2) = 300
Set objlist(0) = ThisDrawing.ModelSpace.AddCircle(ptcen, 50)
Dim objregion As Variant
Set objregion = ThisDrawing.ModelSpace.AddRegion(objlist)
Dim objsolid As Acad3DSolid
Set objsolid = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(objregion(0), objpline)
ZoomExtents
End Sub
? |
|