Question

会Auto CAD VBA的进来，帮忙编写一段程序，

实体编程

Answer 1

Sub 生成一个圆柱体()
Dim mycircle As AcadCircle
Dim centerp(2) As Double
Set mycircle = ThisDrawing.ModelSpace.AddCircle(centerp, 100)
Dim mylist(0) As AcadEntity
Set mylist(0) = mycircle
Dim myregion As Variant
myregion = ThisDrawing.ModelSpace.AddRegion(mylist)
Dim my3dsolid As Acad3DSolid
Set my3dsolid = ThisDrawing.ModelSpace.AddExtrudedSolid(myregion(0), 1000, 0)
mycircle.Delete
myregion(0).Delete
ZoomAll
End Sub

追问

告诉我邮箱，我发给你看看好吗？

追答

wzm1968yhm@163.com