可以使用以下代码:Sub Create_Cube() Dim swApp As Object Dim swModel As Object Dim swDrawing As Object Dim swSelMgr As ObjectSet swApp = CreateObject("Sldworks.Application") Set swModel = swApp.ActiveDoc Set swDrawing = swModel Set swSelMgr = swDrawing.SelectionManagerDim lLength As Double Dim lWidth As Doub