【求助 需要一个在excle中的vb调用数据在cad中建模的例子】

674999143

Sub tw()
Dim cad As New AutoCAD.AcadApplication '定义cad变量为一个CAD应用程序
cad.Documents.Add '新建CAD文件
cad.Visible = True
Dim a(2) As Double
a(0) = 0: a(1) = 0: a(2) = 0
cad.ActiveDocument.ModelSpace.AddCircle a, Range("a1").Value
End Sub
这是我在网上看到的
以单元格a1为半径画圆
类似这种的
想要一个以单元格a1为半径画球体的例子
或者随便什么三维图形

革天明

还不如在CAD中读取Excel生成图形方便呢