excel VBA 打开 NanoCAD 应用程序答案

【问题标题】：excel VBA to open NanoCAD applicationexcel VBA 打开 NanoCAD 应用程序
【发布时间】：2017-08-30 17:08:48
【问题描述】：

我想尝试在 NanoCAD 中自动生成多幅图纸。有很多资源可以帮助使用 AutoCAD，但对于 NanoCAD 却没有多少帮助。例如，有人可以给我下面的等效代码（我们可以用来打开 Autocad）来打开 NanoCAD 吗？

我已正确完成对 NanoCAD 命令的引用。就像我们为 Autocad 所做的那样。

Sub opencad()
    Dim ACAD As AcadApplication 'Create ACAD variable of type AcadApplication
    On Error Resume Next 
    Set ACAD = GetObject(, "AutoCAD.Application") 
    On Error GoTo 0 
    If ACAD Is Nothing Then 
        Set ACAD = New AcadApplication 
        ACAD.Visible = True 
    End If
    ACAD.ActiveDocument.Utility.Prompt "ZOOM ALL " 
End Sub

【问题讨论】：

标签： excel vba cad nano

【解决方案1】：

你必须使用这样的代码：

Dim app As nanoCAD.Application
Set app = GetObject("", "nanoCAD.Application")

不要忘记将 nanoCAD 类型库 (NCAuto.dll) 包含到您的项目中（菜单工具 - 参考..）

【讨论】：

像魅力一样工作！非常感谢你！我需要探索许多我需要的命令！
你能推荐一本书或一个网站来了解 NanoCAD 的 VBA 命令吗？