用excel 调用solidworks 2018 画一个正方体，长在excel sheet1的A1位置，宽在excel sheet1的B1位置，高在excel sheet1的C1位置，写出代码 编程环境是VBA

### 回答1：

可以使用以下代码：Sub DrawCube()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As LongSet swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDocPart.Extension.SelectByID2 "A1", "SHEET", 0, 0, 0, False, 0, Nothing, 0
Dim length As Double
length = Part.Parameter("B1")Part.Extension.SelectByID2 "B1", "SHEET", 0, 0, 0, False, 0, Nothing, 0
Dim width As Double
width = Part.Parameter("B1")Part.Extension.SelectByID2 "C1", "SHEET", 0, 0, 0, False, 0, Nothing, 0
Dim height As Double
height = Part.Parameter("B1")boolstatus = Part.Extension.SketchBox(0, 0, 0, length, width, height)boolstatus = Part.ExtrudeCut(True, False, False, 0, 0, length, 0.01, False, False, False, False, 0.0174532925199433, 0.0174532925199433, False, False, False, False, False, True, True, True, 0, 0, False)End Sub

### 回答2：
Sub DrawCube()
Dim height As Double
Dim width As Double
Dim length As Double

'获取在Sheet1中的A1、B1、C1位置的值
height = Worksheets("Sheet1").Range("C1").Value
width = Worksheets("Sheet1").Range("B1").Value
length = Worksheets("Sheet1").Range("A1").Value

'创建新的Part
Dim swApp As Object
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Dim part As Object
Set part = swApp.NewPart()

'创建新的Sketch Plane
Dim sketchPlane As Object
Set sketchPlane = part.SketchManager.AddToDBPlane(swPlaneDatum)
part.ClearSelection2 True

'绘制立方体的轮廓
Dim sketch As Object
Set sketch = part.SketchManager.ActiveSketch
sketch.SetPlane sketchPlane
sketch.AddLine length, 0, 0, length, width, 0
sketch.AddLine 0, width, 0, 0, width, height
sketch.AddLine 0, width, height, length, width, height
sketch.AddLine length, width, height, length, 0, height
sketch.AddLine length, 0, height, length, 0, 0
sketch.AddLine length, 0, 0, 0, 0, 0

'创建Extrude Boss特征
Dim extrude As Object
Set extrude = part.FeatureManager.FeatureExtrusion2(True, False, False, swEndCondBlind, swEndCondBlind, height, 0, False, False, False, False, 0, 0, False, False, False, False, False, False, True, True, True, 0, 0, False)
End Sub

### 回答3：
使用VBA语言编写Excel代码，可以轻松调用SolidWorks 2018绘制一个正方体。

首先，需要在Excel中打开Visual Basic编辑器（VBE），方法是按下ALT+F11。

在VBE中，在“项目资源管理器”窗格中，双击“Sheet1”（也可以是其他需要绘制正方体的工作表），然后在代码编辑窗口中输入以下代码：

Sub DrawCube()
    Dim swApp As Object
    Dim swModel As Object
    Dim swPart As Object
    Dim swSketch As Object
    
    ' 创建SolidWorks应用程序对象
    Set swApp = CreateObject("SldWorks.Application")
    
    ' 打开SolidWorks并新建零件文档
    Set swModel = swApp.NewDocument("Part", 0, 0, 0)
    
    ' 将SolidWorks文档设置为以毫米为单位
    swModel.SetUserPreferenceIntegerValue swUserPreferenceIntegerValue_UserUnit, swMM
    
    ' 获取零件对象
    Set swPart = swModel
    
    ' 创建一个新的草图
    Set swSketch = swPart.SketchManager.NewSketch
    
    ' 设置草图平面
    swSketch.SetOrigin (0, 0, 0)
    swSketch.SetOrientation swSketchOrientation_eTopView, True, True, False
    
    ' 在草图上绘制正方形
    swSketch.CreateCenterRectangle 0, 0, 0, Sheets("Sheet1").Range("A1").Value / 2, Sheets("Sheet1").Range("B1").Value / 2, 0
    
    ' 从草图创建立体特征
    swPart.FeatureManager.FeatureExtrusion2 True, False, False, swEndCondThroughAll, swEndCondBlind, Sheets("Sheet1").Range("C1").Value, 0, False, False, False, False, 0, 0, False, False, False, False, False
    
    ' 保存SolidWorks文档
    swModel.SaveAs2 "路径\文件名", swSaveAsCurrentVersion
    
    ' 关闭SolidWorks文档
    swModel.CloseDoc
    
    ' 退出SolidWorks应用程序
    swApp.Quit
    
    ' 清除对象引用
    Set swSketch = Nothing
    Set swPart = Nothing
    Set swModel = Nothing
    Set swApp = Nothing
End Sub

要使用该代码，只需将`"路径\文件名"`替换为保存正方体文件的路径和文件名。然后按下F5键运行代码，SolidWorks将打开并绘制一个具有指定尺寸的正方体。完成后，SolidWorks将关闭。

这就是用Excel调用SolidWorks 2018绘制正方体的VBA代码。