Excel驱动AutoCAD绘图

2015年制作的VBA模板，可通过Excel进行数据计算、驱动AutoCAD实现滚珠丝杠产品三维模型的自动绘制。

去年还有已从研发部离职三年多的同事找我要，刚刚整理硬盘时又看到了，就在此记录备用吧！

Dim acadApp As Object
Dim acadDoc As Object
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
    Err.Clear
    Set acadApp = CreateObject("AutoCAD.Application")
    If Err Then End
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
acadDoc.SendCommand Range("CAD命令内容")