用excel 调用solidworks 2018 画一个正方体，长在excel sheet1的A1位置，宽在excel sheet1的B1位置，高在excel sheet1的C1位置，写出代码...

要在Excel中调用SolidWorks进行绘图，需要使用SolidWorks API和Excel VBA。以下是一个简单的VBA代码示例，通过在Sheet1中输入长宽高参数，并使用SolidWorks API绘制一个正方体。

在Excel VBA编辑器中，打开Sheet1的代码窗口，并添加以下代码：

Option Explicit

Sub DrawCube()
    Dim swApp As Object
    Dim swModel As Object
    Dim swSketchMgr As Object
    Dim swSketch As Object
    Dim swFeatMgr As Object
    Dim swExtrude As Object
    
    'Get the SolidWorks application instance
    Set swApp = GetObject(, "SldWorks.Application")
    swApp.Visible = True
    
    'Create a new part document
    Set swModel = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2018\templates\Part.prtdot", 0, 0, 0)
    swModel.Extension.SelectByID2 "Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0
    
    'Get the sketch manager and create a new sketch
    Set swSketchMgr = swModel.SketchManager
    Set swSketch = swSketchMgr.AddSketch(swModel.FeatureManager.FeatureExtrusionEnd)
    
    'Draw the square with user input dimensions
    swSketch.AddToDB = True
    swSketch.SketchUseExtrudeOption = False
    swSketchMgr.CreateCenterRectangle 0, 0, 0, Range("A1").Value / 2, Range("B1").Value / 2, 0
    swSketch.AddToDB = False
    
    'Create an extrude feature with user input height
    Set swFeatMgr = swModel.FeatureManager
    Set swExtrude = swFeatMgr.FeatureExtrusion2(True, False, False, 0, 0, Range("C1").Value, 0, False, False, False, False, 0, 0, False, False, False, False, False, True, True)
    
    swModel.ShowNamedView2 "*Trimetric", 8
    
    'Activate the SolidWorks window
    swApp.ActivateDoc swModel.GetTitle
    
End Sub

在Sheet1中的任何单元格中输入长、宽、高参数，然后运行该代码。它将创建一个新的SolidWorks零件文档，并使用用户输入的参数绘制一个正方体。请注意，此代码仅适用于SolidWorks 2018版本，如果您使用其他版本，则需要相应更改模板文件路径。