在Excel VBA 中怎么新建CAD文件并且打开输入代码绘图?

新手上路,请多包涵

在Excel VBA 中怎么新建CAD文件并且打开,可以输入代码绘图,在帮助和百度都找不到答案,,已经翻了两天百度了,我看别人的视频可以,我的目的是通过Excel输入参数点击按钮直接按参数值得尺寸调动后台已经写好的程序进行绘图。

阅读 1.3k
1 个回答
新手上路,请多包涵

Sub CreateAndDrawInCAD()

Dim acadApp As Object
Dim acadDoc As Object
Dim acadLine As Object
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double

' 启动AutoCAD应用程序
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
    Err.Clear
    Set acadApp = CreateObject("AutoCAD.Application")
    If Err Then
        MsgBox "无法启动AutoCAD,请确保已安装AutoCAD。"
        Exit Sub
    End If
End If
On Error GoTo 0

' 设置AutoCAD可见
acadApp.Visible = True

' 新建一个CAD文档
Set acadDoc = acadApp.Documents.Add

' 定义起点和终点坐标(从Excel中获取参数)
startPoint(0) = Sheets("Sheet1").Range("A1").Value ' X坐标
startPoint(1) = Sheets("Sheet1").Range("B1").Value ' Y坐标
startPoint(2) = 0 ' Z坐标(2D绘图通常为0)

endPoint(0) = Sheets("Sheet1").Range("A2").Value ' X坐标
endPoint(1) = Sheets("Sheet1").Range("B2").Value ' Y坐标
endPoint(2) = 0 ' Z坐标

' 在CAD中绘制一条直线
Set acadLine = acadDoc.ModelSpace.AddLine(startPoint, endPoint)

' 保存CAD文件
Dim savePath As String
savePath = "C:\Users\YourName\Desktop\Drawing.dwg" ' 修改为实际保存路径
acadDoc.SaveAs savePath

' 提示完成
MsgBox "CAD文件已创建并保存至:" & savePath

' 释放对象
Set acadLine = Nothing
Set acadDoc = Nothing
Set acadApp = Nothing

End Sub

撰写回答
你尚未登录,登录后可以
  • 和开发者交流问题的细节
  • 关注并接收问题和回答的更新提醒
  • 参与内容的编辑和改进,让解决方法与时俱进